|
图4-4
内容来自论文无忧网 www.paper51.com 图4-5工资管理系统操作员管理界面 copyright paper51.com （3）数据备份 http://www.paper51.com
内容来自论文无忧网 www.paper51.com 图4-6工资管理系统数据备份界面 paper51.com 管理员负责每隔一段时间对数据库对进备份，防止在数据以外丢失时不至于找不回以前的记录。备份是很重要的一个工作，由于考虑到客户机子硬盘和速度关系，我没有设置定时自动完全备份，所以管理员最好每2周对数据库进行一次完全备份。 copyright paper51.com （4）重新登录 copyright paper51.com 重新登录就是在登录一次系统的进入窗体，不过它并没有将软件从内存中释放从而加快了管理员的操作，只有在系统退出时软件才从内存中释放。注意在登录窗口中密码不能为空，每个管理员不能以空做为自己的密码。其N-S图如图4-7： http://www.paper51.com
内容来自www.paper51.com 图4-7 内容来自论文无忧网 www.paper51.com
copyright paper51.com
图4-8工资管理系统登录界面 内容来自论文无忧网 www.paper51.com
第五章 编 码 http://www.paper51.com 本系统的所有代码都是在Delphi7.0下完成的，利用Delphi在数据库方面的特性和其强大的功能，运用它强大的界面设计功能，让我能将我的想法在界面中得到实现。在整个编码构成中由于Delphi7.0组件的强大支持，节省了很多时间和精力。 paper51.com 如下是关于系统管理模块的代码： 内容来自www.paper51.com 〈1 操作员管理 内容来自www.paper51.com procedure Tmainform.mnuChangePasswordClick(Sender:TObject); copyright paper51.com begin copyright paper51.com if not assigned(operateform) then 内容来自www.paper51.com begin copyright paper51.com
Application.CreateForm(Toperateform, operateform); paper51.com
operateform.Show; 内容来自www.paper51.com end paper51.com else 内容来自www.paper51.com begin paper51.com operateform.Show; copyright paper51.com
operateform.WindowState:=wsNormal; copyright paper51.com end; 内容来自www.paper51.com end; http://www.paper51.com 〈2修改密码 内容来自论文无忧网 www.paper51.com
procedure Tmainform.N17Click(Sender: TObject); 内容来自www.paper51.com begin copyright paper51.com if not assigned(changepasswordform) then paper51.com begin paper51.com Application.CreateForm(Tchangepasswordform, changepasswordform); 内容来自论文无忧网 www.paper51.com changepasswordform.Show; http://www.paper51.com end http://www.paper51.com else copyright paper51.com
begin http://www.paper51.com changepasswordform.Show; 内容来自论文无忧网 www.paper51.com changepasswordform.WindowState:=wsNormal; copyright paper51.com end; 内容来自www.paper51.com end; copyright paper51.com 〈3数据备份 内容来自论文无忧网 www.paper51.com procedure Tmainform.mnuOperatorClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com begin http://www.paper51.com
if notassigned(databackform) then 内容来自www.paper51.com
begin paper51.com Application.CreateForm(Tdatabackform, databackform); paper51.com
beifen:=true; paper51.com databackform.Show; paper51.com
end 内容来自www.paper51.com else 内容来自论文无忧网 www.paper51.com begin 内容来自www.paper51.com beifen:=true; paper51.com databackform.Show; 内容来自www.paper51.com databackform.WindowState:=wsNormal; 内容来自论文无忧网 www.paper51.com end; http://www.paper51.com
end; 内容来自www.paper51.com 〈4数据还原 paper51.com
procedure Tmainform.N3Click(Sender: TObject); paper51.com
begin http://www.paper51.com if not assigned(databackform) then 内容来自论文无忧网 www.paper51.com begin http://www.paper51.com Application.CreateForm(Tdatabackform, databackform); 内容来自www.paper51.com huiyuan:=true; 内容来自www.paper51.com databackform.Show; copyright paper51.com end http://www.paper51.com else copyright paper51.com
begin copyright paper51.com
huiyuan:=true; http://www.paper51.com databackform.Show; 内容来自论文无忧网 www.paper51.com databackform.WindowState:=wsNormal; copyright paper51.com end; http://www.paper51.com
end; 内容来自www.paper51.com 〈5历史表数据初始化 内容来自论文无忧网 www.paper51.com procedure Tmainform.N22Click(Sender: TObject); 内容来自www.paper51.com begin copyright paper51.com
ifApplication.MessageBox('您是否继续进行初始化！，是 或 否?','提示信息',mb_YesNo)=IDYes then 内容来自论文无忧网 www.paper51.com begin 内容来自论文无忧网 www.paper51.com self.Caption:='工资历史资料初始化....'; 内容来自www.paper51.com
dmform.history.Active:=true; 内容来自论文无忧网 www.paper51.com dmform.history.First; copyright paper51.com
while notdmform.history.Eof do 内容来自www.paper51.com
begin paper51.com dmform.history.Delete; 内容来自论文无忧网 www.paper51.com dmform.history.Next; copyright paper51.com
end; copyright paper51.com MessageDlg('初始化完毕！',mtWarning,[mbOK],0); http://www.paper51.com end; copyright paper51.com self.Caption:='工资管理系统'; 内容来自www.paper51.com
end; copyright paper51.com 〈6更改操作员 内容来自www.paper51.com procedure Tmainform.N8Click(Sender: TObject); paper51.com
begin 内容来自论文无忧网 www.paper51.com checkform.denglu:=true; paper51.com passing:=false; 内容来自www.paper51.com mainform.Hide; 内容来自论文无忧网 www.paper51.com checkform.show; 内容来自www.paper51.com
checkform.Position:=poScreenCenter; 内容来自论文无忧网 www.paper51.com
// Application.CreateForm(Tcheckform, checkform); copyright paper51.com end; copyright paper51.com 〈7系统初始化 内容来自论文无忧网 www.paper51.com procedure Tmainform.N6Click(Sender: TObject); 内容来自论文无忧网 www.paper51.com begin http://www.paper51.com
ifApplication.MessageBox('您确定要进行初始化吗，它将删除所有的数据，最好将记录备份，默认的管理员是admin，密码11!，Yes OrNo?','提示信息',mb_YesNo)=IDYes then copyright paper51.com
begin copyright paper51.com
{ //删除记录时间表 paper51.com dmform.checktime.Active:=true; http://www.paper51.com
if not dmform.checktime.IsEmpty then 内容来自论文无忧网 www.paper51.com begin copyright paper51.com dmform.checktime.First; 内容来自论文无忧网 www.paper51.com while notdmform.checktime.Eof do paper51.com begin 内容来自www.paper51.com dmform.checktime.Delete; 内容来自论文无忧网 www.paper51.com
dmform.checktime.Next; copyright paper51.com end; http://www.paper51.com
end; 内容来自www.paper51.com
dmform.checktime.Active:=false; } paper51.com //删除检测表 http://www.paper51.com
dmform.checks.Active:=true; 内容来自www.paper51.com while notdmform.checks.IsEmpty do 内容来自论文无忧网 www.paper51.com begin http://www.paper51.com dmform.checks.First; http://www.paper51.com while notdmform.checks.Eof do paper51.com begin paper51.com dmform.checks.Delete; paper51.com dmform.checks.Next; 内容来自www.paper51.com
end; copyright paper51.com end; 内容来自论文无忧网 www.paper51.com dmform.checks.Active:=false; 内容来自www.paper51.com
paper51.com |