u_rs_dm.pas

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

unit U_RS_DM;

interface

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

type
  TRS_DM = class(TDataModule)
    Q_empdata: TQuery;
    Q_employees: TQuery;
    T_yjbm: TTable;
    T_ejbm: TTable;
    T_yjbmyjbm_id: TIntegerField;
    T_yjbmyjbm_name: TStringField;
    DT_yjbm: TDataSource;
    DT_ejbm: TDataSource;
    T_ejbmejbm_id: TIntegerField;
    T_ejbmyjbmid: TIntegerField;
    T_ejbmejbm_name: TStringField;
    DQ_empdata: TDataSource;
    Q_empdataemp_id: TIntegerField;
    Q_empdatadep_id: TIntegerField;
    Q_empdatawork_num: TStringField;
    Q_empdatacard_num: TStringField;
    Q_empdataname: TStringField;
    Q_empdatateamsid: TIntegerField;
    DQ_employees: TDataSource;
    Q_employeesemp_id: TIntegerField;
    Q_employeescardnum: TStringField;
    Q_employeesIC_id: TStringField;
    Q_employeesbirthday: TStringField;
    Q_employeesIn_date: TStringField;
    Q_employeesNow_add: TStringField;
    Q_employeesTelePhone: TStringField;
    Q_employeeshome_ori: TStringField;
    Q_employeeshome_add: TStringField;
    Q_employeeshome_mem: TStringField;
    Q_employeeshome_relation: TStringField;
    Q_employeesgrd_sch: TStringField;
    Q_employeesgrd_zy: TStringField;
    Q_employeesgrd_date: TDateTimeField;
    Q_employeesdegree: TStringField;
    Q_employeessex: TStringField;
    Q_employeesMarry: TStringField;
    Q_temp1: TQuery;
    Q_temp: TQuery;
    procedure Q_empdataAfterScroll(DataSet: TDataSet);
    procedure DT_ejbmDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
    emptotal,empyjnum,empejnum:integer;
  end;

var
  RS_DM: TRS_DM;

implementation

{$R *.DFM}

procedure TRS_DM.Q_empdataAfterScroll(DataSet: TDataSet);
begin
  with Q_employees do
    begin
      close;
      sql.Clear;
      sql.Add('select * from employees where emp_id='+inttostr(Q_empdata.fieldbyname('emp_id').asinteger));
      open;
    end;   
end;

procedure TRS_DM.DT_ejbmDataChange(Sender: TObject; Field: TField);
begin
  with Q_empdata do
    begin
      close;
      sql.Clear;
      sql.Add('select * from empdata where dep_id='+inttostr(T_ejbm.fieldbyname('ejbm_id').asinteger));
      open;
    end;
  empejnum:=Q_empdata.RecordCount;
  with Q_temp1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from V_yj_ej_emp where yjbm_id='+T_yjbm.fieldbyname('yjbm_id').asstring);
      open;
    end;
  empyjnum:=Q_temp1.RecordCount;

end;

end.