home *** CD-ROM | disk | FTP | other *** search
- object BillingForm: TBillingForm
- Left = 57
- Top = 64
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Billing Database Manager'
- ClientHeight = 452
- ClientWidth = 702
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- PixelsPerInch = 120
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 702
- Height = 249
- Align = alTop
- BevelOuter = bvLowered
- TabOrder = 0
- object DateLabel: TLabel
- Left = 8
- Top = 24
- Width = 36
- Height = 20
- Caption = 'Date'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object OrderNumberLabel: TLabel
- Left = 360
- Top = 24
- Width = 106
- Height = 20
- Caption = 'Order Number'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object CustomerNumberLabel: TLabel
- Left = 8
- Top = 64
- Width = 136
- Height = 20
- Caption = 'Customer Number'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object PaymentStatusLabel: TLabel
- Left = 8
- Top = 112
- Width = 117
- Height = 20
- Caption = 'Payment Status'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DatePaymentRecievedLabel: TLabel
- Left = 8
- Top = 152
- Width = 178
- Height = 20
- Caption = 'Date Payment Recieved'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 8
- Top = 224
- Width = 87
- Height = 20
- Caption = 'Grand Total'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 8
- Top = 192
- Width = 68
- Height = 20
- Caption = 'Total Tax'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 360
- Top = 64
- Width = 125
- Height = 20
- Caption = 'Credit Card Type'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 360
- Top = 104
- Width = 148
- Height = 20
- Caption = 'Credit Card Number'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DateDBEdit: TDBEdit
- Left = 72
- Top = 16
- Width = 121
- Height = 28
- DataField = 'Date'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 10
- ParentFont = False
- TabOrder = 0
- end
- object OrderNumberDBEdit: TDBEdit
- Left = 520
- Top = 16
- Width = 169
- Height = 28
- DataField = 'OrderNumber'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- TabOrder = 1
- end
- object CustomerNumberDBEdit: TDBEdit
- Left = 150
- Top = 54
- Width = 161
- Height = 28
- DataField = 'CustNum'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- TabOrder = 2
- end
- object PaymentStatusDBEdit: TDBEdit
- Left = 136
- Top = 104
- Width = 177
- Height = 28
- DataField = 'PaymentStatus'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 10
- ParentFont = False
- TabOrder = 3
- end
- object DatePaymentRecievedDBEdit: TDBEdit
- Left = 192
- Top = 144
- Width = 121
- Height = 28
- DataField = 'DatePaymentRecieved'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 10
- ParentFont = False
- TabOrder = 4
- end
- object DBEdit1: TDBEdit
- Left = 112
- Top = 216
- Width = 153
- Height = 28
- DataField = 'GrandTotal'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- TabOrder = 5
- end
- object DBEdit2: TDBEdit
- Left = 96
- Top = 184
- Width = 153
- Height = 28
- DataField = 'TotalTax'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- TabOrder = 6
- end
- object DBEdit3: TDBEdit
- Left = 520
- Top = 56
- Width = 169
- Height = 28
- DataField = 'Credit Card Type'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 25
- ParentFont = False
- TabOrder = 7
- end
- object DBEdit4: TDBEdit
- Left = 520
- Top = 96
- Width = 169
- Height = 28
- DataField = 'Credit Card Number'
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 20
- ParentFont = False
- TabOrder = 8
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 249
- Width = 702
- Height = 203
- Align = alClient
- TabOrder = 1
- object Label1: TLabel
- Left = 32
- Top = 16
- Width = 578
- Height = 20
- Caption =
- 'Hint: Check payment status first then Enter Payment status and ' +
- 'Date recieved'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object cmdEnterPaymentStatusDateRecieved: TButton
- Left = 16
- Top = 56
- Width = 297
- Height = 33
- Caption = 'Enter Payment Status/ Date Recieved'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = cmdEnterPaymentStatusDateRecievedClick
- end
- object cmdClose: TBitBtn
- Left = 616
- Top = 152
- Width = 75
- Height = 41
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = cmdCloseClick
- Kind = bkClose
- end
- object cmdPrintInvoice: TButton
- Left = 16
- Top = 104
- Width = 217
- Height = 33
- Caption = 'Print Invoice'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = cmdPrintInvoiceClick
- end
- object cmdCheckPaymentStatus: TButton
- Left = 320
- Top = 56
- Width = 297
- Height = 33
- Caption = 'Check Payment Status'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = cmdCheckPaymentStatusClick
- end
- object DBNavigator1: TDBNavigator
- Left = 264
- Top = 152
- Width = 254
- Height = 41
- DataSource = ShippingBillingDataModule.ShippingBillingDataSource
- VisibleButtons = [nbPrior, nbNext]
- TabOrder = 4
- end
- object cmdPrintReciept: TButton
- Left = 240
- Top = 104
- Width = 217
- Height = 33
- Caption = 'Print Reciept'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = cmdPrintRecieptClick
- end
- object cmdHelp: TButton
- Left = 16
- Top = 160
- Width = 217
- Height = 33
- Caption = 'Help'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = cmdHelpClick
- end
- end
- object InvoiceReport1: TReport
- ReportName = 'invoice.rpt'
- ReportDir = 'C:\Program Files\ALBERT RUGEL\DataBase Files\'
- AutoUnload = True
- Left = 240
- Top = 8
- end
- object RecieptReport: TReport
- ReportName = 'Reciept.rpt'
- ReportDir = 'C:\Program Files\ALBERT RUGEL\DataBase Files\'
- AutoUnload = True
- Left = 288
- Top = 8
- end
- end
-