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

Delphi小区能源管理系统 第13页
[确认设置]按钮点击之后代码实现为：
procedure TfrmLXsz.Button2Click(Sender: TObject);
begin
 if ((edit2.text<>edit3.text) and (edit2.text<>edit4.text) and (edit2.text<>edit5.text) and (edit3.text<>edit4.text) and (edit3.text<>edit5.text) and (edit5.text<>edit4.text)) then
    begin
      dm.setini('SystemshortCuts','cbycb',edit2.Text);
      dm.setini('SystemshortCuts','czysf',edit3.Text);
      dm.setini('SystemshortCuts','AZB',edit4.Text);
      dm.setini('SystemshortCuts','yzxx',edit5.Text);
      //设置完成之后立刻生效。
      frmmain.getHotKey;
      showmessage('快捷键设置成功');
    end
 else IF ((edit2.text='') or (edit3.text='') or (edit4.text='') or (edit5.text='')) then
    begin
      dm.setini('SystemshortCuts','cbycb',edit2.Text);
      dm.setini('SystemshortCuts','czysf',edit3.Text);
      dm.setini('SystemshortCuts','AZB',edit4.Text);
      dm.setini('SystemshortCuts','yzxx',edit5.Text);
       //设置完成之后立刻生效。
      frmmain.getHotKey;
      showmessage('快捷键设置成功！');
    end
      else
    begin
      showmessage('快捷键重复，请重新设置！');
    end;end;
5.3.11 清除历史数据（UFrmQCSJ.pas）
设计思想：用户系统测试期间或者长久使用之后，数据库中会累计很多的数据，提供此功能来初始化系统，具体完成除了日志数据和操作员数据之外所有数据的清理工作，并记录日志，操作不可逆，通过adocommand执行要删除表的命令（例如：truncate table cbsfxx;）此权限慎重分配。

 
图5—16  清除历史数据

[清楚……]按钮点击后代码实现：
procedure TFrmQCSJ.Button1Click(Sender: TObject);
begin
 if ((application.MessageBox('是否真的要清除数据？','确认信息',mb_okcancel)=idok) and CheckBox1.Checked) then
    begin
     //Do something here....
      if Truncatee then
//truncatee负责truncate ('bxx') ('yzxx') ('cbsfxx');
//('bakcbsfxx');
       begin
       dm.SetLogFile(dm.Glogontime,datetimetostr(now),DM.Guser,'清！除！历！史！数！据！');
       ProBar('数据清除成功，写日志成功！');
       end
      else
       begin
        showmessage('数据库操作失败');
       end;
    end
  else
    begin
     showmessage('操作被取消');
    end;
end;
5.3.12 修改密码（UFrmChangepwd.pas）
修改密码，实现思想，系统登陆之后，会设置一个全局变量保存此值，通过认证老密码之后才可以修改当前登陆操作员的密码，不可以修改别人的密码；接收密码的edit都是密码格式。
点击修改的代码实现：
procedure TFrmChangepwd.Button1Click(Sender: TObject);
 var tmpds:TADODataSet ;//声明一个tmpds。
     tmpstr:string;
 begin
tmpds:=TADODataSet.Create(nil);//声明后需要动态创建。
with tmpds do
 begin
  Connection :=dm.ADOc ;//指定adoconnection
 
图5—17 当前用户密码修改

Active:=false;
CommandText:='select * from czyinfo where name='''+dm.Guser+'''';
  //获取，当前登录操作员的信息。
  Active:=true;
 end;
 tmpstr:=dm.Encrypt(tmpds.FieldByName('pwd').asstring,'love');
//通过取得到加密的密码，然后通过解密函数进行解密操作。获取原来密码。
  if edit1.Text = tmpstr then
  begin
  if edit2.Text =edit3.Text then
    with tmpds do
       begin
       edit;
       Fieldbyname('pwd').Value :=dm.Decrypt(edit2.Text,'love');//修改之后，通过加密函数加
//密，然后存储到数据库。
       post;
       showmessage('密 码 修 改 成 功');
       self.Close;
       end
    else
     showmessage('确认密码错误，请从新输入');
    end
  else
  showmessage('旧密码输入错误，请重新输入');

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

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