u_employmove_lizhi.pas

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

unit U_employmove_lizhi;

interface

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

type
  TF_employMove_lizhi = class(TF_Form_base)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Shape1: TShape;
    d1: TDateTimePicker;
    Label5: TLabel;
    Label6: TLabel;
    Memo1: TMemo;
    DBEdit1: TDBEdit;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    R2: TRadioButton;
    R1: TRadioButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_employMove_lizhi: TF_employMove_lizhi;

implementation

uses U_Employmove, U_data;

{$R *.dfm}

procedure TF_employMove_lizhi.BitBtn1Click(Sender: TObject);
begin
  inherited;
  try
    begin
      if r1.Checked then
      begin
        Sql_s := 'insert into TB_employ_leaved Select * from TB_employ where Emp_id=''' + Dbedit2.Text + '''';
        Sql_exec(sql_s);
        Sql_s := 'update TB_employ_leaved Set Emp_type=''离职'',Emp_leavedate=''' + Datetostr(d1.Date) + ''',Emp_Reason='''+memo1.Text+''' where Emp_id=''' + dbedit2.Text + '''';
        Sql_exec(sql_s);
      end;
      Sql_s := 'Delete From TB_employ where Emp_id=''' + dbedit2.Text + '''';
      Sql_exec(sql_s);
      MessageDlg('操作成功！', mtInformation, [mbOK], 0);
    end
  except
    raise;
  end;

{
Q_main.Close;
Q_main.SQL.Clear;
Q_main.SQL.Add('e')  }

end;

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

initialization
  RegisterClass(TF_employMove_lizhi);

end.