DELPHI036人才管理系统..docVIP

DELPHI036人才管理系统 p正常借阅模块：该模块界面设计明了大方，放置的信息尽可能满足实际DELPHI036人才管理系统 用户的需要，使用操作上最大的特点是用户可以只用键盘便能完成所有的DELPHI036人才管理系统 借书操作，文本框、按钮之间的切换都可以采用“回车键”来操作，DELPHI036人才管理系统 从这方面，系统设计上充分考虑了用户的实际操作方式，避免“键盘”DELPHI036人才管理系统 与“鼠标”之间的来回更换，而导致用户的工作效率降低。?/PDELPHI036人才管理系统 p主要代码如下:/P pprocedure DELPHI036人才管理系统 TForm2.Button1Click(Sender: TODELPHI036人才管理系统 bject);/P pbegin/P pnbsDELPHI036人才管理系统 p;if edit1.Text= then showmesDELPHI036人才管理系统 sage(请输入姓名)/P pnbsp; elseDELPHI036人才管理系统 /P pnbsp; if edit2.Text=DELPHI036人才管理系统 then showmessage(性别)/P pDELPHI036人才管理系统 nbsp;nbsp; else/P pnbsp;DELPHI036人才管理系统 nbsp;nbsp; if edit4.Text= DELPHI036人才管理系统 then showmessage(请输入年龄)/P pDELPHI036人才管理系统 nbsp;nbsp;nbsp; else/P pDELPHI036人才管理系统 nbsp;nbsp;nbsp;nbsp; if ediDELPHI036人才管理系统 t7.Text= then showmessage(请输入DELPHI036人才管理系统 身份证号)/P pnbsp;nbsp;nbsDELPHI036人才管理系统 p;nbsp; else/P pbegin/PDELPHI036人才管理系统 pnbsp;if messagedlg(确实要增加此人DELPHI036人才管理系统 才信息？,mtInformation,[mbOK, mbCaDELPHI036人才管理系统 ncel],0)=mrok then/P pnbDELPHI036人才管理系统 sp;nbsp;nbsp; begin/P pDELPHI036人才管理系统 nbsp;nbsp;nbsp;nbsp;nbsp;nbDELPHI036人才管理系统 sp;nbsp;nbsp;nbsp; adotable1DELPHI036人才管理系统 .Edit;/P pnbsp;nbsp;nbsp;DELPHI036人才管理系统 nbsp;nbsp;nbsp;nbsp;nbsp;nDELPHI036人才管理系统 bsp; adotable1.Append;/P pDELPHI036人才管理系统 nbsp;nbsp;nbsp;nbsp;nbsp;nDELPHI036人才管理系统 bsp;nbsp;nbsp;nbsp; adotable1.DELPHI036人才管理系统 FieldByName(姓名).AsString:=edDELPHI036人才管理系统 it1.Text;/P pnbsp;nbsp;nbsDELPHI036人才管理系统 p;nbsp;nbsp;nbsp;nbsp;nbsp;DELPHI036人才管理系统 nbsp; adotable1.FieldByName(性DELPHI036人才管理系统 别).AsString:=edit2.Text;/P DELPHI036人才管理系统 pnbsp;nbsp;nbsp;nbsp;nbspDELPHI036人才管理系统 ;nbsp;nbsp;nbsp;nbsp; adotDELPHI036人才管理系统 able1.FieldByName(出生日期).AsStriDELPHI036人才管理系统 ng:=DateToStr(DateTimePicker1.DateDELPHI036人才管理系统 );/P pnbsp;nbsp;nbsp;nbsDELPHI036人才管理系统 p;nbsp;nbsp;nbsp;nbsp;nbsp;DELPHI036人才管理系统 adotable1.FieldByName(年龄).AsStrDELPHI036人才管理系统 ing:=edit4.Text;/P pnbsp;DELPHI036人才管理系统 nbsp;nbsp;nbsp;nbsp;nbsp;DELPHI036人才管理系统 nbsp;nbsp;nbsp; adotable1.FieldDELPHI036人才管理系统 By