您现在的位置：毕业论文 >> 论文 >> 正文

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

更新时间：2009-6-22: 来源：毕业论文

Delphi小区能源管理系统第11页
showmessage('数据库更新失败');
          end;
         end;
       end;
      end
else
    begin
     showmessage('信息不能为空');
    end;
initdmadods2;
   ProgressBar1.Position:=0;
end;
5.3.8 操作员管理、权限设置（Ufrmaddczy.pas）
实现系统操作员的添加删除功能，实现操作员的权限配置功能。实际思想：当操作员登录成功之后，系统会使用一个全局变量来存储这个权限字段（111111111111111…）22位的字符串，每位代表一个权限选项，1代表具备，0代表不具备。当打开此窗口的时候，如果此用户有配置权限的权利，配置权限cheakbox为可用状态，否则此处不可电击，如果具备此权限，点击[配置权限]就可以弹出权限配置窗口，完成权限的配置，提交设置完成权限字符串的写回操作。在下次操作员登录的时候被修改的操作员就具备了设置的相应权限。
确认增加按钮按下执行代码：
//确认添加一个操作员，默认权限字符串为：000001000001100000000000
procedure Tfrmaddczy.Button1Click(Sender: TObject);
begin
edit1.text:=dm.Checkuser(edit1.Text);
sleep(100);
if ((Edit1.Text <>'') and (Edit3.Text=Edit2.Text) ) then//如果都不为空值
begin
try
   begin
   dm.ADODs4.Append;//采用append方式实现插入。
   dm.ADODs4.FieldByName('name').Value :=Edit1.Text;
   dm.ADODs4.FieldByName('pwd').Value :=dm.Decrypt(Edit3.Text,'love');
   dm.ADODs4.FieldByName('purview').Value :='0000010000011000000000000';

图5—11 操作员管理窗体
   dm.ADODs4.FieldByName('tmp1').Value :=datetimetostr(DateTimePicker1.DateTime);
   dm.ADODs4.Post;
   showmessage('添加成功');
   dm.SetLogFile(dm.Glogontime,datetimetostr(now),dm.Guser,'增加操作员成功');
   end;
except
    showmessage('数据库操作异常！');
end;
end
else
showmessage('添加失败，操作员帐号不能为空，检查密码确认是否正确');
end;
//完成设置一个操作员的权限，当登陆操作员具有修改权限的权限时，点击[配置权限]系统可以产生权限配置窗口，通过鼠标选择完成权限的设置，[确定权限设置]按钮按下的时候执行的代码为：
procedure Tfrmaddczy.Button13Click(Sender: TObject);
var StrPurview,tmpname:string;
begin
    //通过checkbox点击，获取权限字符串。
    StrPurview:=GetpurviewString;
    DM.ADODs4.Edit;
    tmpname:=DBGrid1.DataSource.DataSet.FieldByName('name').Value;
    DBGrid1.DataSource.DataSet.FieldByName('purview').Value:= StrPurview;
    dm.ADODs4.Post;
    dm.SetLogFile(dm.Glogontime,datetimeTostr(now),dm.Guser,'修改['+tmpname+']的权限->'+StrPurview);
    if (DBGrid1.DataSource.DataSet.FieldByName('name').Value=dm.Guser) then
      begin
       dm.Gpurview :=StrPurview;
       showmessage('您设置了当前用户权限，设置立即生效！');
      end
     else
      begin
       showmessage('权限设置成功！');
      end;
end;
5.3.9 备份恢复数据库（UFrmshujkHuiFu、UFrmShuJuBeiFen）
为了提高系统安全性，提供了这两项功能。
备份数据库：选择要备份的路径点击[备份]系统随机产生备份的文件名.dat。
点击[备份]的代码为：
//完成数据库的备份工作
procedure TFrmShuJuBeiFen.Button1Click(Sender: TObject);
var adq:TADOQuery ;
     DBName,BackUpFileName,username,pwd:string;//定义变量
begin
ProgressBar1.Position:= 10;
dbname:=dm.getini('config','dbname','');
    try//使用ShellTreeView1完成备份路径的制定，创建备份出文件的名字
BackUpFileName:=ShellTreeView1.Path+'\'+dm.CreateStreamyNo+'sqlbackup.dmp';
    Except//如果上面的抱错了，执行下面的
BackUpFileName:=ShellTreeView1.Path+dm.CreateStreamyNo+'sqlbackup.dmp';
    end;
//showmessage(BackUpFileName);
try
    ADQ:=TADOQuery.Create(NIL);
    adq.Connection :=dm.ADOc ;
    ADQ.sql.clear;
//具体的备份语句    ==========
ADQ.SQL.Add('Backup DataBase '+DBName+' To disk = '''+BackUpFileName+''' With Nounload');
    ADQ.execsql;//执行这个sql语句
    ADQ.sql.clear;
    ProgressBar1.Position:= 100;
    showmessage(' 数据备份成功！');
dm.SetLogFile(dm.Glogontime,datetimetostr(now),dm.Guser,'数据库备份成功');
FINALLY
   ADQ.Free;
end;
end;
恢复数据库：选择备份的文件，点击[恢复]系统会将备份的数据恢复到现用的数据库中。点击[恢复]按钮代码为：
procedure TFrmshujkHuiFu.Button2Click(Sender: TObject);//恢复数据库
var BackUpFileName,DBName:string;
      adq:TADOQuery;
begin
ProgressBar1.Position := 10;
BackUpFileName:=ShellTreeView1.Path;
dbname:=dm.getini('config','dbname','');//从ini文件中获取数据库名字