论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > DELPHI >

A400118工资管理系统

图4-4

http://www.paper51.com

图4-5工资管理系统操作员管理界面 paper51.com

(3)数据备份 内容来自论文无忧网 www.paper51.com

http://www.paper51.com

图4-6工资管理系统数据备份界面

内容来自www.paper51.com

管理员负责每隔一段时间对数据库对进备份,防止在数据以外丢失时不至于找不回以前的记录。备份是很重要的一个工作,由于考虑到客户机子硬盘和速度关系,我没有设置定时自动完全备份,所以管理员最好每2周对数据库进行一次完全备份。

内容来自论文无忧网 www.paper51.com

(4)重新登录 内容来自论文无忧网 www.paper51.com

重新登录就是在登录一次系统的进入窗体,不过它并没有将软件从内存中释放从而加快了管理员的操作,只有在系统退出时软件才从内存中释放。注意在登录窗口中密码不能为空,每个管理员不能以空做为自己的密码。其N-S图如图4-7: copyright paper51.com

内容来自www.paper51.com

图4-7 copyright paper51.com

内容来自www.paper51.com

图4-8工资管理系统登录界面 内容来自www.paper51.com

第五章 编  码 copyright paper51.com

本系统的所有代码都是在Delphi7.0下完成的,利用Delphi在数据库方面的特性和其强大的功能,运用它强大的界面设计功能,让我能将我的想法在界面中得到实现。在整个编码构成中由于Delphi7.0组件的强大支持,节省了很多时间和精力。

内容来自www.paper51.com

如下是关于系统管理模块的代码:

http://www.paper51.com

〈1 操作员管理 内容来自论文无忧网 www.paper51.com

procedure Tmainform.mnuChangePasswordClick(Sender:TObject); 内容来自论文无忧网 www.paper51.com

begin

内容来自论文无忧网 www.paper51.com

   if not assigned(operateform) then 内容来自www.paper51.com

   begin

内容来自www.paper51.com

    Application.CreateForm(Toperateform, operateform);

http://www.paper51.com

    operateform.Show; paper51.com

   end

内容来自www.paper51.com

  else copyright paper51.com

   begin

内容来自www.paper51.com

   operateform.Show; copyright paper51.com

   operateform.WindowState:=wsNormal; 内容来自www.paper51.com

   end; 内容来自论文无忧网 www.paper51.com

end; http://www.paper51.com

〈2修改密码 copyright paper51.com

procedure Tmainform.N17Click(Sender: TObject); paper51.com

begin

http://www.paper51.com

   if not assigned(changepasswordform) then 内容来自论文无忧网 www.paper51.com

   begin http://www.paper51.com

    Application.CreateForm(Tchangepasswordform, changepasswordform);

copyright paper51.com

    changepasswordform.Show;

copyright paper51.com

   end paper51.com

  else http://www.paper51.com

   begin copyright paper51.com

   changepasswordform.Show; 内容来自论文无忧网 www.paper51.com

   changepasswordform.WindowState:=wsNormal;

内容来自论文无忧网 www.paper51.com

   end; paper51.com

end;

内容来自论文无忧网 www.paper51.com

〈3数据备份 http://www.paper51.com

procedure Tmainform.mnuOperatorClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com

begin

paper51.com

 if notassigned(databackform) then paper51.com

   begin 内容来自论文无忧网 www.paper51.com

    Application.CreateForm(Tdatabackform, databackform);

内容来自www.paper51.com

    beifen:=true; http://www.paper51.com

    databackform.Show; 内容来自论文无忧网 www.paper51.com

   end copyright paper51.com

  else 内容来自www.paper51.com

   begin copyright paper51.com

   beifen:=true;

paper51.com

   databackform.Show;

内容来自www.paper51.com

   databackform.WindowState:=wsNormal; 内容来自www.paper51.com

   end;

内容来自www.paper51.com

end;

