home *** CD-ROM | disk | FTP | other *** search
- object PDBForm: TPDBForm
- Left = 250
- Top = 173
- HelpContext = 117
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Personal Database'
- ClientHeight = 375
- ClientWidth = 293
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- ShowHint = True
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object DBNavigator1: TDBNavigator
- Left = 8
- Top = 8
- Width = 184
- Height = 25
- DataSource = DataSource
- VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
- TabOrder = 0
- end
- object OkBtn: TBitBtn
- Left = 23
- Top = 338
- Width = 75
- Height = 25
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 1
- OnClick = OkBtnClick
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333330000333333333333333333333333F33333333333
- 00003333344333333333333333388F3333333333000033334224333333333333
- 338338F3333333330000333422224333333333333833338F3333333300003342
- 222224333333333383333338F3333333000034222A22224333333338F338F333
- 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
- 33333338F83338F338F33333000033A33333A222433333338333338F338F3333
- 0000333333333A222433333333333338F338F33300003333333333A222433333
- 333333338F338F33000033333333333A222433333333333338F338F300003333
- 33333333A222433333333333338F338F00003333333333333A22433333333333
- 3338F38F000033333333333333A223333333333333338F830000333333333333
- 333A333333333333333338330000333333333333333333333333333333333333
- 0000}
- NumGlyphs = 2
- end
- object CancelBtn: TBitBtn
- Left = 107
- Top = 338
- Width = 75
- Height = 25
- Caption = '&Cancel'
- TabOrder = 2
- Kind = bkCancel
- end
- object HelpBtn: TBitBtn
- Left = 191
- Top = 338
- Width = 75
- Height = 25
- TabOrder = 3
- Kind = bkHelp
- end
- object ScrollBox1: TScrollBox
- Left = 12
- Top = 40
- Width = 269
- Height = 289
- BorderStyle = bsNone
- TabOrder = 4
- object Label1: TLabel
- Left = 0
- Top = 328
- Width = 34
- Height = 13
- Caption = 'User 1:'
- end
- object Label2: TLabel
- Left = 0
- Top = 19
- Width = 53
- Height = 13
- Caption = 'First Name:'
- end
- object Label3: TLabel
- Left = 0
- Top = 72
- Width = 47
- Height = 13
- Caption = 'Company:'
- end
- object Label4: TLabel
- Left = 0
- Top = 96
- Width = 23
- Height = 13
- Caption = 'Title:'
- end
- object Label5: TLabel
- Left = 0
- Top = 120
- Width = 41
- Height = 13
- Caption = 'Address:'
- end
- object Label6: TLabel
- Left = 0
- Top = 168
- Width = 61
- Height = 13
- Caption = 'Ret Address:'
- end
- object Label7: TLabel
- Left = 0
- Top = 224
- Width = 34
- Height = 13
- Caption = 'Phone:'
- end
- object Label8: TLabel
- Left = 0
- Top = 248
- Width = 23
- Height = 13
- Caption = 'FAX:'
- end
- object Label9: TLabel
- Left = 0
- Top = 272
- Width = 28
- Height = 13
- Caption = 'Email:'
- end
- object Label10: TLabel
- Left = 0
- Top = 392
- Width = 34
- Height = 13
- Caption = 'User 2:'
- end
- object Label11: TLabel
- Left = 0
- Top = 456
- Width = 34
- Height = 13
- Caption = 'User 3:'
- end
- object Label12: TLabel
- Left = 0
- Top = 528
- Width = 34
- Height = 13
- Caption = 'User 4:'
- end
- object Label13: TLabel
- Left = 0
- Top = 43
- Width = 54
- Height = 13
- Caption = 'Last Name:'
- end
- object DBEdit1: TDBEdit
- Left = 64
- Top = 16
- Width = 177
- Height = 21
- DataField = 'FNAME'
- DataSource = DataSource
- TabOrder = 0
- end
- object DBEdit2: TDBEdit
- Left = 64
- Top = 64
- Width = 177
- Height = 21
- DataField = 'COMPANY'
- DataSource = DataSource
- TabOrder = 2
- end
- object DBEdit3: TDBEdit
- Left = 64
- Top = 88
- Width = 177
- Height = 21
- DataField = 'TITLE'
- DataSource = DataSource
- TabOrder = 3
- end
- object DBMemo1: TDBMemo
- Left = 64
- Top = 112
- Width = 177
- Height = 49
- DataField = 'ADDRESS'
- DataSource = DataSource
- ScrollBars = ssBoth
- TabOrder = 4
- end
- object DBMemo2: TDBMemo
- Left = 64
- Top = 164
- Width = 177
- Height = 49
- DataField = 'RETADDRESS'
- DataSource = DataSource
- ScrollBars = ssBoth
- TabOrder = 5
- end
- object DBEdit4: TDBEdit
- Left = 64
- Top = 216
- Width = 177
- Height = 21
- DataField = 'PHONE'
- DataSource = DataSource
- TabOrder = 6
- end
- object DBEdit5: TDBEdit
- Left = 64
- Top = 240
- Width = 177
- Height = 21
- DataField = 'FAX'
- DataSource = DataSource
- TabOrder = 7
- end
- object DBEdit6: TDBEdit
- Left = 64
- Top = 264
- Width = 177
- Height = 21
- DataField = 'EMAIL'
- DataSource = DataSource
- TabOrder = 8
- end
- object DBMemo3: TDBMemo
- Left = 64
- Top = 328
- Width = 177
- Height = 57
- DataField = 'USER1'
- DataSource = DataSource
- ScrollBars = ssBoth
- TabOrder = 9
- end
- object DBMemo4: TDBMemo
- Left = 64
- Top = 392
- Width = 177
- Height = 57
- DataField = 'USER2'
- DataSource = DataSource
- ScrollBars = ssBoth
- TabOrder = 10
- end
- object DBMemo5: TDBMemo
- Left = 64
- Top = 456
- Width = 177
- Height = 57
- DataField = 'USER3'
- DataSource = DataSource
- ScrollBars = ssBoth
- TabOrder = 11
- end
- object DBMemo6: TDBMemo
- Left = 64
- Top = 520
- Width = 177
- Height = 57
- DataField = 'USER4'
- DataSource = DataSource
- ScrollBars = ssBoth
- TabOrder = 12
- end
- object DBEdit7: TDBEdit
- Left = 64
- Top = 40
- Width = 177
- Height = 21
- DataField = 'LNAME'
- DataSource = DataSource
- TabOrder = 1
- end
- end
- object ImportBtn: TBitBtn
- Left = 200
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Import'
- TabOrder = 5
- OnClick = ImportBtnClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000D80E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777777777777777777777770777777777777770077777777777770E0777
- 7777777770EE0000000077770EEEEEEEEEE00000EEEEEEEEEEE00FFF0EEEEEEE
- EEE00F8880EE000000000FFFFF0E077777770F888880077777770FFFFFFF0777
- 7777444444444777777744444444477777777777777777777777}
- end
- object ExportBtn: TBitBtn
- Left = 225
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Export'
- TabOrder = 6
- OnClick = ExportBtnClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000D80E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 777777777777777777777777777777077777777777777700777777777777770E
- 077777770000000EE07777770EEEEEEEEE0700000EEEEEEEEEE00FFF0EEEEEEE
- EE070F880000000EE0770FFFFFFF070E07770F88888F070077770FFFFFFF0707
- 7777444444444777777744444444477777777777777777777777}
- end
- object DataSource: TDataSource
- DataSet = DataSet
- Left = 160
- Top = 64
- end
- object ExportDialog: TSaveDialog
- DefaultExt = 'txt'
- Filter = 'Text Files|*.txt'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
- Left = 216
- Top = 64
- end
- object DataSet: TBinaryDataSet
- Left = 188
- Top = 64
- object DataSetFNAME: TStringField
- FieldName = 'FNAME'
- Size = 50
- end
- object DataSetLNAME: TStringField
- FieldName = 'LNAME'
- Size = 50
- end
- object DataSetCOMPANY: TStringField
- FieldName = 'COMPANY'
- Size = 50
- end
- object DataSetTITLE: TStringField
- FieldName = 'TITLE'
- Size = 50
- end
- object DataSetADDRESS: TStringField
- FieldName = 'ADDRESS'
- Size = 100
- end
- object DataSetRETADDRESS: TStringField
- FieldName = 'RETADDRESS'
- Size = 100
- end
- object DataSetPHONE: TStringField
- FieldName = 'PHONE'
- end
- object DataSetFAX: TStringField
- FieldName = 'FAX'
- end
- object DataSetEMAIL: TStringField
- FieldName = 'EMAIL'
- Size = 100
- end
- object DataSetUSER1: TStringField
- FieldName = 'USER1'
- Size = 100
- end
- object DataSetUSER2: TStringField
- FieldName = 'USER2'
- Size = 100
- end
- object DataSetUSER3: TStringField
- FieldName = 'USER3'
- Size = 100
- end
- object DataSetUSER4: TStringField
- FieldName = 'USER4'
- Size = 100
- end
- end
- end
-