毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

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

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

Delphi小区能源管理系统 第8页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。