Chip 2002 September/Chip_2002-09_cd1.bin/zkuste/delphi/kompon/d456/EKRTF.ZIP/MainDemo/Unit2.dfm/Unit2.txt

Text File | 2000-09-24 | 14KB | 533 lines

object DM: TDM
  OldCreateOrder = False
  Left = 214
  Top = 201
  Height = 273
  Width = 391
  object Orders: TTable
    Active = True
    OnCalcFields = OrdersCalcFields
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'OrderNo'
    TableName = 'orders.db'
    Left = 48
    Top = 24
    object OrdersOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object OrdersCustNo: TFloatField
      Alignment = taLeftJustify
      CustomConstraint = 'CustNo IS NOT NULL'
      ConstraintErrorMessage = 'CustNo cannot be blank'
      FieldName = 'CustNo'
      Required = True
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object OrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object OrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object OrdersEmpNo: TIntegerField
      CustomConstraint = 'Value > 0'
      ConstraintErrorMessage = 'EmpNo cannot be 0 or negative'
      FieldName = 'EmpNo'
      Required = True
      DisplayFormat = 'Emp'#39'#'#39' 0000'
      MaxValue = 9999
      MinValue = 1
    end
    object OrdersShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object OrdersShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object OrdersShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object OrdersShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object OrdersShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object OrdersShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object OrdersShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object OrdersShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object OrdersShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object OrdersPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object OrdersTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object OrdersPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object OrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object OrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
      MaxValue = 100.000000000000000000
    end
    object OrdersTaxTotal: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TaxTotal'
      Calculated = True
    end
    object OrdersFreight: TCurrencyField
      FieldName = 'Freight'
    end
    object OrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
    object OrdersAmountDue: TFloatField
      FieldKind = fkCalculated
      FieldName = 'AmountDue'
      Calculated = True
    end
    object OrdersSalesPerson: TStringField
      FieldKind = fkLookup
      FieldName = 'SalesPerson'
      LookupDataSet = Emps
      LookupKeyFields = 'EmpNo'
      LookupResultField = 'FullName'
      KeyFields = 'EmpNo'
      Size = 40
      Lookup = True
    end
  end
  object CustByLastInvQuery: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from customer'
      'order by'
      'LastInvoiceDate descending')
    Left = 224
    Top = 80
    object CustByLastInvQueryCustNo: TFloatField
      FieldName = 'CustNo'
      Origin = '"CUSTOMER.DB".CustNo'
    end
    object CustByLastInvQueryCompany: TStringField
      FieldName = 'Company'
      Origin = '"CUSTOMER.DB".Company'
      Size = 30
    end
    object CustByLastInvQueryAddr1: TStringField
      FieldName = 'Addr1'
      Origin = '"CUSTOMER.DB".Addr1'
      Size = 30
    end
    object CustByLastInvQueryAddr2: TStringField
      FieldName = 'Addr2'
      Origin = '"CUSTOMER.DB".Addr2'
      Size = 30
    end
    object CustByLastInvQueryCity: TStringField
      FieldName = 'City'
      Origin = '"CUSTOMER.DB".City'
      Size = 15
    end
    object CustByLastInvQueryState: TStringField
      FieldName = 'State'
      Origin = '"CUSTOMER.DB".State'
    end
    object CustByLastInvQueryZip: TStringField
      FieldName = 'Zip'
      Origin = '"CUSTOMER.DB".Zip'
      Size = 10
    end
    object CustByLastInvQueryCountry: TStringField
      FieldName = 'Country'
      Origin = '"CUSTOMER.DB".Country'
    end
    object CustByLastInvQueryPhone: TStringField
      FieldName = 'Phone'
      Origin = '"CUSTOMER.DB".Phone'
      Size = 15
    end
    object CustByLastInvQueryFAX: TStringField
      FieldName = 'FAX'
      Origin = '"CUSTOMER.DB".FAX'
      Size = 15
    end
    object CustByLastInvQueryTaxRate: TFloatField
      FieldName = 'TaxRate'
      Origin = '"CUSTOMER.DB".TaxRate'
    end
    object CustByLastInvQueryContact: TStringField
      FieldName = 'Contact'
      Origin = '"CUSTOMER.DB".Contact'
    end
    object CustByLastInvQueryLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
      Origin = '"CUSTOMER.DB".LastInvoiceDate'
    end
  end
  object OrdersByDateQuery: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from orders'
      'order by '
      ' SaleDate')
    Left = 224
    Top = 24
    object OrdersByDateQueryOrderNo: TFloatField
      FieldName = 'OrderNo'
      Origin = '"ORDERS.DB".OrderNo'
    end
    object OrdersByDateQueryCustNo: TFloatField
      FieldName = 'CustNo'
      Origin = '"ORDERS.DB".CustNo'
    end
    object OrdersByDateQueryEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Origin = '"ORDERS.DB".EmpNo'
    end
    object OrdersByDateQuerySaleDate: TDateTimeField
      FieldName = 'SaleDate'
      Origin = '"orders.DB".SaleDate'
    end
    object OrdersByDateQueryShipDate: TDateTimeField
      FieldName = 'ShipDate'
      Origin = '"orders.DB".ShipDate'
    end
    object OrdersByDateQueryShipToContact: TStringField
      FieldName = 'ShipToContact'
      Origin = '"ORDERS.DB".ShipToContact'
    end
    object OrdersByDateQueryShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Origin = '"ORDERS.DB".ShipToAddr1'
      Size = 30
    end
    object OrdersByDateQueryShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Origin = '"ORDERS.DB".ShipToAddr2'
      Size = 30
    end
    object OrdersByDateQueryShipToCity: TStringField
      FieldName = 'ShipToCity'
      Origin = '"ORDERS.DB".ShipToCity'
      Size = 15
    end
    object OrdersByDateQueryShipToState: TStringField
      FieldName = 'ShipToState'
      Origin = '"ORDERS.DB".ShipToState'
    end
    object OrdersByDateQueryShipToZip: TStringField
      FieldName = 'ShipToZip'
      Origin = '"ORDERS.DB".ShipToZip'
      Size = 10
    end
    object OrdersByDateQueryShipToCountry: TStringField
      FieldName = 'ShipToCountry'
      Origin = '"ORDERS.DB".ShipToCountry'
    end
    object OrdersByDateQueryShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Origin = '"ORDERS.DB".ShipToPhone'
      Size = 15
    end
    object OrdersByDateQueryShipVIA: TStringField
      FieldName = 'ShipVIA'
      Origin = '"ORDERS.DB".ShipVIA'
      Size = 7
    end
    object OrdersByDateQueryPO: TStringField
      FieldName = 'PO'
      Origin = '"ORDERS.DB".PO'
      Size = 15
    end
    object OrdersByDateQueryTerms: TStringField
      FieldName = 'Terms'
      Origin = '"ORDERS.DB".Terms'
      Size = 6
    end
    object OrdersByDateQueryPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Origin = '"ORDERS.DB".PaymentMethod'
      Size = 7
    end
    object OrdersByDateQueryItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Origin = '"ORDERS.DB".ItemsTotal'
    end
    object OrdersByDateQueryTaxRate: TFloatField
      FieldName = 'TaxRate'
      Origin = '"ORDERS.DB".TaxRate'
    end
    object OrdersByDateQueryFreight: TCurrencyField
      FieldName = 'Freight'
      Origin = '"ORDERS.DB".Freight'
    end
    object OrdersByDateQueryAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Origin = '"ORDERS.DB".AmountPaid'
    end
    object OrdersByDateQueryCompany: TStringField
      FieldKind = fkLookup
      FieldName = 'Company'
      LookupDataSet = Cust
      LookupKeyFields = 'CustNo'
      LookupResultField = 'Company'
      KeyFields = 'CustNo'
      Size = 40
      Lookup = True
    end
  end
  object Cust: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    TableName = 'customer.db'
    Left = 112
    Top = 88
  end
  object Items: TTable
    Active = True
    CachedUpdates = True
    OnCalcFields = ItemsCalcFields
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'OrderNo'
    TableName = 'ITEMS'
    Left = 44
    Top = 92
    object ItemsItemNo: TFloatField
      FieldName = 'ItemNo'
      Visible = False
    end
    object ItemsOrderNo: TFloatField
      FieldName = 'OrderNo'
      Visible = False
    end
    object ItemsPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object ItemsDescription: TStringField
      DisplayWidth = 28
      FieldKind = fkLookup
      FieldName = 'Description'
      LookupDataSet = Parts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Description'
      KeyFields = 'PartNo'
      ReadOnly = True
      Size = 30
      Lookup = True
    end
    object ItemsSellPrice: TCurrencyField
      DisplayWidth = 9
      FieldKind = fkLookup
      FieldName = 'SellPrice'
      LookupDataSet = Parts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'ListPrice'
      KeyFields = 'PartNo'
      Lookup = True
    end
    object ItemsQty: TIntegerField
      DisplayWidth = 5
      FieldName = 'Qty'
    end
    object ItemsDiscount: TFloatField
      DisplayWidth = 7
      FieldName = 'Discount'
      DisplayFormat = '0.00%'
      MaxValue = 100.000000000000000000
    end
    object ItemsExtPrice: TCurrencyField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'ExtPrice'
      Calculated = True
    end
  end
  object OrdersSource: TDataSource
    DataSet = Orders
    Left = 110
    Top = 20
  end
  object Parts: TTable
    Active = True
    CachedUpdates = True
    DatabaseName = 'DBDEMOS'
    TableName = 'PARTS'
    Left = 44
    Top = 149
    object PartsPartNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 8
      FieldName = 'PartNo'
      Required = True
    end
    object PartsDescription: TStringField
      DisplayWidth = 21
      FieldName = 'Description'
      Required = True
      Size = 30
    end
    object PartsVendorNo: TFloatField
      DisplayWidth = 9
      FieldName = 'VendorNo'
    end
    object PartsOnHand: TFloatField
      DisplayWidth = 9
      FieldName = 'OnHand'
    end
    object PartsOnOrder: TFloatField
      DisplayWidth = 10
      FieldName = 'OnOrder'
    end
    object PartsBackOrd: TBooleanField
      DisplayWidth = 9
      FieldKind = fkCalculated
      FieldName = 'BackOrd'
      DisplayValues = 'Yes;No'
      Calculated = True
    end
    object PartsCost: TCurrencyField
      DisplayWidth = 12
      FieldName = 'Cost'
    end
    object PartsListPrice: TCurrencyField
      DisplayWidth = 12
      FieldName = 'ListPrice'
    end
  end
  object Emps: TTable
    Active = True
    OnCalcFields = EmpsCalcFields
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'EmpNo'
    ReadOnly = True
    TableName = 'EMPLOYEE'
    Left = 108
    Top = 148
    object EmpsEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object EmpsFullName: TStringField
      FieldKind = fkCalculated
      FieldName = 'FullName'
      Calculated = True
    end
    object EmpsLastName: TStringField
      FieldName = 'LastName'
    end
    object EmpsFirstName: TStringField
      FieldName = 'FirstName'
      Size = 15
    end
    object EmpsPhoneExt: TStringField
      FieldName = 'PhoneExt'
      Size = 4
    end
    object EmpsHireDate: TDateTimeField
      FieldName = 'HireDate'
    end
    object EmpsSalary: TFloatField
      FieldName = 'Salary'
    end
  end
  object Vendor: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'vendors.db'
    Left = 200
    Top = 152
  end
  object CustByCompany: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from customer'
      'order by'
      'company')
    Left = 312
    Top = 120
    object FloatField1: TFloatField
      FieldName = 'CustNo'
      Origin = '"CUSTOMER.DB".CustNo'
    end
    object StringField1: TStringField
      FieldName = 'Company'
      Origin = '"CUSTOMER.DB".Company'
      Size = 30
    end
    object StringField2: TStringField
      FieldName = 'Addr1'
      Origin = '"CUSTOMER.DB".Addr1'
      Size = 30
    end
    object StringField3: TStringField
      FieldName = 'Addr2'
      Origin = '"CUSTOMER.DB".Addr2'
      Size = 30
    end
    object StringField4: TStringField
      FieldName = 'City'
      Origin = '"CUSTOMER.DB".City'
      Size = 15
    end
    object StringField5: TStringField
      FieldName = 'State'
      Origin = '"CUSTOMER.DB".State'
    end
    object StringField6: TStringField
      FieldName = 'Zip'
      Origin = '"CUSTOMER.DB".Zip'
      Size = 10
    end
    object StringField7: TStringField
      FieldName = 'Country'
      Origin = '"CUSTOMER.DB".Country'
    end
    object StringField8: TStringField
      FieldName = 'Phone'
      Origin = '"CUSTOMER.DB".Phone'
      Size = 15
    end
    object StringField9: TStringField
      FieldName = 'FAX'
      Origin = '"CUSTOMER.DB".FAX'
      Size = 15
    end
    object FloatField2: TFloatField
      FieldName = 'TaxRate'
      Origin = '"CUSTOMER.DB".TaxRate'
    end
    object StringField10: TStringField
      FieldName = 'Contact'
      Origin = '"CUSTOMER.DB".Contact'
    end
    object DateTimeField1: TDateTimeField
      FieldName = 'LastInvoiceDate'
      Origin = '"CUSTOMER.DB".LastInvoiceDate'
    end
  end
end