home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / GDSDATA.DFM / GDSDATA.txt
Text File  |  1997-02-28  |  5KB  |  216 lines

  1. inherited StdDataForm: TStdDataForm
  2.   Caption = 'StdDataForm'
  3.   OnCreate = FormCreate
  4.   PixelsPerInch = 96
  5.   TextHeight = 13
  6.   object StdCtrlPanel: TPanel
  7.     Left = 0
  8.     Top = 89
  9.     Width = 460
  10.     Height = 72
  11.     Align = alTop
  12.     BevelOuter = bvLowered
  13.     Caption = 'StdCtrlPanel'
  14.     TabOrder = 1
  15.     object FilterOnRadioGroup: TRadioGroup
  16.       Left = 11
  17.       Top = 7
  18.       Width = 95
  19.       Height = 57
  20.       Caption = 'Filter Field'
  21.       Items.Strings = (
  22.         'Sale &Date'
  23.         'A&mount Due')
  24.       TabOrder = 0
  25.       OnClick = FilterOnRadioGroupClick
  26.     end
  27.     object GroupBox1: TGroupBox
  28.       Left = 119
  29.       Top = 7
  30.       Width = 162
  31.       Height = 57
  32.       Caption = 'Filter/Search Critera'
  33.       TabOrder = 1
  34.       object FilterOnLabel: TLabel
  35.         Left = 8
  36.         Top = 14
  37.         Width = 83
  38.         Height = 13
  39.         Caption = 'Show records >= '
  40.       end
  41.       object FilterCriteria: TEdit
  42.         Left = 6
  43.         Top = 30
  44.         Width = 150
  45.         Height = 21
  46.         TabOrder = 0
  47.         OnExit = FilterCriteriaExit
  48.         OnKeyPress = FilterCriteriaKeyPress
  49.       end
  50.     end
  51.     object FilterCheckBox: TCheckBox
  52.       Left = 314
  53.       Top = 14
  54.       Width = 135
  55.       Height = 17
  56.       Caption = '&Filtered Records Only'
  57.       TabOrder = 2
  58.       OnClick = FilterCheckBoxClick
  59.     end
  60.     object NextBtn: TButton
  61.       Left = 295
  62.       Top = 37
  63.       Width = 70
  64.       Height = 25
  65.       Caption = 'Find &Next'
  66.       TabOrder = 3
  67.       OnClick = NextBtnClick
  68.     end
  69.     object PriorBtn: TButton
  70.       Left = 377
  71.       Top = 37
  72.       Width = 70
  73.       Height = 25
  74.       Caption = 'Find &Prior'
  75.       TabOrder = 4
  76.       OnClick = PriorBtnClick
  77.     end
  78.   end
  79.   object Cust: TTable
  80.     Active = True
  81.     DatabaseName = 'BCDEMOS'
  82.     IndexFieldNames = 'CustNo'
  83.     ReadOnly = True
  84.     TableName = 'CUSTOMER.DB'
  85.     Left = 412
  86.     Top = 270
  87.   end
  88.   object Orders: TTable
  89.     Active = True
  90.     OnCalcFields = OrdersCalcFields
  91.     OnFilterRecord = OrdersFilterOnAmount
  92.     DatabaseName = 'BCDEMOS'
  93.     IndexFieldNames = 'CustNo'
  94.     ReadOnly = True
  95.     TableName = 'ORDERS.DB'
  96.     Left = 364
  97.     Top = 270
  98.     object OrdersOrderNo: TFloatField
  99.       FieldName = 'OrderNo'
  100.     end
  101.     object OrdersCustNo: TFloatField
  102.       FieldName = 'CustNo'
  103.       Required = True
  104.     end
  105.     object OrdersCustName: TStringField
  106.       DisplayWidth = 27
  107.       FieldName = 'CustName'
  108.       Lookup = True
  109.       LookupDataSet = Cust
  110.       LookupKeyFields = 'CustNo'
  111.       LookupResultField = 'Company'
  112.       KeyFields = 'CustNo'
  113.       Size = 30
  114.     end
  115.     object OrdersSaleDate: TDateTimeField
  116.       FieldName = 'SaleDate'
  117.     end
  118.     object OrdersAmountDue: TCurrencyField
  119.       Calculated = True
  120.       DisplayLabel = 'AmountDue'
  121.       FieldName = 'Amount'
  122.     end
  123.     object OrdersShipDate: TDateTimeField
  124.       FieldName = 'ShipDate'
  125.       Visible = False
  126.     end
  127.     object OrdersEmpNo: TIntegerField
  128.       FieldName = 'EmpNo'
  129.       Required = True
  130.       Visible = False
  131.     end
  132.     object OrdersShipToContact: TStringField
  133.       FieldName = 'ShipToContact'
  134.       Visible = False
  135.     end
  136.     object OrdersShipToAddr1: TStringField
  137.       FieldName = 'ShipToAddr1'
  138.       Visible = False
  139.       Size = 30
  140.     end
  141.     object OrdersShipToAddr2: TStringField
  142.       FieldName = 'ShipToAddr2'
  143.       Visible = False
  144.       Size = 30
  145.     end
  146.     object OrdersShipToCity: TStringField
  147.       FieldName = 'ShipToCity'
  148.       Visible = False
  149.       Size = 15
  150.     end
  151.     object OrdersShipToState: TStringField
  152.       FieldName = 'ShipToState'
  153.       Visible = False
  154.     end
  155.     object OrdersShipToZip: TStringField
  156.       FieldName = 'ShipToZip'
  157.       Visible = False
  158.       Size = 10
  159.     end
  160.     object OrdersShipToCountry: TStringField
  161.       FieldName = 'ShipToCountry'
  162.       Visible = False
  163.     end
  164.     object OrdersShipToPhone: TStringField
  165.       FieldName = 'ShipToPhone'
  166.       Visible = False
  167.       Size = 15
  168.     end
  169.     object OrdersShipVIA: TStringField
  170.       FieldName = 'ShipVIA'
  171.       Visible = False
  172.       Size = 7
  173.     end
  174.     object OrdersPO: TStringField
  175.       FieldName = 'PO'
  176.       Visible = False
  177.       Size = 15
  178.     end
  179.     object OrdersTerms: TStringField
  180.       FieldName = 'Terms'
  181.       Visible = False
  182.       Size = 6
  183.     end
  184.     object OrdersPaymentMethod: TStringField
  185.       FieldName = 'PaymentMethod'
  186.       Visible = False
  187.       Size = 7
  188.     end
  189.     object OrdersItemsTotal: TCurrencyField
  190.       FieldName = 'ItemsTotal'
  191.       Visible = False
  192.     end
  193.     object OrdersTaxRate: TFloatField
  194.       FieldName = 'TaxRate'
  195.       Visible = False
  196.     end
  197.     object OrdersFreight: TCurrencyField
  198.       FieldName = 'Freight'
  199.       Visible = False
  200.     end
  201.     object OrdersAmountPaid: TCurrencyField
  202.       FieldName = 'AmountPaid'
  203.       Visible = False
  204.     end
  205.     object OrdersTaxAmount: TCurrencyField
  206.       Calculated = True
  207.       FieldName = 'TaxAmount'
  208.     end
  209.   end
  210.   object OrdersSource: TDataSource
  211.     DataSet = Orders
  212.     Left = 303
  213.     Top = 270
  214.   end
  215. end
  216.