DOS/V Power Report 1996 August/VPR9608A.BIN/del20try/install/data.z/GDSDATA.DFM/GDSDATA.txt

Text File | 1996-05-08 | 5KB | 240 lines

inherited StdDataForm: TStdDataForm
  Left = 227
  Top = 178
  Caption = 'StdDataForm'
  ClientWidth = 456
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  inherited GDSStdPanel: TPanel
    Width = 456
    TabOrder = 1
    inherited GDSSloganLabel2: TLabel
      Width = 285
    end
    inherited GDSLabel2: TLabel
      Width = 224
    end
    inherited GDSLabel: TLabel
      Width = 224
    end
    inherited GDSSloganLabel: TLabel
      Width = 277
    end
  end
  object StdCtrlPanel: TPanel
    Left = 0
    Top = 75
    Width = 456
    Height = 66
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object FilterOnRadioGroup: TRadioGroup
      Left = 9
      Top = 6
      Width = 104
      Height = 56
      Caption = 'Filter Field'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      Font.Charset = 128
      Items.Strings = (
        'Sale &Date'
        'A&mount Due')
      ParentFont = False
      TabOrder = 0
      OnClick = FilterOnRadioGroupClick
    end
    object GroupBox1: TGroupBox
      Left = 120
      Top = 6
      Width = 177
      Height = 56
      Caption = 'Filter/Search Critera'
      TabOrder = 1
      object FilterOnLabel: TLabel
        Left = 7
        Top = 12
        Width = 162
        Height = 12
        Caption = 'Show records >= '
      end
      object FilterCriteria: TEdit
        Left = 5
        Top = 30
        Width = 164
        Height = 20
        TabOrder = 0
        OnExit = FilterCriteriaExit
        OnKeyPress = FilterCriteriaKeyPress
      end
    end
    object FilterCheckBox: TCheckBox
      Left = 310
      Top = 12
      Width = 139
      Height = 13
      Caption = '&Filtered Records Only'
      TabOrder = 2
      OnClick = FilterCheckBoxClick
    end
    object NextBtn: TButton
      Left = 309
      Top = 39
      Width = 57
      Height = 21
      Caption = 'Find &Next'
      TabOrder = 3
      OnClick = NextBtnClick
    end
    object PriorBtn: TButton
      Left = 384
      Top = 39
      Width = 58
      Height = 21
      Caption = 'Find &Prior'
      TabOrder = 4
      OnClick = PriorBtnClick
    end
  end
  object Orders: TTable
    Active = True
    OnCalcFields = OrdersCalcFields
    OnFilterRecord = OrdersFilterOnAmount
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    ReadOnly = True
    TableName = 'ORDERS.DB'
    Left = 364
    Top = 270
    object OrdersOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object OrdersCustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
    end
    object OrdersCustName: TStringField
      DisplayWidth = 27
      FieldName = 'CustName'
      Lookup = True
      LookupDataSet = Cust
      LookupKeyFields = 'CustNo'
      LookupResultField = 'Company'
      KeyFields = 'CustNo'
      Size = 30
    end
    object OrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object OrdersAmountDue: TCurrencyField
      Calculated = True
      DisplayLabel = 'AmountDue'
      FieldName = 'Amount'
    end
    object OrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
      Visible = False
    end
    object OrdersEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Required = True
      Visible = False
    end
    object OrdersShipToContact: TStringField
      FieldName = 'ShipToContact'
      Visible = False
    end
    object OrdersShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Visible = False
      Size = 30
    end
    object OrdersShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Visible = False
      Size = 30
    end
    object OrdersShipToCity: TStringField
      FieldName = 'ShipToCity'
      Visible = False
      Size = 15
    end
    object OrdersShipToState: TStringField
      FieldName = 'ShipToState'
      Visible = False
    end
    object OrdersShipToZip: TStringField
      FieldName = 'ShipToZip'
      Visible = False
      Size = 10
    end
    object OrdersShipToCountry: TStringField
      FieldName = 'ShipToCountry'
      Visible = False
    end
    object OrdersShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Visible = False
      Size = 15
    end
    object OrdersShipVIA: TStringField
      FieldName = 'ShipVIA'
      Visible = False
      Size = 10
    end
    object OrdersPO: TStringField
      FieldName = 'PO'
      Visible = False
      Size = 15
    end
    object OrdersTerms: TStringField
      FieldName = 'Terms'
      Visible = False
      Size = 6
    end
    object OrdersPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Visible = False
      Size = 8
    end
    object OrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Visible = False
    end
    object OrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
      Visible = False
    end
    object OrdersFreight: TCurrencyField
      FieldName = 'Freight'
      Visible = False
    end
    object OrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Visible = False
    end
    object OrdersTaxAmount: TCurrencyField
      Calculated = True
      FieldName = 'TaxAmount'
    end
  end
  object Cust: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    ReadOnly = True
    TableName = 'CUSTOMER.DB'
    Left = 412
    Top = 270
  end
  object OrdersSource: TDataSource
    DataSet = Orders
    Left = 303
    Top = 270
  end
end