paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 15:36:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed example adrbook, require package tdbf

Browse Source 
git-svn-id: trunk@22952 -
This commit is contained in:
mattias 2009-12-03 23:26:55 +00:00
parent 0b3d343290
commit b081929c4e
5 changed files with 247 additions and 259 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
examples/address_book/addrbook.lpi
View File

@ -1,18 +1,17 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="6"/>
<General> <General>
<Flags> <Flags>
<SaveClosedFiles Value="False"/> <SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/> <SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="addrbook"/> <Title Value="addrbook"/>
<ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -26,43 +25,33 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Release="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="2">
<Unit0> <Unit0>
<Filename Value="addrbook.lpr"/> <Filename Value="addrbook.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="addrbook"/> <UnitName Value="addrbook"/>
<CursorPos X="1" Y="30"/>
<TopLine Value="1"/>
<UsageCount Value="32"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="frmmain.pas"/> <Filename Value="frmmain.pas"/>
<ComponentName Value="MainForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="frmmain.lrs"/> <ComponentName Value="MainForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmmain"/> <UnitName Value="frmmain"/>
<CursorPos X="13" Y="19"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="32"/>
<Loaded Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>

2
examples/address_book/addrbook.lpr
View File

@ -23,7 +23,7 @@ program addrbook;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Interfaces, frmmain, Forms; Interfaces, frmmain, Forms, DBFLaz;
begin begin
Application.Initialize; Application.Initialize;

177
examples/address_book/frmmain.lfm
View File

