u_xm.pas

来自「人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实」· PAS 代码 · 共 56 行

unit U_xm;

interface

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

type
  Tfrm_srxm = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_srxm: Tfrm_srxm;

implementation

uses U_data, U_ygfz;

{$R *.dfm}

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

end;

end.