dm1.dfm

企业员工考勤和工资管理系统

object DataModal1: TDataModal1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 174
  Top = 102
  Height = 470
  Width = 597
  object ADOConnection1: TADOConnection
    CommandTimeout = 300
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=RECKQ.mdb;Mode=Share Deny None;Extended Properties="";Jet' +
      ' OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:D' +
      'atabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database L' +
      'ocking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Glob' +
      'al Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OL' +
      'EDB:Create System Database=False;Jet OLEDB:Encrypt Database=Fals' +
      'e;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact' +
      ' Without Replica Repair=False;Jet OLEDB:SFP=False'
    ConnectionTimeout = 30
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 8
  end
  object Query1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Prepared = True
    Left = 96
    Top = 8
  end
  object Query2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 128
    Top = 8
  end
  object Query3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 160
    Top = 8
  end
  object Query4: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 192
    Top = 8
  end
  object Query5: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 224
    Top = 8
  end
  object QBanci: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_banci')
    Left = 272
    Top = 8
  end
  object QGudingban: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_gudingban')
    Left = 10
    Top = 56
  end
  object QBcmc: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select bcmc from kq_banci')
    Left = 38
    Top = 56
  end
  object QJiari: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HolidayData')
    Left = 64
    Top = 56
  end
  object QQingjia1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 104
    Top = 56
  end
  object QQingjia2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 136
    Top = 56
  end
  object QQingjia3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 168
    Top = 56
  end
  object QPbBm: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from DepartmentData order by typeno')
    Left = 208
    Top = 56
    object QPbBmtypeno: TIntegerField
      DisplayLabel = '部门编号'
      FieldName = 'typeno'
    end
    object QPbBmdescribe: TStringField
      DisplayLabel = '部门名称'
      FieldName = 'describe'
      Size = 30
    end
  end
  object QPbBz: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from groupdata order by groupno')
    Left = 240
    Top = 56
    object QPbBzgroupno: TIntegerField
      DisplayLabel = '班组编号'
      FieldName = 'groupno'
    end
    object QPbBzgroupname: TStringField
      DisplayLabel = '班组名称'
      FieldName = 'groupname'
    end
    object QPbBzdepno: TIntegerField
      DisplayLabel = '部门编号'
      FieldName = 'depno'
    end
    object QPbBzdepname: TStringField
      DisplayLabel = '部门名称'
      FieldName = 'depname'
      Size = 30
    end
  end
  object QPbAll: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select holderno,holdername,cardno,departmentname,'
      'groupname from renshi where inservice = True'
      'order by departmentno,groupno,holderno')
    Left = 272
    Top = 56
    object QPbAllholderno: TIntegerField
      DisplayLabel = '编号'
      FieldName = 'holderno'
    end
    object QPbAllholdername: TStringField
      DisplayLabel = '姓名'
      FieldName = 'holdername'
    end
    object QPbAllcardno: TIntegerField
      DisplayLabel = '卡号'
      FieldName = 'cardno'
    end
    object QPbAlldepartmentname: TStringField
      DisplayLabel = '部门'
      FieldName = 'departmentname'
      Size = 30
    end
    object QPbAllgroupname: TStringField
      DisplayLabel = '班组'
      FieldName = 'groupname'
    end
  end
  object QPbGdb: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_gudingban')
    Left = 320
    Top = 56
  end
  object QPbBc: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_banci'
      '')
    Left = 344
    Top = 56
  end
  object QPbAdd: TADOQuery
    Connection = ADOConnection1
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select ygbh,ygxm,kpbh,bmbh,bmmc,bzbh,bzmc,riqi,jiari,banci,xiuxi' +
        ','
      'sds,sd11,sd11s,sd11e,sd12,sd12s,sd12e,sd21,sd21s,sd21e,'
      
        'sd22,sd22s,sd22e,sd31,sd31s,sd31e,sd32,sd32s,sd32e from kq_paiba' +
        'n '
      'where 1 = 2')
    Top = 104
  end
  object QPbJiari: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select HolidayDay from  HolidayData')
    Left = 32
    Top = 104
  end
  object QPbYg: TADOQuery
    Connection = ADOConnection1
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 56
    Top = 104
  end
  object QBanciWf: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select bcmc,sds,sd11,sd11s,sd11e,sd12,sd12s,sd12e,sd21,sd21s,'
      'sd21e,sd22,sd22s,sd22e,sd31,sd31s,sd31e,sd32,sd32s,sd32e from'
      'kq_banci where xiuxi = 0')
    Left = 304
    Top = 8
  end
  object ADOSPYue: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'kqup_kaoqin;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@yuefen'
        Attributes = [paNullable]
        DataType = ftString
        Size = 7
        Value = Null
      end
      item
        Name = '@ksrq'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@jsrq'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end>
    Prepared = True
    Left = 352
    Top = 104
  end
  object QGzPsjb: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select fs,sj from kq_jbfs where bh = 1')
    Left = 168
    Top = 104
  end
  object QGzXxjb: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select fs from kq_jbfs where bh = 2')
    Left = 200
    Top = 104
  end
  object QGzJrjb: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select fs from kq_jbfs where bh = 3')
    Left = 232
    Top = 104
  end
  object QBbKaoQing: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'Month'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from kq_yuekaoqin where yuefen = :Month')
    Left = 8
    Top = 152
  end
  object QTxKqjLx: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select DISTINCT(kqjlx) from kq_kaoqingji')
    Left = 72
    Top = 152
  end
  object QTxSk: TADOQuery
    Connection = ADOConnection1
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select kpbh,kpid,ygbh,sksj from kq_shuaka where 1 = 2')
    Left = 144
    Top = 152
  end
  object QTxKqjBh: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'Lx'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select kqjbh,kqjmc from kq_kaoqingji where kqjlx = :Lx')
    Left = 104
    Top = 152
  end
  object QKqj: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_kaoqingji order by kqjlx,kqjbh')
    Left = 192
    Top = 160
  end
  object QGzSkwxsj: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select sj from kq_cdztsj where bh = 3')
    Left = 280
    Top = 104
  end
  object QBmWh: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from DepartmentData order by typeno')
    Left = 232
    Top = 160
  end
  object QBzWh: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from groupdata order by depno,groupno')
    Left = 264
    Top = 160
  end
  object QRenShi: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from renshi order by departmentno,groupno,holderno')
    Left = 328
    Top = 160
  end
  object QZhiWu: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_zhiwu')
    Left = 8
    Top = 208
  end
  object QZhiChen: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_zhichen')
    Left = 77
    Top = 207
  end
  object QLiZhiYY: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_lizhiyy')
    Left = 40
    Top = 207
  end
  object QYongHu: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_yonghu order by quanxian')
    Left = 126
    Top = 205
  end
  object QRenYuan: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from holderdata order by holderno')
    Left = 176
    Top = 208
  end
  object QCardWh: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from carddata order by cardno')
    Left = 223
    Top = 211
  end
  object QFaka: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from carddata where holderno is null order by cardno')
    Left = 264
    Top = 216
  end
  object ADOStoredProcTianTj: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'kqup_tiankaoqin;1'
    Parameters = <
      item
        Name = '@date'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@enddate'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end>
    Prepared = True
    Left = 24
    Top = 280
  end
  object QRiTj: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 104
    Top = 280
  end
  object QQjZl: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from kq_qingjiazl order by bianhao')
    Left = 168
    Top = 280
  end
  object QYiChang: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 216
    Top = 280
  end
  object QPbCx: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 264
    Top = 280
  end
  object QSkCx: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 304
    Top = 288
  end
  object QJbCx: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 344
    Top = 288
  end
  object QGzCd: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select sj from kq_cdztsj where bh = 1')
    Left = 96
    Top = 104
  end
  object QGzZt: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select sj from kq_cdztsj where bh = 2')
    Left = 131
    Top = 104
  end
end