u_dm.~pas

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

unit U_dm;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB;

type
  TDM = class(TDataModule)
    person_DBs: TDatabase;
    set_TB: TTable;
    T_data: TTable;
    T_teams: TTable;
    DT_teams: TDataSource;
    T_teamstime: TTable;
    DT_teamstime: TDataSource;
    T_teamstimetime_id: TIntegerField;
    T_teamstimeteamsid: TIntegerField;
    T_teamstimename: TStringField;
    T_teamstimebegin_time: TIntegerField;
    T_teamstimeend_time: TIntegerField;
    T_teamstimememo: TStringField;
    T_teamstimebegin_check: TStringField;
    T_teamstimeend_check: TStringField;
    DQ_holidaytime: TDataSource;
    Q_holidaytime: TQuery;
    DV_empholiday: TDataSource;
    T_datamachine_num: TStringField;
    T_datacard_num: TStringField;
    T_datadate_YMD: TStringField;
    T_datadate_T: TStringField;
    T_datacheck_char: TStringField;
    T_dataend_char: TStringField;
    T_dataempid: TIntegerField;
    T_teamsteams_id: TIntegerField;
    T_teamsname: TStringField;
    T_teamsoverday: TBooleanField;
    T_teamsmemo: TStringField;
    Q_SBdata: TQuery;
    Q_SBdatacardnum: TStringField;
    Q_SBdataworkday: TDateTimeField;
    Q_SBdatamoringup: TIntegerField;
    Q_SBdatachar1: TStringField;
    Q_SBdatamoringdown: TIntegerField;
    Q_SBdatachar2: TStringField;
    Q_SBdataafternoonup: TIntegerField;
    Q_SBdatachar3: TStringField;
    Q_SBdataafternoondown: TIntegerField;
    Q_SBdatachar4: TStringField;
    Q_SBdataeveningup: TIntegerField;
    Q_SBdatachar5: TStringField;
    Q_SBdataeveningdown: TIntegerField;
    Q_SBdatachar6: TStringField;
    Q_SBdataexceptionclass: TStringField;
    Q_SBdatateamsid: TIntegerField;
    Q_SBdataempid: TIntegerField;
    Q_SBdataejbm_name: TStringField;
    Q_SBdataname: TStringField;
    Q_SBdatawork_num: TStringField;
    T_teamsZBtime: TFloatField;
    T_teamsJBtime: TFloatField;
    QV_lookupkqdata: TQuery;
    QV_lookupkqdataempid: TIntegerField;
    QV_lookupkqdatayjbm_name: TStringField;
    QV_lookupkqdataejbm_name: TStringField;
    QV_lookupkqdatawork_num: TStringField;
    QV_lookupkqdataname: TStringField;
    QV_lookupkqdatateamsid: TIntegerField;
    QV_lookupkqdatamachine_num: TStringField;
    QV_lookupkqdatacard_num: TStringField;
    QV_lookupkqdatadate_YMD: TStringField;
    QV_lookupkqdatadate_T: TStringField;
    QV_lookupkqdatacheck_char: TStringField;
    Q_everydaytime: TQuery;
    QV_empholiday: TQuery;
    Q_temp: TQuery;
    Q_SBdatayjbm_name: TStringField;
    Q_holidaytimeht_id: TIntegerField;
    Q_holidaytimeempid: TIntegerField;
    Q_holidaytimeht_name: TStringField;
    Q_holidaytimeht_date: TDateTimeField;
    Q_holidaytimebegin_time: TIntegerField;
    Q_holidaytimeend_time: TIntegerField;
    Q_holidaytimetimes: TFloatField;
    Q_holidaytimememo: TStringField;
    QV_yj_ej_emp: TQuery;
    QV_dep_emp_holi: TQuery;
    QV_dep_emp_holiempid: TIntegerField;
    QV_dep_emp_holiyjbm_name: TStringField;
    QV_dep_emp_holiejbm_name: TStringField;
    QV_dep_emp_holiwork_num: TStringField;
    QV_dep_emp_holiname: TStringField;
    QV_dep_emp_holiht_name: TStringField;
    QV_dep_emp_holibegin_time: TIntegerField;
    QV_dep_emp_holiend_time: TIntegerField;
    QV_dep_emp_holitimes: TFloatField;
    QV_dep_emp_holimemo: TStringField;
    QV_dep_emp_holiyjbm_id: TIntegerField;
    QV_dep_emp_holiejbm_id: TIntegerField;
    QV_dep_emp_holiht_date: TStringField;
    Q_temp1: TQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    teamsid:integer;//锣更匡拒