1. Trang chủ
  2. » Công Nghệ Thông Tin

MASTERING DELPHI 6 phần 1 pps

MASTERING DELPHI 6 phần 1 pps

MASTERING DELPHI 6 phần 1 pps

... readable: [Main Window] Create =1 Visible =1 State=0 Left=0 Top=0 Width =10 24 Height =10 5 ClientWidth =10 16 ClientHeight=78 Chapter 1 • The Delphi 6 IDE Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybex.com Software ... cursor. Chapter 1 • The Delphi 6 IDE Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybex.com MASTERING ™ DELPHI ™ 6 Marco Cantù San Francisco • Pa...

Ngày tải lên: 12/08/2014, 21:20

108 191 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 3 ppsx

MASTERING DELPHI 6 phần 3 ppsx

... TreeView Controls Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybex.com 2 31 Position := MainMenu1.Items.IndexOf (Options1); MainMenu1.Items.Insert (Position + 1, PullDown); // create menu items ... nItem := 0 to ListBox1.Items.Count - 1 do if ListBox1.Selected [nItem] then SelItems := SelItems + ListBox1.Items[nItem] + ‘ ‘; Opening the Component Tool Box Copyright ©20 01 SYBEX, Inc.,...

Ngày tải lên: 12/08/2014, 21:20

108 236 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 8 ppsx

MASTERING DELPHI 6 phần 8 ppsx

... nil; Text := ‘[]’; // default // paint background Chapter 18 • Writing Database Components Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybex.com 766 or AfterUpdateRecord event handlers by specifying ... SQLDataSet1: TSQLDataSet object SQLDataSet1EMP_NO: TSmallintField CustomConstraint = ‘x > 0 and x < 10 000’ ConstraintErrorMessage = ‘Employee number must be a positive integer...

Ngày tải lên: 12/08/2014, 21:20

108 205 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 10 pps

MASTERING DELPHI 6 phần 10 pps

... Record</title></head><body>’ #13 + ‘<h1>Customer Record: ‘ + Request.QueryFields[0] + ‘</h1>’ #13 + ‘<table border>’ #13 ; for I := 1 to Query2.FieldCount - 1 do Response.Content := ... example: <?xml version= 1. 0” encoding=”UTF-8”?> Possible encodings include various Unicode character sets (such as UTF-8, UTF- 16 , and UTF-32) or some ISO encodi...

Ngày tải lên: 12/08/2014, 21:20

99 277 1
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 2 doc

MASTERING DELPHI 6 phần 2 doc

... = 1. 95583; ESPPerEuros = 16 6 .3 86; FRFPerEuros = 6. 55957; IEPPerEuros = 0.787 564 ; ITLPerEuros = 19 36. 27; // and so on Converting Data Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybex.com 14 0 The ... the following code fragment demonstrates: var v1, v2: Variant; begin v1 := VarComplexCreate (10 , 12 ); v2 := VarComplexCreate (10 , 1) ; ShowMessage (v1 + v2 + 5); The comple...

Ngày tải lên: 12/08/2014, 21:20

108 278 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 4 docx

MASTERING DELPHI 6 phần 4 docx

... the Scroll1 example, which has a virtual form 10 00 pixels wide. To accomplish this, I’ve set the range of the horizontal scroll bar to 10 00: object Form1: TForm1 Width = 458 Height = 368 HorzScrollBar.Range ... with Forms Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybex.com 335 Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then Canvas.Ellipse (X -10 , Y -10 , X +10 , Y...

Ngày tải lên: 12/08/2014, 21:20

108 188 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 5 pptx

MASTERING DELPHI 6 phần 5 pptx

... code. FIGURE 11 .5: The definition of a Component Palette bitmap in Delphi s Image Editor Chapter 11 • Creating Components Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybex.com 466 Notice that ... changes from Delphi 5 to Delphi 6, although they are substantial. For more information, you can study the extensive source code in the \Source\ToolsApi directory of Delphi 6. Chap...

Ngày tải lên: 12/08/2014, 21:20

108 210 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 6 pptx

MASTERING DELPHI 6 phần 6 pptx

... while loop: while not Table1.EOF do begin Table1.Edit; Table1Salary.Value := Round (Table1Salary.Value * SpinEdit1.Value) / 10 0; Total := Total + Table1Salary.Value; Table1.Next; end; The first statement ... TDbaForm.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if DBCheckBox1.Visible and (Ord (Key) > 31) then begin Key := #0; Table1.Edit; DBCheckBox1.Checked := not DBCheckBox1...

Ngày tải lên: 12/08/2014, 21:20

108 173 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 7 pdf

MASTERING DELPHI 6 phần 7 pdf

... is, indeed, how Delphi programmers used ADO before the release of Delphi 5. However, Chapter 16 • ActiveX Data Objects Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybex.com 66 6 TIP Triggers fire ... reading it. FIGURE 14 . 16 : The MyBase1 example, which saves data directly to a MyBase file Chapter 14 • Client/Server Programming Copyright ©20 01 SYBEX, Inc., Alameda, CA www.sybe...

Ngày tải lên: 12/08/2014, 21:20

108 236 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
MASTERING DELPHI 6 phần 9 ppt

MASTERING DELPHI 6 phần 9 ppt

... file generated by Delphi. Here is a small excerpt of the IAXForm1 interface from the XF1Lib.pas file, with some comments I’ve added: type IAXForm1 = interface(IDispatch) [‘{5 16 6 1AA1-9 468 -11 D0-98D0-444553540000}’] // ... RangeW; v1.ConvertToTable (#9, 19 , 2); Row1 := WordDocument1.Tables.Item (1) .Rows.Get_First; Row1.Range.Bold := 1; Row1.Range.Font.Size := 30; Row1.Range.InsertPar...

Ngày tải lên: 12/08/2014, 21:20

108 190 0
  1. Công Nghệ Thông Tin
  2. » Kỹ thuật lập trình
Xem thêm
Từ khóa:
w