u_employmove_child.pas

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

unit U_employmove_child;

interface

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

type
  TF_employmove_child = class(TF_Form_base)
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Panel1: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Shape1: TShape;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Panel2: TPanel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    wwDBComboBox8: TwwDBComboBox;
    wwDBComboBox3: TwwDBComboBox;
    Label11: TLabel;
    d1: TDateTimePicker;
    Label12: TLabel;
    DBEdit7: TDBEdit;
    Label13: TLabel;
    Memo: TMemo;
    procedure wwDBComboBox8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure wwDBComboBox8Enter(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    Forderno: integer;
    function Getmaxorderno(): integer;
    { Public declarations }
  end;

var
  F_employmove_child: TF_employmove_child;

implementation

uses U_Employmove, U_data, U_Departselect;

{$R *.dfm}

function TF_employmove_child.Getmaxorderno(): integer;
begin
  sql_s := 'Select isnull(max(orderno),''0'') as s from TB_employ_move';
// Result:=Dm.Q_TempA.Fields[0].AsInteger+1;
 //showmessage(Dm.Q_TempA.Fields[0].AsString);
end;

procedure TF_employmove_child.wwDBComboBox8KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  inherited;
  if key <> 112 then EXIT;
  SET_COM_ITEM('F_employ' + '-' + TWWDBCOMBOBOX(sender).NAME, 'TB_Employ', TWWDBCOMBOBOX(SENDER).DATAFIELD);
  SET_WWCOM(TwwDBCOMBOBOX(sender), 'F_employ' + '-' + TwwDBCOMBOBOX(sender).NAME);
end;

procedure TF_employmove_child.BitBtn2Click(Sender: TObject);
begin
  inherited;

 close;
end;

procedure TF_employmove_child.wwDBComboBox8Enter(Sender: TObject);
begin
  inherited;
  SET_WWCOM(TwwDBCOMBOBOX(sender), 'F_employ' + '-' + TwwDBCOMBOBOX(sender).NAME);
end;

procedure TF_employmove_child.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  application.CreateForm(TF_departselect, F_departselect);
  if F_departselect.ShowModal = mrok then
  begin
    Edit1.Text := F_departselect.SDep_id;
    Edit2.Text := F_departselect.SDep_name;
  end;
end;

procedure TF_employmove_child.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if (edit1.Text = '') and (wwdbcombobox3.Text = '') and (wwdbcombobox8.Text = '') then exit;
  try
    begin
      if Edit1.text <> '' then
      begin
        Sql_s := 'update TB_employ set Emp_bmcode=''' + edit1.Text + ''',emp_bmname=''' + edit2.Text + ''' where Emp_id=''' + Dbedit1.Text + '''';
        Sql_exec(sql_s);
        Sql_s := 'insert into TB_Employ_move (cnid,Reg_date,mov_Date,old_dep,new_dep,Mov_Reason) values(''' + dbedit7.Text + ''',''' + Datetostr(Date) + ''','''
          + datetostr(D1.Date) + ''',''' + dbedit4.Text + ''',''' + edit2.Text + ''',''' + memo.Text + ''')';
        Sql_exec(sql_s);
      end;
  //调职位
      if wwdbcombobox3.Text <> '' then
      begin
        Sql_s := 'update TB_employ set Emp_gz=''' + wwdbcombobox3.Text + ''' where Emp_id=''' + Dbedit1.Text + '''';
        Sql_exec(sql_s);
        Sql_s := 'insert into TB_Employ_move (cnid,Reg_date,mov_Date,Old_gz,new_gz,Mov_Reason) values(''' + dbedit7.Text + ''',''' + Datetostr(Date) + ''','''
         + datetostr(D1.Date) + ''',''' + dbedit5.Text + ''',''' + wwdbcombobox3.Text + ''',''' + memo.Text + ''')';
        Sql_exec(sql_s);
      end;
 //调工种
      if wwdbcombobox8.Text <> '' then
      begin
        Sql_s := 'update TB_employ set Emp_zw=''' + wwdbcombobox8.Text + ''' where Emp_id=''' + Dbedit1.Text + '''';
        Sql_exec(sql_s);
        Sql_s := 'insert into TB_Employ_move (cnid,Reg_date,mov_Date,old_pos,new_pos,Mov_Reason) values(''' + dbedit7.Text + ''',''' + Datetostr(Date) + ''','''
          + datetostr(D1.Date) + ''',''' + dbedit6.Text + ''',''' + wwdbcombobox8.Text + ''',''' + memo.Text + ''')';
        Sql_exec(sql_s);
      end;
      
    end
  except
    raise;
  end;
  F_employmove_child.ModalResult:=mrok;

end;

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

end.