u_empworktime.~pas

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

unit U_empworktime;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, ComCtrls, Db, StdCtrls, DBTables, Buttons, Mask,
  DBCtrls;

type
  TF_empworktime = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Splitter1: TSplitter;
    DBGrid2: TDBGrid;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Query1: TQuery;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label5: TLabel;
    Label6: TLabel;
    StatusBar1: TStatusBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    DBMemo1: TDBMemo;
    DBEdit1: TDBEdit;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    CheckBox2: TCheckBox;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
   
    procedure DBGrid2DblClick(Sender: TObject);
  private
    { Private declarations }
    name,worknum,empordep:string;
    Procedure Get_yjbm;
    Procedure Get_ejbm;
    Procedure Get_name;
    Procedure Get_worknum;
  public
    RPstr:string;
    { Public declarations }
  end;

var
  F_empworktime: TF_empworktime;

implementation

uses U_GS_DM, URP_empworktime, URP_yjdep_worktime, URP_ejdep_worktime,
  UQR_mdform;

{$R *.DFM}


procedure TF_empworktime.Get_worknum();
var
  Query:TQuery;
begin
  if combobox2.Text='' then exit;
  Query:=TQuery.Create(self);
  Query.DatabaseName:='person_db';
  with Query do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct work_num,name from V_yj_ej_emp where ejbm_name='+''''+combobox2.text+'''');
      open;
    end;
    combobox4.Items.Clear;
    Query.First;
    while not Query.Eof do
      begin
        combobox4.Items.Add(Query.fieldbyname('work_num').asstring+'-'+Query.fieldbyname('name').asstring);
        Query.Next;
      end;
    Query.free;
end;



procedure TF_empworktime.Get_name();
var
  Query:TQuery;
begin
  if combobox2.Text='' then exit;
  Query:=TQuery.Create(self);
  Query.DatabaseName:='person_db';
  with Query do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct name,work_num from V_yj_ej_emp where ejbm_name='+''''+combobox2.text+'''');
      open;
    end;
    combobox3.Items.Clear;
    Query.First;
    while not Query.Eof do
      begin
        combobox3.Items.Add(Query.fieldbyname('name').asstring+'-'+Query.fieldbyname('work_num').asstring);
        Query.Next;
      end;
    Query.free;
end;


procedure TF_empworktime.Get_ejbm();
var
  Query:TQuery;
begin
  if combobox1.Text='' then exit;
  Query:=TQuery.Create(self);
  Query.DatabaseName:='person_db';
  with Query do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct ejbm_name from V_yjbm_ejbm where yjbm_name='+''''+combobox1.text+'''');
      open;
    end;
    combobox2.Items.Clear;
    Query.First;
    while not Query.Eof do
      begin
        combobox2.Items.Add(Query.fieldbyname('ejbm_name').asstring);
        Query.Next;
      end;
    Query.free;

end;


procedure TF_empworktime.Get_yjbm();
var
  Query:TQuery;
begin
  Query:=TQuery.Create(self);
  Query.DatabaseName:='person_DB';
  with Query do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct yjbm_name from V_yjbm_ejbm');
      open;
    end;
    combobox1.Items.Clear;
    Query.First;
    while not Query.Eof do
      begin
        combobox1.Items.Add(Query.fieldbyname('yjbm_name').asstring);
        Query.Next;
      end;
    Query.free;
end;


procedure TF_empworktime.FormDestroy(Sender: TObject);
begin
  F_empworktime:=nil;
end;

procedure TF_empworktime.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  GS_DM.V_empworktime.Close;
  Action:=caFree;
end;

procedure TF_empworktime.FormCreate(Sender: TObject);
begin
  Get_yjbm;
end;

procedure TF_empworktime.ComboBox2Click(Sender: TObject);
begin
  Get_name;
  Get_worknum;
end;

procedure TF_empworktime.ComboBox1Click(Sender: TObject);
begin
  Get_ejbm;
end;

procedure TF_empworktime.ComboBox3Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 12 do
  if copy(combobox3.text,i,1)='-' then
     break;
  name:=copy(combobox3.text,1,i-1);
end;

procedure TF_empworktime.ComboBox4Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 12 do
  if copy(combobox4.text,i,1)='-' then
     break;
  worknum:=copy(combobox4.text,1,i-1);
end;

procedure TF_empworktime.ComboBox4Change(Sender: TObject);
begin
  if Length(TRim(Combobox4.text))=6 then
     worknum:=combobox4.Text;
end;

procedure TF_empworktime.SpeedButton1Click(Sender: TObject);
begin
  GS_DM.V_empworktime.Close;
  if (Length(Trim(Maskedit1.Text))<>10)or(Length(Trim(Maskedit2.Text))<>10) then
    begin
      Application.MessageBox('⊿Τタ絋