home *** CD-ROM | disk | FTP | other *** search
- object FormExpert: TFormExpert
- Left = 215
- Top = 114
- BorderStyle = bsDialog
- Caption = 'Database Form Wizard'
- ClientHeight = 288
- ClientWidth = 480
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnPaint = FormPaint
- TextHeight = 13
- object Image1: TImage
- Left = 102
- Top = 4
- Width = 17
- Height = 25
- IsControl = True
- end
- object Notebook1: TNotebook
- Left = 126
- Top = 1
- Width = 354
- Height = 254
- PageIndex = 4
- TabOrder = 0
- IsControl = True
- object TPage
- Left = 0
- Top = 0
- Caption = 'QueryType'
- IsControl = True
- object Label1: TLabel
- Left = 10
- Top = 7
- Width = 250
- Height = 13
- Caption = 'Choose the type of form that the Wizard will create'
- IsControl = True
- end
- object Label2: TLabel
- Left = 10
- Top = 22
- Width = 109
- Height = 13
- Caption = 'from the options below.'
- IsControl = True
- end
- object GroupBox2: TGroupBox
- Left = 20
- Top = 53
- Width = 310
- Height = 65
- TabOrder = 0
- IsControl = True
- object Label19: TLabel
- Left = 7
- Top = 1
- Width = 62
- Height = 13
- Caption = 'Form Options'
- FocusControl = CreateSingle
- end
- object CreateSingle: TRadioButton
- Left = 8
- Top = 17
- Width = 142
- Height = 17
- Caption = 'Create a &simple form'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = CreateOptionClick
- IsControl = True
- end
- object CreateMulti: TRadioButton
- Left = 8
- Top = 39
- Width = 185
- Height = 17
- Caption = 'Create a &master/detail form'
- TabOrder = 1
- OnClick = CreateOptionClick
- IsControl = True
- end
- end
- object GroupBox1: TGroupBox
- Left = 20
- Top = 126
- Width = 310
- Height = 65
- TabOrder = 1
- object Label20: TLabel
- Left = 11
- Top = 2
- Width = 78
- Height = 13
- Caption = 'DataSet Options'
- FocusControl = CreateTable
- end
- object CreateTable: TRadioButton
- Left = 8
- Top = 17
- Width = 280
- Height = 17
- Caption = 'Create a form using &TTable objects'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = CreateTableClick
- end
- object CreateQuery: TRadioButton
- Left = 8
- Top = 39
- Width = 251
- Height = 17
- Caption = 'Create a Form using T&Query objects'
- TabOrder = 1
- OnClick = CreateQueryClick
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Table'
- IsControl = True
- object TableLine: TLabel
- Left = 10
- Top = 7
- Width = 133
- Height = 13
- Caption = 'Choose a table for the query'
- IsControl = True
- end
- object Label25: TLabel
- Left = 185
- Top = 187
- Width = 94
- Height = 13
- Caption = 'Dri&ve or Alias name:'
- FocusControl = AliasDriveList
- IsControl = True
- end
- object Label26: TLabel
- Left = 20
- Top = 186
- Width = 82
- Height = 13
- Caption = 'List Files of &Type:'
- FocusControl = FilterList
- IsControl = True
- end
- object Label27: TLabel
- Left = 19
- Top = 39
- Width = 61
- Height = 13
- Caption = 'T&able Name:'
- FocusControl = FileEdit
- IsControl = True
- end
- object DirPath: TLabel
- Left = 185
- Top = 40
- Width = 53
- Height = 13
- Caption = '&Directories:'
- FocusControl = AliasPathList
- IsControl = True
- end
- object PathText: TLabel
- Left = 187
- Top = 62
- Width = 144
- Height = 13
- AutoSize = False
- Caption = 'Current Path'
- IsControl = True
- end
- object FilterList: TFilterComboBox
- Left = 20
- Top = 201
- Width = 157
- Height = 21
- FileList = AliasFileList
- TabOrder = 3
- OnChange = FilterListChange
- IsControl = True
- end
- object FileEdit: TEdit
- Left = 20
- Top = 55
- Width = 157
- Height = 21
- TabOrder = 0
- OnChange = FileEditChange
- OnKeyPress = FileEditKeyPress
- IsControl = True
- end
- object AliasDriveList: TAliasDrive
- Left = 185
- Top = 202
- Width = 145
- Height = 19
- TabOrder = 4
- OnChange = AliasDriveListChange
- IsControl = True
- end
- object AliasPathList: TAliasListBox
- Left = 184
- Top = 82
- Width = 145
- Height = 98
- ItemHeight = 16
- TabOrder = 2
- OnChange = AliasPathListChange
- OnClick = AliasPathListChange
- IsControl = True
- end
- object AliasFileList: TAliasFileListBox
- Left = 20
- Top = 82
- Width = 157
- Height = 98
- ItemHeight = 16
- ShowGlyphs = True
- TabOrder = 1
- OnClick = AliasFileListClick
- OnDblClick = AliasFileListDblClick
- IsControl = True
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'PickFields'
- IsControl = True
- object Label3: TLabel
- Left = 10
- Top = 21
- Width = 231
- Height = 13
- Caption = 'Available Fields list and then click the ">" button.'
- IsControl = True
- end
- object Label14: TLabel
- Left = 10
- Top = 35
- Width = 198
- Height = 13
- Caption = 'To choose all fields, click the ">>" button.'
- IsControl = True
- end
- object Label15: TLabel
- Left = 10
- Top = 7
- Width = 219
- Height = 13
- Caption = 'To add fields to the form, click each one in the'
- IsControl = True
- end
- object GroupBox3: TGroupBox
- Left = 10
- Top = 61
- Width = 331
- Height = 161
- TabOrder = 0
- IsControl = True
- object Label22: TLabel
- Left = 18
- Top = 12
- Width = 76
- Height = 13
- Caption = '&Available Fields:'
- FocusControl = AvailableList
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object Label24: TLabel
- Left = 192
- Top = 12
- Width = 116
- Height = 13
- Caption = '&Ordered Selected Fields:'
- FocusControl = ChosenList
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object AvailableList: TListBox
- Left = 18
- Top = 29
- Width = 121
- Height = 93
- DragMode = dmAutomatic
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 0
- OnDblClick = ListDblClick
- OnDragDrop = ListDragDrop
- OnDragOver = ListDragOver
- end
- object ChosenList: TListBox
- Left = 192
- Top = 29
- Width = 121
- Height = 93
- DragMode = dmAutomatic
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 1
- OnDblClick = ListDblClick
- OnDragDrop = ListDragDrop
- OnDragOver = ListDragOver
- end
- object UpButton: TBitBtn
- Left = 217
- Top = 130
- Width = 28
- Height = 22
- TabOrder = 2
- OnClick = UpButtonClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333333333338888833333333334444483333333333CCCC483
- 333333333CCCC483333333333CCCC483333333333CCCC483333333333CCCC488
- 8333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333
- 33333333333C3333333333333333333333333333333333333333}
- end
- object DownButton: TBitBtn
- Left = 254
- Top = 130
- Width = 28
- Height = 22
- TabOrder = 3
- OnClick = DownButtonClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333833333333333333488333333333333CC4883333333333CCCC488
- 33333333CCCCCC488333333CCCCCC444333333333CCCC483333333333CCCC483
- 333333333CCCC483333333333CCCC483333333333CCCC483333333333CCCC433
- 3333333333333333333333333333333333333333333333333333}
- end
- object BitBtn3: TBitBtn
- Left = 151
- Top = 34
- Width = 27
- Height = 20
- Caption = '>'
- TabOrder = 4
- OnClick = Button1Click
- end
- object BitBtn4: TBitBtn
- Left = 151
- Top = 56
- Width = 27
- Height = 20
- Caption = '>>'
- TabOrder = 5
- OnClick = Button2Click
- end
- object BitBtn5: TBitBtn
- Left = 152
- Top = 79
- Width = 27
- Height = 20
- Caption = '<'
- TabOrder = 6
- OnClick = Button3Click
- end
- object BitBtn6: TBitBtn
- Left = 152
- Top = 101
- Width = 27
- Height = 20
- Caption = '<<'
- TabOrder = 7
- OnClick = Button4Click
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Layout'
- IsControl = True
- object LayoutLine1: TLabel
- Left = 10
- Top = 7
- Width = 230
- Height = 13
- Caption = 'Choose the way you want the Wizard to layout'
- IsControl = True
- end
- object Label7: TLabel
- Left = 10
- Top = 21
- Width = 221
- Height = 13
- Caption = 'fields on the form by clicking one of the options'
- IsControl = True
- end
- object Label8: TLabel
- Left = 40
- Top = 65
- Width = 251
- Height = 13
- Caption = 'Place each field side-by-side starting at the left corner'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object Label9: TLabel
- Left = 41
- Top = 80
- Width = 156
- Height = 13
- Caption = 'working towards the bottom right.'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object Label10: TLabel
- Left = 40
- Top = 113
- Width = 225
- Height = 13
- Caption = 'Place each field directly below the previous one'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object Label11: TLabel
- Left = 40
- Top = 129
- Width = 193
- Height = 13
- Caption = 'working from the top down to the bottom.'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object Label12: TLabel
- Left = 38
- Top = 167
- Width = 270
- Height = 13
- Caption = 'Place each field within its own column inside a grid object'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object Label13: TLabel
- Left = 37
- Top = 180
- Width = 115
- Height = 13
- Caption = 'working from left to right.'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object HorzButton: TRadioButton
- Left = 21
- Top = 48
- Width = 121
- Height = 17
- Caption = 'Hori&zontal'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = LayoutButtonClick
- IsControl = True
- end
- object VertButton: TRadioButton
- Left = 21
- Top = 97
- Width = 74
- Height = 17
- Caption = '&Vertical'
- TabOrder = 1
- OnClick = LayoutButtonClick
- IsControl = True
- end
- object GridButton: TRadioButton
- Left = 20
- Top = 150
- Width = 65
- Height = 17
- Caption = '&Grid'
- TabOrder = 2
- OnClick = LayoutButtonClick
- IsControl = True
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Labels'
- IsControl = True
- object Label5: TLabel
- Left = 10
- Top = 7
- Width = 222
- Height = 13
- Caption = 'For the vertical layout, choose where the labels'
- IsControl = True
- end
- object Label23: TLabel
- Left = 10
- Top = 21
- Width = 77
- Height = 13
- Caption = 'are to be placed'
- IsControl = True
- end
- object Label28: TLabel
- Left = 50
- Top = 66
- Width = 205
- Height = 13
- Caption = 'Display the labels to the left of the data field'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object Label29: TLabel
- Left = 50
- Top = 105
- Width = 179
- Height = 13
- Caption = 'Display the labels above the data field'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- IsControl = True
- end
- object LeftButton: TRadioButton
- Left = 20
- Top = 49
- Width = 121
- Height = 17
- Caption = '&Left'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = PosButtonClick
- IsControl = True
- end
- object TopButton: TRadioButton
- Left = 20
- Top = 87
- Width = 121
- Height = 17
- Caption = '&Top'
- TabOrder = 1
- OnClick = PosButtonClick
- IsControl = True
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Binding'
- IsControl = True
- object Bevel1: TBevel
- Left = 4
- Top = 79
- Width = 342
- Height = 169
- Shape = bsFrame
- end
- object Label30: TLabel
- Left = 12
- Top = 82
- Width = 57
- Height = 13
- Caption = 'D&etail Fields'
- FocusControl = DetailList
- IsControl = True
- end
- object Label31: TLabel
- Left = 222
- Top = 84
- Width = 62
- Height = 13
- Caption = '&Master Fields'
- FocusControl = MasterList
- IsControl = True
- end
- object Label32: TLabel
- Left = 10
- Top = 7
- Width = 252
- Height = 13
- Caption = 'Select pairs of fields from the field lists that will join the'
- IsControl = True
- end
- object Label33: TLabel
- Left = 10
- Top = 21
- Width = 268
- Height = 13
- Caption = 'two queries. Use the add button to add the selected pair'
- IsControl = True
- end
- object IndexLabel: TLabel
- Left = 8
- Top = 56
- Width = 83
- Height = 13
- Caption = 'A&vailable Indexes'
- FocusControl = IndexList
- end
- object Label17: TLabel
- Left = 10
- Top = 35
- Width = 45
- Height = 13
- Caption = 'to the list.'
- end
- object Label18: TLabel
- Left = 12
- Top = 171
- Width = 61
- Height = 13
- Caption = '&Joined Fields'
- FocusControl = BindList
- end
- object DetailList: TListBox
- Left = 12
- Top = 98
- Width = 117
- Height = 56
- IntegralHeight = True
- ItemHeight = 13
- TabOrder = 0
- OnClick = BindingListClick
- IsControl = True
- end
- object MasterList: TListBox
- Left = 222
- Top = 99
- Width = 117
- Height = 56
- IntegralHeight = True
- ItemHeight = 13
- TabOrder = 1
- OnClick = BindingListClick
- IsControl = True
- end
- object AddButton: TButton
- Left = 136
- Top = 120
- Width = 77
- Height = 27
- Caption = '&Add'
- TabOrder = 2
- OnClick = AddButtonClick
- IsControl = True
- end
- object DeleteButton: TButton
- Left = 262
- Top = 186
- Width = 77
- Height = 27
- Caption = '&Delete'
- TabOrder = 3
- OnClick = DeleteButtonClick
- IsControl = True
- end
- object ClearButton: TButton
- Left = 262
- Top = 215
- Width = 77
- Height = 27
- Caption = '&Clear'
- TabOrder = 4
- OnClick = ClearButtonClick
- IsControl = True
- end
- object BindList: TListBox
- Left = 12
- Top = 187
- Width = 243
- Height = 54
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 5
- OnClick = BindListClick
- IsControl = True
- end
- object IndexList: TComboBox
- Left = 123
- Top = 54
- Width = 207
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 6
- OnChange = IndexListChange
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'FormName'
- IsControl = True
- object Label6: TLabel
- Left = 10
- Top = 21
- Width = 170
- Height = 13
- Caption = 'on Create to generate the new form.'
- IsControl = True
- end
- object Label4: TLabel
- Left = 10
- Top = 7
- Width = 225
- Height = 13
- Caption = 'You have now completed the form design. Click'
- IsControl = True
- end
- object GenMainForm: TCheckBox
- Left = 22
- Top = 52
- Width = 144
- Height = 17
- Caption = '&Generate a main form'
- State = cbChecked
- TabOrder = 0
- end
- object FormChoices: TGroupBox
- Left = 20
- Top = 84
- Width = 189
- Height = 69
- Caption = 'Form Generation'
- TabOrder = 1
- object FormAndModule: TRadioButton
- Left = 11
- Top = 42
- Width = 156
- Height = 17
- Caption = 'Fo&rm and DataModule'
- TabOrder = 1
- OnClick = FormAndModuleClick
- end
- object Form: TRadioButton
- Left = 11
- Top = 20
- Width = 113
- Height = 17
- Caption = 'Form &Only'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = FormClick
- end
- end
- end
- end
- object CancelButton: TButton
- Left = 398
- Top = 258
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- OnClick = BitBtn1Click
- end
- object HelpButton: TButton
- Left = 131
- Top = 258
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 1
- OnClick = HelpButtonClick
- end
- object PrevButton: TButton
- Left = 226
- Top = 258
- Width = 75
- Height = 25
- Caption = '< &Back'
- Enabled = False
- TabOrder = 2
- OnClick = PrevButtonClick
- end
- object NextButton: TButton
- Left = 301
- Top = 258
- Width = 75
- Height = 25
- Caption = '&Next >'
- Default = True
- TabOrder = 3
- OnClick = NextButtonClick
- end
- object CreateButton: TButton
- Left = 301
- Top = 258
- Width = 75
- Height = 25
- Caption = '&Finish'
- Default = True
- ModalResult = 1
- TabOrder = 4
- Visible = False
- end
- object Table1: TTable
- Left = 66
- Top = 256
- end
- object Table2: TTable
- Left = 95
- Top = 257
- end
- end
-