home *** CD-ROM | disk | FTP | other *** search
- object FormClients: TFormClients
- Left = 54
- Top = 5
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Client Database Manager'
- ClientHeight = 566
- ClientWidth = 717
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- PixelsPerInch = 120
- TextHeight = 16
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 717
- Height = 329
- Align = alTop
- BevelOuter = bvLowered
- TabOrder = 0
- object DBtextCusNum: TDBText
- Left = 200
- Top = 8
- Width = 45
- Height = 20
- Alignment = taCenter
- AutoSize = True
- DataField = 'CustNum'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCustNum: TLabel
- Left = 8
- Top = 8
- Width = 141
- Height = 20
- Alignment = taCenter
- AutoSize = False
- Caption = 'Customer Number:'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblLastName: TLabel
- Left = 8
- Top = 40
- Width = 81
- Height = 20
- Caption = 'Last Name'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblFirstName: TLabel
- Left = 360
- Top = 40
- Width = 86
- Height = 20
- Caption = 'First Name'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblAreaCode: TLabel
- Left = 8
- Top = 304
- Width = 78
- Height = 20
- Caption = 'Area Code'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblTelephoneNum: TLabel
- Left = 176
- Top = 304
- Width = 106
- Height = 20
- Caption = 'Telephone No.'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DBEdit1: TDBEdit
- Left = 96
- Top = 32
- Width = 257
- Height = 24
- AutoSize = False
- DataField = 'LastName'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 30
- ParentFont = False
- TabOrder = 0
- end
- object DBEdit2: TDBEdit
- Left = 456
- Top = 40
- Width = 249
- Height = 24
- AutoSize = False
- DataField = 'FirstName'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 30
- ParentFont = False
- TabOrder = 1
- end
- object DBEdit3: TDBEdit
- Left = 96
- Top = 296
- Width = 65
- Height = 28
- DataField = 'Area Code'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 3
- ParentFont = False
- TabOrder = 4
- end
- object DBEdit4: TDBEdit
- Left = 288
- Top = 296
- Width = 401
- Height = 28
- DataField = 'Phone'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 8
- ParentFont = False
- TabOrder = 5
- end
- object BillingAddressGroupBox: TGroupBox
- Left = 8
- Top = 184
- Width = 697
- Height = 105
- Caption = 'Billing Address'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- object StreetBillingLabel: TLabel
- Left = 24
- Top = 32
- Width = 45
- Height = 20
- Caption = 'Street'
- end
- object CityBillingLabel: TLabel
- Left = 24
- Top = 72
- Width = 29
- Height = 20
- Caption = 'City'
- end
- object StateBillingLabel: TLabel
- Left = 296
- Top = 72
- Width = 39
- Height = 20
- Caption = 'State'
- end
- object ZipBillingLabel: TLabel
- Left = 440
- Top = 72
- Width = 22
- Height = 20
- Caption = 'Zip'
- end
- object Street2DBEdit: TDBEdit
- Left = 80
- Top = 24
- Width = 601
- Height = 28
- DataField = 'Street/2'
- DataSource = ClientDataModule.ClientsDataSource
- MaxLength = 40
- TabOrder = 0
- end
- object City2DBEdit: TDBEdit
- Left = 64
- Top = 64
- Width = 225
- Height = 28
- DataField = 'City/2'
- DataSource = ClientDataModule.ClientsDataSource
- MaxLength = 30
- TabOrder = 1
- end
- object State2DBEdit: TDBEdit
- Left = 344
- Top = 64
- Width = 81
- Height = 28
- DataField = 'State/2'
- DataSource = ClientDataModule.ClientsDataSource
- MaxLength = 10
- TabOrder = 2
- end
- object Zip2DBEdit: TDBEdit
- Left = 472
- Top = 64
- Width = 209
- Height = 28
- DataField = 'Zip/2'
- DataSource = ClientDataModule.ClientsDataSource
- MaxLength = 10
- TabOrder = 3
- end
- end
- object ShippingAddressGroupBox: TGroupBox
- Left = 8
- Top = 72
- Width = 697
- Height = 105
- Caption = 'Shipping Address'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- object lblStreet: TLabel
- Left = 8
- Top = 32
- Width = 45
- Height = 20
- Caption = 'Street'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object LblCity: TLabel
- Left = 8
- Top = 64
- Width = 29
- Height = 20
- Caption = 'City'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblState: TLabel
- Left = 280
- Top = 72
- Width = 39
- Height = 20
- Caption = 'State'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblZip: TLabel
- Left = 424
- Top = 72
- Width = 22
- Height = 20
- Caption = 'Zip'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DBEditStreet: TDBEdit
- Left = 56
- Top = 24
- Width = 617
- Height = 28
- DataField = 'Street'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 40
- ParentFont = False
- TabOrder = 0
- end
- object DBEditCity: TDBEdit
- Left = 40
- Top = 64
- Width = 233
- Height = 28
- DataField = 'City'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 30
- ParentFont = False
- TabOrder = 1
- end
- object DBEditState: TDBEdit
- Left = 328
- Top = 64
- Width = 81
- Height = 28
- DataField = 'State'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 10
- ParentFont = False
- TabOrder = 2
- end
- object DBEditZip: TDBEdit
- Left = 456
- Top = 64
- Width = 217
- Height = 28
- DataField = 'Zip'
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 10
- ParentFont = False
- TabOrder = 3
- end
- end
- end
- object PanelBottom: TPanel
- Left = 0
- Top = 329
- Width = 717
- Height = 237
- Align = alClient
- BevelOuter = bvLowered
- TabOrder = 1
- object raOrderBy: TGroupBox
- Left = 0
- Top = 104
- Width = 177
- Height = 81
- Caption = 'Order By'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object optLastName: TRadioButton
- Left = 8
- Top = 24
- Width = 105
- Height = 17
- Caption = '&Last Name'
- TabOrder = 0
- OnClick = optLastNameClick
- end
- object optCustNum: TRadioButton
- Left = 8
- Top = 56
- Width = 161
- Height = 17
- Caption = '&Customer Number'
- Checked = True
- TabOrder = 1
- TabStop = True
- OnClick = optCustNumClick
- end
- end
- object cmdExit: TButton
- Left = 8
- Top = 199
- Width = 129
- Height = 34
- Caption = 'Cl&ose'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- OnClick = cmdExitClick
- end
- object cmdNewCustomer: TButton
- Left = 184
- Top = 112
- Width = 153
- Height = 34
- Caption = '&Add New Customer'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = cmdNewCustomerClick
- end
- object cmdDeleteCustomer: TButton
- Left = 339
- Top = 112
- Width = 142
- Height = 34
- Caption = '&Delete Customer'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = cmdDeleteCustomerClick
- end
- object cmdSearch: TButton
- Left = 480
- Top = 152
- Width = 110
- Height = 34
- Caption = '&Search'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnClick = cmdSearchClick
- end
- object cmdPrintReport: TButton
- Left = 224
- Top = 152
- Width = 129
- Height = 34
- Caption = '&Print Report'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = cmdPrintReportClick
- end
- object DBGrid1: TDBGrid
- Left = 1
- Top = 1
- Width = 715
- Height = 96
- Align = alTop
- DataSource = ClientDataModule.ClientsDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- TitleFont.Color = clWindowText
- TitleFont.Height = -13
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- end
- object cmdPrintLabels: TButton
- Left = 355
- Top = 152
- Width = 129
- Height = 34
- Caption = 'Print La&bels'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = cmdPrintLabelsClick
- end
- object cmdEditEntry: TButton
- Left = 480
- Top = 112
- Width = 110
- Height = 34
- Caption = '&Edit Entry'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = cmdEditEntryClick
- end
- object cmdSaveRecord: TButton
- Left = 592
- Top = 112
- Width = 121
- Height = 34
- Caption = 'Save &Record'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = cmdSaveRecordClick
- end
- object cmdHelp: TButton
- Left = 144
- Top = 199
- Width = 129
- Height = 34
- Caption = '&Help'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- OnClick = cmdHelpClick
- end
- object DBNavigator1: TDBNavigator
- Left = 432
- Top = 200
- Width = 276
- Height = 33
- DataSource = ClientDataModule.ClientsDataSource
- VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbCancel, nbRefresh]
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- end
- end
- object ClientReport1: TReport
- AutoUnload = True
- Left = 520
- Top = 8
- end
- object ClientReportLbs5160: TReport
- AutoUnload = True
- Left = 552
- Top = 8
- end
- object OpenDialogReport: TOpenDialog
- FileEditStyle = fsEdit
- FileName = 'client'
- InitialDir = 'c:\Program Files\Albert Rugel\Database Files'
- Title = 'Print Report (Use File '#39'Client'#39' )'
- Left = 584
- Top = 9
- end
- object OpenDialogReportlbs5160: TOpenDialog
- FileEditStyle = fsEdit
- FileName = 'clientlbs5160'
- InitialDir = 'c:\Program Files\Albert Rugel\Database Files'
- Title = 'Print on Avery 5160 Labels ( File '#39'Reportlbs5160'#39' )'
- Left = 624
- Top = 9
- end
- end
-