unit8.pas

来自「人力资源管理系统的源代码和毕业论文 人力资源管理系统是一个典型的信息管理系」· PAS 代码 · 共 93 行

unit Unit8;

interface

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

type
  TForm8 = 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;
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
     procedure VisibleChanging; override;//
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit21;
  procedure TForm8.VisibleChanging;
begin
end;
{$R *.dfm}

procedure TForm8.Button4Click(Sender: TObject);
begin
form21.setEdit(edit1);
form21.WindowState:=wsNormal;
form21.Visible:=true;
end;

procedure TForm8.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
         if not  adotable1.Locate('姓名',edit1.Text,[])   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;
          end
           else
          showmessage('此人已离职');
          //visible:=false;
    end
end;
end;

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

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

end.