住房分配管理系统的开发与设计

在住房信息查询功能中，可以直接查询到所有住房的基本情况，包括住房编号、住房面积、是否有人居住、是否报修等情况。如图4-9所示：
 
图4-9 住房信息查询窗口
使用if语句判断edit 1的值是否为空，进入数据库中的zfb将所有住房信息全部以列表的形式显示在窗口中，在edit 1中输入数据后，进入zfb中根据数据查询相对应的住房信息，用clear函数将窗口中的所有信息全部清除，再将从数据库中返回的数据显示在窗口的列表之中。
运行代码如下：
begin
datamodule3.ADOQuery3.close;
datamodule3.ADOQuery3.sql.clear;
datamodule3.ADOQuery3.sql.add('select * from zfb');
datamodule3.ADOQuery3.open;
end
else
begin
datamodule3.ADOQuery3.close;
datamodule3.ADOQuery3.sql.clear;
sql:='select * from zfb where zfh='''+edit1.Text+'''';
datamodule3.ADOQuery3.sql.add(sql);
datamodule3.ADOQuery3.open;
end;

4.6 修改密码
在修改密码这个功能中，可以直接对系统管理员与一般用户的密码进行修改。如图4-10所示：

 
图4-10 密码修改窗口
     使用if语句判断用户名和密码是否为空，返回密码表中是否有这个数据，如果表中数据不相符，则弹出messagebox“原密码错误”；如果输入的数据完全符合，“str:='update psb set mm='''+edit2.Text+'''';” 修改密码。
运行代码如下：
begin
  if (edit1.Text<>'')and(edit2.Text<>'') then                  
   begin
     datamodule3.ADOQuery4.close;                              
     str1:='select * from psb where mm='''+edit1.text+'''';    
     str1:=str1+' and yhm='''+combobox1.Text+'''';             
     datamodule3.adoquery4.SQL.Clear;                          
     datamodule3.ADOQuery4.SQL.Add(str1);                      
     datamodule3.ADOQuery4.Open;                                
     if datamodule3.ADOQuery4.RecordCount<>1 then              
      begin
        messagebox(handle,'原密码错误!','提示',MB_OK+MB_ICONSTOP);
      end
    else
      begin
        datamodule3.adoquery4.Close;                         
        str:='update psb set mm='''+edit2.Text+'''';         
        str:=str+' where yhm='''+combobox1.text+'''';        
        datamodule3.ADOQuery4.SQL.Clear;                     
        datamodule3.ADOQuery4.SQL.Add(str);                  
        datamodule3.ADOQuery4.ExecSQL;                       
        messagebox(handle,'修改完成!','提示',MB_OK+MB_ICONINFORMATION);转贴于 酷文网-论文下载中心 http://www.coolwen.net