@ -1,21 +1,24 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 279 Left = 484
Height = 522 Height = 522
Top = 165 Top = 273
Width = 734 Width = 734
HorzScrollBar.Page = 733 HorzScrollBar.Page = 733
VertScrollBar.Page = 491 VertScrollBar.Page = 491
ActiveControl = GDBA ActiveControl = PTop
Caption = 'Addressbook' Caption = 'Addressbook'
ClientHeight = 492 ClientHeight = 497
ClientWidth = 734 ClientWidth = 734
Font.Height = -13 Font.Height = -13
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Menu = MMain Menu = MMain
OnClose = FormClose OnClose = FormClose
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
LCLVersion = '0.9.29'
object PTop: TPanel object PTop: TPanel
Left = 0
Height = 33 Height = 33
Top = 0
Width = 734 Width = 734
Align = alTop Align = alTop
BevelOuter = bvLowered BevelOuter = bvLowered
@ -37,7 +40,8 @@ object MainForm: TMainForm
end end
end end
object GDBA: TDBGrid object GDBA: TDBGrid
Height = 199 Left = 0
Height = 204
Top = 33 Top = 33
Width = 734 Width = 734
Align = alClient Align = alClient
@ -92,17 +96,15 @@ object MainForm: TMainForm
FieldName = 'WWW' FieldName = 'WWW'
end> end>
DataSource = DSAddress DataSource = DSAddress
FixedColor = clBtnFace
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
ParentColor = False
ReadOnly = True ReadOnly = True
TabOrder = 1 TabOrder = 1
TabStop = True TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
end end
object PBottom: TPanel object PBottom: TPanel
Left = 0
Height = 260 Height = 260
Top = 232 Top = 237
Width = 734 Width = 734
Align = alBottom Align = alBottom
BevelOuter = bvLowered BevelOuter = bvLowered
@ -112,244 +114,244 @@ object MainForm: TMainForm
TabOrder = 2 TabOrder = 2
object LELastName: TLabel object LELastName: TLabel
Left = 8 Left = 8
Height = 17 Height = 19
Top = 8 Top = 8
Width = 89 Width = 61
Alignment = taRightJustify Alignment = taRightJustify
Caption = '&Last name' Caption = '&Last name'
Color = clNone
FocusControl = ELastName FocusControl = ELastName
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LEFirstName: TLabel object LEFirstName: TLabel
Left = 8 Left = 8
Height = 17 Height = 19
Top = 32 Top = 34
Width = 89 Width = 62
Alignment = taRightJustify Alignment = taRightJustify
Caption = '&First name' Caption = '&First name'
Color = clNone
FocusControl = EFirstName FocusControl = EFirstName
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LEStreet: TLabel object LEStreet: TLabel
Left = 8 Left = 8
Height = 17 Height = 19
Top = 64 Top = 64
Width = 56 Width = 37
Alignment = taRightJustify Alignment = taRightJustify
Caption = '&Street' Caption = '&Street'
Color = clNone
FocusControl = EStreet FocusControl = EStreet
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LEZip: TLabel object LEZip: TLabel
Left = 8 Left = 8
Height = 17 Height = 19
Top = 88 Top = 92
Width = 34 Width = 23
Alignment = taRightJustify Alignment = taRightJustify
Caption = '&Zip' Caption = '&Zip'
Color = clNone
FocusControl = EZip FocusControl = EZip
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LETown: TLabel object LETown: TLabel
Left = 264 Left = 264
Height = 17 Height = 19
Top = 88 Top = 90
Width = 52 Width = 35
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'T&own' Caption = 'T&own'
Color = clNone
FocusControl = ETown FocusControl = ETown
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LETelephone: TLabel object LETelephone: TLabel
Left = 8 Left = 8
Height = 17 Height = 19
Top = 144 Top = 145
Width = 88 Width = 58
Alignment = taRightJustify Alignment = taRightJustify
Caption = '&Telephone' Caption = '&Telephone'
Color = clNone
FocusControl = ETelephone FocusControl = ETelephone
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LECountry: TLabel object LECountry: TLabel
Left = 8 Left = 8
Height = 17 Height = 19
Top = 112 Top = 115
Width = 69 Width = 46
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Countr&y' Caption = 'Countr&y'
Color = clNone
FocusControl = ECountry FocusControl = ECountry
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LEFax: TLabel object LEFax: TLabel
Left = 288 Left = 288
Height = 17 Height = 19
Top = 144 Top = 145
Width = 39 Width = 26
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Fa&x' Caption = 'Fa&x'
Color = clNone
FocusControl = EFax FocusControl = EFax
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LEMobile: TLabel object LEMobile: TLabel
Left = 472 Left = 472
Height = 17 Height = 19
Top = 144 Top = 145
Width = 58 Width = 39
Alignment = taRightJustify Alignment = taRightJustify
Caption = '&Mobile' Caption = '&Mobile'
Color = clNone
FocusControl = EMobile FocusControl = EMobile
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LEEmail: TLabel object LEEmail: TLabel
Left = 8 Left = 8
Height = 17 Height = 19
Top = 176 Top = 176
Width = 52 Width = 34
Alignment = taRightJustify Alignment = taRightJustify
Caption = '&Email' Caption = '&Email'
Color = clNone
FocusControl = EEmail FocusControl = EEmail
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LEWWW: TLabel object LEWWW: TLabel
Left = 8 Left = 8
Height = 17 Height = 19
Top = 200 Top = 200
Width = 57 Width = 38
Alignment = taRightJustify Alignment = taRightJustify
Caption = '&WWW' Caption = '&WWW'
Color = clNone
FocusControl = EWWW FocusControl = EWWW
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object ELastName: TDBEdit object ELastName: TDBEdit
Left = 160 Left = 160
Height = 24 Height = 28
Top = 8 Top = 8
Width = 361 Width = 361
DataField = 'LastName' DataField = 'LastName'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 0 TabOrder = 0
end end
object EFirstName: TDBEdit object EFirstName: TDBEdit
Left = 160 Left = 160
Height = 24 Height = 28
Top = 32 Top = 35
Width = 361 Width = 361
DataField = 'FirstName' DataField = 'FirstName'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 1 TabOrder = 1
end end
object EStreet: TDBEdit object EStreet: TDBEdit
Left = 160 Left = 160
Height = 24 Height = 28
Top = 64 Top = 62
Width = 361 Width = 361
DataField = 'Street' DataField = 'Street'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 2 TabOrder = 2
end end
object EZip: TDBEdit object EZip: TDBEdit
Left = 160 Left = 160
Height = 24 Height = 28
Top = 88 Top = 89
Width = 89 Width = 89
DataField = 'Zip' DataField = 'Zip'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 3 TabOrder = 3
end end
object ECountry: TDBEdit object ECountry: TDBEdit
Left = 160 Left = 160
Height = 24 Height = 28
Top = 112 Top = 116
Width = 361 Width = 361
DataField = 'Country' DataField = 'Country'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 5 TabOrder = 5
end end
object EWWW: TDBEdit object EWWW: TDBEdit
Left = 160 Left = 160
Height = 24 Height = 28
Top = 200 Top = 203
Width = 361 Width = 361
DataField = 'WWW' DataField = 'WWW'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 10 TabOrder = 10
end end
object ETelephone: TDBEdit object ETelephone: TDBEdit
Left = 160 Left = 160
Height = 24 Height = 28
Top = 144 Top = 144
Width = 121 Width = 121
DataField = 'Telephone' DataField = 'Telephone'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 6 TabOrder = 6
end end
object EFax: TDBEdit object EFax: TDBEdit
Left = 336 Left = 336
Height = 24 Height = 28
Top = 144 Top = 144
Width = 121 Width = 121
DataField = 'Fax' DataField = 'Fax'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 7 TabOrder = 7
end end
object EMobile: TDBEdit object EMobile: TDBEdit
Left = 520 Left = 520
Height = 24 Height = 28
Top = 144 Top = 144
Width = 121 Width = 121
DataField = 'Mobile' DataField = 'Mobile'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 8 TabOrder = 8
end end
object EEmail: TDBEdit object EEmail: TDBEdit
Left = 160 Left = 160
Height = 24 Height = 28
Top = 176 Top = 176
Width = 361 Width = 361
DataField = 'Email' DataField = 'Email'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 9 TabOrder = 9
end end
object ETown: TDBEdit object ETown: TDBEdit
Left = 320 Left = 320
Height = 24 Height = 28
Top = 88 Top = 89
Width = 201 Width = 201
DataField = 'Town' DataField = 'Town'
DataSource = DSAddress DataSource = DSAddress
ParentColor = False CharCase = ecNormal
MaxLength = 0
TabOrder = 4 TabOrder = 4
end end
end end
@ -426,8 +428,8 @@ object MainForm: TMainForm
end end
end end
object ALMain: TActionList object ALMain: TActionList
left = 64 left = 135
top = 112 top = 72
object ANew: TAction object ANew: TAction
Caption = '&New' Caption = '&New'
HelpType = htKeyword HelpType = htKeyword
@ -541,21 +543,20 @@ object MainForm: TMainForm
IndexDefs = <> IndexDefs = <>
StoreDefs = True StoreDefs = True
TableLevel = 4 TableLevel = 4
FilterOptions = []
AfterInsert = DBAAfterInsert AfterInsert = DBAAfterInsert
left = 96 left = 215
top = 112 top = 72
end end
object SDDBA: TSaveDialog object SDDBA: TSaveDialog
Title = 'Save file as'
DefaultExt = '.dbf' DefaultExt = '.dbf'
Filter = 'DBF files|*.dbf|All files|*.*' Filter = 'DBF files|*.dbf|All files|*.*'
FilterIndex = 0 FilterIndex = 0
Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing] Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
left = 96 left = 135
top = 144 top = 144
end end
object ODDBA: TOpenDialog object ODDBA: TOpenDialog
Title = 'Open existing file'
DefaultExt = '.dbf' DefaultExt = '.dbf'
Filter = 'DBF files|*.dbf|All files|*.*' Filter = 'DBF files|*.dbf|All files|*.*'
FilterIndex = 0 FilterIndex = 0
@ -565,7 +566,7 @@ object MainForm: TMainForm
end end
object DSAddress: TDatasource object DSAddress: TDatasource
DataSet = DBA DataSet = DBA
left = 128 left = 290
top = 112 top = 72
end end
end end

