QBasic & Borland Pascal & C/Delphi5.iso/Runimage/Delphi50/Demos/Db/Mastapp/DATAMOD.DFM/DATAMOD.txt

Text File | 1999-08-11 | 20.4 KB | 822 lines

object MastData: TMastData
  Left = 226
  Top = 94
  Height = 337
  Width = 409
  object Database: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'MAST'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sysdba'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    TransIsolation = tiDirtyRead
    Left = 324
    Top = 252
  end
  object NextCust: TTable
    DatabaseName = 'MAST'
    Exclusive = True
    TableName = 'NEXTCUST'
    Left = 156
    Top = 60
    object NextCustNewCust: TFloatField
      FieldName = 'NewCust'
    end
  end
  object Parts: TTable
    Active = True
    CachedUpdates = True
    BeforeOpen = PartsBeforeOpen
    OnCalcFields = PartsCalcFields
    OnUpdateError = EditUpdateError
    DatabaseName = 'MAST'
    TableName = 'PARTS'
    Left = 20
    Top = 157
    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
      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 PartsSource: TDataSource
    DataSet = Parts
    Left = 88
    Top = 157
  end
  object PartsQuery: TQuery
    OnCalcFields = PartsQueryCalcFields
    DatabaseName = 'MAST'
    SQL.Strings = (
      'select * from parts'
      ' where (parts.OnOrder > parts.OnHand)'
      '')
    Left = 156
    Top = 157
    object PartsQueryPartNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 8
      FieldName = 'PartNo'
    end
    object PartsQueryDescription: TStringField
      DisplayWidth = 21
      FieldName = 'Description'
      Size = 30
    end
    object PartsQueryVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object PartsQueryOnHand: TFloatField
      DisplayWidth = 9
      FieldName = 'OnHand'
    end
    object PartsQueryOnOrder: TFloatField
      DisplayWidth = 10
      FieldName = 'OnOrder'
    end
    object PartsQueryBackOrd: TBooleanField
      DisplayWidth = 9
      FieldName = 'BackOrd'
      DisplayValues = 'Yes;No'
      Calculated = True
    end
    object PartsQueryCost: TCurrencyField
      FieldName = 'Cost'
    end
    object PartsQueryListPrice: TCurrencyField
      FieldName = 'ListPrice'
    end
  end
  object VendorSource: TDataSource
    DataSet = Vendors
    Left = 90
    Top = 252
  end
  object Vendors: TTable
    Active = True
    DatabaseName = 'MAST'
    ReadOnly = True
    TableName = 'VENDORS'
    Left = 20
    Top = 252
  end
  object Orders: TTable
    Active = True
    CachedUpdates = True
    BeforeOpen = OrdersBeforeOpen
    BeforeClose = OrdersBeforeClose
    BeforeInsert = OrdersBeforeInsert
    BeforeEdit = OrdersBeforeEdit
    AfterPost = OrdersAfterPost
    BeforeCancel = OrdersBeforeCancel
    AfterCancel = OrdersAfterCancel
    BeforeDelete = OrdersBeforeDelete
    AfterDelete = OrdersAfterDelete
    OnCalcFields = OrdersCalcFields
    OnNewRecord = OrdersNewRecord
    DatabaseName = 'MAST'
    IndexFieldNames = 'OrderNo'
    TableName = 'ORDERS'
    Left = 20
    Top = 12
    object OrdersOrderNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'OrderNo'
    end
    object OrdersCustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
      Required = True
      OnChange = OrdersCustNoChange
    end
    object OrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
      OnValidate = OrdersSaleDateValidate
    end
    object OrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
    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 OrdersEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Required = True
    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%;(0.00%);0%'
      MaxValue = 100.000000000000000000
    end
    object OrdersTaxTotal: TCurrencyField
      FieldName = 'TaxTotal'
      Calculated = True
    end
    object OrdersFreight: TCurrencyField
      FieldName = 'Freight'
      OnValidate = OrdersFreightValidate
    end
    object OrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
    object OrdersAmountDue: TCurrencyField
      FieldName = 'AmountDue'
      Calculated = True
    end
    object OrdersSalesPerson: TStringField
      FieldName = 'SalesPerson'
      LookupDataSet = Emps
      LookupKeyFields = 'EmpNo'
      LookupResultField = 'FullName'
      KeyFields = 'EmpNo'
      Size = 40
      Lookup = True
    end
  end
  object OrdersSource: TDataSource
    DataSet = Orders
    Left = 86
    Top = 12
  end
  object CustByOrd: TTable
    Active = True
    DatabaseName = 'MAST'
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = OrdersSource
    ReadOnly = True
    TableName = 'CUSTOMER'
    Left = 20
    Top = 60
    object CustByOrdCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object CustByOrdCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustByOrdAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustByOrdAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustByOrdCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustByOrdState: TStringField
      FieldName = 'State'
    end
    object CustByOrdZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustByOrdCountry: TStringField
      FieldName = 'Country'
    end
    object CustByOrdPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object CustByOrdFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustByOrdTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object CustByOrdContact: TStringField
      FieldName = 'Contact'
    end
    object CustByOrdLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object CustByOrdSrc: TDataSource
    DataSet = CustByOrd
    Left = 86
    Top = 60
  end
  object Items: TTable
    Active = True
    CachedUpdates = True
    BeforeOpen = ItemsBeforeOpen
    BeforeInsert = EnsureOrdersEdit
    BeforeEdit = ItemsBeforeEdit
    BeforePost = ItemsBeforePost
    AfterPost = ItemsAfterPost
    BeforeDelete = EnsureOrdersEdit
    AfterDelete = ItemsAfterDelete
    OnCalcFields = ItemsCalcFields
    OnNewRecord = ItemsNewRecord
    DatabaseName = 'MAST'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = OrdersSource
    TableName = 'ITEMS'
    Left = 20
    Top = 108
    object ItemsItemNo: TFloatField
      FieldName = 'ItemNo'
      Visible = False
    end
    object ItemsOrderNo: TFloatField
      FieldName = 'OrderNo'
      Visible = False
    end
    object ItemsPartNo: TFloatField
      FieldName = 'PartNo'
      OnValidate = ItemsPartNoValidate
    end
    object ItemsDescription: TStringField
      DisplayWidth = 28
      FieldName = 'Description'
      LookupDataSet = Parts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Description'
      KeyFields = 'PartNo'
      ReadOnly = True
      Size = 30
      Lookup = True
    end
    object ItemsSellPrice: TCurrencyField
      DisplayWidth = 9
      FieldName = 'SellPrice'
      LookupDataSet = Parts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'ListPrice'
      KeyFields = 'PartNo'
      Lookup = True
    end
    object ItemsQty: TIntegerField
      DisplayWidth = 5
      FieldName = 'Qty'
      OnValidate = ItemsQtyValidate
    end
    object ItemsDiscount: TFloatField
      DisplayWidth = 7
      FieldName = 'Discount'
      DisplayFormat = '0.00%'
      MaxValue = 100.000000000000000000
    end
    object ItemsExtPrice: TCurrencyField
      DisplayWidth = 10
      FieldName = 'ExtPrice'
      Calculated = True
    end
  end
  object ItemsSource: TDataSource
    DataSet = Items
    Left = 86
    Top = 108
  end
  object NextOrd: TTable
    DatabaseName = 'MAST'
    Exclusive = True
    TableName = 'NEXTORD'
    Left = 155
    Top = 12
    object NextOrdNewKey: TFloatField
      FieldName = 'NewKey'
    end
  end
  object Emps: TTable
    Active = True
    OnCalcFields = EmpsCalcFields
    DatabaseName = 'MAST'
    IndexFieldNames = 'EmpNo'
    ReadOnly = True
    TableName = 'EMPLOYEE'
    Left = 20
    Top = 204
    object EmpsEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object EmpsFullName: TStringField
      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 EmpsSource: TDataSource
    DataSet = Emps
    Left = 89
    Top = 204
  end
  object LastItemQuery: TQuery
    DatabaseName = 'MAST'
    DataSource = OrdersSource
    SQL.Strings = (
      'select max(ItemNo)  from Items'
      '  where OrderNo = :OrderNo')
    Params.Data = {01000100074F726465724E6F000608000000000000588F400000}
    Left = 155
    Top = 108
  end
  object Cust: TTable
    Active = True
    CachedUpdates = True
    BeforeOpen = CustBeforeOpen
    BeforePost = CustBeforePost
    OnUpdateError = EditUpdateError
    DatabaseName = 'MAST'
    TableName = 'CUSTOMER'
    Left = 236
    Top = 13
    object CustCustNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 6
      FieldName = 'CustNo'
    end
    object CustCompany: TStringField
      DisplayWidth = 26
      FieldName = 'Company'
      Required = True
      Size = 30
    end
    object CustPhone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object CustLastInvoiceDate: TDateTimeField
      DisplayLabel = 'LastInvoice'
      DisplayWidth = 10
      FieldName = 'LastInvoiceDate'
      DisplayFormat = 'DDDDD'
    end
    object CustAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustState: TStringField
      FieldName = 'State'
    end
    object CustZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustCountry: TStringField
      FieldName = 'Country'
    end
    object CustFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object CustContact: TStringField
      FieldName = 'Contact'
    end
  end
  object CustSource: TDataSource
    DataSet = Cust
    Left = 312
    Top = 13
  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 = 236
    Top = 61
    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 = 'DDDDD'
    end
  end
  object OrdByCustSrc: TDataSource
    DataSet = OrdByCust
    Left = 312
    Top = 108
  end
  object OrdByCust: TTable
    Active = True
    OnCalcFields = OrdByCustCalcFields
    DatabaseName = 'MAST'
    IndexFieldNames = 'CUSTNO'
    MasterFields = 'CUSTNO'
    MasterSource = CustMasterSrc
    ReadOnly = True
    TableName = 'ORDERS'
    Left = 236
    Top = 108
    object OrdByCustOrderNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 10
      FieldName = 'OrderNo'
    end
    object OrdByCustCustNo: TFloatField
      FieldName = 'CustNo'
      Visible = False
    end
    object OrdByCustSaleDate: TDateTimeField
      DisplayWidth = 9
      FieldName = 'SaleDate'
      DisplayFormat = 'DDDDD'
    end
    object OrdByCustShipDate: TDateTimeField
      DisplayWidth = 9
      FieldName = 'ShipDate'
      DisplayFormat = 'DDDDD'
    end
    object OrdByCustItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Visible = False
    end
    object OrdByCustTaxRate: TFloatField
      FieldName = 'TaxRate'
      Visible = False
    end
    object OrdByCustFreight: TCurrencyField
      FieldName = 'Freight'
      Visible = False
    end
    object OrdByCustAmountPaid: TCurrencyField
      DisplayWidth = 14
      FieldName = 'AmountPaid'
    end
    object OrdByCustAmountDue: TCurrencyField
      DisplayWidth = 14
      FieldName = 'AmountDue'
      Calculated = True
    end
  end
  object CustMasterSrc: TDataSource
    DataSet = Cust
    Left = 312
    Top = 60
  end
  object CustByComp: TTable
    Active = True
    DatabaseName = 'MAST'
    IndexFieldNames = 'Company'
    TableName = 'CUSTOMER'
    Left = 236
    Top = 156
  end
  object CustByCompSrc: TDataSource
    DataSet = CustByComp
    Left = 312
    Top = 156
  end
  object CustByLastInvQuery: TQuery
    Active = True
    DatabaseName = 'MAST'
    SQL.Strings = (
      'select * from customer'
      'order by'
      'LastInvoiceDate descending')
    Left = 240
    Top = 208
    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 = 'MAST'
    SQL.Strings = (
      'select * from orders'
      'where '
      '    (SaleDate >= :FromDate) and'
      '    (SaleDate <= :ToDate)'
      'order by '
      '  SaleDate')
    Params.Data = {
      010002000846726F6D4461746500090400E61C0B00000106546F446174650009
      0400FA1F0B000001}
    Left = 240
    Top = 256
    object OrdersByDateQueryOrderNo: TFloatField
      FieldName = 'OrderNo'
      Origin = '"ORDERS.DB".OrderNo'
    end
    object OrdersByDateQueryCustNo: TFloatField
      FieldName = 'CustNo'
      Origin = '"ORDERS.DB".CustNo'
    end
    object OrdersByDateQuerySaleDate: TDateTimeField
      FieldName = 'SaleDate'
      Origin = '"ORDERS.DB".SaleDate'
    end
    object OrdersByDateQueryShipDate: TDateTimeField
      FieldName = 'ShipDate'
      Origin = '"ORDERS.DB".ShipDate'
    end
    object OrdersByDateQueryEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Origin = '"ORDERS.DB".EmpNo'
    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
      FieldName = 'Company'
      LookupDataSet = Cust
      LookupKeyFields = 'CustNo'
      LookupResultField = 'Company'
      KeyFields = 'CustNo'
      Size = 40
      Lookup = True
    end
  end
end