u_employmove.pas

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

unit U_Employmove;

interface

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

type
  TF_EmployMove = class(TF_Form_base)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Panel2: TPanel;
    R1: TRadioButton;
    R2: TRadioButton;
    R4: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Dbgrideh1: TDBGridEh;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Q_mainEmp_id: TStringField;
    Q_mainEmp_name: TStringField;
    Q_mainEmp_sex: TStringField;
    Q_mainEmp_bmcode: TStringField;
    Q_mainEmp_bmname: TStringField;
    Q_mainEmp_Gz: TStringField;
    Q_mainEmp_ZW: TStringField;
    Q_mainEmp_type: TStringField;
    Q_mainEmp_grade: TStringField;
    Q_mainEmp_comedate: TDateTimeField;
    Q_mainEmp_testday: TIntegerField;
    Q_mainEmp_Reallydate: TDateTimeField;
    Q_mainSid: TGuidField;
    Q_mainEmp_ICcard: TStringField;
    procedure SpeedButton1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure R2Click(Sender: TObject);
    procedure R4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_EmployMove: TF_EmployMove;

implementation

uses U_Departselect, U_data, U_Select, U_employmove_child,
  U_employmove_lizhi;

{$R *.dfm}

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

procedure TF_EmployMove.R1Click(Sender: TObject);
begin
  inherited;


  Sql_s := 'Select * From TB_employ where 1=1';
  if Edit1.Text<> '' then
     Sql_s:=sql_s+' and emp_bmname='''+edit1.text+'''';
  Sql_change(Q_main, sql_s);

end;

procedure TF_EmployMove.BitBtn5Click(Sender: TObject);
begin
  inherited;
  DM.PrintDBGrid.DBGridEh := DBGridEh1;
  Dm.PrintDBGrid.Preview;
end;

procedure TF_EmployMove.R2Click(Sender: TObject);
begin
  inherited;


  Sql_s := 'Select * from TB_employ where Emp_type like ''%正式%''';
    if Edit1.Text<> '' then
     Sql_s:=sql_s+' and emp_bmname='''+edit1.text+'''';

  Sql_change(q_main, Sql_s);
end;

procedure TF_EmployMove.R4Click(Sender: TObject);
begin
  inherited;


  Sql_s := 'Select * from TB_Employ where Emp_type like ''%试用%''';
    if Edit1.Text<> '' then
     Sql_s:=sql_s+' and emp_bmname='''+edit1.text+'''';

  Sql_change(q_main, Sql_s);
end;

procedure TF_EmployMove.BitBtn7Click(Sender: TObject);
begin
  inherited;
  application.CreateForm(TF_select, F_select);
  F_select.Mquery:=Q_main;
  if F_select.ShowModal = mrok then
  begin
  //查找记录模块 待加++++++++++++++++++++++++++++
    Sql_s := 'Select * From TB_employ where 1=1 ' + F_Select.Rsql;
    Sql_change(Q_main, Sql_s);
    SQL_S := 'INSERT INTO TB_SYS_LOG (UCODE,Dotime,TITLE,Havedo)VALUES(''' + LOGIN_CODE + ''',Convert(varchar(20),GetDate(),20),''' + CAPTION + ''',''查找记录'')';
    Insert_log(sql_s);
  end;

end;

procedure TF_EmployMove.BitBtn8Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_EmployMove.BitBtn1Click(Sender: TObject);
begin
  inherited;
if (Q_main.State in [dsInactive]) then exit;
if Q_main.RecordCount=0 then exit;
application.CreateForm(TF_employmove_child,F_employmove_child);
if F_employmove_child.ShowModal=mrok then
   MessageDlg('调动成功！', mtInformation, [mbOK], 0);

end;

procedure TF_EmployMove.BitBtn2Click(Sender: TObject);
begin
  inherited;
if (Q_main.State in [dsInactive]) then exit;
if Q_main.RecordCount=0 then exit;
application.CreateForm(TF_employMove_lizhi,F_employMove_lizhi);
F_employMove_lizhi.ShowModal;
end;

initialization
  RegisterClass(TF_EmployMove);

end.