datamodule.dfm

工资管理系统Delphi ?ぷ使芾硐低矰elphi

object dm: Tdm
  OldCreateOrder = False
  Left = 471
  Top = 3
  Height = 268
  Width = 350
  object con1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='#24037#36164'.mdb;Persist Secu' +
      'rity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 8
  end
  object qryYgxx: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from ygxx')
    Left = 8
    Top = 80
    object qryYgxxyg_id: TAutoIncField
      FieldName = 'yg_id'
      ReadOnly = True
    end
    object qryYgxxygh: TWideStringField
      DisplayLabel = #21592#24037#21495
      FieldName = 'ygh'
    end
    object qryYgxxxm: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'xm'
      Size = 16
    end
    object qryYgxxgz_id: TIntegerField
      DisplayLabel = #24037#31181
      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 = qryGz
      LookupKeyFields = 'gz_id'
      LookupResultField = 'gz'
      KeyFields = 'gz_id'
      LookupCache = True
      Lookup = True
    end
  end
  object dsYgxx: TDataSource
    DataSet = qryYgxx
    Left = 40
    Top = 80
  end
  object qryGz: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from gz')
    Left = 64
    Top = 8
    object qryGzgz_id: TAutoIncField
      FieldName = 'gz_id'
      ReadOnly = True
    end
    object qryGzgz: TWideStringField
      DisplayLabel = #24037#31181
      FieldName = 'gz'
      Size = 50
    end
    object qryGzjbgz: TBCDField
      DisplayLabel = #22522#26412#24037#36164
      FieldName = 'jbgz'
      Precision = 19
    end
  end
  object dsGz: TDataSource
    DataSet = qryGz
    Left = 96
    Top = 8
  end
  object qryJblb: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from jblb')
    Left = 152
    Top = 8
    object qryJblbjblb_id: TAutoIncField
      FieldName = 'jblb_id'
      ReadOnly = True
    end
    object qryJblbjblb: TWideStringField
      DisplayLabel = #21152#29677#31867#21035
      FieldName = 'jblb'
      Size = 50
    end
    object qryJblbjbgz: TBCDField
      DisplayLabel = #22686#21152#26376#24037#36164
      FieldName = 'jbgz'
      Precision = 19
    end
    object qryJblbndxs: TFloatField
      DisplayLabel = #22686#21152#24180#24230#20998#32418#31995#25968
      FieldName = 'ndxs'
    end
  end
  object dsJblb: TDataSource
    DataSet = qryJblb
    Left = 184
    Top = 8
  end
  object qryQqlb: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from qqlb')
    Left = 200
    Top = 40
    object qryQqlbqqlb_id: TAutoIncField
      FieldName = 'qqlb_id'
      ReadOnly = True
    end
    object qryQqlbqqlb: TWideStringField
      DisplayLabel = #32570#21220#31867#21035
      FieldName = 'qqlb'
      Size = 50
    end
    object qryQqlbjbgz: TBCDField
      DisplayLabel = #25187#38500#26376#24037#36164
      FieldName = 'jbgz'
      Precision = 19
    end
    object qryQqlbndxs: TFloatField
      DisplayLabel = #25187#38500#24180#24230#20998#32418#31995#25968
      FieldName = 'ndxs'
    end
  end
  object dsQqlb: TDataSource
    DataSet = qryQqlb
    Left = 232
    Top = 40
  end
  object qryKqxx: TADOQuery
    Connection = con1
    DataSource = dsYgxx
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from kqxx'
      'where yg_id = :yg_id')
    Left = 120
    Top = 80
    object qryKqxxkq_id: TAutoIncField
      FieldName = 'kq_id'
      ReadOnly = True
    end
    object qryKqxxyg_id: TIntegerField
      DisplayLabel = #21592#24037#21495
      FieldName = 'yg_id'
    end
    object qryKqxxkqsj: TDateTimeField
      DisplayLabel = #32771#21220#26102#38388
      FieldName = 'kqsj'
    end
    object qryKqxxqqts: TFloatField
      DisplayLabel = #32570#21220#22825#25968
      FieldName = 'qqts'
    end
    object qryKqxxqqlb_id: TIntegerField
      DisplayLabel = #32570#21220#31867#21035
      FieldName = 'qqlb_id'
    end
    object qryKqxxaQqlb: TStringField
      FieldKind = fkLookup
      FieldName = 'aQqlb'
      LookupDataSet = qryQqlb
      LookupKeyFields = 'qqlb_id'
      LookupResultField = 'qqlb'
      KeyFields = 'qqlb_id'
      LookupCache = True
      Lookup = True
    end
  end
  object dsKqxx: TDataSource
    DataSet = qryKqxx
    Left = 152
    Top = 80
  end
  object qryJtxx: TADOQuery
    Connection = con1
    DataSource = dsYgxx
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from jtxx'
      'where yg_id = :yg_id')
    Left = 216
    Top = 80
    object qryJtxxjt_id: TAutoIncField
      FieldName = 'jt_id'
      ReadOnly = True
    end
    object qryJtxxyg_id: TIntegerField
      DisplayLabel = #21592#24037#21495
      FieldName = 'yg_id'
    end
    object qryJtxxjbsj: TDateTimeField
      DisplayLabel = #21152#29677#26102#38388
      FieldName = 'jbsj'
    end
    object qryJtxxjbts: TFloatField
      DisplayLabel = #21152#29677#22825#25968
      FieldName = 'jbts'
    end
    object qryJtxxjblb_id: TIntegerField
      DisplayLabel = #21152#29677#31867#21035
      FieldName = 'jblb_id'
    end
    object qryJtxxaJblb: TStringField
      FieldKind = fkLookup
      FieldName = 'aJblb'
      LookupDataSet = qryJblb
      LookupKeyFields = 'jblb_id'
      LookupResultField = 'jblb'
      KeyFields = 'jblb_id'
      LookupCache = True
      Lookup = True
    end
  end
  object dsJtxx: TDataSource
    DataSet = qryJtxx
    Left = 248
    Top = 80
  end
  object qryYlbx: TADOQuery
    Connection = con1
    DataSource = dsYgxx
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from ylbx'
      'where yg_id = :yg_id')
    Left = 8
    Top = 144
    object qryYlbxylbx_id: TAutoIncField
      FieldName = 'ylbx_id'
      ReadOnly = True
    end
    object qryYlbxyg_id: TIntegerField
      DisplayLabel = #21592#24037#21495
      FieldName = 'yg_id'
    end
    object qryYlbxylfy: TBCDField
      DisplayLabel = #21307#30103#25253#38144#36153
      FieldName = 'ylfy'
      Precision = 19
    end
    object qryYlbxbxfy: TBCDField
      DisplayLabel = #20445#38505#36153
      FieldName = 'bxfy'
      Precision = 19
    end
    object qryYlbxsj: TDateTimeField
      DisplayLabel = #26102#38388
      FieldName = 'sj'
    end
  end
  object dsYlbx: TDataSource
    DataSet = qryYlbx
    Left = 40
    Top = 144
  end
  object qryYgz: TADOQuery
    Connection = con1
    DataSource = dsYgxx
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from ygz'
      'where yg_id = :yg_id')
    Left = 120
    Top = 144
  end
  object dsYgz: TDataSource
    DataSet = qryYgz
    Left = 152
    Top = 144
  end
  object qryNzjj: TADOQuery
    Connection = con1
    DataSource = dsYgxx
    Parameters = <
      item
        Name = 'yg_id'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from nzjj'
      'where yg_id = :yg_id')
    Left = 216
    Top = 144
  end
  object dsNzjj: TDataSource
    DataSet = qryNzjj
    Left = 248
    Top = 144
  end
  object qryNdxy: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from ndxy'
      'order by nian')
    Left = 264
    Top = 8
    object qryNdxyndxy_id: TAutoIncField
      FieldName = 'ndxy_id'
      ReadOnly = True
    end
    object qryNdxyndxy: TBCDField
      DisplayLabel = #20225#19994#24180#24230#25928#30410
      FieldName = 'ndxy'
      Precision = 19
    end
    object qryNdxynian: TIntegerField
      DisplayLabel = #24180
      FieldName = 'nian'
    end
  end
  object dsNdxy: TDataSource
    DataSet = qryNdxy
    Left = 296
    Top = 8
  end
end