home *** CD-ROM | disk | FTP | other *** search
- object PDBImportForm: TPDBImportForm
- Left = 231
- Top = 148
- HelpContext = 118
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Import'
- ClientHeight = 395
- ClientWidth = 436
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poOwnerFormCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 36
- Width = 74
- Height = 13
- Caption = 'Import Filename'
- end
- object Label3: TLabel
- Left = 8
- Top = 8
- Width = 198
- Height = 13
- Caption = 'STEP 1: Choose the file to import.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object OKBtn: TBitBtn
- Left = 88
- Top = 364
- Width = 75
- Height = 25
- Caption = '&Import'
- Default = True
- Enabled = False
- ModalResult = 1
- TabOrder = 3
- OnClick = OKBtnClick
- end
- object CancelBtn: TBitBtn
- Left = 176
- Top = 364
- Width = 75
- Height = 25
- Caption = '&Cancel'
- TabOrder = 4
- Kind = bkCancel
- end
- object FileNameEdit: TEdit
- Left = 96
- Top = 33
- Width = 241
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 0
- end
- object ChooseFileBtn: TBitBtn
- Left = 348
- Top = 32
- Width = 29
- Height = 25
- TabOrder = 1
- OnClick = ChooseFileBtnClick
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777700007777777777777777777700007777777777777777777700007700
- 00000000077777770000770033333333307777770000770B0333333333077777
- 0000770FBF333333333077770000770BFB033333333307770000770FBFB00000
- 000000770000770BFBFBFBFB077777770000770FBFBFBFBF077777770000770B
- FB00000007777777000077700077777777000777000077777777777777700777
- 0000777777777707770707770000777777777770007777770000777777777777
- 7777777700007777777777777777777700007777777777777777777700007777
- 77777777777777770000}
- end
- object HelpBtn: TBitBtn
- Left = 276
- Top = 364
- Width = 75
- Height = 25
- TabOrder = 5
- Kind = bkHelp
- end
- object FieldPanel: TPanel
- Left = 4
- Top = 68
- Width = 429
- Height = 285
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 2
- Visible = False
- object Label4: TLabel
- Left = 4
- Top = 8
- Width = 204
- Height = 13
- Caption = 'STEP 2: Match the fields to import.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Groupbox1: TPanel
- Left = 4
- Top = 28
- Width = 421
- Height = 245
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object Label2: TLabel
- Left = 12
- Top = 8
- Width = 393
- Height = 26
- Caption =
- 'Select matching fields from the two lists below and click the Ad' +
- 'd button to mark the fields for importing.'
- WordWrap = True
- end
- object FieldList: TListBox
- Left = 120
- Top = 44
- Width = 113
- Height = 185
- ItemHeight = 13
- TabOrder = 1
- OnMouseDown = FieldListMouseDown
- end
- object FixedFieldList: TListBox
- Left = 12
- Top = 44
- Width = 101
- Height = 185
- ItemHeight = 13
- Items.Strings = (
- 'First Name'
- 'Last Name'
- 'Company'
- 'Title'
- 'Address'
- 'Return Address'
- 'Phone'
- 'Fax'
- 'Email'
- 'User1'
- 'User2'
- 'User3'
- 'User4')
- TabOrder = 0
- OnMouseDown = FieldListMouseDown
- end
- object ResultList: TListBox
- Left = 276
- Top = 44
- Width = 133
- Height = 185
- ItemHeight = 13
- TabOrder = 4
- OnMouseDown = FieldListMouseDown
- end
- object AddBtn: TBitBtn
- Left = 240
- Top = 100
- Width = 29
- Height = 25
- TabOrder = 2
- OnClick = AddBtnClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000C40E00001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00888888888888
- 88888888888088888888888888800888888888888880C088888888888880CC08
- 888800000000CCC088880CCCCCCCCCCC08880CCCCCCCCCCCC0880CCCCCCCCCCC
- CC080CCCCCCCCCCCC0880CCCCCCCCCCC088800000000CCC0888888888880CC08
- 888888888880C088888888888880088888888888888088888888}
- end
- object RemoveBtn: TBitBtn
- Left = 240
- Top = 140
- Width = 29
- Height = 25
- TabOrder = 3
- OnClick = RemoveBtnClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000C40E00001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00888888880888
- 888888888880088888888888880C08888888888880CC0888888888880CCC0000
- 00008880CCCCCCCCCCC0880CCCCCCCCCCCC080CCCCCCCCCCCCC0880CCCCCCCCC
- CCC08880CCCCCCCCCCC088880CCC00000000888880CC088888888888880C0888
- 8888888888800888888888888888088888888888888888888888}
- end
- end
- end
- object ImportDialog: TOpenDialog
- Filter = 'Text Files (*.txt)|*.txt|Comma Seperated Values (*.csv)|*.csv'
- Left = 389
- Top = 32
- end
- end
-