datamodule.~dfm

这是一个间歇的小唾弃,希望大家希望,以后大家多学习,多多交流共同进步

object dm: Tdm
  OldCreateOrder = False
  Left = 365
  Top = 189
  Height = 297
  Width = 388
  object con1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='#24037#36164'.md' +
      'b;Mode=Share Deny None;Extended Properties="";Persist Security I' +
      'nfo=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="' +
      '";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLE' +
      'DB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;J' +
      'et OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passw' +
      'ord="";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
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
  end
  object qrygongzhong: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from gz')
    Left = 56
    object qrygongzhonggz_id: TAutoIncField
      FieldName = 'gz_id'
      ReadOnly = True
    end
    object qrygongzhonggz: TWideStringField
      DisplayLabel = #24037#31181
      FieldName = 'gz'
      Size = 50
    end
    object qrygongzhongjbgz: TBCDField
      DisplayLabel = #22522#26412#24037#36164
      FieldName = 'jbgz'
      Precision = 19
    end
  end
  object dsgongzhong: TDataSource
    DataSet = qrygongzhong
    Left = 91
    Top = 1
  end
  object dsJBLB: TDataSource
    DataSet = qryJBLB
    Left = 228
  end
  object qryJBLB: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from jblb')
    Left = 200
    object qryJBLBjblb_id: TAutoIncField
      FieldName = 'jblb_id'
      ReadOnly = True
    end
    object qryJBLBjblb: TWideStringField
      FieldName = 'jblb'
      Size = 50
    end
    object qryJBLBjbgz: TBCDField
      FieldName = 'jbgz'
      Precision = 19
    end
    object qryJBLBndxs: TFloatField
      FieldName = 'ndxs'
    end
  end
  object dsQQLB: TDataSource
    DataSet = qryQQLB
    Left = 32
    Top = 56
  end
  object qryQQLB: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from qqlb')
    Left = 8
    Top = 56
    object qryQQLBqqlb_id: TAutoIncField
      FieldName = 'qqlb_id'
      ReadOnly = True
    end
    object qryQQLBqqlb: TWideStringField
      FieldName = 'qqlb'
      Size = 50
    end
    object qryQQLBjbgz: TBCDField
      FieldName = 'jbgz'
      Precision = 19
    end
    object qryQQLBndxs: TFloatField
      FieldName = 'ndxs'
    end
  end
  object qryQYNDXY: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ndxy')
    Left = 88
    Top = 56
    object qryQYNDXYndxy_id: TAutoIncField
      FieldName = 'ndxy_id'
      ReadOnly = True
    end
    object qryQYNDXYndxy: TBCDField
      FieldName = 'ndxy'
      Precision = 19
    end
    object qryQYNDXYnian: TIntegerField
      FieldName = 'nian'
    end
  end
  object dsQYNDXY: TDataSource
    DataSet = qryQYNDXY
    Left = 116
    Top = 56
  end
  object qryYGXX: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ygxx')
    Left = 168
    Top = 56
    object qryYGXXyg_id: TAutoIncField
      FieldName = 'yg_id'
      ReadOnly = True
    end
    object qryYGXXygh: TWideStringField
      FieldName = 'ygh'
    end
    object qryYGXXxm: TWideStringField
      FieldName = 'xm'
      Size = 16
    end
    object qryYGXXgz_id: TIntegerField
      FieldName = 'gz_id'
    end
    object qryYGXXbm: TWideStringField
      FieldName = 'bm'
      Size = 50
    end
    object qryYGXXgzsj: TDateTimeField
      FieldName = 'gzsj'
    end
    object qryYGXXaGz: TStringField
      FieldKind = fkLookup
      FieldName = 'aGz'
      LookupDataSet = qrygongzhong
      LookupKeyFields = 'gz_id'
      LookupResultField = 'gz'
      KeyFields = 'gz_id'
      LookupCache = True
      Lookup = True
    end
  end
  object dsYGXX: TDataSource
    DataSet = qryYGXX
    Left = 196
    Top = 56
  end
  object dsKQXX: TDataSource
    DataSet = qryKQXX
    Left = 278
    Top = 56
  end
  object qryKQXX: TADOQuery
    Connection = con1
    CursorType = ctStatic
    DataSource = dsYGXX
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 1
      end>
    SQL.Strings = (
      'select *'
      'from kqxx'
      'where yg_id = :yg_id')
    Left = 248
    Top = 56
    object qryKQXXkq_id: TAutoIncField
      FieldName = 'kq_id'
      ReadOnly = True
    end
    object qryKQXXyg_id: TIntegerField
      FieldName = 'yg_id'
    end
    object qryKQXXkqsj: TDateTimeField
      FieldName = 'kqsj'
    end
    object qryKQXXqqts: TFloatField
      FieldName = 'qqts'
    end
    object qryKQXXqqlb_id: TIntegerField
      FieldName = 'qqlb_id'
    end
    object qryKQXXaqqlb: TStringField
      FieldKind = fkLookup
      FieldName = 'aqqlb'
      LookupDataSet = qryQQLB
      LookupKeyFields = 'qqlb_id'
      LookupResultField = 'qqlb'
      KeyFields = 'qqlb_id'
      Lookup = True
    end
  end
  object dsJTXX: TDataSource
    DataSet = qryJTXX
    Left = 48
    Top = 112
  end
  object qryJTXX: TADOQuery
    Connection = con1
    CursorType = ctStatic
    DataSource = dsYGXX
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 1
      end>
    SQL.Strings = (
      'select * from jtxx where yg_id=:yg_id')
    Left = 16
    Top = 112
    object qryJTXXjt_id: TAutoIncField
      FieldName = 'jt_id'
      ReadOnly = True
    end
    object qryJTXXyg_id: TIntegerField
      FieldName = 'yg_id'
    end
    object qryJTXXjbsj: TDateTimeField
      FieldName = 'jbsj'
    end
    object qryJTXXjbts: TFloatField
      FieldName = 'jbts'
    end
    object qryJTXXjblb_id: TIntegerField
      FieldName = 'jblb_id'
    end
    object qryJTXXajblb: TStringField
      FieldKind = fkLookup
      FieldName = 'ajblb'
      LookupDataSet = qryJBLB
      LookupKeyFields = 'jblb_id'
      LookupResultField = 'jblb'
      KeyFields = 'jblb_id'
      Lookup = True
    end
  end
  object dsYLBX: TDataSource
    DataSet = qryYLBX
    Left = 127
    Top = 112
  end
  object qryYLBX: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ylbx')
    Left = 96
    Top = 112
    object qryYLBXylbx_id: TAutoIncField
      FieldName = 'ylbx_id'
      ReadOnly = True
    end
    object qryYLBXyg_id: TIntegerField
      FieldName = 'yg_id'
    end
    object qryYLBXylfy: TBCDField
      FieldName = 'ylfy'
      Precision = 19
    end
    object qryYLBXbxfy: TBCDField
      FieldName = 'bxfy'
      Precision = 19
    end
    object qryYLBXsj: TDateTimeField
      FieldName = 'sj'
    end
  end
  object dsYGZ: TDataSource
    DataSet = qryYGZ
    Left = 216
    Top = 120
  end
  object qryYGZ: TADOQuery
    Connection = con1
    CursorType = ctStatic
    DataSource = dsYGXX
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 1
      end>
    SQL.Strings = (
      'select * from ygz where yg_id =:yg_id')
    Left = 184
    Top = 120
  end
  object dsNZJJ: TDataSource
    DataSet = qryNZJJ
    Left = 328
    Top = 136
  end
  object qryNZJJ: TADOQuery
    Connection = con1
    CursorType = ctStatic
    DataSource = dsYGXX
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 1
      end>
    SQL.Strings = (
      'select * from nzjj where yg_id =:yg_id')
    Left = 280
    Top = 144
  end
end