home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 199
- Top = 106
- Width = 528
- Height = 436
- Caption = ' Example of Fast Copy Record using Scatter/Gather'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 16
- object DBNavigator1: TDBNavigator
- Left = 3
- Top = 6
- Width = 241
- Height = 25
- DataSource = DataSource1
- TabOrder = 0
- end
- object pbCopy: TButton
- Left = 18
- Top = 369
- Width = 403
- Height = 37
- Caption = 'Copy Current Record in Clients.dbf to Clients2.dbf'
- TabOrder = 1
- OnClick = pbCopyClick
- end
- object GroupBox1: TGroupBox
- Left = 16
- Top = 39
- Width = 499
- Height = 163
- Caption = ' \Delphi\Demos\Data\Clients.dbf '
- TabOrder = 2
- object DBGrid1: TDBGrid
- Left = 7
- Top = 34
- Width = 468
- Height = 114
- Color = clWhite
- DataSource = DataSource1
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- ParentFont = False
- TabOrder = 0
- TitleFont.Color = clBlack
- TitleFont.Height = -12
- TitleFont.Name = 'Arial'
- TitleFont.Style = [fsBold]
- OnEnter = DBGrid1Enter
- end
- end
- object GroupBox2: TGroupBox
- Left = 16
- Top = 207
- Width = 499
- Height = 148
- Caption = ' \Delphi\Demos\Data\Clients2.dbf '
- TabOrder = 3
- object DBGrid3: TDBGrid
- Left = 10
- Top = 27
- Width = 463
- Height = 114
- Color = clWhite
- DataSource = DataSource2
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- ParentFont = False
- TabOrder = 0
- TitleFont.Color = clBlack
- TitleFont.Height = -12
- TitleFont.Name = 'Arial'
- TitleFont.Style = [fsBold]
- OnEnter = DBGrid1Enter
- end
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 433
- Top = 2
- end
- object Table1: TTable
- Active = True
- DatabaseName = 'DBDEMOS'
- TableName = 'CLIENTS.DBF'
- Left = 470
- Top = 2
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 441
- Top = 372
- end
- object Table2: TTable
- Active = True
- DatabaseName = 'DBDEMOS'
- TableName = 'CLIENTS2.DBF'
- Left = 477
- Top = 372
- end
- end
-