else
基于Delphi的人事管理系统的设计与开发
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;
21
出生日期
基于Delphi的人事管理系统的设计与开发
//showmessage('添加成功'); //visible:=false; end end; end;
procedure TFrmLendAdd.FormCreate(Sender: TObject); begin
adotable1.Active:=true; end; procedure TFrmLendAdd.FormClose(Sender: TObject; TCloseAction);
begin visible:=false; end;
procedure TFrmLendAdd.Button1Click(Sender: TObject); begin visible:=false; end;
procedure TFrmLendAdd.FormActivate(Sender: TObject); begin
adotable1.Active:=false; adotable1.Close; adotable1.Open; adotable1.Active:=true; end;
22
var Action:
基于Delphi的人事管理系统的设计与开发
5.2.2 人才信息修改模块
该模块在使用时，操作也很简练，只要提供当要删除某一用户信息时，在Grid中单击即可,即将选中用户选为当前用户；再按删除按钮执行删除操作即可。界面如图3-4,
图5-3
以下是关键性代码，通过执行命令按钮的脚本来实现这个模块的核心功能。 procedure TForm3.Button2Click(Sender: TObject); begin
if not adotable1.Eof then begin
adotable1.Delete; adotable1.Refresh; edit1.Text:='';
23
edit2.Text:=''; edit4.Text:=''; edit5.Text:=''; edit6.Text:=''; edit7.Text:=''; edit8.Text:=''; edit9.Text:=''; end; end;
基于Delphi的人事管理系统的设计与开发
procedure TForm3.Button1Click(Sender: TObject); begin visible:=false; end; end.
5.2.3 学习简历信息管理模块
该模块实现对学习简历信息的管理。界面如图3-5
24
