unit2.pas

基于delphi的人才管理系统。可实现所有基本功能。

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label17: TLabel;
    GroupBox2: TGroupBox;
    Label11: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label18: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    GroupBox3: TGroupBox;
    Label21: TLabel;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label20: TLabel;
    Label15: TLabel;
    Button1: TButton;
    Button2: TButton;
    DateTimePicker1: TDateTimePicker;
    ADOTable1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
      procedure VisibleChanging; override;//
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

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

procedure TForm2.Button1Click(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.Append;
          adotable1.FieldByName('姓名').AsString:=edit1.Text;
          adotable1.FieldByName('性别').AsString:=edit2.Text;
          adotable1.FieldByName('出生日期').AsString:=DateToStr(DateTimePicker1.Date);
          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:=edit10.Text;
          adotable1.FieldByName('所任职务').AsString:=edit11.Text;
          adotable1.FieldByName('工作单位').AsString:=edit12.Text;
          adotable1.FieldByName('所属行业').AsString:=edit13.Text;
          adotable1.FieldByName('所属专业').AsString:=edit14.Text;
          adotable1.FieldByName('技术职务').AsString:=edit15.Text;
          adotable1.post;
          //showmessage('添加成功');
          //visible:=false;
    end
end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';

end;

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

procedure TForm2.Button2Click(Sender: TObject);
begin
visible:=false;
end;

end.