PC Format Collection 48/SENT14D.ISO/tech/delphi/disk15/mastapp.pak/CUSTORD.DFM/CUSTORD.txt

Text File | 1995-08-24 | 6.3 KB | 273 lines

object BrCustOrdForm: TBrCustOrdForm
  Left = 199
  Top = 102
  AutoScroll = False
  HelpContext = 1
  ActiveControl = CustGrid
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Orders By Customer'
  ClientHeight = 307
  ClientWidth = 405
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object CtrlsPanel: TPanel
    Left = 0
    Top = 118
    Width = 405
    Height = 36
    Align = alTop
    TabOrder = 1
    object ActivateBtn: TSpeedButton
      Left = 277
      Top = 8
      Width = 85
      Height = 21
      AllowAllUp = True
      GroupIndex = 1
      Caption = '&Activate Query'
      OnClick = ActivateQuery
    end
    object DefineBtn: TSpeedButton
      Left = 167
      Top = 8
      Width = 85
      Height = 21
      AllowAllUp = True
      Caption = '&Define Query'
      OnClick = SetQuery
    end
    object Navigator: TDBNavigator
      Left = 8
      Top = 7
      Width = 136
      Height = 21
      DataSource = CustSource
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object BtnPanel: TPanel
    Left = 0
    Top = 271
    Width = 405
    Height = 36
    Align = alClient
    TabOrder = 3
    object EditBtn: TButton
      Left = 205
      Top = 6
      Width = 89
      Height = 25
      Caption = '&Edit'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = EditBtnClick
    end
    object CloseBtn: TButton
      Left = 308
      Top = 6
      Width = 89
      Height = 25
      Cancel = True
      Caption = '&Close'
      Default = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = CloseBtnClick
    end
  end
  object CustPanel: TPanel
    Left = 0
    Top = 0
    Width = 405
    Height = 118
    Align = alTop
    TabOrder = 0
    object CustGrid: TDBGrid
      Left = 6
      Top = 6
      Width = 391
      Height = 104
      DataSource = CustSource
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect]
      TabOrder = 0
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = EditBtnClick
      OnEnter = CustGridEnter
    end
  end
  object OrdersPanel: TPanel
    Left = 0
    Top = 154
    Width = 405
    Height = 117
    Align = alTop
    TabOrder = 2
    object OrdersGrid: TDBGrid
      Left = 6
      Top = 6
      Width = 390
      Height = 104
      DataSource = OrdersSource
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect]
      TabOrder = 0
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = EditBtnClick
      OnEnter = OrdersGridEnter
    end
  end
  object Orders: TTable
    Active = True
    OnCalcFields = OrdersCalcFields
    DatabaseName = 'MAST'
    IndexFieldNames = 'CUSTNO'
    MasterFields = 'CUSTNO'
    MasterSource = CustSource
    ReadOnly = True
    TableName = 'ORDERS'
    Left = 12
    Top = 204
    object OrdersOrderNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 10
      FieldName = 'OrderNo'
    end
    object OrdersCustNo: TFloatField
      FieldName = 'CustNo'
      Visible = False
    end
    object OrdersSaleDate: TDateTimeField
      DisplayWidth = 9
      FieldName = 'SaleDate'
      DisplayFormat = 'MM/DD/YY'
    end
    object OrdersShipDate: TDateTimeField
      DisplayWidth = 9
      FieldName = 'ShipDate'
      DisplayFormat = 'MM/DD/YY'
    end
    object OrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Visible = False
      Currency = True
    end
    object OrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
      Visible = False
    end
    object OrdersFreight: TCurrencyField
      FieldName = 'Freight'
      Visible = False
      Currency = True
    end
    object OrdersAmountPaid: TCurrencyField
      DisplayWidth = 14
      FieldName = 'AmountPaid'
      Currency = True
    end
    object OrdersAmountDue: TCurrencyField
      Calculated = True
      DisplayWidth = 14
      FieldName = 'AmountDue'
      Currency = True
    end
  end
  object Cust: TTable
    Active = True
    BeforeOpen = CustBeforeOpen
    DatabaseName = 'MAST'
    ReadOnly = True
    TableName = 'CUSTOMER'
    Left = 120
    Top = 5
    object CustCustNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 6
      FieldName = 'CustNo'
    end
    object CustCompany: TStringField
      DisplayWidth = 26
      FieldName = 'Company'
      Size = 30
    end
    object CustPhone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object CustLastInvoiceDate: TDateTimeField
      DisplayLabel = 'LastInvoice'
      DisplayWidth = 10
      FieldName = 'LastInvoiceDate'
      DisplayFormat = 'MM/DD/YY'
    end
  end
  object CustSource: TDataSource
    DataSet = Cust
    Left = 148
    Top = 5
  end
  object OrdersSource: TDataSource
    DataSet = Orders
    Left = 41
    Top = 204
  end
  object CustQuery: TQuery
    DatabaseName = 'MAST'
    SQL.Strings = (
      'select Customer.CustNo, Customer.Company, '
      '         Customer.LastInvoiceDate, Customer.Phone '
      '  from customer'
      '  where '
      '    (customer.LastInvoiceDate >= :FromDate) and'
      '    (customer.LastInvoiceDate <= :ToDate)')
    Params.Data = {010002000846726F6D446174650000000006546F4461746500000000}
    Left = 176
    Top = 5
    object CustQueryCustNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 6
      FieldName = 'CustNo'
    end
    object CustQueryCompany: TStringField
      DisplayWidth = 26
      FieldName = 'Company'
      Size = 30
    end
    object CustQueryPhone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object CustQueryLastInvoiceDate: TDateTimeField
      DisplayLabel = 'LastInvoice'
      DisplayWidth = 10
      FieldName = 'LastInvoiceDate'
      DisplayFormat = 'MM/DD/YY'
    end
  end
end