内容来自论文无忧网 www.paper51.com

〈4数据还原 内容来自论文无忧网 www.paper51.com

procedure Tmainform.N3Click(Sender: TObject); 内容来自论文无忧网 www.paper51.com

begin http://www.paper51.com

if not assigned(databackform) then

内容来自www.paper51.com

   begin

内容来自论文无忧网 www.paper51.com

    Application.CreateForm(Tdatabackform, databackform); 内容来自www.paper51.com

    huiyuan:=true;

内容来自www.paper51.com

    databackform.Show;

内容来自www.paper51.com

   end paper51.com

  else

http://www.paper51.com

   begin

内容来自www.paper51.com

   huiyuan:=true;

paper51.com

   databackform.Show; 内容来自论文无忧网 www.paper51.com

   databackform.WindowState:=wsNormal; paper51.com

   end; copyright paper51.com

end; http://www.paper51.com

〈5历史表数据初始化 paper51.com

procedure Tmainform.N22Click(Sender: TObject); 内容来自www.paper51.com

begin

copyright paper51.com

 ifApplication.MessageBox('您是否继续进行初始化!,是 或 否?','提示信息',mb_YesNo)=IDYes  then copyright paper51.com

 begin paper51.com

 self.Caption:='工资历史资料初始化....';

内容来自www.paper51.com

 dmform.history.Active:=true; copyright paper51.com

 dmform.history.First; 内容来自论文无忧网 www.paper51.com

 while notdmform.history.Eof do paper51.com

 begin

http://www.paper51.com

 dmform.history.Delete;

copyright paper51.com

 dmform.history.Next;

http://www.paper51.com

 end; http://www.paper51.com

 MessageDlg('初始化完毕!',mtWarning,[mbOK],0);

内容来自论文无忧网 www.paper51.com

 end; http://www.paper51.com

 self.Caption:='工资管理系统';

copyright paper51.com

end; copyright paper51.com

〈6更改操作员

http://www.paper51.com

procedure Tmainform.N8Click(Sender: TObject);

copyright paper51.com

begin

http://www.paper51.com

 checkform.denglu:=true; 内容来自www.paper51.com

 passing:=false; http://www.paper51.com

  mainform.Hide;

paper51.com

  checkform.show; 内容来自www.paper51.com

  checkform.Position:=poScreenCenter;

内容来自www.paper51.com

//  Application.CreateForm(Tcheckform, checkform); 内容来自论文无忧网 www.paper51.com

end; paper51.com

〈7系统初始化

内容来自论文无忧网 www.paper51.com

procedure Tmainform.N6Click(Sender: TObject);

copyright paper51.com

begin

http://www.paper51.com

  ifApplication.MessageBox('您确定要进行初始化吗,它将删除所有的数据,最好将记录备份,默认的管理员是admin,密码11!,Yes OrNo?','提示信息',mb_YesNo)=IDYes  then

内容来自www.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

内容来自论文无忧网 www.paper51.com

     dmform.checktime.First; copyright paper51.com

      while notdmform.checktime.Eof do

paper51.com

         begin http://www.paper51.com

        dmform.checktime.Delete; paper51.com

        dmform.checktime.Next;

copyright paper51.com

       end; 内容来自论文无忧网 www.paper51.com

    end;

http://www.paper51.com

     dmform.checktime.Active:=false;    }

http://www.paper51.com

      //删除检测表 内容来自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;

copyright paper51.com

      while notdmform.checks.Eof do

http://www.paper51.com

       begin 内容来自论文无忧网 www.paper51.com

        dmform.checks.Delete; copyright paper51.com

        dmform.checks.Next;

copyright paper51.com

       end;

copyright paper51.com

    end;

内容来自论文无忧网 www.paper51.com

      dmform.checks.Active:=false;

内容来自论文无忧网 www.paper51.com

    http://www.paper51.com

------分隔线----------------------------
联系方式