unit9.pas

人力资源管理系统的源代码和毕业论文 人力资源管理系统是一个典型的信息管理系统(MIS)

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids,unit10, DB, ADODB, ComCtrls;

type
  TForm9 = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label17: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    Button4: TButton;
    ADOTable1: TADOTable;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
     procedure VisibleChanging; override;//
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit21, Unit22;
  procedure TForm9.VisibleChanging;
begin
end;
{$R *.dfm}

procedure TForm9.Button4Click(Sender: TObject);
begin
form22.setEdit(edit1,edit3);
form22.WindowState:=wsNormal;
form22.Visible:=true;
end;

procedure TForm9.Button2Click(Sender: TObject);
begin
 if edit1.Text='' then showmessage('请输入姓名')
  else
  if edit2.Text='' then showmessage('请输入去向')
   else
    if memo1.Text='' then showmessage('请输离职原因')
    else
begin
 if messagedlg('确实要修改此离职信息？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
          adotable1.Edit;
          //adotable1.Append;
          adotable1.FieldByName('姓名').AsString:=edit1.Text;
          adotable1.FieldByName('离职去向').AsString:=edit2.Text;
          adotable1.FieldByName('离职日期').AsString:=DateToStr(DateTimePicker1.Date);
          adotable1.FieldByName('离职原因').AsString:=memo1.Text;
          adotable1.post;
          edit1.Text:='';
          edit2.Text:='';
          memo1.Text:='';
          //showmessage('添加成功');
          visible:=false;
    end
end;
end;

procedure TForm9.Button3Click(Sender: TObject);
begin
visible:=false;
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
visible:=false;
end;

procedure TForm9.FormActivate(Sender: TObject);
begin

 if edit1.Text<>'' then
 begin
 adotable1.Locate('姓名',edit1.Text,[]);
 if not adotable1.Eof  then
  begin
          edit2.Text:=adotable1.FieldByName('离职去向').AsString;
          DateTimePicker1.Date:=strtoDate(adotable1.FieldByName('离职日期').AsString);
          memo1.Text:=adotable1.FieldByName('离职原因').AsString;
 end;
 end;
end;

end.