基于Java的房产信息网站的设计与实现
with JDBCQ_Temp do begin close;
SQL.Clear;
SQL.Add('SELECT * From 用户信息表 Where 用户名='+''''+cbUserId.Text+''''); Open;
//用户有效性
IF not IsEmpty then begin
//登录失败
If edtPassword.Text <> Fieldbyname('密码').AsString then begin
messagedlg('口令错误，请修改 ！',mterror,[mbok],0); LoginNum:=LoginNum+1; if LoginNum=3 then begin
messagedlg('非法用户！你无权使用本系统',mterror,[mbok],0); application.Terminate ; end;
edtPassword.Text :=''; edtPassword.SetFocus; exit; end
//登录成功 else begin
//保存登录的用户信息
gs_login_userid :=fieldbyname('用户名').asstring; gs_login_username :=fieldbyname('用户名').asstring; gs_login_userlevel :=fieldbyname('用户等级').asstring; gs_login_Password :=fieldbyname('密码').asstring; gt_login_time:=now();
Login:=true; self.close; end; end else begin
messagedlg('指定的用户已被注销！你无权使用本系统！',mterror,[mbok],0); Login:=False; self.close; end; end;
22
基于Java的房产信息网站的设计与实现
end;
procedure TFrm_Login.edtPasswordKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin
if key=VK_RETURN then bbtnOk.SetFocus ; end;
procedure TFrm_Login.FormCreate(Sender: TObject); begin //
Login:=false;
// 初始化用户选择列表 with JDBCQ_Temp do begin close;
SQL.Clear;
SQL.Add('SELECT 用户名 From 用户信息表'); Open;
while not eof do begin
cbUserId.Items.Add(FieldByName('用户名').AsString); Next; end; close; end;
cbUserId.ItemIndex:= 0; end;
5.5 主窗体设计
根据以上原则，和数据流程图子做了下面的主窗体，主菜单分为业务操作，购房常识，统计报表和系统维护。下边为快捷操作栏，提供了方便用户操作的接口（房屋出租登记，房租出租查询，房屋出售登记，房屋出售查询，购房常识管理，退出系统）。为了实现工具条的拖动，利用了JSP的CoolBar控件，控制TBMenu和TBTool两个ToolBar控件，并且在主窗体最下边利用了StatusBar，显示用户信息和时间信息。如图5-13所示:
23
基于Java的房产信息网站的设计与实现
图5-13主窗口设计
在MDI程序中，MDI主窗体的功能是提供子窗口显示的位置和提供菜单、工具条、状态条等。
5.6 房屋租售登记表模块设计
5.6.1 房屋租售登记表输入
房屋登记表的流程图，如图5-14所示:
用户输入登录信息判断合法性否是存入数据库存入成功否是增加完毕显示错误信息登录成功登录失败 图5-14房屋登记流程图
24
基于Java的房产信息网站的设计与实现
房屋管理输入界面，如图5-15所示:
图5-15 房屋出租管理界面
房屋登记表输入举例：具体输入：收件号：001 房屋地址：青岛市城阳区城阳第一高级中学建筑面积：500 楼层：5，租金：5000元/月。
其中，租金，产权证号，联系人，联系人电话，身份证号为必须填写内容，其实竣工日期为标准格式，身份证号码位数必须在1位一内，其余内容可不填写。
代码如下：
function TFrm_LendDetail.f_CheckValue:Boolean;
begin //
if dbePrice.Text='' then begin
MessageBox(handle,'请输入租金！','提示',MB_OK+MB_ICONINFORMATION); dbePrice.SetFocus; Result :=False; Exit; end; //
if dbeLinkName.Text='' then begin
MessageBox(handle,请输入联系人！','提示',MB_OK+MB_ICONINFORMATION); dbeLinkName.SetFocus; Result :=False; Exit; end;
当客户在确定租用此房后，点“房屋出租”按钮的激发承租方信息填写部分。
25
基于Java的房产信息网站的设计与实现
简要代码如下:
begin
inherited; //
strCommandName := TButton(Sender).Caption; //
with JDBCQ_Data do begin edit; //
if strCommandName ='房屋出租' then begin
FieldByName('状态').AsString:='已处理';
FieldByName('受理用户').AsString :=gs_login_username;
FieldByName('受理日期').AsString :=FormatDateTime('yyyy-mm-dd',f_GetNow());
end else if strCommandName ='房屋作废' then begin
FieldByName('状态').AsString:='已作废';
FieldByName('受理用户').AsString :=gs_login_username;
FieldByName('受理日期').AsString :=FormatDateTime('yyyy-mm-dd',f_GetNow()); end else begin
FieldByName('状态').AsString:='未处理'; FieldByName('成交人姓名').AsString:=''; FieldByName('成交人电话').AsString:=''; FieldByName('成交人身份证').AsString:=''; FieldByName('成交价格').AsString:=''; FieldByName('成交日期').AsString:=''; FieldByName('成交截止日期').AsString:=''; FieldByName('成交备注').AsString:=''; FieldByName('合同号').AsString:=''; FieldByName('佣金金额').AsString:='0'; FieldByName('受理用户').AsString:=''; FieldByName('受理日期').AsString:=''; end; post; end;
f_StatusChangeProc();
if pnlBargain.Enabled =true then begin
dbeBargainName.SetFocus; end;
26