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

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

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

Delphi小区能源管理系统第8页
5.3.4 主窗体的实现（Ufrmmain.pas）
本窗体是各个功能模块的入口，界面美观，操作方便快捷尤为重要。本系统提供更换背景图片的功能。针对常用的菜单项目提供了热键设置功能。
图5—5 小区能源管理系统主窗体

本窗体包含系统的几大模块：基本录入，查询修改，抄表收费，系统文护，帮助。主要代码是实现权限的认证和调用窗体的创建显示工作。代码介绍：
procedure Tfrmmain.N31Click(Sender: TObject);
begin
if frmaddczy.getTorF(22,DM.Gpurview) then//认证时候否具有这个窗体的使
//用权限
   begin
    //Do SomeThing here ......
    Application.CreateForm(TfrmSFJS, frmSFJS);//如果有使用权限，创建此窗
//体。
    frmSFJS.ShowModal;//以独占的方式显示此窗体。
   end
else
   begin
    showmessage('您好，您无权使用此功能！');//如果没有使用的权限提示。
   end;
实现登陆认证权限的函数代码：
//根据字符数组中一个字符位来返回true or false，1-true 0-false；
function Tfrmaddczy.getTorF(i_charr:integer;Oorl:string):boolean;
begin
//利用字符串截取函数，如果此为为'1'，返回true。
if (copy(Oorl,i_charr,1)='1') then
     begin
       result:= true;
     end
else
     begin
       result:=false;
     end;
end;
5.3.5 业主信息录入（Ufrmaddyz.pas）
实现小区业主登记功能。
其中AUTO代码只需要选择业主类型，系统自动生成。这项操作是安装表，抄表收费的前提条件。业主姓名、等信息需要手工添加，在小区名称处只要输入一次后，在下次显示这个窗体的时候就会动态刷新到这个combobox中，通过鼠标选择即可实现录入。

图5—6 业主信息录入分类窗体

其中点击[录入]按钮的代码：
procedure Tfrmaddyz.BitBtn1Click(Sender: TObject);
var i:integer;
begin
//确认添加按钮按下的时候做下面的事情。
//首先，获取这个房间的信息，是不是已经被其他业主占用，如果没有被占
//用，则继续。
if GetRoomStatus(ComboBox4.Text,ComboBox1.text,ComboBox2.text,ComboBox3.text) then
begin
//再，判断信息输入框是否为空，如果不为空则继续。
if ((datetostr(DateTimePicker1.Date)<>'') and (LabeledEdit1.text<>'') and (LabeledEdit3.Text<>'') and(LabeledEdit2.Text<>'') and (ComboBox4.Text<>'') and (ComboBox5.Text<>'') and (ComboBox1.Text<>'') and (ComboBox2.Text<>'') and (ComboBox3.Text<>'')) then
   begin
    try
     begin//采用dataset的append……..post方法，向yzxx表中插入一条数
//据。
      dm.ADODs2.Active :=false;
      dm.ADODs2.CommandText :='select * from yzxx';
      dm.ADODs2.Active :=true;
      dm.ADODs2.Append;
      dm.ADODs2.FieldByName('yzdm').Value:=LabeledEdit1.text;
      dm.ADODs2.FieldByName('yzmc').Value:=LabeledEdit3.Text;
      dm.ADODs2.FieldByName('yzdh').Value:=LabeledEdit2.Text;
      dm.ADODs2.FieldByName('yzrzsj').Value:=datetostr(DateTimePicker1.Date);
      dm.ADODs2.FieldByName('yzxqh').Value:=ComboBox4.Text;
      dm.ADODs2.FieldByName('yzlh').Value:=ComboBox1.Text;
      dm.ADODs2.FieldByName('yzdyh').Value:=ComboBox2.Text;
      dm.ADODs2.FieldByName('yzfjh').Value:=ComboBox3.Text;
      dm.ADODs2.FieldByName('yzyff').Value:=ComboBox5.Text;
      dm.ADODs2.FieldByName('bz').Value:=Memo1.Text;
      dm.ADODs2.post;
      dm.SetLogFile(dm.Glogontime,datetimetostr(now),dm.Guser,'添加业主成功->'+LabeledEdit3.Text);//插入成功，向logtab表中写入一条记录。
      //清楚comb中的信息
      ComboBox4.Clear;
      //重新读取小区名。
       FormShow(nil);
     end
    except
      showmessage('数据库操作失败');
      abort;
    end;
     end
else