DELPHI036人才管理系统DELPHI036人才管理系统正常借阅模块:该模块界面设计明了大方,放置的信息尽可能满足实际DELPHI036人才管理系统用户的需要,使用操作上最大的特点是用户可以只用键盘便能完成所有的DELPHI036人才管理系统借书操作,文本框、按钮之间的切换都可以采用“回车键”来操作,DELPHI036人才管理系统从这方面,系统设计上充分考虑了用户的实际操作方式,避免“键盘”DELPHI036人才管理系统与“鼠标”之间的来回更换,而导致用户的工作效率降低。DELPHI036人才管理系统主要代码如下:procedureDELP...
正常借阅模块:该模块界面设计明了大方,放置的信息尽可能满足实际DELPHI036人才管理系统用户的需要,使用操作上最大的特点是用户可以只用键盘便能完成所有的DELPHI036人才管理系统借 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 操作,文本框、按钮之间的切换都可以采用“回车键”来操作,DELPHI036人才管理系统从这方面,系统设计上充分考虑了用户的实际操作方式,避免“键盘”DELPHI036人才管理系统与“鼠标”之间的来回更换,而导致用户的工作效率降低。
DELPHI036人才管理系统主要代码如下:
procedureDELPHI036人才管理系统TForm2.Button1Click(Sender:TODELPHI036人才管理系统bject);
begin
&nbsDELPHI036人才管理系统p;ifedit1.Text=''thenshowmesDELPHI036人才管理系统sage('请输入姓名')
elseDELPHI036人才管理系统
ifedit2.Text=''DELPHI036人才管理系统thenshowmessage('性别')
DELPHI036人才管理系统 ifedit4.Text=''DELPHI036人才管理系统thenshowmessage('请输入年龄')
DELPHI036人才管理系统 else
&DELPHI036人才管理系统nbsp; ifediDELPHI036人才管理系统t7.Text=''thenshowmessage('请输入DELPHI036人才管理系统身份证号')
&nbsDELPHI036人才管理系统p; else
begin
ifmessagedlg('确实要增加此人DELPHI036人才管理系统才信息?',mtInformation,[mbOK,mbCaDELPHI036人才管理系统ncel],0)=mrokthen
&nbDELPHI036人才管理系统sp; begin
&DELPHI036人才管理系统nbsp; &nbDELPHI036人才管理系统sp; adotable1DELPHI036人才管理系统.Edit;
&DELPHI036人才管理系统nbsp; &nDELPHI036人才管理系统bsp;adotable1.Append;
&DELPHI036人才管理系统nbsp; &nDELPHI036人才管理系统bsp; adotable1.DELPHI036人才管理系统FieldByName('姓名').AsString:=edDELPHI036人才管理系统it1.Text;
&nbsDELPHI036人才管理系统p; &DELPHI036人才管理系统nbsp;adotable1.FieldByName('性DELPHI036人才管理系统别').AsString:=edit2.Text;
&nbsDELPHI036人才管理系统p; DELPHI036人才管理系统adotable1.FieldByName('年龄').AsStrDELPHI036人才管理系统ing:=edit4.Text;
DELPHI036人才管理系统 DELPHI036人才管理系统 adotable1.FieldDELPHI036人才管理系统ByName('民族').AsString:=edit5.TeDELPHI036人才管理系统xt;
&nbDELPHI036人才管理系统sp;  DELPHI036人才管理系统;adotable1.FieldByName('政治面貌'DELPHI036人才管理系统).AsString:=edit6.Text;
&nDELPHI036人才管理系统bsp; &nDELPHI036人才管理系统bsp; adotableDELPHI036人才管理系统1.FieldByName('身份证号').AsStringDELPHI036人才管理系统:=edit7.Text;
DELPHI036人才管理系统 &nbDELPHI036人才管理系统sp; adotable1.FieldByNamDELPHI036人才管理系统e('联系电话').AsString:=edit8.Text;DELPHI036人才管理系统
&nbDELPHI036人才管理系统sp;  DELPHI036人才管理系统;adotable1.FieldByName('住址').AsSDELPHI036人才管理系统tring:=edit9.Text;
 DELPHI036人才管理系统; &nbDELPHI036人才管理系统sp; adotable1.FieldDELPHI036人才管理系统ByName('职务类别').AsString:=edit1DELPHI036人才管理系统0.Text;
