u_kqgl.dfm

一个很不错的人事考勤系统,功能齐全,附带源码.

      TabOrder = 15
      OnClick = BitBtn5Click
    end
  end
  object Panel2: TPanel
    Left = 512
    Top = 4
    Width = 265
    Height = 121
    BorderWidth = 2
    BorderStyle = bsSingle
    Color = clSilver
    TabOrder = 3
    Visible = False
    object Label4: TLabel
      Left = 16
      Top = 8
      Width = 112
      Height = 13
      Caption = #34987#36984#20013#30340#21729#24037#25976#65306
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #27161#26999#39636
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 139
      Top = 5
      Width = 3
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton4: TSpeedButton
      Left = 176
      Top = 3
      Width = 73
      Height = 21
      Cursor = crHandPoint
      Caption = #21462#28040#25490#29677
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton4Click
    end
    object Label13: TLabel
      Left = 139
      Top = 99
      Width = 17
      Height = 16
      Caption = 'To'
    end
    object ListBox1: TListBox
      Left = 13
      Top = 24
      Width = 236
      Height = 73
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      OnMouseUp = ListBox1MouseUp
    end
    object MaskEdit3: TMaskEdit
      Left = 59
      Top = 97
      Width = 71
      Height = 24
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '    /  /  '
      OnChange = MaskEdit3Change
      OnDblClick = MaskEdit3DblClick
    end
    object MaskEdit4: TMaskEdit
      Left = 161
      Top = 98
      Width = 70
      Height = 24
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 2
      Text = '    /  /  '
    end
    object CheckBox2: TCheckBox
      Left = 1
      Top = 98
      Width = 51
      Height = 17
      Caption = 'From'
      TabOrder = 3
    end
  end
  object Q_kqdata: TQuery
    CachedUpdates = True
    DatabaseName = 'person_DB'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT machine_num, card_num, date_YMD, date_T, check_char, end_' +
        'char, empid'
      'FROM dbo.KQ_data Dbo_kq_data')
    Left = 216
    Top = 416
  end
  object Q_timestable: TQuery
    CachedUpdates = True
    DatabaseName = 'person_DB'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT cardnum, workday, moringup, char1, moringdown, char2, aft' +
        'ernoonup, char3, afternoondown, char4, eveningup, char5, evening' +
        'down, char6, exceptionclass, teamsid, empid'
      'FROM dbo.timestable Dbo_timestable')
    Left = 344
    Top = 416
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'person_DB'
    Left = 288
    Top = 304
  end
  object Q_temp: TQuery
    CachedUpdates = True
    DatabaseName = 'person_DB'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT cardnum, workday, moringup, char1, moringdown, char2, aft' +
        'ernoonup, char3, afternoondown, char4, eveningup, char5, evening' +
        'down, char6, exceptionclass, teamsid, empid'
      'FROM dbo.timestable Dbo_timestable'
      'order by cardnum')
    Left = 408
    Top = 416
  end
  object Query1: TQuery
    CachedUpdates = True
    DatabaseName = 'person_DB'
    RequestLive = True
    SQL.Strings = (
      '')
    Left = 88
    Top = 416
  end
  object DS_SBdata: TDataSource
    DataSet = DM.Q_SBdata
    OnStateChange = DS_SBdataStateChange
    OnDataChange = DS_SBdataDataChange
    Left = 192
    Top = 352
  end
  object Query2: TQuery
    CachedUpdates = True
    DatabaseName = 'person_DB'
    RequestLive = True
    SQL.Strings = (
      'SELECT check_char, date_YMD, Card_num'
      'FROM dbo.For_V_selecterror Dbo_for_v_selecterror')
    Left = 152
    Top = 416
  end
  object Q_tempkqdata: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'SELECT distinct card_num, date_YMD'
      'FROM dbo.KQ_data Dbo_kq_data')
    Left = 480
    Top = 416
  end
  object Q_timestable_temp: TQuery
    CachedUpdates = True
    DatabaseName = 'person_DB'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT cardnum, workday, moringup, char1, moringdown, char2, aft' +
        'ernoonup, char3, afternoondown, char4, eveningup, char5, evening' +
        'down, char6, exceptionclass, teamsid, empid'
      'FROM dbo.timestable Dbo_timestable')
    Left = 576
    Top = 416
  end
  object MainMenu1: TMainMenu
    Left = 64
    Top = 352
    object data: TMenuItem
      Caption = #32771#21220#25976#25818'(&D)'
      GroupIndex = 1
      object N27: TMenuItem
        Caption = #35712#32771#21220#27231#25976#25818
        OnClick = N27Click
      end
      object N1: TMenuItem
        Caption = #20998#26512#32771#21220#25976#25818
        OnClick = N1Click
      end
      object read: TMenuItem
        Caption = #39023#31034#39006#21029
        object N2: TMenuItem
          Caption = #27491#24120#25171#21345
          OnClick = N2Click
        end
        object N13: TMenuItem
          Caption = #20197#19979#25152#26377#39006#22411
          OnClick = N13Click
        end
        object N3: TMenuItem
          Caption = #19978#21320#19978#29677#36978#21040
          OnClick = N3Click
        end
        object N4: TMenuItem
          Caption = #19978#21320#19978#29677#27794#25171#21345
          OnClick = N4Click
        end
        object N5: TMenuItem
          Caption = #19978#21320#19979#29677#26089#36864
          OnClick = N5Click
        end
        object N6: TMenuItem
          Caption = #19978#21320#19979#29677#27794#25171#21345
          OnClick = N6Click
        end
        object N7: TMenuItem
          Caption = #19979#21320#19978#29677#36978#21040
          OnClick = N7Click
        end
        object N8: TMenuItem
          Caption = #19979#21320#19978#29677#27794#25171#21345
          OnClick = N8Click
        end
        object N9: TMenuItem
          Caption = #19979#21320#19979#29677#26089#36864
          OnClick = N9Click
        end
        object N12: TMenuItem
          Caption = #19979#21320#19979#29677#27794#25171#21345
          OnClick = N12Click
        end
        object N10: TMenuItem
          Caption = #26202#19978#29677#36229#26178
          OnClick = N10Click
        end
        object N11: TMenuItem
          Caption = #26202#38291#19978#29677#27794#25171#21345
          OnClick = N11Click
        end
        object N20: TMenuItem
          Caption = #26202#19979#29677#25552#21069
          OnClick = N20Click
        end
        object N14: TMenuItem
          Caption = #26202#38291#19979#29677#27794#25171#21345
          OnClick = N14Click
        end
        object N25: TMenuItem
          Caption = #27298#28204#30070#26085#27794#25171#21345
          OnClick = N25Click
        end
      end
      object N16: TMenuItem
        Caption = #34389#29702#30064#24120
        object N17: TMenuItem
          Caption = #22240#25490#29677#19981#27491#30906
          object N15: TMenuItem
            Caption = #37325#26032#25490#29677
            OnClick = N15Click
          end
          object N43: TMenuItem
            Caption = #25490#29677#24460#37325#26032#20998#26512
            OnClick = N43Click
          end
        end
        object N18: TMenuItem
          Caption = #21487#31639#27491#24120#25171#21345
          OnClick = N18Click
        end
        object N42: TMenuItem
          Caption = #25163#24037#25490#21015
          OnClick = N42Click
        end
        object N19: TMenuItem
          Caption = #37325#26032#25972#29702
          Hint = #25163#21205#25490#21015#24460#21487#20197#38568#26178#20877#27425#20998#26512
          OnClick = N19Click
        end
        object N26: TMenuItem
          Caption = #22240#25171#21345#27231#22750
          OnClick = N26Click
        end
        object N22: TMenuItem
          Caption = #25918#20837#30064#24120#21015#34920
          Hint = #24478#27491#24120#25171#21345#34920#20013#36820#22238#30064#24120#25171#21345#21015#34920
          OnClick = N22Click
        end
      end
      object N21: TMenuItem
        Caption = #36820#22238
        OnClick = N21Click
      end
    end
  end
  object Q_SBdata: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      '')
    Left = 248
    Top = 352
  end
  object DS_data: TDataSource
    DataSet = Q_data
    Left = 248
    Top = 128
  end
  object Q_data: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'select * from bk_kq_data')
    Left = 296
    Top = 128
    object Q_datamachine_num: TStringField
      DisplayLabel = #27231#22120#34399
      FieldName = 'machine_num'
      Origin = 'PERSON_DB.bk_kq_data.machine_num'
      FixedChar = True
      Size = 2
    end
    object Q_datacard_num: TStringField
      DisplayLabel = #21345#34399
      FieldName = 'card_num'
      Origin = 'PERSON_DB.bk_kq_data.card_num'
      FixedChar = True
      Size = 10
    end
    object Q_datadate_YMD: TStringField
      DisplayLabel = #25171#21345#26085#26399
      FieldName = 'date_YMD'
      Origin = 'PERSON_DB.bk_kq_data.date_YMD'
      FixedChar = True
      Size = 10
    end
    object Q_datadate_T: TStringField
      DisplayLabel = #26178#38291
      FieldName = 'date_T'
      Origin = 'PERSON_DB.bk_kq_data.date_T'
      FixedChar = True
      Size = 4
    end
    object Q_datacheck_char: TStringField
      DisplayLabel = #27161#35672
      FieldName = 'check_char'
      Origin = 'PERSON_DB.bk_kq_data.check_char'
      FixedChar = True
      Size = 1
    end
    object Q_dataend_char: TStringField
      FieldName = 'end_char'
      Origin = 'PERSON_DB.bk_kq_data.end_char'
      FixedChar = True
      Size = 1
    end
    object Q_dataempid: TIntegerField
      FieldName = 'empid'
      Origin = 'PERSON_DB.bk_kq_data.empid'
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.QV_dep_emp_holi
    Left = 72
    Top = 200
  end
  object PopupMenu1: TPopupMenu
    Left = 128
    Top = 352
    object N24: TMenuItem
      Caption = #38283#21855#31383#21475
      OnClick = N24Click
    end
    object N23: TMenuItem
      Caption = #25918#20837#24453#25171#21360
      Enabled = False
      OnClick = N23Click
    end
  end
end