Delphi小区能源管理系统 第12页
ProgressBar1.Position := 30;
try
adq:=TADOQuery.Create(nil);//动态创建adoquery，用它来执行备份sql语句。
adq.Connection :=dm.ADOc ;//创建数据库联接
adq.sql.clear;
//sql赋值开始==============
adq.SQL.Add('Use master');//使用master数据库完成恢复
adq.SQL.Add('exec killdataspid '+DBName);//杀掉所有其他联接
//下面语句，完成数据库名为：DBName的数据库恢复，恢复文件是BackUpFileName路径
//下。
adq.SQL.Add('RESTORE DATABASE '+DBName+' FROM Disk= '''+BackUpFileName+'''');
//sql赋值结束==============
adq.execsql;//执行这条sql语句
adq.sql.clear;//清空sql
ProgressBar1.Position := 100;
//dm.SetLogFile(dm.Glogontime,datetimetostr(now),dm.Guser,'恢复数据库成功');
showmessage(' 恢复数据库成功！');
except
showmessage(' 请选则资源文件！');
end;
adq.Free;
end;
5.3.10 系统计本信息配置（UfrmLXsz.pas）
1、 系统名称设置：实现思想，通过修改config.ini文件中的内容，系统在启动时读取相应得配置信息，完成系统窗体名字的动态设置。使系统更加人性化。
[设置]按钮的代码实现为：
procedure TfrmLXsz.BitBtn3Click(Sender: TObject);
begin
try
begin
dm.setini('application','formcaption',edit1.Text);//设置配置文件confige.ini
图5—12 备份恢复数据库窗体
图5—13 设置系统名称
//文件
dm.SetLogFile(dm.Glogontime,datetimetostr(now),dm.Guser,'修改系统名字成功->'+edit1.Text);
showmessage('设置成功！');
end;
except
begin
showmessage('设置失败！');
end;
end;
end;
2、 单价设置：实现思想和方法，针对基本信息配置表SFLX进行修改，系统在抄表收费的时候根据此表中的信息和实际使用的量来完成实际金额的计算。系统中不可获却得以部分。具体费用项如下：
图5—14 设置单价信息
[设置]按钮点击之后代码实现为：
procedure TfrmLXsz.Button1Click(Sender: TObject);
var i:integer;yzlx,blx:string;
begin
if ((ComboBox1.text<>'') and (ComboBox2.text<>'')) then
begin
try
begin
with DataSource1.DataSet do
begin
edit;
yzlx:=FieldByName('业主类型').Value;
blx:=FieldByName('表类型').Value;
FieldByName('单价为').Value:=ComboBox3.text;//修改对应得单价。
post;
dm.SetLogFile(dm.Glogontime,datetimetostr(now),dm.Guser,'修改单价成功->'+yzlx+blx+ComboBox3.text+'元');//对此操作写入日志表。
end;
for i:=1 to 100 do
begin
ProgressBar1.Position:=i;
end;
showmessage('修改成功');
end;
except
begin
showmessage('修改失败');
end;
end;
ProgressBar1.Position:=0;
end
else
begin
showmessage('选项为空,未经修改');
end;
end;
3、 热键的设置：设计思想和方法：针对常用的几个菜单项，加入了热键的功能，配置信息存储在config.ini文件中，系统登陆时读取相应得配置，实现热键设置。
<< 上一页 [11] [12] [13] [14] [15] 下一页
Delphi小区能源管理系统 第12页下载如图片无法显示或论文不完整，请联系qq752018766
