考勤管理系统源程序与论文.docVIP

考勤管理系统源程序与论文 BRBRBRBR本窗口共添加了3个Label组件，1考勤管理系统源程序与论文 个ComboBox组件，1个Edit组件，1个Bevel组件，1个考勤管理系统源程序与论文 Image组件，2个BitBtn组件和1个GroupBox组考勤管理系统源程序与论文 件，并安排布局如下图。BRnbsp;BR完成了登录窗体考勤管理系统源程序与论文 的设计之后，需要进行事件的分析和处理。首先对主页中的Label考勤管理系统源程序与论文 3的OnClick和OnMouseDown事件添加以下的代码考勤管理系统源程序与论文 ，功能是当用户将鼠标移动到该组件上时，出现超链接的效果，同时启动考勤管理系统源程序与论文 邮件收发程序向指定的电子邮件地址发信息。BRprocedure 考勤管理系统源程序与论文 TPassworddlg.Label4Click(Sender: 考勤管理系统源程序与论文 TObject);BRbeginBRShellExecu考勤管理系统源程序与论文 te(handle,nil,pchar(mailto:qijing考勤管理系统源程序与论文 ang1974@),nil,nil,sw_s考勤管理系统源程序与论文 hownormal);BRend;BRprocedu考勤管理系统源程序与论文 re TPassworddlg.FormMouseMove(Send考勤管理系统源程序与论文 er: TObject; Shift: TShiftState;考勤管理系统源程序与论文 X,BRnbsp; Y: Integer);BRbegi考勤管理系统源程序与论文 nBRLabel4.Font.Color :=clmaroon考勤管理系统源程序与论文 ;BRend;BR接下来在系统登录窗体的OnCreate事件考勤管理系统源程序与论文 中进行INI配置文件的设置与初始化。在事件的右边窗格中双击鼠标考勤管理系统源程序与论文 ，即可打空的事件处理句柄，用户可在此进行编辑。程序代码如下。考勤管理系统源程序与论文 BRprocedure TPassworddlg.FormC考勤管理系统源程序与论文 reate(Sender: TObject);BRvarBR考勤管理系统源程序与论文 nbsp;nbsp; datafile:file;BRn考勤管理系统源程序与论文 bsp;nbsp; NumRead,NumWrite,ii:i考勤管理系统源程序与论文 nteger;BRnbsp;nbsp; siz:longin考勤管理系统源程序与论文 t;BRnbsp;nbsp; FileOk:boole考勤管理系统源程序与论文 an;BRnbsp;nbsp; buf:string考勤管理系统源程序与论文 [60];BRbeginBRnbsp;FileOk:=tr考勤管理系统源程序与论文 ue;BRnbsp;assignfile(datafil考勤管理系统源程序与论文 e,sys.ini);BRnbsp;if fileexi考勤管理系统源程序与论文 sts(sys.ini)=false thenBRnb考勤管理系统源程序与论文 sp;fileok:=falseBRnbsp;else考勤管理系统源程序与论文 BRnbsp;beginBRnbsp;reset(dat考勤管理系统源程序与论文 afile);BRnbsp;siz:=filesize考勤管理系统源程序与论文 (datafile);BRnbsp;if sizlt;24 考勤管理系统源程序与论文 thenBRnbsp;fileok:=false;BRe考勤管理系统源程序与论文 nd;BRif fileok=false thenBR考勤管理系统源程序与论文 beginBRnbsp; rewrite(datafil考勤管理系统源程序与论文 e,1);BRnbsp; buf:=system;考勤管理系统源程序与论文 BRnbsp; blockwrite(datafile,考勤管理系统源程序与论文 buf,12,numwrite);BRnbsp; buf:考勤管理系统源程序与论文 =system;BRnbsp; blockwrite(da考勤管理系统源程序与论文 tafile,buf,12,numwrite);BRnbsp考勤管理系统源程序与论文 ; buf:=renshi;BRnbsp; blockwr考勤管理系统源程序与论文 ite(datafile,buf,12,numwrite);考勤管理系统源程序与论文 BRnbsp; buf:=renshi;BRnbsp考勤管理系统源程序与论文 ; blockwrite(datafile,buf,12,num考勤管理系统源程序与论文 write);B