unit3.pas

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

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label17: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DateTimePicker1: TDateTimePicker;
    Button3: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
       procedure VisibleChanging; override;//
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
 procedure TForm3.VisibleChanging;
begin
end;
{$R *.dfm}

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

procedure TForm3.DBGrid1CellClick(Column: TColumn);
begin
          if not adotable1.Eof then
          begin
          edit1.Text:=adotable1.FieldByName('姓名').AsString;
          edit2.Text:=adotable1.FieldByName('性别').AsString;
          datetimepicker1.Date:=strtodate(adotable1.FieldByName('出生日期').AsString);
          edit4.Text:=adotable1.FieldByName('年龄').AsString;
          edit5.Text:=adotable1.FieldByName('民族').AsString;
          edit6.text:=adotable1.FieldByName('政治面貌').AsString;
          edit7.text:=adotable1.FieldByName('身份证号').AsString;
          edit8.text:=adotable1.FieldByName('联系电话').AsString;
          edit9.text:=adotable1.FieldByName('住址').AsString;
          end
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  if edit1.Text='' then showmessage('请输入姓名')
  else
  if edit2.Text='' then showmessage('性别')
   else
    if edit4.Text='' then showmessage('请输入年龄')
    else
     if edit7.Text='' then showmessage('请输入身份证号')
     else
begin
 if messagedlg('确实要修改此人才信息？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
          adotable1.Edit;
          adotable1.FieldByName('姓名').AsString:=edit1.Text;
          adotable1.FieldByName('性别').AsString:=edit2.Text;
          adotable1.FieldByName('出生日期').AsString:=DateToStr(DateTimePicker1.Date);
          adotable1.FieldByName('年龄').AsString:=edit4.Text;
          adotable1.FieldByName('民族').AsString:=edit6.Text;
          adotable1.FieldByName('政治面貌').AsString:=edit5.Text;
          adotable1.FieldByName('身份证号').AsString:=edit7.Text;
          adotable1.FieldByName('联系电话').AsString:=edit8.Text;
          adotable1.FieldByName('住址').AsString:=edit8.Text;
          adotable1.Post;
    end;
 end;


end;

procedure TForm3.Button1Click(Sender: TObject);
begin
visible:=false;
end;

end.