290
examples/address_book/frmmain.lrs
View File

@ -1,152 +1,150 @@
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TMainForm','FORMDATA',[ LazarusResources.Add('TMainForm','FORMDATA',[
'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#23#1#6'Height'#3#10#2#3'Top'#3#165#0 'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#228#1#6'Height'#3#10#2#3'Top'#3#17#1
+#5'Width'#3#222#2#18'HorzScrollBar.Page'#3#221#2#18'VertScrollBar.Page'#3#235 +#5'Width'#3#222#2#18'HorzScrollBar.Page'#3#221#2#18'VertScrollBar.Page'#3#235
+#1#13'ActiveControl'#7#4'GDBA'#7'Caption'#6#11'Addressbook'#12'ClientHeight' +#1#13'ActiveControl'#7#4'PTop'#7'Caption'#6#11'Addressbook'#12'ClientHeight'
+#3#236#1#11'ClientWidth'#3#222#2#11'Font.Height'#2#243#9'Font.Name'#6#13'MS ' +#3#241#1#11'ClientWidth'#3#222#2#11'Font.Height'#2#243#9'Font.Name'#6#13'MS '
+'Sans Serif'#4'Menu'#7#5'MMain'#7'OnClose'#7#9'FormClose'#12'OnCloseQuery'#7 +'Sans Serif'#4'Menu'#7#5'MMain'#7'OnClose'#7#9'FormClose'#12'OnCloseQuery'#7
+#14'FormCloseQuery'#0#6'TPanel'#4'PTop'#6'Height'#2'!'#5'Width'#3#222#2#5'Al' +#14'FormCloseQuery'#10'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#4'PTop'#4'Left'#2
+'ign'#7#5'alTop'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'!'#11'Clie' +#0#6'Height'#2'!'#3'Top'#2#0#5'Width'#3#222#2#5'Align'#7#5'alTop'#10'BevelOu'
+'ntWidth'#3#222#2#11'FullRepaint'#8#8'TabOrder'#2#0#0#12'TDBNavigator'#12'DB' +'ter'#7#9'bvLowered'#12'ClientHeight'#2'!'#11'ClientWidth'#3#222#2#11'FullRe'
+'Navigator1'#4'Left'#3#200#1#6'Height'#2#25#3'Top'#2#4#5'Width'#3#4#1#7'Anch' +'paint'#8#8'TabOrder'#2#0#0#12'TDBNavigator'#12'DBNavigator1'#4'Left'#3#200#1
+'ors'#11#5'akTop'#7'akRight'#0#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2 +#6'Height'#2#25#3'Top'#2#4#5'Width'#3#4#1#7'Anchors'#11#5'akTop'#7'akRight'#0
+#25#11'ClientWidth'#3#4#1#10'DataSource'#7#9'DSAddress'#8'TabOrder'#2#0#0#0#0 +#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#25#11'ClientWidth'#3#4#1#10'D'
+#7'TDBGrid'#4'GDBA'#6'Height'#3#199#0#3'Top'#2'!'#5'Width'#3#222#2#5'Align'#7 +'ataSource'#7#9'DSAddress'#8'TabOrder'#2#0#0#0#0#7'TDBGrid'#4'GDBA'#4'Left'#2
+#8'alClient'#5'Color'#7#7'clWhite'#7'Columns'#14#1#13'Title.Caption'#6#10'Fi' +#0#6'Height'#3#204#0#3'Top'#2'!'#5'Width'#3#222#2#5'Align'#7#8'alClient'#5'C'
+'rst name'#5'Width'#2'u'#9'FieldName'#6#9'FirstName'#0#1#13'Title.Caption'#6 +'olor'#7#7'clWhite'#7'Columns'#14#1#13'Title.Caption'#6#10'First name'#5'Wid'
+#9'Last name'#5'Width'#2''#9'FieldName'#6#8'LastName'#0#1#13'Title.Caption' +'th'#2'u'#9'FieldName'#6#9'FirstName'#0#1#13'Title.Caption'#6#9'Last name'#5
+#6#7'Street '#5'Width'#3#131#0#9'FieldName'#6#6'Street'#0#1#13'Title.Caption' +'Width'#2#127#9'FieldName'#6#8'LastName'#0#1#13'Title.Caption'#6#7'Street '#5
+#6#4'Zip '#9'FieldName'#6#3'Zip'#0#1#13'Title.Caption'#6#5'Town '#5'Width'#2 +'Width'#3#131#0#9'FieldName'#6#6'Street'#0#1#13'Title.Caption'#6#4'Zip '#9'F'
+'d'#9'FieldName'#6#4'Town'#0#1#13'Title.Caption'#6#8'Country '#9'FieldName'#6 +'ieldName'#6#3'Zip'#0#1#13'Title.Caption'#6#5'Town '#5'Width'#2'd'#9'FieldNa'
+#7'Country'#0#1#13'Title.Caption'#6#10'Telephone '#9'FieldName'#6#9'Telephon' +'me'#6#4'Town'#0#1#13'Title.Caption'#6#8'Country '#9'FieldName'#6#7'Country'
+'e'#0#1#13'Title.Caption'#6#4'Fax '#9'FieldName'#6#3'Fax'#0#1#13'Title.Capti' +#0#1#13'Title.Caption'#6#10'Telephone '#9'FieldName'#6#9'Telephone'#0#1#13'T'
+'on'#6#7'Mobile '#9'FieldName'#6#6'Mobile'#0#1#13'Title.Caption'#6#6'Email ' +'itle.Caption'#6#4'Fax '#9'FieldName'#6#3'Fax'#0#1#13'Title.Caption'#6#7'Mob'
+#9'FieldName'#6#5'Email'#0#1#13'Title.Caption'#6#4'WWW '#9'FieldName'#6#3'WW' +'ile '#9'FieldName'#6#6'Mobile'#0#1#13'Title.Caption'#6#6'Email '#9'FieldNam'
+'W'#0#0#10'DataSource'#7#9'DSAddress'#10'FixedColor'#7#9'clBtnFace'#7'Option' +'e'#6#5'Email'#0#1#13'Title.Caption'#6#4'WWW '#9'FieldName'#6#3'WWW'#0#0#10
+'s'#11#9'dgEditing'#8'dgTitles'#11'dgIndicator'#14'dgColumnResize'#12'dgColu' +'DataSource'#7#9'DSAddress'#8'ReadOnly'#9#8'TabOrder'#2#1#16'TitleFont.Heigh'
+'mnMove'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysShowSelection'#15 +'t'#2#243#14'TitleFont.Name'#6#13'MS Sans Serif'#0#0#6'TPanel'#7'PBottom'#4
+'dgConfirmDelete'#14'dgCancelOnExit'#0#12'OptionsExtra'#11#14'dgeAutoColumns' +'Left'#2#0#6'Height'#3#4#1#3'Top'#3#237#0#5'Width'#3#222#2#5'Align'#7#8'alBo'
+#17'dgeCheckboxColumn'#0#11'ParentColor'#8#8'ReadOnly'#9#8'TabOrder'#2#1#7'T' +'ttom'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#3#4#1#11'ClientWidth'#3
+'abStop'#9#0#0#6'TPanel'#7'PBottom'#6'Height'#3#4#1#3'Top'#3#232#0#5'Width'#3 +#222#2#11'FullRepaint'#8#8'TabOrder'#2#2#0#6'TLabel'#10'LELastName'#4'Left'#2
+#222#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight' +#8#6'Height'#2#19#3'Top'#2#8#5'Width'#2'='#9'Alignment'#7#14'taRightJustify'
+#3#4#1#11'ClientWidth'#3#222#2#11'FullRepaint'#8#8'TabOrder'#2#2#0#6'TLabel' +#7'Caption'#6#10'&Last name'#12'FocusControl'#7#9'ELastName'#6'Layout'#7#8't'
+#10'LELastName'#4'Left'#2#8#6'Height'#2#17#3'Top'#2#8#5'Width'#2'Y'#9'Alignm' +'lCenter'#11'ParentColor'#8#0#0#6'TLabel'#11'LEFirstName'#4'Left'#2#8#6'Heig'
+'ent'#7#14'taRightJustify'#7'Caption'#6#10'&Last name'#5'Color'#7#6'clNone' +'ht'#2#19#3'Top'#2'"'#5'Width'#2'>'#9'Alignment'#7#14'taRightJustify'#7'Capt'
+#12'FocusControl'#7#9'ELastName'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0 +'ion'#6#11'&First name'#12'FocusControl'#7#10'EFirstName'#6'Layout'#7#8'tlCe'
+#0#6'TLabel'#11'LEFirstName'#4'Left'#2#8#6'Height'#2#17#3'Top'#2' '#5'Width' +'nter'#11'ParentColor'#8#0#0#6'TLabel'#8'LEStreet'#4'Left'#2#8#6'Height'#2#19
+#2'Y'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#11'&First name'#5'Color' +#3'Top'#2'@'#5'Width'#2'%'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#7
+#7#6'clNone'#12'FocusControl'#7#10'EFirstName'#6'Layout'#7#8'tlCenter'#11'Pa' +'&Street'#12'FocusControl'#7#7'EStreet'#6'Layout'#7#8'tlCenter'#11'ParentCol'
+'rentColor'#8#0#0#6'TLabel'#8'LEStreet'#4'Left'#2#8#6'Height'#2#17#3'Top'#2 +'or'#8#0#0#6'TLabel'#5'LEZip'#4'Left'#2#8#6'Height'#2#19#3'Top'#2'\'#5'Width'
+'@'#5'Width'#2'8'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#7'&Street'#5 +#2#23#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#4'&Zip'#12'FocusControl'
+'Color'#7#6'clNone'#12'FocusControl'#7#7'EStreet'#6'Layout'#7#8'tlCenter'#11 +#7#4'EZip'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#6'LETown'
+'ParentColor'#8#0#0#6'TLabel'#5'LEZip'#4'Left'#2#8#6'Height'#2#17#3'Top'#2'X' +#4'Left'#3#8#1#6'Height'#2#19#3'Top'#2'Z'#5'Width'#2'#'#9'Alignment'#7#14'ta'
+#5'Width'#2'"'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#4'&Zip'#5'Colo' +'RightJustify'#7'Caption'#6#5'T&own'#12'FocusControl'#7#5'ETown'#6'Layout'#7
+'r'#7#6'clNone'#12'FocusControl'#7#4'EZip'#6'Layout'#7#8'tlCenter'#11'Parent' +#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#11'LETelephone'#4'Left'#2#8#6'H'
+'Color'#8#0#0#6'TLabel'#6'LETown'#4'Left'#3#8#1#6'Height'#2#17#3'Top'#2'X'#5 +'eight'#2#19#3'Top'#3#145#0#5'Width'#2':'#9'Alignment'#7#14'taRightJustify'#7
+'Width'#2'4'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'T&own'#5'Color' +'Caption'#6#10'&Telephone'#12'FocusControl'#7#10'ETelephone'#6'Layout'#7#8't'
+#7#6'clNone'#12'FocusControl'#7#5'ETown'#6'Layout'#7#8'tlCenter'#11'ParentCo' +'lCenter'#11'ParentColor'#8#0#0#6'TLabel'#9'LECountry'#4'Left'#2#8#6'Height'
+'lor'#8#0#0#6'TLabel'#11'LETelephone'#4'Left'#2#8#6'Height'#2#17#3'Top'#3#144 +#2#19#3'Top'#2's'#5'Width'#2'.'#9'Alignment'#7#14'taRightJustify'#7'Caption'
+#0#5'Width'#2'X'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#10'&Telephon' +#6#8'Countr&y'#12'FocusControl'#7#8'ECountry'#6'Layout'#7#8'tlCenter'#11'Par'
+'e'#5'Color'#7#6'clNone'#12'FocusControl'#7#10'ETelephone'#6'Layout'#7#8'tlC' +'entColor'#8#0#0#6'TLabel'#5'LEFax'#4'Left'#3' '#1#6'Height'#2#19#3'Top'#3
+'enter'#11'ParentColor'#8#0#0#6'TLabel'#9'LECountry'#4'Left'#2#8#6'Height'#2 +#145#0#5'Width'#2#26#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#4'Fa&x'
+#17#3'Top'#2'p'#5'Width'#2'E'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6 +#12'FocusControl'#7#4'EFax'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6
+#8'Countr&y'#5'Color'#7#6'clNone'#12'FocusControl'#7#8'ECountry'#6'Layout'#7 +'TLabel'#8'LEMobile'#4'Left'#3#216#1#6'Height'#2#19#3'Top'#3#145#0#5'Width'#2
+#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#5'LEFax'#4'Left'#3' '#1#6'Heigh' +''''#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#7'&Mobile'#12'FocusContr'
+'t'#2#17#3'Top'#3#144#0#5'Width'#2''''#9'Alignment'#7#14'taRightJustify'#7'C' +'ol'#7#7'EMobile'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#7
+'aption'#6#4'Fa&x'#5'Color'#7#6'clNone'#12'FocusControl'#7#4'EFax'#6'Layout' +'LEEmail'#4'Left'#2#8#6'Height'#2#19#3'Top'#3#176#0#5'Width'#2'"'#9'Alignmen'
+#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#8'LEMobile'#4'Left'#3#216#1#6 +'t'#7#14'taRightJustify'#7'Caption'#6#6'&Email'#12'FocusControl'#7#6'EEmail'
+'Height'#2#17#3'Top'#3#144#0#5'Width'#2':'#9'Alignment'#7#14'taRightJustify'
+#7'Caption'#6#7'&Mobile'#5'Color'#7#6'clNone'#12'FocusControl'#7#7'EMobile'#6
+'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#7'LEEmail'#4'Left'#2#8
+#6'Height'#2#17#3'Top'#3#176#0#5'Width'#2'4'#9'Alignment'#7#14'taRightJustif'
+'y'#7'Caption'#6#6'&Email'#5'Color'#7#6'clNone'#12'FocusControl'#7#6'EEmail'
+#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#5'LEWWW'#4'Left'#2#8 +#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#5'LEWWW'#4'Left'#2#8
+#6'Height'#2#17#3'Top'#3#200#0#5'Width'#2'9'#9'Alignment'#7#14'taRightJustif' +#6'Height'#2#19#3'Top'#3#200#0#5'Width'#2'&'#9'Alignment'#7#14'taRightJustif'
+'y'#7'Caption'#6#4'&WWW'#5'Color'#7#6'clNone'#12'FocusControl'#7#4'EWWW'#6'L' +'y'#7'Caption'#6#4'&WWW'#12'FocusControl'#7#4'EWWW'#6'Layout'#7#8'tlCenter'
+'ayout'#7#8'tlCenter'#11'ParentColor'#8#0#0#7'TDBEdit'#9'ELastName'#4'Left'#3 +#11'ParentColor'#8#0#0#7'TDBEdit'#9'ELastName'#4'Left'#3#160#0#6'Height'#2#28
,#160#0#6'Height'#2#24#3'Top'#2#8#5'Width'#3'i'#1#9'DataField'#6#8'LastName' +#3'Top'#2#8#5'Width'#3'i'#1#9'DataField'#6#8'LastName'#10'DataSource'#7#9'DS'
+#10'DataSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#0#0#0#7'TDBEd' +'Address'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#0#0#0#7'T'
+'it'#10'EFirstName'#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2' '#5'Width'#3'i' +'DBEdit'#10'EFirstName'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#2'#'#5'Width'#3
+#1#9'DataField'#6#9'FirstName'#10'DataSource'#7#9'DSAddress'#11'ParentColor' +'i'#1#9'DataField'#6#9'FirstName'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7
+#8#8'TabOrder'#2#1#0#0#7'TDBEdit'#7'EStreet'#4'Left'#3#160#0#6'Height'#2#24#3 +#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#1#0#0#7'TDBEdit'#7'EStreet'#4'Le'
+'Top'#2'@'#5'Width'#3'i'#1#9'DataField'#6#6'Street'#10'DataSource'#7#9'DSAdd' ,'ft'#3#160#0#6'Height'#2#28#3'Top'#2'>'#5'Width'#3'i'#1#9'DataField'#6#6'Str'
+'ress'#11'ParentColor'#8#8'TabOrder'#2#2#0#0#7'TDBEdit'#4'EZip'#4'Left'#3#160 +'eet'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2
+#0#6'Height'#2#24#3'Top'#2'X'#5'Width'#2'Y'#9'DataField'#6#3'Zip'#10'DataSou' +#0#8'TabOrder'#2#2#0#0#7'TDBEdit'#4'EZip'#4'Left'#3#160#0#6'Height'#2#28#3'T'
+'rce'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#3#0#0#7'TDBEdit'#8'ECou' +'op'#2'Y'#5'Width'#2'Y'#9'DataField'#6#3'Zip'#10'DataSource'#7#9'DSAddress'#8
+'ntry'#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2'p'#5'Width'#3'i'#1#9'DataFiel' +'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#3#0#0#7'TDBEdit'#8'E'
+'d'#6#7'Country'#10'DataSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder' +'Country'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#2't'#5'Width'#3'i'#1#9'DataF'
+#2#5#0#0#7'TDBEdit'#4'EWWW'#4'Left'#3#160#0#6'Height'#2#24#3'Top'#3#200#0#5 +'ield'#6#7'Country'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9
+'Width'#3'i'#1#9'DataField'#6#3'WWW'#10'DataSource'#7#9'DSAddress'#11'Parent' +'MaxLength'#2#0#8'TabOrder'#2#5#0#0#7'TDBEdit'#4'EWWW'#4'Left'#3#160#0#6'Hei'
+'Color'#8#8'TabOrder'#2#10#0#0#7'TDBEdit'#10'ETelephone'#4'Left'#3#160#0#6'H' +'ght'#2#28#3'Top'#3#203#0#5'Width'#3'i'#1#9'DataField'#6#3'WWW'#10'DataSourc'
+'eight'#2#24#3'Top'#3#144#0#5'Width'#2'y'#9'DataField'#6#9'Telephone'#10'Dat' +'e'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2
+'aSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#6#0#0#7'TDBEdit'#4 +#10#0#0#7'TDBEdit'#10'ETelephone'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#3#144
+'EFax'#4'Left'#3'P'#1#6'Height'#2#24#3'Top'#3#144#0#5'Width'#2'y'#9'DataFiel' +#0#5'Width'#2'y'#9'DataField'#6#9'Telephone'#10'DataSource'#7#9'DSAddress'#8
+'d'#6#3'Fax'#10'DataSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#7 +'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#6#0#0#7'TDBEdit'#4'E'
+#0#0#7'TDBEdit'#7'EMobile'#4'Left'#3#8#2#6'Height'#2#24#3'Top'#3#144#0#5'Wid' +'Fax'#4'Left'#3'P'#1#6'Height'#2#28#3'Top'#3#144#0#5'Width'#2'y'#9'DataField'
+'th'#2'y'#9'DataField'#6#6'Mobile'#10'DataSource'#7#9'DSAddress'#11'ParentCo' +#6#3'Fax'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLengt'
+'lor'#8#8'TabOrder'#2#8#0#0#7'TDBEdit'#6'EEmail'#4'Left'#3#160#0#6'Height'#2 +'h'#2#0#8'TabOrder'#2#7#0#0#7'TDBEdit'#7'EMobile'#4'Left'#3#8#2#6'Height'#2
+#24#3'Top'#3#176#0#5'Width'#3'i'#1#9'DataField'#6#5'Email'#10'DataSource'#7#9 +#28#3'Top'#3#144#0#5'Width'#2'y'#9'DataField'#6#6'Mobile'#10'DataSource'#7#9
+'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#9#0#0#7'TDBEdit'#5'ETown'#4'Left' +'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#8#0#0#7
+#3'@'#1#6'Height'#2#24#3'Top'#2'X'#5'Width'#3#201#0#9'DataField'#6#4'Town'#10 +'TDBEdit'#6'EEmail'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#3#176#0#5'Width'#3
+'DataSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#4#0#0#0#9'TMainM' +'i'#1#9'DataField'#6#5'Email'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7#8
+'enu'#5'MMain'#4'left'#2'@'#3'top'#2'H'#0#9'TMenuItem'#5'MFile'#7'Caption'#6 +'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#9#0#0#7'TDBEdit'#5'ETown'#4'Left'#3
+#5'&File'#0#9'TMenuItem'#5'MINew'#6'Action'#7#4'ANew'#7'OnClick'#7#11'ANewEx' +'@'#1#6'Height'#2#28#3'Top'#2'Y'#5'Width'#3#201#0#9'DataField'#6#4'Town'#10
+'ecute'#0#0#9'TMenuItem'#6'MIOpen'#6'Action'#7#5'AOpen'#7'OnClick'#7#12'AOpe' +'DataSource'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'Tab'
+'nExecute'#0#0#9'TMenuItem'#7'MIClose'#6'Action'#7#6'AClose'#7'OnClick'#7#13 +'Order'#2#4#0#0#0#9'TMainMenu'#5'MMain'#4'left'#2'@'#3'top'#2'H'#0#9'TMenuIt'
+'ACloseExecute'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6 +'em'#5'MFile'#7'Caption'#6#5'&File'#0#9'TMenuItem'#5'MINew'#6'Action'#7#4'AN'
+'MIQuit'#6'Action'#7#5'AQuit'#7'OnClick'#7#12'AQuitExecute'#0#0#0#9'TMenuIte' +'ew'#7'OnClick'#7#11'ANewExecute'#0#0#9'TMenuItem'#6'MIOpen'#6'Action'#7#5'A'
+'m'#7'Record1'#7'Caption'#6#7'&Record'#0#9'TMenuItem'#7'MIFirst'#6'Action'#7 +'Open'#7'OnClick'#7#12'AOpenExecute'#0#0#9'TMenuItem'#7'MIClose'#6'Action'#7
+#6'AFirst'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MILAst'#6'Action' +#6'AClose'#7'OnClick'#7#13'ACloseExecute'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6
+#7#5'ALast'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#7'MIPrior'#6'Acti' +#1'-'#0#0#9'TMenuItem'#6'MIQuit'#6'Action'#7#5'AQuit'#7'OnClick'#7#12'AQuitE'
+'on'#7#6'APrior'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MINext'#6 +'xecute'#0#0#0#9'TMenuItem'#7'Record1'#7'Caption'#6#7'&Record'#0#9'TMenuItem'
+'Action'#7#5'ANext'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#2'N2'#7'C' +#7'MIFirst'#6'Action'#7#6'AFirst'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuI'
+'aption'#6#1'-'#0#0#9'TMenuItem'#8'MIInsert'#6'Action'#7#7'AInsert'#7'OnClic' +'tem'#6'MILAst'#6'Action'#7#5'ALast'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMe'
+'k'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MIEdit'#6'Action'#7#5'AEdit'#7'OnC' +'nuItem'#7'MIPrior'#6'Action'#7#6'APrior'#7'OnClick'#7#12'DoDataAction'#0#0#9
+'lick'#7#12'DoDataAction'#0#0#9'TMenuItem'#8'MIDelete'#6'Action'#7#7'ADelete' +'TMenuItem'#6'MINext'#6'Action'#7#5'ANext'#7'OnClick'#7#12'DoDataAction'#0#0
+#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MIPost'#6'Action'#7#5'APos' +#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#8'MIInsert'#6'Action'
+'t'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#8'MICancel'#6'Action'#7#7 +#7#7'AInsert'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MIEdit'#6'Act'
+'ACancel'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#9'MIRefresh'#6'Acti' +'ion'#7#5'AEdit'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#8'MIDelete'#6
+'on'#7#8'ARefresh'#7'OnClick'#7#12'DoDataAction'#0#0#0#0#11'TActionList'#6'A' +'Action'#7#7'ADelete'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MIPos'
+'LMain'#4'left'#2'@'#3'top'#2'p'#0#7'TAction'#4'ANew'#7'Caption'#6#4'&New'#8 +'t'#6'Action'#7#5'APost'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#8'MI'
+'HelpType'#7#9'htKeyword'#9'OnExecute'#7#11'ANewExecute'#0#0#7'TAction'#5'AO' +'Cancel'#6'Action'#7#7'ACancel'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuIte'
+'pen'#7'Caption'#6#5'&Open'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'AOp' +'m'#9'MIRefresh'#6'Action'#7#8'ARefresh'#7'OnClick'#7#12'DoDataAction'#0#0#0
+'enExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#6'AClose'#7'Caption'#6#6'&Close' +#0#11'TActionList'#6'ALMain'#4'left'#3#135#0#3'top'#2'H'#0#7'TAction'#4'ANew'
+#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#13'ACloseExecute'#8'OnUpdate'#7#12 +#7'Caption'#6#4'&New'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#11'ANewExecu'
+'ACloseUpdate'#0#0#7'TAction'#5'AQuit'#7'Caption'#6#5'&Quit'#8'HelpType'#7#9 +'te'#0#0#7'TAction'#5'AOpen'#7'Caption'#6#5'&Open'#8'HelpType'#7#9'htKeyword'
+'htKeyword'#9'OnExecute'#7#12'AQuitExecute'#8'ShortCut'#3'Q@'#0#0#7'TAction' +#9'OnExecute'#7#12'AOpenExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#6'AClose'#7
+#6'AFirst'#8'Category'#6#7'Dataset'#7'Caption'#6#6'&First'#8'HelpType'#7#9'h' +'Caption'#6#6'&Close'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#13'ACloseExe'
+'tKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'Short' +'cute'#8'OnUpdate'#7#12'ACloseUpdate'#0#0#7'TAction'#5'AQuit'#7'Caption'#6#5
+'Cut'#3'F@'#0#0#7'TAction'#6'APrior'#3'Tag'#2#1#8'Category'#6#7'Dataset'#7'C' +'&Quit'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'AQuitExecute'#8'ShortCu'
+'aption'#6#6'&Prior'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataActi' +'t'#3'Q@'#0#0#7'TAction'#6'AFirst'#8'Category'#6#7'Dataset'#7'Caption'#6#6'&'
+'on'#8'OnUpdate'#7#8'DataOpen'#0#0#7'TAction'#5'ANext'#3'Tag'#2#2#8'Category' +'First'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdat'
+#6#7'Dataset'#7'Caption'#6#5'&Next'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7 +'e'#7#8'DataOpen'#8'ShortCut'#3'F@'#0#0#7'TAction'#6'APrior'#3'Tag'#2#1#8'Ca'
+#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#0#0#7'TAction'#5'ALast'#3'Tag'#2 +'tegory'#6#7'Dataset'#7'Caption'#6#6'&Prior'#8'HelpType'#7#9'htKeyword'#9'On'
+#3#8'Category'#6#7'Dataset'#7'Caption'#6#5'&Last'#8'HelpType'#7#9'htKeyword' +'Execute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#0#0#7'TAction'#5'ANex'
+#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'ShortCut'#3'L@' +'t'#3'Tag'#2#2#8'Category'#6#7'Dataset'#7'Caption'#6#5'&Next'#8'HelpType'#7#9
+#0#0#7'TAction'#7'AInsert'#3'Tag'#2#4#8'Category'#6#7'Dataset'#7'Caption'#6#7 +'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#0#0#7
+'&Insert'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpd' +'TAction'#5'ALast'#3'Tag'#2#3#8'Category'#6#7'Dataset'#7'Caption'#6#5'&Last'
+'ate'#7#8'DataOpen'#8'ShortCut'#3'N@'#0#0#7'TAction'#7'ADelete'#3'Tag'#2#5#8 +#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8
+'Category'#6#7'Dataset'#7'Caption'#6#7'&Delete'#8'HelpType'#7#9'htKeyword'#9 +'DataOpen'#8'ShortCut'#3'L@'#0#0#7'TAction'#7'AInsert'#3'Tag'#2#4#8'Category'
+'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#16'HaveDataNotEmpty'#8'ShortCut' +#6#7'Dataset'#7'Caption'#6#7'&Insert'#8'HelpType'#7#9'htKeyword'#9'OnExecute'
,#3'D@'#0#0#7'TAction'#5'AEdit'#3'Tag'#2#6#8'Category'#6#7'Dataset'#7'Caption' +#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'ShortCut'#3'N@'#0#0#7'TActio'
+#6#5'&Edit'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnU' +'n'#7'ADelete'#3'Tag'#2#5#8'Category'#6#7'Dataset'#7'Caption'#6#7'&Delete'#8
+'pdate'#7#16'HaveDataNotEmpty'#8'ShortCut'#2'q'#0#0#7'TAction'#5'APost'#3'Ta' +'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#16'H'
+'g'#2#7#8'Category'#6#7'Dataset'#7'Caption'#6#5'P&ost'#8'HelpType'#7#9'htKey' +'aveDataNotEmpty'#8'ShortCut'#3'D@'#0#0#7'TAction'#5'AEdit'#3'Tag'#2#6#8'Cat'
+'word'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#10'InEditMode'#8'ShortC' +'egory'#6#7'Dataset'#7'Caption'#6#5'&Edit'#8'HelpType'#7#9'htKeyword'#9'OnEx'
+'ut'#3'S@'#0#0#7'TAction'#7'ACancel'#3'Tag'#2#8#8'Category'#6#7'Dataset'#7'C' ,'ecute'#7#12'DoDataAction'#8'OnUpdate'#7#16'HaveDataNotEmpty'#8'ShortCut'#2
+'aption'#6#7'&Cancel'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAct' +'q'#0#0#7'TAction'#5'APost'#3'Tag'#2#7#8'Category'#6#7'Dataset'#7'Caption'#6
+'ion'#8'OnUpdate'#7#10'InEditMode'#0#0#7'TAction'#8'ARefresh'#8'Category'#6#7 +#5'P&ost'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpd'
+'Dataset'#7'Caption'#6#8'&Refresh'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7 +'ate'#7#10'InEditMode'#8'ShortCut'#3'S@'#0#0#7'TAction'#7'ACancel'#3'Tag'#2#8
+#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'ShortCut'#2't'#0#0#0#4'TDbf'#3 +#8'Category'#6#7'Dataset'#7'Caption'#6#7'&Cancel'#8'HelpType'#7#9'htKeyword'
+'DBA'#9'IndexDefs'#14#0#9'StoreDefs'#9#10'TableLevel'#2#4#11'AfterInsert'#7 +#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#10'InEditMode'#0#0#7'TAction'
+#14'DBAAfterInsert'#4'left'#2'`'#3'top'#2'p'#0#0#11'TSaveDialog'#5'SDDBA'#5 +#8'ARefresh'#8'Category'#6#7'Dataset'#7'Caption'#6#8'&Refresh'#8'HelpType'#7
+'Title'#6#12'Save file as'#10'DefaultExt'#6#4'.dbf'#6'Filter'#6#29'DBF files' +#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'Sh'
+'|*.dbf|All files|*.*'#11'FilterIndex'#2#0#7'Options'#11#14'ofHideReadOnly' +'ortCut'#2't'#0#0#0#4'TDbf'#3'DBA'#9'IndexDefs'#14#0#9'StoreDefs'#9#10'Table'
+#15'ofPathMustExist'#14'ofEnableSizing'#0#4'left'#2'`'#3'top'#3#144#0#0#0#11 +'Level'#2#4#13'FilterOptions'#11#0#11'AfterInsert'#7#14'DBAAfterInsert'#4'le'
+'TOpenDialog'#5'ODDBA'#5'Title'#6#18'Open existing file'#10'DefaultExt'#6#4 +'ft'#3#215#0#3'top'#2'H'#0#0#11'TSaveDialog'#5'SDDBA'#10'DefaultExt'#6#4'.db'
+'.dbf'#6'Filter'#6#29'DBF files|*.dbf|All files|*.*'#11'FilterIndex'#2#0#7'O' +'f'#6'Filter'#6#29'DBF files|*.dbf|All files|*.*'#11'FilterIndex'#2#0#7'Opti'
+'ptions'#11#14'ofHideReadOnly'#15'ofFileMustExist'#14'ofEnableSizing'#0#4'le' +'ons'#11#14'ofHideReadOnly'#15'ofPathMustExist'#14'ofEnableSizing'#0#4'left'
+'ft'#2'@'#3'top'#3#144#0#0#0#11'TDatasource'#9'DSAddress'#7'DataSet'#7#3'DBA' +#3#135#0#3'top'#3#144#0#0#0#11'TOpenDialog'#5'ODDBA'#10'DefaultExt'#6#4'.dbf'
+#4'left'#3#128#0#3'top'#2'p'#0#0#0 +#6'Filter'#6#29'DBF files|*.dbf|All files|*.*'#11'FilterIndex'#2#0#7'Options'
+#11#14'ofHideReadOnly'#15'ofFileMustExist'#14'ofEnableSizing'#0#4'left'#2'@'
+#3'top'#3#144#0#0#0#11'TDatasource'#9'DSAddress'#7'DataSet'#7#3'DBA'#4'left'
+#3'"'#1#3'top'#2'H'#0#0#0
]); ]);

2
examples/address_book/frmmain.pas
View File

@ -23,7 +23,7 @@ unit frmmain;
interface interface
uses uses
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Dbf, Grids, DBGrids, DBCtrls, ExtCtrls, ActnList, Menus, Dialogs, DB, Dbf, Grids, DBGrids, DBCtrls, ExtCtrls, ActnList, Menus,
StdCtrls,lresources; StdCtrls,lresources;