home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 April
/
Chip_1997-04_cd.bin
/
prezent
/
cb
/
data.z
/
ADRU1.DFM
/
ADRU1.txt
Wrap
Text File
|
1997-01-16
|
17KB
|
795 lines
object Form1: TForm1
Left = 190
Top = 112
Width = 548
Height = 450
Caption = 'Customer Contact Info Browser'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object TabControl1: TTabControl
Left = 0
Top = 0
Width = 540
Height = 419
Align = alClient
TabIndex = 0
TabOrder = 0
Tabs.Strings = (
'A'
'B'
'C'
'D'
'E'
'F'
'G'
'H'
'I'
'J'
'K'
'L'
'M'
'N'
'O'
'P'
'Q'
'R'
'S'
'T'
'U'
'V'
'W'
'X'
'Y'
'Z')
OnChange = TabControl1Change
object Label1: TLabel
Left = 16
Top = 66
Width = 50
Height = 13
Caption = 'Address &1:'
FocusControl = dbeAddr1
end
object Label2: TLabel
Left = 16
Top = 106
Width = 50
Height = 13
Caption = 'Address &2:'
FocusControl = dbeAddr2
end
object Label3: TLabel
Left = 16
Top = 26
Width = 71
Height = 13
Caption = 'Contact &Name:'
FocusControl = dbeContactName
end
object Label4: TLabel
Left = 16
Top = 146
Width = 20
Height = 13
Caption = 'C&ity:'
FocusControl = dbeCity
end
object Label5: TLabel
Left = 144
Top = 146
Width = 28
Height = 13
Caption = '&State:'
FocusControl = dbeState
end
object Label6: TLabel
Left = 204
Top = 146
Width = 46
Height = 13
Caption = '&Zip Code:'
FocusControl = dbeZip
end
object Label7: TLabel
Left = 144
Top = 26
Width = 47
Height = 13
Caption = '&Company:'
FocusControl = dbeCompany
end
object Label8: TLabel
Left = 300
Top = 146
Width = 39
Height = 13
Caption = 'Co&untry:'
FocusControl = dbeCountry
end
object Label9: TLabel
Left = 288
Top = 26
Width = 87
Height = 13
Caption = 'Customer &Number:'
FocusControl = dbeCustomerNumber
end
object Label11: TLabel
Left = 400
Top = 26
Width = 34
Height = 13
Caption = '&Phone:'
FocusControl = dbePhone
end
object Label12: TLabel
Left = 400
Top = 66
Width = 20
Height = 13
Caption = 'Fa&x:'
FocusControl = dbeFax
end
object Label10: TLabel
Left = 400
Top = 106
Width = 87
Height = 13
Caption = 'Last &Invoice Date:'
FocusControl = dbeLastInvDate
end
object Label13: TLabel
Left = 400
Top = 146
Width = 47
Height = 13
Caption = 'Tax &Rate:'
FocusControl = dbeTaxRate
end
object CancelCust: TSpeedButton
Left = 324
Top = 388
Width = 47
Height = 25
Caption = 'Cancel'
Enabled = False
OnClick = CancelCustClick
end
object PostCust: TSpeedButton
Left = 277
Top = 388
Width = 47
Height = 25
Caption = 'Post'
Enabled = False
OnClick = PostCustClick
end
object EditCust: TSpeedButton
Left = 230
Top = 388
Width = 47
Height = 25
Caption = 'Edit'
OnClick = EditCustClick
end
object LastCust: TSpeedButton
Left = 172
Top = 388
Width = 47
Height = 25
Caption = 'Last >>'
OnClick = LastCustClick
end
object NextCust: TSpeedButton
Left = 125
Top = 388
Width = 47
Height = 25
Caption = 'Next >'
OnClick = NextCustClick
end
object PriorCust: TSpeedButton
Left = 77
Top = 388
Width = 47
Height = 25
Caption = '< Prior'
OnClick = PriorCustClick
end
object FirstCust: TSpeedButton
Left = 30
Top = 388
Width = 47
Height = 25
Caption = '<< First'
OnClick = FirstCustClick
end
object dbeAddr1: TDBEdit
Left = 16
Top = 82
Width = 377
Height = 21
DataField = 'Addr1'
DataSource = DataSource1
MaxLength = 0
TabOrder = 0
end
object dbeAddr2: TDBEdit
Left = 16
Top = 122
Width = 377
Height = 21
DataField = 'Addr2'
DataSource = DataSource1
MaxLength = 0
TabOrder = 1
end
object dbeContactName: TDBEdit
Left = 16
Top = 42
Width = 121
Height = 21
DataField = 'contact'
DataSource = DataSource1
MaxLength = 0
TabOrder = 2
end
object dbeCity: TDBEdit
Left = 16
Top = 162
Width = 121
Height = 21
DataField = 'City'
DataSource = DataSource1
MaxLength = 0
TabOrder = 3
end
object dbeState: TDBEdit
Left = 144
Top = 162
Width = 53
Height = 21
DataField = 'State'
DataSource = DataSource1
MaxLength = 0
TabOrder = 4
end
object dbeZip: TDBEdit
Left = 204
Top = 162
Width = 89
Height = 21
DataField = 'Zip'
DataSource = DataSource1
MaxLength = 0
TabOrder = 5
end
object dbeCustomerNumber: TDBEdit
Left = 288
Top = 42
Width = 105
Height = 21
DataField = 'CustNo'
DataSource = DataSource1
MaxLength = 0
ReadOnly = True
TabOrder = 6
end
object dbeCompany: TDBEdit
Left = 144
Top = 42
Width = 137
Height = 21
DataField = 'Company'
DataSource = DataSource1
MaxLength = 0
TabOrder = 7
end
object dbeCountry: TDBEdit
Left = 300
Top = 162
Width = 93
Height = 21
DataField = 'Country'
DataSource = DataSource1
MaxLength = 0
TabOrder = 8
end
object dbePhone: TDBEdit
Left = 400
Top = 42
Width = 121
Height = 21
DataField = 'Phone'
DataSource = DataSource1
MaxLength = 0
TabOrder = 9
end
object dbeFax: TDBEdit
Left = 400
Top = 82
Width = 121
Height = 21
DataField = 'FAX'
DataSource = DataSource1
MaxLength = 0
TabOrder = 10
end
object BitBtn1: TBitBtn
Left = 440
Top = 386
Width = 85
Height = 25
Hint = 'Done!'
Caption = '&Finshed >'
ParentShowHint = False
ShowHint = True
TabOrder = 11
OnClick = BitBtn1Click
end
object dbeLastInvDate: TDBEdit
Left = 400
Top = 122
Width = 121
Height = 21
DataField = 'LastInvoiceDate'
DataSource = DataSource1
MaxLength = 0
TabOrder = 12
end
object dbeTaxRate: TDBEdit
Left = 400
Top = 162
Width = 101
Height = 21
DataField = 'TaxRate'
DataSource = DataSource1
MaxLength = 0
TabOrder = 13
end
object GroupBox1: TGroupBox
Left = 16
Top = 186
Width = 509
Height = 195
Caption = 'Orders'
TabOrder = 14
object Label14: TLabel
Left = 14
Top = 20
Width = 87
Height = 13
Caption = 'Customer Number:'
end
object Label15: TLabel
Left = 322
Top = 28
Width = 89
Height = 13
Caption = 'Employee Number:'
end
object Label16: TLabel
Left = 244
Top = 20
Width = 50
Height = 13
Caption = 'Sale Date:'
end
object Label17: TLabel
Left = 174
Top = 20
Width = 50
Height = 13
Caption = 'Ship Date:'
end
object Label18: TLabel
Left = 110
Top = 20
Width = 46
Height = 13
Caption = 'Order No:'
end
object Label19: TLabel
Left = 364
Top = 106
Width = 47
Height = 13
Caption = 'Tax Rate:'
end
object Label20: TLabel
Left = 364
Top = 162
Width = 50
Height = 13
Caption = 'Item Total:'
end
object Label21: TLabel
Left = 348
Top = 80
Width = 63
Height = 13
Caption = 'Amount Paid:'
end
object Label22: TLabel
Left = 330
Top = 52
Width = 83
Height = 13
Caption = 'Payment Method:'
end
object Label23: TLabel
Left = 376
Top = 136
Width = 35
Height = 13
Caption = 'Freight:'
end
object Label24: TLabel
Left = 14
Top = 100
Width = 75
Height = 13
Caption = 'Dest Address 2:'
end
object Label25: TLabel
Left = 14
Top = 70
Width = 75
Height = 13
Caption = 'Dest Address 1:'
end
object Label26: TLabel
Left = 14
Top = 120
Width = 45
Height = 13
Caption = 'Dest City:'
end
object Label27: TLabel
Left = 144
Top = 120
Width = 53
Height = 13
Caption = 'Dest State:'
end
object Label28: TLabel
Left = 216
Top = 120
Width = 43
Height = 13
Caption = 'Dest Zip:'
end
object FirstOrders: TSpeedButton
Left = 14
Top = 162
Width = 47
Height = 25
Caption = '<< First'
OnClick = FirstOrdersClick
end
object PriorOrders: TSpeedButton
Left = 61
Top = 162
Width = 47
Height = 25
Caption = '< Prior'
OnClick = PriorOrdersClick
end
object NextOrders: TSpeedButton
Left = 109
Top = 162
Width = 47
Height = 25
Caption = 'Next >'
OnClick = NextOrdersClick
end
object LastOrders: TSpeedButton
Left = 156
Top = 162
Width = 47
Height = 25
Caption = 'Last >>'
OnClick = LastOrdersClick
end
object EditOrders: TSpeedButton
Left = 214
Top = 162
Width = 47
Height = 25
Caption = 'Edit'
OnClick = EditOrdersClick
end
object PostOrders: TSpeedButton
Left = 261
Top = 162
Width = 47
Height = 25
Caption = 'Post'
Enabled = False
OnClick = PostOrdersClick
end
object CancelOrders: TSpeedButton
Left = 308
Top = 162
Width = 47
Height = 25
Caption = 'Cancel'
Enabled = False
OnClick = CancelOrdersClick
end
object DBEdit1: TDBEdit
Left = 14
Top = 36
Width = 87
Height = 21
DataField = 'CustNo'
DataSource = DataSource2
MaxLength = 0
ReadOnly = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 418
Top = 22
Width = 81
Height = 21
DataField = 'EmpNo'
DataSource = DataSource2
MaxLength = 0
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 418
Top = 128
Width = 81
Height = 21
DataField = 'Freight'
DataSource = DataSource2
MaxLength = 0
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 418
Top = 156
Width = 81
Height = 21
DataField = 'ItemsTotal'
DataSource = DataSource2
MaxLength = 0
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 244
Top = 36
Width = 61
Height = 21
DataField = 'SaleDate'
DataSource = DataSource2
MaxLength = 0
TabOrder = 4
end
object DBEdit6: TDBEdit
Left = 174
Top = 36
Width = 61
Height = 21
DataField = 'ShipDate'
DataSource = DataSource2
MaxLength = 0
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 418
Top = 100
Width = 81
Height = 21
DataField = 'TaxRate'
DataSource = DataSource2
MaxLength = 0
TabOrder = 6
end
object DBEdit8: TDBEdit
Left = 418
Top = 74
Width = 81
Height = 21
DataField = 'AmountPaid'
DataSource = DataSource2
MaxLength = 0
TabOrder = 7
end
object DBEdit9: TDBEdit
Left = 418
Top = 48
Width = 81
Height = 21
DataField = 'PaymentMethod'
DataSource = DataSource2
MaxLength = 0
TabOrder = 8
end
object DBEdit10: TDBEdit
Left = 110
Top = 36
Width = 55
Height = 21
DataField = 'OrderNo'
DataSource = DataSource2
MaxLength = 0
TabOrder = 9
end
object DBEdit11: TDBEdit
Left = 96
Top = 66
Width = 209
Height = 21
DataField = 'ShipToAddr1'
DataSource = DataSource2
MaxLength = 0
TabOrder = 10
end
object DBEdit12: TDBEdit
Left = 96
Top = 96
Width = 209
Height = 21
DataField = 'ShipToAddr2'
DataSource = DataSource2
MaxLength = 0
TabOrder = 11
end
object DBEdit13: TDBEdit
Left = 14
Top = 136
Width = 121
Height = 21
DataField = 'ShipToCity'
DataSource = DataSource2
MaxLength = 0
TabOrder = 12
end
object DBEdit14: TDBEdit
Left = 144
Top = 136
Width = 63
Height = 21
DataField = 'ShipToState'
DataSource = DataSource2
MaxLength = 0
TabOrder = 13
end
object DBEdit15: TDBEdit
Left = 216
Top = 136
Width = 89
Height = 21
DataField = 'ShipToZip'
DataSource = DataSource2
MaxLength = 0
TabOrder = 14
end
end
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = Query1
OnStateChange = DataSource1StateChange
Left = 462
Top = 42
end
object Query1: TQuery
DatabaseName = 'BCDEMOS'
Params.Data = {0100010009706172616D56617231000103004125000001}
RequestLive = True
SQL.Strings = (
'select * from "customer.db" where UPPER(contact) like :paramVar1' +
' ')
Left = 492
Top = 42
end
object DataSource2: TDataSource
AutoEdit = False
DataSet = Table1
OnStateChange = DataSource2StateChange
Left = 468
Top = 194
end
object Table1: TTable
DatabaseName = 'BCDEMOS'
IndexName = 'CustNo'
MasterFields = 'CustNo'
MasterSource = DataSource1
TableName = 'ORDERS.DB'
Left = 496
Top = 194
object Table1OrderNo: TFloatField
FieldName = 'OrderNo'
DisplayFormat = #39'#'#39'0000'
end
object Table1CustNo: TFloatField
Alignment = taLeftJustify
FieldName = 'CustNo'
DisplayFormat = 'CN 0000'
MaxValue = 9999.000000000000000000
MinValue = 1000.000000000000000000
end
object Table1SaleDate: TDateTimeField
FieldName = 'SaleDate'
end
object Table1ShipDate: TDateTimeField
FieldName = 'ShipDate'
end
object Table1EmpNo: TIntegerField
FieldName = 'EmpNo'
DisplayFormat = 'Emp'#39'#'#39' 0000'
MaxValue = 9999
MinValue = 1
end
object Table1ShipToContact: TStringField
FieldName = 'ShipToContact'
end
object Table1ShipToAddr1: TStringField
FieldName = 'ShipToAddr1'
Size = 30
end
object Table1ShipToAddr2: TStringField
FieldName = 'ShipToAddr2'
Size = 30
end
object Table1ShipToCity: TStringField
FieldName = 'ShipToCity'
Size = 15
end
object Table1ShipToState: TStringField
FieldName = 'ShipToState'
end
object Table1ShipToZip: TStringField
FieldName = 'ShipToZip'
Size = 10
end
object Table1ShipToCountry: TStringField
FieldName = 'ShipToCountry'
end
object Table1ShipToPhone: TStringField
FieldName = 'ShipToPhone'
Size = 15
end
object Table1ShipVIA: TStringField
FieldName = 'ShipVIA'
Size = 7
end
object Table1PO: TStringField
FieldName = 'PO'
Size = 15
end
object Table1Terms: TStringField
FieldName = 'Terms'
Size = 6
end
object Table1PaymentMethod: TStringField
FieldName = 'PaymentMethod'
Size = 7
end
object Table1ItemsTotal: TCurrencyField
FieldName = 'ItemsTotal'
end
object Table1TaxRate: TFloatField
FieldName = 'TaxRate'
DisplayFormat = '0.00%'
end
object Table1Freight: TCurrencyField
FieldName = 'Freight'
end
object Table1AmountPaid: TCurrencyField
FieldName = 'AmountPaid'
end
end
end
