home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: Shareware for Win 95
/
Chip-Shareware-Win95.bin
/
ostatni
/
delphi
/
delphi1
/
scatter.exe
/
DELPHI
/
DEMOS
/
DATA
/
SCATTER
/
MAIN.DFM
/
MAIN.txt
Wrap
Text File
|
1995-08-10
|
3KB
|
111 lines
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