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

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

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

Delphi小区能源管理系统第9页
业主信息录入流程图

begin
      showmessage('信息不能为空，''*''号标记为必添项');//当有输入框为空状态的时候，提
//示此信息
      abort;
    end;
for i:=1 to 100 do
     begin
      ProgressBar1.Position:=i;
     end;
     showmessage('业主信息添加成功');//控制progressbar状态，让系统更加人性化。
     ProgressBar1.Position:=0;
     LabeledEdit1.text:='';
     LabeledEdit3.Text:='';
     LabeledEdit2.Text:='';
     ComboBox4.Text:='';
     ComboBox5.Text:='';
     Memo1.Text:='';
   end
    else
     begin
       showmessage('此房间已经分配，请核实房间号');
     end;
end;
5.3.6 安装表（UFrmAZB.pas）

通过上面步骤注册一个业主之后，根据业主的需求可以为之安装水表、电表、煤气表。此功能窗体实现思路：选择表类型的时候表编号系统自动生成（E、W、G开头分别代表电水煤气）（dm.CreateStreamyNo产生不重复id），一个表确定之后，选择这个表的所有者，通过鼠标选择就可以获得已经注册的任意一个业主，此时系统自动查找到相应得信息，如：具体住处等。表底数必须手工录入，默认情况为0。同时提供修改删除功能，标在欠费状态无法被删除。

图5—8 安装表窗体

点击[确定添加表]按钮完成一条表信息的录入，其代码为：
procedure TFrmAZB.Button1Click(Sender: TObject);
//点击确认添加表的时候通过判断三个
//radirbutton的状态为不可用的情况，把三个按钮状态再设置成可用状态，设置为不可用是
//避免在添加信息之后操作员修改了信息，录入时会产生不同的表编码，导致信息不准确。
begin
inherited;
if ((RadioButton1.Enabled=false) and (RadioButton2.Enabled=false) and (RadioButton3.Enabled=false)) then
   begin
    RadioButton1.Enabled:=true;
    RadioButton2.Enabled:=true;
    RadioButton3.Enabled:=true;
    edit2.Text :='';
   end
else
   begin
    appendToBXX;//如果三个radiobutton状态为可用状态，则根据信息添加表。
   end;
end;
procedure TFrmAZB.Button2Click(Sender: TObject);
begin
inherited;
self.close;//关闭窗体本身。
end;
点击修改信息按钮完成针对一条信息的修改工作具体情况使用adodataset的edit和post方法实现，点击[修改信息]按钮代码实现：
procedure TFrmAZB.EditToBXX;
var i:integer;tmpbh:string;
begin
if ((edit1.text<>'') and(getblxForsfdj<>'') and (ComboBox1.text<>'') and (ComboBox3.text<>'') and (edit4.text<>'') and (edit2.Text<>'') and (ComboBox2.Text<>'') ) then
   begin
//getAnddisplaybxx;
ComboBox2.Clear;
dm.AddComboBoxItems('select * from sflx where yzlx='''+getyzlxForsfdj+''' and blx= '''+getblxForsfdj+'''','lxdjje',ComboBox2);
try
begin
   with dm.ADODs4 do
    begin
       edit;
//select bbh as 表编号,blx as 表类型,yzmc as 业主名称,yzdm as 业主代
//码,bmc as 表名称,bds as 表底数,djje as 单价金额,scjfrq as 安装时间 from
//bxx';
       tmpbh:=FieldByName('表编号').Value;
       FieldByName('表类型').Value :=getblxForsfdj;
       FieldByName('业主名称').Value :=ComboBox1.text;
       FieldByName('业主代码').Value :=ComboBox3.text;
       FieldByName('表名称').Value :=edit4.text;
       FieldByName('表底数').Value :=edit2.Text;
       FieldByName('单价金额').Value :=ComboBox2.Text;
       FieldByName('安装时间').Value :=datetimeToStr(now);
    for i:=1 to 100 do
     begin
      ProgressBar1.Position:=i;
     end;
     post;
    end;
dm.SetLogFile(dm.Glogontime,datetimetostr(now),dm.Guser,'修改表成功->'+tmpbh);
edit1.text:='';
edit4.Text:='';
showmessage('修改成功');
ProgressBar1.Position:=0;
end;
except
   begin
     ShowMessage('数据库操作失败操作失败');
   end;
   end;
   end