Delphi小区能源管理系统 第14页

Delphi小区能源管理系统 第14页
5.3.13 锁定当前用户（UFrmLockuser.pas）
锁定当前用户，实现思想和方法：当操作员短暂离开的时候可以利用此功能保证信息安全，通过对全局变量的认证来实现。采用窗体的ShowModal方法实现。
当[返回工作台]按钮点击之后代码实现：
procedure TFrmLockuser.Button1Click(Sender: TObject);
begin
//完成用户锁定功能；
 if dm.Gpwd = edit1.Text  then//判断你输入的和全局变量dm.Gpwd是否相同
  begin
   self.Close;//如果相同锁定窗体关闭，解除锁定。
   edit1.Text:='';
  end
 else
   showmessage('     密码错误    ');
end;
5.3.14 更换背景图片（Ufrmmain.pas）
设计思想和实现方法：此设计实现了，按自己的爱好设置系统得背景图片，此设置为全局设置，一经设置任何操作员登录后背景都将发生变化。使用OpenDialog获取图片要更换图片的全路径，并且存放到config.ini文件中，当系统登陆的时候读取相应得文件路径，主窗体上的image会根据这个路径加载
 
图5—20 更换背景图片
当点击[打开]按钮时代码实现：
procedure Tfrmmain.OpenDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
//修改ini文件中的路径名字，下次启动时加载此文件。
dm.setini('application','background',OpenDialog1.FileName);
showmessage('背景图片在下次登陆时更新');
end;
5.3.15 数据库连接配置程序（DBconfiger.exe）
实现思想和方法：配置系统的配置文件config.ini，在系统的主窗体登陆的时候动态读取这个配置参数，并且在密码上面加入了加密机制。

 
图5—21 设置数据库连接程序

点击[设置]按钮时代码实现：
procedure TFconfig.BitBtn1Click(Sender: TObject);
 var tmpini:Tinifile;
begin
   tmpini:=TIniFile.Create(extractfiledir(application.ExeName)+'\confige.ini');
    tmpini.WriteString('config','dbname',edit1.text);
    tmpini.WriteString('config','dbusername',edit2.text);
    tmpini.WriteString('config','dbpwd',Decrypt(edit3.text,'love'));
    tmpini.UpdateFile;
    tmpini.Free;
    showmessage('设置成功，并退出！') ;
    application.Terminate;
end;
5.3.16 更换用户(Login.pas)
实现思想和方法：更新系统登陆之后的全局变量：操作员，密码和权限。此步骤和登陆窗体代码实现完全一样。 
图5—22 等换用户窗口

小结，以上为系统得功能描述，具体代码可以在后面的[部分原代码]部分。 
第6章 调试及测试
在软件生命周期的每个阶段都不可避免地会产生差错。调试的目的就是在软件投入生产性运行之前，尽可能多地发现软件中的错误。目前软件测试仍然是保证软件质量的的关键步骤，它是对软件规格说明、设计和编码的最后复审。仅就调试而言，它的目标是发现软件中的错误，但是，发现错误并不是我们的最终目的。它的根本目标是尽可能多地发现并排除软件中潜藏的错误，最终把一个高质量的软件系统交给用户使用。
6.1 功能调试
6.1.1 链接调试
链接测试可分为两个方面：与数据库的连接调试；功能模块之间的连接调试。首先，连接数据库，如果连接数据库异常，如果异常系统会提示你检查数据库运行状态，并自动启动[数据库连接配置程序]，修改保存数据库连接配置，然后再次登陆；保证系统能够正常登录，证明数据库连接调试正常。
其次，登录成功后调试各个功能模块儿。在设计得好的软件系统中，每个模块完成一个清晰定义的子功能，而且这个子功能和同级其他模块的功能之间没有相互依赖关系。因此，有可能把每个模块作为一个单独的实体来调试，而且通常比较容易设计检验模块正确性的调试方案。模块调试的目的是保证每个模块作为一个单元能正确运行，所以模块调试通常又成为单元调试。在这个调试步骤中所发现的往往是编码和详细设计的错误。
6.1.2 数据库调试
在管理系统技术中，数据库起着重要的作用，数据库为管理系统、运行、查询和实现用户对数据存储的请求等提供空间。在管理系统中，最常用的数据库类型是关系型数据库，可以使用SQL对信息进行处理
由于本系统在数据库设计时考虑比较周全，再加上指导老师的细心指导，系统运行时数据库没有报错差生，发生的异常也已经通过delphi异常处理机制进行了相应的处理。

 << 上一页  [11] [12] [13] [14] [15] 下一页

Delphi小区能源管理系统 第14页下载如图片无法显示或论文不完整，请联系qq752018766