DS6JIEFENG/财务接口/凭证/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 = tblADOTblVouitems1
    Left = 188
    Top = 92
  end
  object memTblAccItems2: 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 ADOTblVou2: TADOTable
    Connection = frm_main.db
    OnNewRecord = ADOTblVou2NewRecord
    TableName = 'VOUCHERS'
    Left = 48
    Top = 32
  end
  object tblADOTblVouitems1: 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 tblADOTblVouitems1ORDNO: TIntegerField
      FieldName = 'ORDNO'
    end
    object tblADOTblVouitems1ITEMNO: TIntegerField
      FieldName = 'ITEMNO'
    end
    object tblADOTblVouitems1ACCID: TStringField
      FieldName = 'ACCID'
      FixedChar = True
      Size = 16
    end
    object tblADOTblVouitems1PACCID: TStringField
      FieldName = 'PACCID'
      FixedChar = True
      Size = 16
    end
    object tblADOTblVouitems1ACCNAME: TStringField
      FieldName = 'ACCNAME'
      Size = 60
    end
    object tblADOTblVouitems1PROPERTY: TSmallintField
      FieldName = 'PROPERTY'
    end
    object tblADOTblVouitems1GRADE: TSmallintField
      FieldName = 'GRADE'
    end
    object tblADOTblVouitems1DC: TStringField
      FieldName = 'DC'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1SUBLEGTYPE: TStringField
      FieldName = 'SUBLEGTYPE'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1AMTDR: TFloatField
      FieldName = 'AMTDR'
    end
    object tblADOTblVouitems1AMTCR: TFloatField
      FieldName = 'AMTCR'
    end
    object tblADOTblVouitems1FCY: TStringField
      FieldName = 'FCY'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1FCYNO: TStringField
      FieldName = 'FCYNO'
      FixedChar = True
      Size = 8
    end
    object tblADOTblVouitems1FCYEXRATE: TFloatField
      FieldName = 'FCYEXRATE'
    end
    object tblADOTblVouitems1FCYDR: TFloatField
      FieldName = 'FCYDR'
    end
    object tblADOTblVouitems1FCYCR: TFloatField
      FieldName = 'FCYCR'
    end
    object tblADOTblVouitems1QTY: TStringField
      FieldName = 'QTY'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1QTYSPECS: TStringField
      FieldName = 'QTYSPECS'
    end
    object tblADOTblVouitems1QTYUNIT: TStringField
      FieldName = 'QTYUNIT'
      Size = 10
    end
    object tblADOTblVouitems1PRICEDR: TFloatField
      FieldName = 'PRICEDR'
    end
    object tblADOTblVouitems1PRICECR: TFloatField
      FieldName = 'PRICECR'
    end
    object tblADOTblVouitems1QTYDR: TFloatField
      FieldName = 'QTYDR'
    end
    object tblADOTblVouitems1QTYCR: TFloatField
      FieldName = 'QTYCR'
    end
    object tblADOTblVouitems1EXPLAN: TStringField
      FieldName = 'EXPLAN'
      Size = 60
    end
    object tblADOTblVouitems1VERIFYED: TStringField
      FieldName = 'VERIFYED'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1VERIFYLASTBLC: TFloatField
      FieldName = 'VERIFYLASTBLC'
    end
    object tblADOTblVouitems1DEPTACC: TStringField
      FieldName = 'DEPTACC'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1EMPLACC: TStringField
      FieldName = 'EMPLACC'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1CORPACC: TStringField
      FieldName = 'CORPACC'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1ITEMACC: TStringField
      FieldName = 'ITEMACC'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1DEPTID: TStringField
      FieldName = 'DEPTID'
      Size = 18
    end
    object tblADOTblVouitems1EMPLID: TStringField
      FieldName = 'EMPLID'
      Size = 18
    end
    object tblADOTblVouitems1CORPID: TStringField
      FieldName = 'CORPID'
      Size = 18
    end
    object tblADOTblVouitems1PITEMID: TIntegerField
      FieldName = 'PITEMID'
    end
    object tblADOTblVouitems1ITEMID: TIntegerField
      FieldName = 'ITEMID'
    end
    object tblADOTblVouitems1FIELD1: TStringField
      FieldName = 'FIELD1'
      Size = 10
    end
    object tblADOTblVouitems1FIELD2: TStringField
      FieldName = 'FIELD2'
      Size = 10
    end
    object tblADOTblVouitems1FIELD3: TStringField
      FieldName = 'FIELD3'
    end
    object tblADOTblVouitems1FIELD4: TStringField
      FieldName = 'FIELD4'
    end
    object tblADOTblVouitems1FIELD5: TStringField
      FieldName = 'FIELD5'
    end
    object tblADOTblVouitems1FIELD6: TStringField
      FieldName = 'FIELD6'
    end
    object tblADOTblVouitems1FIELD7: TStringField
      FieldName = 'FIELD7'
      Size = 60
    end
    object tblADOTblVouitems1CF: TSmallintField
      FieldName = 'CF'
    end
    object tblADOTblVouitems1CUSTBE: TStringField
      FieldName = 'CUSTBE'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1CORPBF: TStringField
      FieldName = 'CORPBF'
      FixedChar = True
      Size = 1
    end
    object tblADOTblVouitems1STATUS: TSmallintField
      FieldName = 'STATUS'
    end
    object tblADOTblVouitems1BSNO: TStringField
      FieldName = 'BSNO'
    end
    object tblADOTblVouitems1MBLNO: TStringField
      FieldName = 'MBLNO'
    end
    object tblADOTblVouitems1FSETTLCODE: TStringField
      FieldName = 'FSETTLCODE'
    end
    object tblADOTblVouitems1FSETTLENO: TStringField
      FieldName = 'FSETTLENO'
    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
  object ADOTblVou: TADOQuery
    Connection = frm_main.db
    OnNewRecord = ADOTblVouNewRecord
    Parameters = <>
    SQL.Strings = (
      'select top 0 * from VOUCHERS')
    Left = 284
    Top = 40
  end
  object memTblAccItems: TADOQuery
    Connection = frm_main.db
    OnNewRecord = ADOTblVouNewRecord
    Parameters = <>
    SQL.Strings = (
      'Select * from ACCITEMS Order By AccID')
    Left = 244
    Top = 160
  end
  object ADOTblVouitems: TADOQuery
    Connection = frm_main.db
    AfterOpen = cdsVouItemsAfterOpen
    AfterPost = cdsVouItemsAfterPost
    AfterDelete = cdsVouItemsAfterDelete
    OnNewRecord = cdsVouItemsNewRecord
    DataSource = dsrVou
    Parameters = <
      item
        Name = 'ORDNO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select  * from VOUITEMS WHERE ORDNO=:ORDNO')
    Left = 308
    Top = 96
  end
end