DONGSHENG6/财务接口/凭证/dmAccu.~dfm

object dmAcc: TdmAcc
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 342
  Top = 216
  Height = 340
  Width = 450
  object dsrVou: TDataSource
    DataSet = ADOTblVou
    Left = 184
    Top = 28
  end
  object dsrVouItems: TDataSource
    DataSet = ADOTblVouitems
    Left = 188
    Top = 92
  end
  object memTblAccItems: TkbmMemTable
    DesignActivation = True
    AttachedAutoRefresh = True
    AttachMaxCount = 1
    FieldDefs = <>
    IndexDefs = <>
    SortOptions = []
    PersistentBackup = False
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    FilterOptions = []
    Version = '3.05'
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    Left = 48
    Top = 160
  end
  object DsrAccItems: TDataSource
    DataSet = memTblAccItems
    Left = 48
    Top = 224
  end
  object ADOTblVou: TADOTable
    Connection = frm_main.db
    OnNewRecord = ADOTblVouNewRecord
    TableName = 'VOUCHERS'
    Left = 48
    Top = 32
  end
  object ADOTblVouitems: TADOTable
    Connection = frm_main.db
    AfterOpen = cdsVouItemsAfterOpen
    AfterPost = cdsVouItemsAfterPost
    AfterDelete = cdsVouItemsAfterDelete
    OnNewRecord = cdsVouItemsNewRecord
    IndexFieldNames = 'ORDNO'
    MasterFields = 'ORDNO'
    MasterSource = dsrVou
    TableName = 'VOUITEMS'
    Left = 48
    Top = 92
    object ADOTblVouitemsORDNO: TIntegerField
      FieldName = 'ORDNO'
    end
    object ADOTblVouitemsITEMNO: TIntegerField
      FieldName = 'ITEMNO'
    end
    object ADOTblVouitemsACCID: TStringField
      FieldName = 'ACCID'
      FixedChar = True
      Size = 16
    end
    object ADOTblVouitemsPACCID: TStringField
      FieldName = 'PACCID'
      FixedChar = True
      Size = 16
    end
    object ADOTblVouitemsACCNAME: TStringField
      FieldName = 'ACCNAME'
      Size = 60
    end
    object ADOTblVouitemsPROPERTY: TSmallintField
      FieldName = 'PROPERTY'
    end
    object ADOTblVouitemsGRADE: TSmallintField
      FieldName = 'GRADE'
    end
    object ADOTblVouitemsDC: TStringField
      FieldName = 'DC'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsSUBLEGTYPE: TStringField
      FieldName = 'SUBLEGTYPE'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsAMTDR: TFloatField
      FieldName = 'AMTDR'
    end
    object ADOTblVouitemsAMTCR: TFloatField
      FieldName = 'AMTCR'
    end
    object ADOTblVouitemsFCY: TStringField
      FieldName = 'FCY'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsFCYNO: TStringField
      FieldName = 'FCYNO'
      FixedChar = True
      Size = 8
    end
    object ADOTblVouitemsFCYEXRATE: TFloatField
      FieldName = 'FCYEXRATE'
    end
    object ADOTblVouitemsFCYDR: TFloatField
      FieldName = 'FCYDR'
    end
    object ADOTblVouitemsFCYCR: TFloatField
      FieldName = 'FCYCR'
    end
    object ADOTblVouitemsQTY: TStringField
      FieldName = 'QTY'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsQTYSPECS: TStringField
      FieldName = 'QTYSPECS'
    end
    object ADOTblVouitemsQTYUNIT: TStringField
      FieldName = 'QTYUNIT'
      Size = 10
    end
    object ADOTblVouitemsPRICEDR: TFloatField
      FieldName = 'PRICEDR'
    end
    object ADOTblVouitemsPRICECR: TFloatField
      FieldName = 'PRICECR'
    end
    object ADOTblVouitemsQTYDR: TFloatField
      FieldName = 'QTYDR'
    end
    object ADOTblVouitemsQTYCR: TFloatField
      FieldName = 'QTYCR'
    end
    object ADOTblVouitemsEXPLAN: TStringField
      FieldName = 'EXPLAN'
      Size = 60
    end
    object ADOTblVouitemsVERIFYED: TStringField
      FieldName = 'VERIFYED'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsVERIFYLASTBLC: TFloatField
      FieldName = 'VERIFYLASTBLC'
    end
    object ADOTblVouitemsDEPTACC: TStringField
      FieldName = 'DEPTACC'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsEMPLACC: TStringField
      FieldName = 'EMPLACC'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsCORPACC: TStringField
      FieldName = 'CORPACC'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsITEMACC: TStringField
      FieldName = 'ITEMACC'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsDEPTID: TStringField
      FieldName = 'DEPTID'
      Size = 18
    end
    object ADOTblVouitemsEMPLID: TStringField
      FieldName = 'EMPLID'
      Size = 18
    end
    object ADOTblVouitemsCORPID: TStringField
      FieldName = 'CORPID'
      Size = 18
    end
    object ADOTblVouitemsPITEMID: TIntegerField
      FieldName = 'PITEMID'
    end
    object ADOTblVouitemsITEMID: TIntegerField
      FieldName = 'ITEMID'
    end
    object ADOTblVouitemsFIELD1: TStringField
      FieldName = 'FIELD1'
      Size = 10
    end
    object ADOTblVouitemsFIELD2: TStringField
      FieldName = 'FIELD2'
      Size = 10
    end
    object ADOTblVouitemsFIELD3: TStringField
      FieldName = 'FIELD3'
    end
    object ADOTblVouitemsFIELD4: TStringField
      FieldName = 'FIELD4'
    end
    object ADOTblVouitemsFIELD5: TStringField
      FieldName = 'FIELD5'
    end
    object ADOTblVouitemsFIELD6: TStringField
      FieldName = 'FIELD6'
    end
    object ADOTblVouitemsFIELD7: TStringField
      FieldName = 'FIELD7'
      Size = 60
    end
    object ADOTblVouitemsCF: TSmallintField
      FieldName = 'CF'
    end
    object ADOTblVouitemsCUSTBE: TStringField
      FieldName = 'CUSTBE'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsCORPBF: TStringField
      FieldName = 'CORPBF'
      FixedChar = True
      Size = 1
    end
    object ADOTblVouitemsSTATUS: TSmallintField
      FieldName = 'STATUS'
    end
    object ADOTblVouitemsBSNO: TStringField
      FieldName = 'BSNO'
    end
    object ADOTblVouitemsMBLNO: TStringField
      FieldName = 'MBLNO'
    end
    object ADOTblVouitemsFSETTLCODE: TStringField
      FieldName = 'FSETTLCODE'
    end
    object ADOTblVouitemsFSETTLENO: TStringField
      FieldName = 'FSETTLENO'
    end
    object ADOTblVouitemsEMPL: TStringField
      FieldKind = fkLookup
      FieldName = 'EMPL'
      LookupDataSet = frm_data_share.t_sys_employee
      LookupKeyFields = #36130#21153#36719#20214#20195#30721
      LookupResultField = #22995#21517
      KeyFields = 'EMPLID'
      Size = 30
      Lookup = True
    end
    object ADOTblVouitemsDEPT: TStringField
      FieldKind = fkLookup
      FieldName = 'DEPT'
      LookupDataSet = frm_data_share.t_sys_department
      LookupKeyFields = #37096#38376#21517#31216
      LookupResultField = #36130#21153#36719#20214#20195#30721
      KeyFields = 'DEPTID'
      Lookup = True
    end
  end
  object ADOQueryTemp: TADOQuery
    Connection = frm_main.db
    Parameters = <>
    Left = 152
    Top = 164
  end
  object tempQuery: TADOQuery
    Connection = frm_main.db
    Parameters = <>
    Left = 292
    Top = 180
  end
end