u_facard_child.pas

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

unit U_Facard_child;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Form_base, StdCtrls, DB, ADODB, wwdblook, Wwdbdlg, ExtCtrls,
  Mask, wwdbedit, Buttons, ComCtrls;

type
  TF_Facard_child = class(TF_Form_base)
    Label1: TLabel;
    wwDBEdit1: TwwDBEdit;
    Label2: TLabel;
    wwDBEdit2: TwwDBEdit;
    Label3: TLabel;
    Shape1: TShape;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    MaskEdit1: TMaskEdit;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    wwDBEdit3: TwwDBEdit;
    Edit2: TEdit;
    Label6: TLabel;
    d1: TDateTimePicker;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    function Checkemploy(empid: string): boolean;
    { Public declarations }
  end;

var
  F_Facard_child: TF_Facard_child;

implementation

uses U_employ_select, U_data;

{$R *.dfm}

function TF_Facard_child.Checkemploy(empid: string): boolean;
begin
  Sql_s := 'Select * from TB_employ where Emp_id=''' + empid + '''';
  Sql_open(sql_S);
  if dm.Q_TempA.RecordCount = 1 then
    result := true
  else
    Result := false;
end;

procedure TF_Facard_child.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  application.CreateForm(TF_employ_select, F_employ_select);
  if F_employ_select.ShowModal = mrok then
    Edit1.Text := F_employ_select.SEmp_id;
  F_employ_select.Release;
end;

procedure TF_Facard_child.Edit1Change(Sender: TObject);
begin
  inherited;
  Sql_s := 'Select * from TB_employ where EMP_id=''' + Trim(edit1.Text) + '''';
  Sql_change(q_detail, Sql_S);

end;

procedure TF_Facard_child.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if not checkemploy(trim(edit1.Text)) then
  begin
    MessageDlg('不存在此员工，请检查工号是否正确？', mtWarning, [mbOK], 0);
    Abort;
  end;

  if maskedit1.Text <> '' then
  try
    strtoint(maskedit1.Text);
  except
    MessageDlg('新卡号不是有效数据，请输入数字！', mtWarning, [mbOK], 0);
    maskedit1.SetFocus;
    abort;
  end;


  if Bitbtn1.Caption = '发卡' then
  begin
    if wwdbedit2.Text <> '' then
    begin
      MessageDlg('此员工已发卡!', mtWarning, [mbOK], 0);
      abort;
    end;
    if maskedit1.Text = '' then
    begin
      MessageDlg('新卡号不能为空，请你输入新卡号！', mtWarning, [mbOK], 0);
      maskedit1.SetFocus;
      abort;
    end;
    Sql_s := 'insert into TB_EmployCard (Emp_id,Emp_name,Emp_bmname,NewIC,oldIC,memo,Faction,Fdate) values ('''
      + Trim(edit1.Text) + ''',''' + wwdbedit1.Text + ''',''' + wwdbedit3.Text + ''',''' + maskedit1.Text + ''',''' + wwdbedit2.Text
      + ''',''' + Edit2.Text + ''',''发卡'',Convert(Varchar(30),Getdate(),120))';
  end;


  if Bitbtn1.Caption = '补卡' then
  begin
    if wwdbedit2.Text = '' then
    begin
      MessageDlg('此员工还没发卡！', mtWarning, [mbOK], 0);
      abort;
    end;
    if maskedit1.Text = '' then
    begin
      MessageDlg('新卡号不能为空，请你输入新卡号！', mtWarning, [mbOK], 0);
      maskedit1.SetFocus;
      abort;
    end;
    Sql_s := 'insert into TB_EmployCard (Emp_id,Emp_name,Emp_bmname,NewIC,oldIC,memo,Faction,Fdate) values ('''
      + Trim(edit1.Text) + ''',''' + wwdbedit1.Text + ''',''' + wwdbedit3.Text + ''',''' + maskedit1.Text + ''',''' + wwdbedit2.Text
      + ''',''' + Edit2.Text + ''',''补卡'',Getdate())';
  end;

  if Bitbtn1.Caption = '退卡' then
  begin
    if wwdbedit2.Text = '' then
    begin
      MessageDlg('此员工还没发卡！', mtWarning, [mbOK], 0);
      abort;
    end;
    Sql_s := 'insert into TB_EmployCard (Emp_id,Emp_name,Emp_bmname,NewIC,oldIC,memo,Faction,Fdate) values ('''
      + Trim(edit1.Text) + ''',''' + wwdbedit1.Text + ''',''' + wwdbedit3.Text + ''',''' + maskedit1.Text + ''',''' + wwdbedit2.Text
      + ''',''' + Edit2.Text + ''',''退卡'',Getdate())';
  end;
  sql_exec(sql_s);

  Sql_s := 'Update TB_employ set Emp_iccard=''' + maskedit1.Text + ''' where Emp_id='''+Edit1.Text+'''';
  Sql_exec(sql_s);
  F_Facard_child.ModalResult := mrok;
end;

procedure TF_Facard_child.BitBtn2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_Facard_child.FormShow(Sender: TObject);
begin
  inherited;
D1.Date:=Date;
end;

end.