data_module.dfm

用于家庭养殖的财务进出

object dm: Tdm
  OldCreateOrder = False
  Left = 452
  Top = 270
  Height = 416
  Width = 486
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=db2.m' +
      'db;Mode=Share Deny None;Extended Properties="";Persist Security ' +
      'Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path=' +
      '"";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OL' +
      'EDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;' +
      'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Pass' +
      'word="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt' +
      ' Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet' +
      ' OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 360
    Top = 224
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    BeforeOpen = ADOQuery1BeforeOpen
    Parameters = <>
    Prepared = True
    Left = 96
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 160
    Top = 8
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 232
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery4
    Left = 24
    Top = 72
  end
  object AQ_PH: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 312
    Top = 8
  end
  object DS_dg1: TDataSource
    DataSet = AQ_dg
    Left = 48
    Top = 120
  end
  object AQ_dg: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'perscode'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select prescode as '#24207#21495',a0402 as '#22995#21517',a0401 as '#20851#31995',a0403 as '#20986#29983#24180#26376','
      'a0405 as '#20826#27966' from a04 where prescode=:perscode')
    Left = 128
    Top = 112
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 96
    Top = 64
  end
  object ADOQuery5: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 144
    Top = 208
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery5
    Left = 40
    Top = 224
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery6
    Left = 16
    Top = 168
  end
  object ADOQuery6: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 80
    Top = 168
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery7
    Left = 16
    Top = 272
  end
  object ADOQuery7: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from field_info')
    Left = 104
    Top = 264
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery8
    Left = 176
    Top = 64
  end
  object ADOQuery8: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 280
    Top = 64
  end
  object ADOConnection2: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\'#31243#24207'\'#26032#24314#25968#25454#24211'\db3.mdb' +
      ';Persist Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 352
    Top = 168
  end
  object ADOQry_gen: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 240
    Top = 128
  end
  object ADOQy_dr: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 240
    Top = 200
  end
  object qry1: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 176
    Top = 256
  end
  object ADOQy_mc: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 264
    Top = 264
  end
  object ADOQuery9: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 360
    Top = 112
  end
end