DELPHI036人才管理系统 &DELPHI036人才管理系统nbsp;adotable1.FieldByName('所任职务DELPHI036人才管理系统').AsString:=edit11.Text;
&nbsDELPHI036人才管理系统p; DELPHI036人才管理系统 adotable1.FieldByNDELPHI036人才管理系统ame('所属行业').AsString:=edit13.TexDELPHI036人才管理系统t;
&nDELPHI036人才管理系统bsp; &nDELPHI036人才管理系统bsp;adotable1.FieldByName('所属专业DELPHI036人才管理系统').AsString:=edit14.Text;
DELPHI036人才管理系统 &nDELPHI036人才管理系统bsp; adotablDELPHI036人才管理系统e1.FieldByName('技术职务').AsStringDELPHI036人才管理系统:=edit15.Text;
&DELPHI036人才管理系统nbsp; &nbDELPHI036人才管理系统sp; adotable1.post;
&DELPHI036人才管理系统nbsp; //shDELPHI036人才管理系统owmessage('添加成功');
&nbDELPHI036人才管理系统sp; &DELPHI036人才管理系统nbsp; //visible:=faDELPHI036人才管理系统lse;
DELPHI036人才管理系统end
end;
end;
procedureTDELPHI036人才管理系统FrmLendAdd.FormCreate(Sender:TObjDELPHI036人才管理系统ect);
begin
adotaDELPHI036人才管理系统ble1.Active:=true;
endDELPHI036人才管理系统;
procedDELPHI036人才管理系统ureTFrmLendAdd.FormClose(SendDELPHI036人才管理系统er:TObject;varAction:TCloseADELPHI036人才管理系统ction);
begin
visiDELPHI036人才管理系统ble:=false;
end;
DELPHI036人才管理系统
procedureTFrmLenDELPHI036人才管理系统dAdd.Button1Click(Sender:TObject)DELPHI036人才管理系统;
begin
visibleDELPHI036人才管理系统:=false;
end;
&nbsDELPHI036人才管理系统p;
procedureTFrmLendAddDELPHI036人才管理系统.FormActivate(Sender:TObject);
begin
adotable1.DELPHI036人才管理系统Active:=false;
adotable1.CDELPHI036人才管理系统lose;
adotable1.Open; adotable1.Active:=true;
end;
DELPHI036人才管理系统
该模块在使用时,操作也很简练,只要提供当DELPHI036人才管理系统要删除某一用户信息时,在Grid中单击即可,即将选中用户选为DELPHI036人才管理系统当前用户;再按删除按钮执行删除操作即可。界面如图3-4, &nDELPHI036人才管理系统bsp; &nDELPHI036人才管理系统bsp;  DELPHI036人才管理系统; DELPHI036人才管理系统 &nDELPHI036人才管理系统bsp; &nbDELPHI036人才管理系统sp; 图3-4 procedureTForm3.ButDELPHI036人才管理系统ton2Click(Sender:TObject); begin ifnot aDELPHI036人才管理系统dotable1.Eofthen begin adotable1.Delete;
edDELPHI036人才管理系统it1.Text:='';
edit2.TextDELPHI036人才管理系统:='';
edit4.Text:='';
DELPHI036人才管理系统edit5.Text:='';
edDELPHI036人才管理系统it6.Text:='';
edit7.Text:=DELPHI036人才管理系统'';
edit8.Text:='';
edit9.Text:='';
endDELPHI036人才管理系统;
end;
procedureTForm3.Button1CDELPHI036人才管理系统lick(Sender:TObject);
visible:=false;
end;
DELPHI036人才管理系统end.
DELPHI036人才管理系统该模块实现对学习简历信息的管理。界面如图3-5
DELPHI036人才管理系统 DELPHI036人才管理系统
图3-5
以下是关键性代码,通过执行命令按钮的脚本来实现这个模DELPHI036人才管理系统块的核心功能。
声明部分关键变量
物理结构设计的原则如下:
(1) 尽可能的减少数据冗余和重复。DELPHI036人才管理系统
(2) 结构设计与操作设计相结合DELPHI036人才管理系统。
(3) 数据结构具有相对的稳DELPHI036人才管理系统定性。
由于本系统是应用在单机系统上,为了便于数据DELPHI036人才管理系统库的使用和维护,本系统只建立起一个数据库,在此数据库基础上建DELPHI036人才管理系统立起如下5张表:
l &DELPHI036人才管理系统nbsp;  DELPHI036人才管理系统;人才基本信息表 base_info
l &nbsDELPHI036人才管理系统p; 学习信息表DELPHI036人才管理系统 study_info
lDELPHI036人才管理系统 DELPHI036人才管理系统 工作信息表 &nbsDELPHI036人才管理系统p;work_info
l &nDELPHI036人才管理系统bsp; &nbDELPHI036人才管理系统sp; 培训 焊锡培训资料ppt免费下载焊接培训教程 ppt 下载特设培训下载班长管理培训下载培训时间表下载 信息表 trDELPHI036人才管理系统ain_info
l &nbDELPHI036人才管理系统sp; &nbDELPHI036人才管理系统sp;奖惩信息表 jc_info
DELPHI036人才管理系统l &DELPHI036人才管理系统nbsp; 离职信息表&DELPHI036人才管理系统nbsp; lz_info
用户表&nbDELPHI036人才管理系统sp; &nbsDELPHI036人才管理系统p; DELPHI036人才管理系统admin
下面具体介绍表结构:
字段名DELPHI036人才管理系统
数据类型
DELPHI036人才管理系统宽度DELPHI036人才管理系统
小数位数
是否为空
编号
数据型
6
/
N
N
姓名
字符型
10
/
N
Y
性别
字符型
8
/
N