djrxm.pas

实现人力资源的管理

unit djrxm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  Tdjrxmfrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  djrxmfrm: Tdjrxmfrm;

implementation

uses dbdata, ygfz;

{$R *.dfm}

procedure Tdjrxmfrm.SpeedButton1Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
   begin
      with data.ADOpublic do
         begin
            edit;
            fieldbyname('是否离职').Value:='否';
            fieldbyname('复职日期').Value:=date();
            fieldbyname('所属部门').Value:=ygfzfrm.ComboBox1.Text;
            fieldbyname('职务').Value:=ygfzfrm.ComboBox2.Text;
            fieldbyname('职称').Value:=ygfzfrm.ComboBox3.Text;
            fieldbyname('登记人').Value:=trim(edit1.Text);
            post;
         end;
            application.MessageBox('复职成功','提示',64);
            self.OnShow(sender);
   end
else
   application.MessageBox('请输处登记人姓名！','提示',64);
end;

end.