invprintdm.dfm

供水营销打印程序源码

object dmInvPrint: TdmInvPrint
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 213
  Top = 105
  Height = 601
  Width = 822
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\OwnerSource\Delp' +
      'hi\Delphi 7.0\DGSR 1.0\Data\DJSRInvPrint.mdb;Persist Security In' +
      'fo=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object AtabCustomer: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = AtabCustomerCalcFields
    TableName = 'Customer'
    Left = 32
    Top = 64
    object AtabCustomerCustID: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'CustID'
      Size = 13
    end
    object AtabCustomerTownID: TWideStringField
      DisplayLabel = #38215#21306#32534#21495
      FieldName = 'TownID'
      Visible = False
      Size = 5
    end
    object AtabCustomerAreaID: TWideStringField
      DisplayLabel = #21306#22495#32534#21495
      FieldName = 'AreaID'
      Visible = False
      Size = 5
    end
    object AtabCustomerBookID: TWideStringField
      DisplayLabel = #34920#20876#32534#21495
      FieldName = 'BookID'
      Visible = False
      Size = 5
    end
    object AtabCustomerName: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'Name'
      Size = 128
    end
    object AtabCustomerContract: TWideStringField
      DisplayLabel = #32852#31995#20154
      FieldName = 'Contract'
      Size = 30
    end
    object AtabCustomerPhone: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'Phone'
      Size = 30
    end
    object AtabCustomerEmail: TWideStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'Email'
      Size = 128
    end
    object AtabCustomerAddress: TWideStringField
      DisplayLabel = #32852#31995#22320#22336
      FieldName = 'Address'
      Size = 255
    end
    object AtabCustomerPayID: TWideStringField
      FieldName = 'PayID'
      Visible = False
      Size = 5
    end
    object AtabCustomerUsingID: TWideStringField
      FieldName = 'UsingID'
      Visible = False
      Size = 5
    end
    object AtabCustomerAddtax: TWideStringField
      DisplayLabel = #22686#20540#31246#21495
      FieldName = 'Addtax'
      Size = 30
    end
    object AtabCustomerLatefeeflag: TBooleanField
      DisplayLabel = #28382#32435#37329#25910#21462#26631#24535
      FieldName = 'Latefeeflag'
    end
    object AtabCustomerSewageflag: TBooleanField
      DisplayLabel = #25490#27745#26631#24535
      FieldName = 'Sewageflag'
    end
    object AtabCustomerSewagePercent: TFloatField
      DisplayLabel = #25490#27745#27604#20363
      FieldName = 'SewagePercent'
    end
    object AtabCustomerInstalldate: TDateTimeField
      DisplayLabel = #25253#35013#26102#38388
      FieldName = 'Installdate'
    end
    object AtabCustomerLogoutflag: TBooleanField
      DisplayLabel = #27880#38144#26631#24535
      FieldName = 'Logoutflag'
    end
    object AtabCustomerLogoutdate: TDateTimeField
      DisplayLabel = #27880#38144#26102#38388
      FieldName = 'Logoutdate'
    end
    object AtabCustomerDegreebuf: TIntegerField
      DisplayLabel = #19978#26399#29992#27700#37327
      FieldName = 'Degreebuf'
    end
    object AtabCustomerCurrQty: TIntegerField
      DisplayLabel = #26412#26399#21051#24230
      FieldName = 'CurrQty'
    end
    object AtabCustomerPriorQty: TIntegerField
      DisplayLabel = #19978#26399#21051#24230
      FieldName = 'PriorQty'
    end
    object AtabCustomerDerate: TIntegerField
      DisplayLabel = #20943#20813#27700#37327
      FieldName = 'Derate'
    end
    object AtabCustomerCopier: TWideStringField
      FieldName = 'Copier'
      Visible = False
      Size = 5
    end
    object AtabCustomerModifier: TWideStringField
      DisplayLabel = #20462#25913#32773
      FieldName = 'Modifier'
      Visible = False
      Size = 5
    end
    object AtabCustomerModifydate: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'Modifydate'
    end
    object AtabCustomerDescription: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'Description'
      Size = 255
    end
    object AtabCustomerTownname: TStringField
      DisplayLabel = #38215#21306#21517#31216
      FieldKind = fkLookup
      FieldName = 'Townname'
      LookupDataSet = AtabTown
      LookupKeyFields = 'TownID'
      LookupResultField = 'Townname'
      KeyFields = 'TownID'
      Size = 30
      Lookup = True
    end
    object AtabCustomerAreaname: TStringField
      DisplayLabel = #21306#22495#21517#31216
      FieldKind = fkLookup
      FieldName = 'Areaname'
      LookupDataSet = AtabArea
      LookupKeyFields = 'AreaID'
      LookupResultField = 'Areaname'
      KeyFields = 'AreaID'
      Size = 30
      Lookup = True
    end
    object AtabCustomerBookname: TStringField
      DisplayLabel = #34920#20876#21517#31216
      FieldKind = fkLookup
      FieldName = 'Bookname'
      LookupDataSet = AtabBook
      LookupKeyFields = 'BookID'
      LookupResultField = 'Bookname'
      KeyFields = 'BookID'
      Size = 30
      Lookup = True
    end
    object AtabCustomerPayname: TStringField
      DisplayLabel = #32564#36153#26041#24335
      FieldKind = fkLookup
      FieldName = 'Payname'
      LookupDataSet = AtabPaymode
      LookupKeyFields = 'PayID'
      LookupResultField = 'Payname'
      KeyFields = 'PayID'
      Size = 30
      Lookup = True
    end
    object AtabCustomerUsingname: TStringField
      DisplayLabel = #23458#25143#24615#36136
      FieldKind = fkLookup
      FieldName = 'Usingname'
      LookupDataSet = AtabUsager
      LookupKeyFields = 'UsingID'
      LookupResultField = 'Usingname'
      KeyFields = 'UsingID'
      Size = 30
      Lookup = True
    end
    object AtabCustomerCopiername: TStringField
      DisplayLabel = #25220#34920#21592#22995#21517
      FieldKind = fkLookup
      FieldName = 'Copiername'
      LookupDataSet = AtabCopier
      LookupKeyFields = 'CopiID'
      LookupResultField = 'Name'
      KeyFields = 'Copier'
      Size = 30
      Lookup = True
    end
    object AtabCustomerModifiername: TStringField
      DisplayLabel = #20462#25913#32773
      FieldKind = fkLookup
      FieldName = 'Modifiername'
      LookupDataSet = AtabUsers
      LookupKeyFields = 'UserID'
      LookupResultField = 'Name'
      KeyFields = 'Modifier'
      Size = 30
      Lookup = True
    end
    object AtabCustomerCopiesdate: TDateTimeField
      DisplayLabel = #25220#34920#26102#38388
      FieldName = 'Copiesdate'
    end
    object AtabCustomerQty: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'Qty'
      Calculated = True
    end
  end
  object dsCustomer: TDataSource
    DataSet = AtabCustomer
    Left = 96
    Top = 64
  end
  object AtabArea: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = AtabTownBeforePost
    TableName = 'Area'
    Left = 32
    Top = 112
  end
  object dsArea: TDataSource
    DataSet = AtabArea
    Left = 96
    Top = 112
  end
  object AtabBook: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = AtabTownBeforePost
    TableName = 'Book'
    Left = 32
    Top = 160
  end
  object dsBook: TDataSource
    DataSet = AtabBook
    Left = 96
    Top = 160
  end
  object AtabTown: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = AtabTownBeforePost
    TableName = 'Town'
    Left = 32
    Top = 208
  end
  object dsTown: TDataSource
    DataSet = AtabTown
    Left = 96
    Top = 208
  end
  object AtabCopier: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = AtabTownBeforePost
    TableName = 'Copier'
    Left = 32
    Top = 256
  end
  object dsCopier: TDataSource
    DataSet = AtabCopier
    Left = 96
    Top = 256
  end
  object AtabUsager: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = AtabTownBeforePost
    TableName = 'Usager'
    Left = 32
    Top = 304
  end
  object dsUsager: TDataSource
    DataSet = AtabUsager
    Left = 96
    Top = 304
  end
  object AtabUsers: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = AtabTownBeforePost
    TableName = 'Users'
    Left = 32
    Top = 352
  end
  object dsUsers: TDataSource
    DataSet = AtabUsers
    Left = 96
    Top = 352
  end
  object AtabWaterfee: TADOTable
    CacheSize = 1000
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = AtabWaterfeeCalcFields
    TableName = 'Waterfee'
    Left = 32
    Top = 448
    object AtabWaterfeeWRID: TAutoIncField
      DisplayLabel = #24207#21495
      FieldName = 'WRID'
      ReadOnly = True
      DisplayFormat = '00000000'
    end
    object AtabWaterfeeCustID: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'CustID'
      Size = 13
    end
    object AtabWaterfeeName: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'Name'
      Size = 128
    end
    object AtabWaterfeeAddress: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldName = 'Address'
      Size = 255
    end
    object AtabWaterfeeAreaID: TWideStringField
      FieldName = 'AreaID'
      Visible = False
      Size = 5
    end
    object AtabWaterfeeBookID: TWideStringField
      FieldName = 'BookID'
      Visible = False
      Size = 5
    end
    object AtabWaterfeeUsingID: TWideStringField
      FieldName = 'UsingID'
      Visible = False
      Size = 5
    end
    object AtabWaterfeesPrice: TBCDField
      DisplayLabel = #27700#36153#21333#20215
      FieldName = 'sPrice'
      currency = True
      Precision = 19
    end
    object AtabWaterfeewPrice: TBCDField
      DisplayLabel = #27745#27700#21333#20215
      FieldName = 'wPrice'
      currency = True
      Precision = 19
    end
    object AtabWaterfeeSewagePercent: TIntegerField
      DisplayLabel = #25490#27745#25910#21462#27604#20363
      FieldName = 'SewagePercent'
    end
    object AtabWaterfeeCopier: TWideStringField