home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Db / Dberrors / DM1.DFM / DM1.txt
Encoding:
Text File  |  1999-08-11  |  2.9 KB  |  122 lines
  1. object DM: TDM
  2.   OldCreateOrder = True
  3.   Left = 372
  4.   Top = 190
  5.   Height = 242
  6.   Width = 222
  7.   object Customer: TTable
  8.     Active = True
  9.     OnDeleteError = CustomerDeleteError
  10.     OnPostError = CustomerPostError
  11.     DatabaseName = 'dbdemos'
  12.     TableName = 'CUSTOMER.DB'
  13.     Left = 17
  14.     Top = 8
  15.     object CustomerCustNo: TFloatField
  16.       Alignment = taLeftJustify
  17.       DisplayWidth = 7
  18.       FieldName = 'CustNo'
  19.       DisplayFormat = 'CN 0000'
  20.       EditFormat = '0000'
  21.       MaxValue = 9999.000000000000000000
  22.       MinValue = 1000.000000000000000000
  23.     end
  24.     object CustomerCompany: TStringField
  25.       DisplayWidth = 22
  26.       FieldName = 'Company'
  27.       Size = 30
  28.     end
  29.   end
  30.   object CustomerSource: TDataSource
  31.     DataSet = Customer
  32.     Left = 81
  33.     Top = 8
  34.   end
  35.   object Orders: TTable
  36.     Active = True
  37.     OnDeleteError = OrdersDeleteError
  38.     OnPostError = OrdersPostError
  39.     DatabaseName = 'DBDEMOS'
  40.     IndexName = 'CustNo'
  41.     MasterFields = 'CustNo'
  42.     MasterSource = CustomerSource
  43.     TableName = 'ORDERS.DB'
  44.     Left = 17
  45.     Top = 70
  46.     object OrdersOrderNo: TFloatField
  47.       DisplayWidth = 10
  48.       FieldName = 'OrderNo'
  49.       DisplayFormat = #39'#'#39'0000'
  50.       EditFormat = '0000'
  51.     end
  52.     object OrdersCustNo: TFloatField
  53.       Alignment = taLeftJustify
  54.       FieldName = 'CustNo'
  55.       DisplayFormat = 'CN 0000'
  56.       EditFormat = '0000'
  57.       MaxValue = 9999.000000000000000000
  58.       MinValue = 1000.000000000000000000
  59.     end
  60.     object OrdersSaleDate: TDateTimeField
  61.       FieldName = 'SaleDate'
  62.     end
  63.     object OrdersShipDate: TDateTimeField
  64.       FieldName = 'ShipDate'
  65.     end
  66.     object OrdersEmpNo: TIntegerField
  67.       FieldName = 'EmpNo'
  68.       DisplayFormat = 'Emp'#39'#'#39' 0000'
  69.       EditFormat = '0000'
  70.       MaxValue = 9999
  71.       MinValue = 1
  72.     end
  73.   end
  74.   object OrdersSource: TDataSource
  75.     DataSet = Orders
  76.     Left = 81
  77.     Top = 70
  78.   end
  79.   object Items: TTable
  80.     Active = True
  81.     OnPostError = ItemsPostError
  82.     DatabaseName = 'DBDEMOS'
  83.     IndexFieldNames = 'OrderNo'
  84.     MasterFields = 'OrderNo'
  85.     MasterSource = OrdersSource
  86.     TableName = 'ITEMS.DB'
  87.     Left = 17
  88.     Top = 130
  89.     object ItemsOrderNo: TFloatField
  90.       DisplayWidth = 10
  91.       FieldName = 'OrderNo'
  92.       DisplayFormat = '0000'
  93.     end
  94.     object ItemsItemNo: TFloatField
  95.       DisplayWidth = 10
  96.       FieldName = 'ItemNo'
  97.     end
  98.     object ItemsPartNo: TFloatField
  99.       Alignment = taLeftJustify
  100.       DisplayWidth = 10
  101.       FieldName = 'PartNo'
  102.       DisplayFormat = 'PN-00000'
  103.       EditFormat = '00000'
  104.     end
  105.     object ItemsQty: TIntegerField
  106.       DisplayWidth = 6
  107.       FieldName = 'Qty'
  108.     end
  109.     object ItemsDiscount: TFloatField
  110.       DisplayWidth = 10
  111.       FieldName = 'Discount'
  112.       DisplayFormat = '#%'
  113.       MinValue = 100.000000000000000000
  114.     end
  115.   end
  116.   object ItemsSource: TDataSource
  117.     DataSet = Items
  118.     Left = 81
  119.     Top = 130
  120.   end
  121. end
  122.