u_facard.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Facard;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Form_base, DB, ADODB, ExtCtrls, ComCtrls, StdCtrls, Buttons,
  Grids, DBGridEh;

type
  TF_FaCard = class(TF_Form_base)
    Panel1: TPanel;
    Label1: TLabel;
    d1: TDateTimePicker;
    Label2: TLabel;
    d2: TDateTimePicker;
    Edit1: TEdit;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    Label4: TLabel;
    Panel2: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RadioButton3: TRadioButton;
    BitBtn4: TBitBtn;
    DBGridEh1: TDBGridEh;
    Q_mainEmp_id: TStringField;
    Q_mainEmp_name: TStringField;
    Q_mainnewIC: TStringField;
    Q_mainoldIC: TStringField;
    Q_mainFdate: TDateTimeField;
    Q_mainMemo: TStringField;
    Q_mainFAction: TStringField;
    BitBtn3: TBitBtn;
    Q_mainEmp_bmname: TStringField;
    BitBtn5: TBitBtn;
    RadioButton4: TRadioButton;
    BitBtn6: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_FaCard: TF_FaCard;

implementation

uses U_Departselect, U_data, U_Facard_child;

{$R *.dfm}

procedure TF_FaCard.FormShow(Sender: TObject);
begin
  inherited;
  D1.Date := date;
  D2.Date := date;
end;

procedure TF_FaCard.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  application.CreateForm(TF_Departselect, F_Departselect);
  if F_Departselect.ShowModal = mrok then
    Edit1.Text := F_Departselect.SDep_name;
end;

procedure TF_FaCard.BitBtn3Click(Sender: TObject);
begin
  inherited;
  Sql_S := '';
  Sql_s := 'Select * from TB_EmployCard where Convert(varchar(12),Fdate,120)>=''' + datetostr(D1.Date)
    + ''' and Convert(varchar(12),Fdate,120)<''' + Datetostr(D2.Date + 1) + '''';
  if Trim(edit1.Text) <> '' then
    Sql_s := Sql_s + ' and EMP_bmname=''' + Trim(edit1.Text) + '''';
  if Trim(edit2.Text) <> '' then
    Sql_s := Sql_s + ' and Emp_id=''' + Trim(edit2.text) + '''';
end;

procedure TF_FaCard.RadioButton2Click(Sender: TObject);
begin
  inherited;
  Bitbtn3.Click;
  Sql_s := sql_s + ' and Faction like ''%补卡%'' order by Fdate';
  Sql_change(Q_main, Sql_s);
end;


procedure TF_FaCard.BitBtn1Click(Sender: TObject);
begin
  inherited;
  application.CreateForm(TF_Facard_child, F_Facard_child);
  F_facard_child.Caption := '员工发卡';
  F_facard_child.BitBtn1.Caption := '发卡';
  if F_Facard_child.ShowModal = mrok then
  begin
    Q_main.Close;
    Q_main.Open;
  end;
  F_Facard_child.Release;
end;

procedure TF_FaCard.RadioButton3Click(Sender: TObject);
begin
  inherited;
  Bitbtn3.Click;
  Sql_change(Q_main, Sql_s+' order by Fdate');
end;

procedure TF_FaCard.BitBtn2Click(Sender: TObject);
begin
  inherited;
  application.CreateForm(TF_Facard_child, F_Facard_child);
  F_facard_child.Caption := '员工补卡';
  F_facard_child.BitBtn1.Caption := '补卡';
  if F_Facard_child.ShowModal = mrok then
  begin
    Q_main.Close;
    Q_main.Open;
  end;
  F_Facard_child.Release;
end;

procedure TF_FaCard.BitBtn5Click(Sender: TObject);
begin
  inherited;
  application.CreateForm(TF_Facard_child, F_Facard_child);
  F_facard_child.Caption := '员工退卡';
  F_facard_child.BitBtn1.Caption := '退卡';
  if F_Facard_child.ShowModal = mrok then
  begin
    Q_main.Close;
    Q_main.Open;
  end;
  F_Facard_child.Release;
end;

procedure TF_FaCard.RadioButton4Click(Sender: TObject);
begin
  inherited;
  Bitbtn3.Click;
  Sql_s := sql_s + ' and Faction like ''%退卡%'' order by Fdate';
  Sql_change(Q_main, Sql_s);
end;

procedure TF_FaCard.RadioButton1Click(Sender: TObject);
begin
  inherited;
  Bitbtn3.Click;
  Sql_s := sql_s + ' and Faction like ''%发卡%'' order by Fdate';
  Sql_change(Q_main, Sql_s);
end;

procedure TF_FaCard.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  inherited;
 MYDBGridEHDrawColumnCelL(DBGRIDEH1, Rect, Datacol, Column, State);
end;

procedure TF_FaCard.BitBtn6Click(Sender: TObject);
begin
  inherited;
Close;
end;

initialization
  RegisterClass(TF_FaCard);

end.