data.dfm

用于实现C/S架构下的表单打印 支持清单打印 还支持多种模式下的打印

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 329
  Top = 218
  Height = 334
  Width = 321
  object MainConn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=D:\bf' +
      '\ACreport\ActiveX\data\ReportDemo.mdb;Mode=Share Deny None;Exten' +
      'ded Properties="";Persist Security Info=False;Jet OLEDB:System d' +
      'atabase="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Passwor' +
      'd="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;J' +
      'et OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transac' +
      'tions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create Syst' +
      'em Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don' +
      #39't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replic' +
      'a Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object qryAnimals: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'Select * from animals '
      'order by name')
    Left = 108
    Top = 16
  end
  object qryBiolife: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'select * from biolife')
    Left = 176
    Top = 16
  end
  object qryContry: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'select * from country')
    Left = 240
    Top = 16
  end
  object qryEmployee: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'Select * from Employee order by EmpNo')
    Left = 35
    Top = 80
    object qryEmployeeEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object qryEmployeeLastName: TWideStringField
      FieldName = 'LastName'
    end
    object qryEmployeeFirstName: TWideStringField
      FieldName = 'FirstName'
      Size = 15
    end
    object qryEmployeePhoneExt: TWideStringField
      FieldName = 'PhoneExt'
      Size = 4
    end
    object qryEmployeeHireDate: TDateTimeField
      FieldName = 'HireDate'
    end
    object qryEmployeeSalary: TFloatField
      FieldName = 'Salary'
    end
  end
  object qryCustomer: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'select * from customer order by custNo')
    Left = 112
    Top = 80
    object qryCustomerCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object qryCustomerCompany: TWideStringField
      FieldName = 'Company'
      Size = 30
    end
    object qryCustomerAddr1: TWideStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object qryCustomerAddr2: TWideStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object qryCustomerCity: TWideStringField
      FieldName = 'City'
      Size = 15
    end
    object qryCustomerState: TWideStringField
      FieldName = 'State'
    end
    object qryCustomerZip: TWideStringField
      FieldName = 'Zip'
      Size = 10
    end
    object qryCustomerCountry: TWideStringField
      FieldName = 'Country'
    end
    object qryCustomerPhone: TWideStringField
      FieldName = 'Phone'
      Size = 15
    end
    object qryCustomerFAX: TWideStringField
      FieldName = 'FAX'
      Size = 15
    end
    object qryCustomerTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object qryCustomerContact: TWideStringField
      FieldName = 'Contact'
    end
    object qryCustomerLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object qryOrders: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'Select * from Orders order by OrderNo')
    Left = 180
    Top = 80
    object qryOrdersOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object qryOrdersCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object qryOrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object qryOrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object qryOrdersEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object qryOrdersShipToContact: TWideStringField
      FieldName = 'ShipToContact'
    end
    object qryOrdersShipToAddr1: TWideStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object qryOrdersShipToAddr2: TWideStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object qryOrdersShipToCity: TWideStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object qryOrdersShipToState: TWideStringField
      FieldName = 'ShipToState'
    end
    object qryOrdersShipToZip: TWideStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object qryOrdersShipToCountry: TWideStringField
      FieldName = 'ShipToCountry'
    end
    object qryOrdersShipToPhone: TWideStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object qryOrdersShipVIA: TWideStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object qryOrdersPO: TWideStringField
      FieldName = 'PO'
      Size = 15
    end
    object qryOrdersTerms: TWideStringField
      FieldName = 'Terms'
      Size = 6
    end
    object qryOrdersPaymentMethod: TWideStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object qryOrdersItemsTotal: TFloatField
      FieldName = 'ItemsTotal'
    end
    object qryOrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object qryOrdersFreight: TFloatField
      FieldName = 'Freight'
    end
    object qryOrdersAmountPaid: TFloatField
      FieldName = 'AmountPaid'
    end
  end
  object qryParts: TADOQuery
    Connection = MainConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Parts order by PartNo')
    Left = 240
    Top = 80
    object qryPartsPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object qryPartsVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object qryPartsDescription: TWideStringField
      FieldName = 'Description'
      Size = 30
    end
    object qryPartsOnHand: TFloatField
      FieldName = 'OnHand'
    end
    object qryPartsOnOrder: TFloatField
      FieldName = 'OnOrder'
    end
    object qryPartsCost: TFloatField
      FieldName = 'Cost'
    end
    object qryPartsListPrice: TFloatField
      FieldName = 'ListPrice'
    end
  end
  object qryVendors: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'select * from vendors order by vendorNo')
    Left = 32
    Top = 144
    object qryVendorsVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object qryVendorsVendorName: TWideStringField
      FieldName = 'VendorName'
      Size = 30
    end
    object qryVendorsAddress1: TWideStringField
      FieldName = 'Address1'
      Size = 30
    end
    object qryVendorsAddress2: TWideStringField
      FieldName = 'Address2'
      Size = 30
    end
    object qryVendorsCity: TWideStringField
      FieldName = 'City'
    end
    object qryVendorsState: TWideStringField
      FieldName = 'State'
    end
    object qryVendorsZip: TWideStringField
      FieldName = 'Zip'
      Size = 10
    end
    object qryVendorsCountry: TWideStringField
      FieldName = 'Country'
      Size = 15
    end
    object qryVendorsPhone: TWideStringField
      FieldName = 'Phone'
      Size = 15
    end
    object qryVendorsFAX: TWideStringField
      FieldName = 'FAX'
      Size = 15
    end
    object qryVendorsPreferred: TBooleanField
      FieldName = 'Preferred'
    end
  end
  object qryzlEmployee: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'select m.*, x.Name as xueliName'
      ' from '
      ' zlemployee m left join xueli x on m.xueli = x.code'
      'order by Id')
    Left = 112
    Top = 144
    object qryzlEmployeeID: TIntegerField
      FieldName = 'ID'
    end
    object qryzlEmployeeDept: TWideStringField
      FieldName = 'Dept'
      Size = 10
    end
    object qryzlEmployeeCode: TWideStringField
      FieldName = 'Code'
      Size = 8
    end
    object qryzlEmployeeCardNo: TWideStringField
      FieldName = 'CardNo'
      Size = 8
    end
    object qryzlEmployeeName: TWideStringField
      FieldName = 'Name'
      Size = 8
    end
    object qryzlEmployeeSfz: TWideStringField
      FieldName = 'Sfz'
      Size = 18
    end
    object qryzlEmployeeBornDate: TDateTimeField
      FieldName = 'BornDate'
    end
    object qryzlEmployeeSex: TBooleanField
      FieldName = 'Sex'