udm1.dfm

专项拨款逐级下发系统的主要功能：对专项拨款申请系统审批通过的专项拨款进行资金下发和签收

object DM1: TDM1
  OldCreateOrder = False
  Left = 392
  Top = 188
  Height = 465
  Width = 500
  object aconn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 30
    Top = 24
  end
  object Unitquery: TADOQuery
    Connection = aconn
    Parameters = <>
    Left = 88
    Top = 96
  end
  object Levelsource: TDataSource
    DataSet = levelquery
    Left = 152
    Top = 24
  end
  object DataSource2: TDataSource
    DataSet = Unitquery
    Left = 152
    Top = 96
  end
  object levelquery: TADOQuery
    Connection = aconn
    Parameters = <>
    Left = 88
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Connection = aconn
    Parameters = <>
    Left = 32
    Top = 96
  end
  object tempquery: TADOQuery
    Connection = aconn
    Parameters = <>
    Left = 216
    Top = 24
  end
  object paymentquery: TADOQuery
    Connection = aconn
    Parameters = <>
    Left = 230
    Top = 101
  end
  object showpayment: TADOQuery
    Active = True
    Connection = aconn
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      'select * from sum_info_payment'
      ' order by bumf_no')
    Left = 88
    Top = 216
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 304
    Top = 216
  end
  object MemTableEh1: TMemTableEh
    Params = <>
    DataDriver = DataSetDriverEh1
    Left = 240
    Top = 216
    object MemTableEh1item_name: TWideStringField
      FieldName = 'item_name'
      Size = 50
    end
    object MemTableEh1bumf_no: TWideStringField
      FieldName = 'bumf_no'
    end
    object MemTableEh1item_no: TWideStringField
      FieldName = 'item_no'
      Size = 12
    end
    object MemTableEh1out_u_no: TWideStringField
      FieldName = 'out_u_no'
      Size = 12
    end
    object MemTableEh1out_u_name: TWideStringField
      FieldName = 'out_u_name'
      Size = 50
    end
    object MemTableEh1in_u_no: TWideStringField
      FieldName = 'in_u_no'
      Size = 12
    end
    object MemTableEh1in_u_name: TWideStringField
      FieldName = 'in_u_name'
      Size = 50
    end
    object MemTableEh1date_no: TWideStringField
      FieldName = 'date_no'
      Size = 8
    end
    object MemTableEh1payment_time: TDateTimeField
      FieldName = 'payment_time'
    end
    object MemTableEh1center_money: TBCDField
      FieldName = 'center_money'
      Precision = 19
      Size = 0
    end
    object MemTableEh1municipality_money: TBCDField
      FieldName = 'municipality_money'
      Precision = 19
      Size = 0
    end
    object MemTableEh1city_money: TBCDField
      FieldName = 'city_money'
      Precision = 19
      Size = 0
    end
    object MemTableEh1county_money: TBCDField
      FieldName = 'county_money'
      Precision = 19
      Size = 0
    end
    object MemTableEh1self_money: TBCDField
      FieldName = 'self_money'
      Precision = 19
      Size = 0
    end
    object MemTableEh1receive_affirm: TBooleanField
      FieldName = 'receive_affirm'
    end
    object MemTableEh1finallyed: TBooleanField
      FieldName = 'finallyed'
    end
    object MemTableEh1sum_money: TBCDField
      FieldName = 'sum_money'
      Precision = 19
      Size = 0
    end
    object MemTableEh1receive_time: TDateTimeField
      FieldName = 'receive_time'
    end
    object MemTableEh1ID: TAutoIncField
      FieldName = 'ID'
    end
    object MemTableEh1paymentno: TWideStringField
      FieldName = 'paymentno'
      Size = 50
    end
    object MemTableEh1parentno: TWideStringField
      FieldName = 'parentno'
      Size = 50
    end
  end
  object DataSetDriverEh1: TDataSetDriverEh
    ProviderDataSet = showpayment
    Left = 168
    Top = 216
  end
  object inpayment: TADOQuery
    Active = True
    Connection = aconn
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      'select * from sum_info_payment'
      ' order by bumf_no')
    Left = 88
    Top = 280
  end
  object DataSource3: TDataSource
    DataSet = MemTableEh2
    Left = 312
    Top = 288
  end
  object MemTableEh2: TMemTableEh
    Params = <>
    DataDriver = DataSetDriverEh2
    Left = 240
    Top = 288
    object WideStringField1: TWideStringField
      FieldName = 'item_name'
      Size = 50
    end
    object WideStringField2: TWideStringField
      FieldName = 'bumf_no'
    end
    object WideStringField3: TWideStringField
      FieldName = 'item_no'
      Size = 12
    end
    object WideStringField4: TWideStringField
      FieldName = 'out_u_no'
      Size = 12
    end
    object WideStringField5: TWideStringField
      FieldName = 'out_u_name'
      Size = 50
    end
    object WideStringField6: TWideStringField
      FieldName = 'in_u_no'
      Size = 12
    end
    object WideStringField7: TWideStringField
      FieldName = 'in_u_name'
      Size = 50
    end
    object WideStringField8: TWideStringField
      FieldName = 'date_no'
      Size = 8
    end
    object DateTimeField1: TDateTimeField
      FieldName = 'payment_time'
    end
    object BCDField1: TBCDField
      FieldName = 'center_money'
      Precision = 19
      Size = 0
    end
    object BCDField2: TBCDField
      FieldName = 'municipality_money'
      Precision = 19
      Size = 0
    end
    object BCDField3: TBCDField
      FieldName = 'city_money'
      Precision = 19
      Size = 0
    end
    object BCDField4: TBCDField
      FieldName = 'county_money'
      Precision = 19
      Size = 0
    end
    object BCDField5: TBCDField
      FieldName = 'self_money'
      Precision = 19
      Size = 0
    end
    object BooleanField1: TBooleanField
      FieldName = 'receive_affirm'
    end
    object BooleanField2: TBooleanField
      FieldName = 'finallyed'
    end
    object BCDField6: TBCDField
      FieldName = 'sum_money'
      Precision = 19
      Size = 0
    end
    object MemTableEh2receive_time: TDateTimeField
      FieldName = 'receive_time'
    end
    object MemTableEh2ID: TAutoIncField
      FieldName = 'ID'
    end
    object MemTableEh2paymentno: TWideStringField
      FieldName = 'paymentno'
      Size = 50
    end
    object MemTableEh2parentno: TWideStringField
      FieldName = 'parentno'
      Size = 50
    end
  end
  object DataSetDriverEh2: TDataSetDriverEh
    ProviderDataSet = inpayment
    Left = 160
    Top = 288
  end
  object subqry: TADOQuery
    Connection = aconn
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      'select * from sum_info_payment'
      ' order by bumf_no')
    Left = 88
    Top = 352
  end
  object itemaq: TADOQuery
    Active = True
    Connection = aconn
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      'select * from info_item ')
    Left = 96
    Top = 160
  end
  object itemds: TDataSource
    DataSet = itemaq
    Left = 160
    Top = 160
  end
end