房产中介管理系统主窗体和登录窗体的设计与实现

申请免费试用、咨询电话：400-8352-114

　　房产中介管理系统主窗体和登录窗体的设计与实现

　　(1) 泛普软件房产中介管理系统功能说明

　　房屋中介服务子系统的主窗体中包括：房产管理、客户管理、业务管理、实用工具、系统维护和帮助六种主要功能的触发，通过主窗体的菜单单击后打开每个功能模相应的窗体。在进入主窗体前，会自动弹出登录窗口进行权限的验证，检验成功后才可以进入主窗体。主窗体和登录窗体界面如图5-1和5-2所示。
                                             

　　(2)房产中介管理软件设计思路

　　设计该窗体所用到的组件有：MainMenuBar组件，Image组件，Panel组件，StatusBar组件，Button组件，Edit组件，Label组件。

　　其中，Image组件是一个容器组件，在主窗体中使用该控件添加了一个图标，使得主窗体的界面看上去很美观。

　　Panel组件也叫面板，可在其上放置其他组件，常用于组织程序界面。在窗体设计窗口中将它的BevelInner属性、BevelOuter属性、BevelWidth属性、BorderStyle属性和BorderWidth属性分别设置成相应的形式。StatusBar组件通常放置在窗体的底部，在上面动态地显示一些信息。在登录窗体中使用的Label组件用于用户提示操作，两次使用该组件来显示提示登录系统的用户输入用户名称和用户登录的密码。Edit组件接收用户输入的数据，当输入用户名称和密码后，单击Button组件设置的登录按钮，触发Button组件的Click事件，则系统将用户输入的名称及密码和用户管理表中的名称及密码进行比较，相同则可以进入系统的主窗体，通过以下语句来实现。

　　if a.RecordCount=1 then

　　begin

　　form1.Hide;

　　frm_main.ShowModal;

　　end;

　　否则出现密码出错提示，由下面的代码来提示用户所输入的密码有误，然后对文本框进行清空，用户可再次进行输入。

　　begin

　　showmessage('您输入的用户编号或者密码错误，请核实');

　　edit1.Text:='';

　　edit2.Text:='';

　　exit;

　　end;

　　调用用户管理表时还用到了SQL语言，通过下面四句可以实现根据用户所输入的编号和密码进行查询检查该用户是否能进入该系统的主窗体。

　　dm.a.Close;

　　dm.a.SQL.Clear;

　　dm.a.SQL.Add('select * from login where name='''+edit1.Text

　　+''' and pass='''+edit2.Text+'''');

　　dm.a.Open;

　　5.4.2 房产管理窗体的设计与实现

　　(1)房产中介管理系统房源信息录入

　　① 功能说明

　　该窗体模块是提供对加入本系统的所有房屋的基本信息进行录入及信息维护的窗体。当向窗体中输入各项数据后，单击“添加保存”按钮，可将数据保存到房屋基本信息数据表中。单击“保存”按钮可以重新添加要进行保存的房屋信息。“定位”按钮可以实现在定位中介编号文本框中输入中介编号后，单击“定位”即可在窗体中显示输入的中介编号所对应的房屋的基本信息。当对房屋基本信息数据表中的某条记录修改完成时可以单击“修改保存”按钮完成对修改后的房屋信息进行保存。如果要删除房屋基本信息数据表中的某条记录，可以先定位然后单击“删除”按钮即可删除该记录。如果对该窗体没有其它的操作，通过单击“退出”按钮退出该窗体。

　　② 设计思路

　　设计该窗体所用到的组件有：GroupBox组件, Button组件，Label组件，CheckRadioBox组件, Edit组件，DBGrid组件，DataSource1组件。

　　GroupBox组件是分组组件，在窗体中将它的Caption属性设置成适当的标题。CheckRadioBox组件也称为复选框，用户可以对它做出选择，在窗体中将它的Caption属性分别设置成相应的内容。Button组件是一个按钮组件，该窗体中使用了六个分别是添加、添加保存、定位、修改保存、删除和退出。Label组件用于用户操作提示。Edit组件用来接收向窗体中输入的数据，在窗体中将它的Text内容清空。Data Source1组件确定和该组件相关联的数据源对象，该组件的Dataset属性设置成dm.q，通过下面四条语句实现打开房源信息表，将表中的记录全部都显示出来。

　　dm.q.Close;

　　dm.q.SQL.Clear;

　　dm.q.SQL.Add('select * from houseinfo');

　　dm.q.Open;

　　DBGrid组件负责显示数据库中的数据和接受用户对数据库的操作，该组件的DataSource属性设置成DataSource1;Visible属性是逻辑型，取值为True，决定该组件是可见的。当向房源信息表中添加一条记录后，首先将新添加的记录编号和房源信息表中的记录编号进行比较，如果该编号在数据表中已经存在则出现“该编号已经存在”的提示信息，通过以下的语句来实现。

　　if dm.a.RecordCount>0 then

　　begin

　　showmessage('您输入的中介编号已经存在，请核实');

　　exit;

　　end;

　　若没有则单击“添加保存”将该记录添加到数据表中，通过函数showmessage('保存成功');提示所输入的记录已经成功的添加到了数据表中。通过DBGrid将房源信息数据表中的所有记录都显示给用户，方便了用户对数据的查看。

　　(2)房源信息查询

　　① 功能说明

　　该窗体模块是为用户提供通过输入中介编号或者通过输入起始时间和结束时间对房源信息进行查询的窗体。当使用单点查询时，向“请输入中介编号”文本框中输入中介编号，单击“开始查询”按钮后即可在窗体中显示出按中介编号查询的房屋的基本信息。当使用按时间段查询时，向起始时间和结束时间文本框中输入要查询的时间，单击“开始查询”按钮后即可在窗体中显示出按时间段查询的房屋的基本信息。

　　② 房管家erp中介管理软件设计思路

　　设计该窗体所用到的组件有：PageControl组件，TabSheet组件，Panel组件，DBGrid组件，Button组件，Label组件，CheckRadioBox组件，Edit组件，ComboBox组件。

　　PageControl组件中的每一个选项卡都是一个TTabSheet组件，在该窗体中它管理单点查询和时间段查询两个TTabSheet组件，每个TTabSheet组件管理着放在它上面的组件，时间段查询的TTabSheet组件管理一个DBGrid组件，DBGrid组件的作用是负责显示数据库中的数据和接受用户对数据库的操作。当按时间段查询时，将房源信息表中符合条件的数据集记录显示在网格中，若所输入的时间段在房源信息表中不存在，通过以下的语句实现了给出检索不到信息的提示。

　　dm.q.Close;

　　dm.q.SQL.Clear;

　　dm.q.SQL.Add('select * from houseinfo where dengjiriqi> = ''' + formatdatetime('yyyy-mm-dd',strtodate(bsskindateedit3.Text))+''''+

　　'anddengjiriqi<='''+formatdatetime('yyyy-mm-dd',strtodate(bsskindateedit4.Text))+'''');

　　dm.q.open;

　　if dm.q.RecordCount<=0 then

　　begin

　　showmessage('没有检索到信息');

　　exit;

　　end;

　　单点查询的TTabSheet组件管理着Button组件，Label组件，CheckRadioBox组件，Edit组件,ComboBox组件。Button组件的Caption属性设置成“开始查询”。当输入了中介编号后，和房源信息表中的编号进行比较，如果没有输入编号，则出现提示，通过以下的语句可以实现。

　　if bsskinedit7.Text='' then

　　begin

　　showmessage('您还没有输入中介编号，请您输入');

　　exit;

　　end;

　　如果该编号所对应的记录在数据表中存在，触发Button组件的Click事件，将查询到的记录显示给用户。ComboBox组件汇集了列表框和编辑框的功能，用户可以从下拉列表中选择数据或者直接向组合框中输入数据。CheckRadioBox组件也称为复选框，当在窗体中显示出查询的记录时，在 CheckRadioBox组件的前面就会有“√”出现。

　　(3) 广告管理

　　① 功能说明

　　该窗体模块是提供对将要进行出租和出售的房屋做广告宣传功能的窗体。在窗体中通过输入广告名称、广告编号、联系人、联系电话及登录广告的起始时间和结束时间，然后在广告内容中输入该广告的主要内容，单击“添加保存”按钮对输入的广告进行保存。单击“保存”按钮可以重新输入需要保存的广告内容。在广告编号文本框中输入编号后，单击“定位”按钮后即可在窗体中显示出定位的广告记录。当对广告信息数据表中的某条记录修改完成后，单击“修改保存”按钮对修改后的广告记录进行保存。如果要删除某条广告记录，先输入广告编号进行定位，然后单击“删除”按钮将该记录删除。如果对该窗体没有其它的操作通过单击“退出”按钮退出该窗体。

　　② 设计思路

　　设计该窗体所用到的组件有：GroupBox组件，Panel组件，DBGrid组件，Button组件，Label组件, Edit组件，Memo组件，DataSource1组件。

　　Panel组件除了具有分隔作用，在窗体设计窗口中将它的BevelInner属性、Bevel Outer属性、BevelWidth属性、BorderStyle属性和BorderWidth属性分别设置成相应的形式。

　　GroupBox组件是分组组件，它将该窗体分成了广告管理基本信息录入和广告信息列表显示两个部分，广告管理基本信息录入部分的Memo组件为用户提供了一种处理多行文本的方法，在窗体运行后用户可以向其中输入多行文字。Button按钮组件在该窗体中使用了六个分别是添加、添加保存、定位、修改保存、删除和退出。广告信息列表显示部分的DataSource1组件确定和该组件相关联的数据源对象，该组件的Dataset属性设置成dm.q，通过下面的语句实现打开广告信息表，将广告信息表中的所有记录都显示出来。

　　dm.q.Close;

　　dm.q.SQL.Clear;

　　dm.q.SQL.Add('select * from guanggao);

　　dm.q.Open;

　　DBGrid组件的DataSource属性设置成DataSource1，负责显示数据库中的数据和接受用户对数据库的操作。当向广告信息表中添加新记录时，将编号和数据表中已经存在的广告编号进行比较，下面的语句实现编号在数据表中已经存在出现“该编号已经存在”的提示信息。

　　if dm.a.RecordCount>0 then

　　begin

　　showmessage('该广告编号已经存在，请输入其他的编号');

　　exit;

　　end;

　　若数据表中没有该记录则将记录添加到数据表中并将广告信息表中的数据通过DBGrid组件显示在网格中，方便用户的查看。对广告表中的某条记录进行修改，若输入的广告编号不存在，通过函数showmessage('没有检索到记录,请核实广告编号');给出提示。删除数据表中的某记录，通过下面的语句来实现根据输入的编号查询在数据表中是否存在编号所对应的记录，若存在，将该编号对应的记录删除。

　　dm.q.Close;

　　dm.q.SQL.Clear;

　　dm.q.SQL.Add('select * from guanggao where num=''' +bs

　　skinedit2.Text +'''');

　　dm.q.Open;

　　if dm.q.RecordCount=1 then

　　begin

　　dm.q.Delete;

　　showmessage('删除广告信息完成');

　　end;

　　(4) 成交管理

　　① 功能说明

　　该窗体模块实现对求租和求购房屋的用户通过选择查询条件查看房屋的基本信息选择租或购哪种类型的房屋，如果通过房屋编号进行查询，输入房屋编号，单击“开始查询”按钮即可在窗体的查询结果中显示出房屋的基本信息，要进行成交该房屋操作，单击“选择成交”按钮，出现成交完成提示框。若输入的房屋编号在房屋基本信息数据表中不存在，出现“此信息可能已经被成交或者是没有此房源信息”的提示框。如果通过日期进行查询，选择日期，单击“开始查询”按钮即可在窗体的查询结果中显示出房屋的基本信息，要进行成交该房屋操作，单击“选择成交”按钮，出现成交完成提示框。若输入的日期在房屋基本信息数据表中不存在，出现“此信息可能已经被成交或者是没有此房源信息”的提示框。如果对该窗体没有其它的操作通过单击“退出”按钮退出该窗体。

　　② 设计思路

　　设计该窗体所用到的组件有：GroupBox组件, Panel组件, ComboBox组件，Button组件，Label组件, Edit组件，DBGrid组件，DataSource1组件，DataSource2组件。

　　GroupBox组件将该窗体分成了房源基本信息和查询结果两部分，房源基本信息部分的DataSource1组件确定和该组件相关联的数据源对象，该组件的Dataset属性设置成dm.a，以便和房源信息表进行连接。通过下面的语句来实现根据所输入的编号将房源信息表中的符合条件的记录显示出来。

　　dm.d.Close;

　　dm.d.SQL.Clear;

　　dm.d.SQL.Add('select * from houseinfo where num='''+dm.q.

　　fieldbyname ('num').AsString+'''');

　　dm.d.Open;

　　DBGrid组件的DataSource属性设置成DataSource1;Visible属性是逻辑型，取值为True，决定该组件是可见的，用来将房源基本信息表中的所有数据显示在网格中。查询结果部分的DataSource2组件的Dataset属性设置为dm.q，以便和房源信息表进行连接。DBGrid组件的DataSource属性设置成DataSource2，当根据查询条件查询时通过DBGrid将从房源信息表中查询到的数据显示在网格中，以方便用户进行房屋成交操作。

　　Panel组件具有分隔的作用，ComboBox组件汇集了列表框和编辑框的功能，在窗体中用户可以对其选择按房源编号还是日期进行查询，以下的语句可以实现它的功能。

　　var

　　str:string;

　　begin

　　if bsskincombobox1.Text='房源编号' then

　　begin

　　str:='select * from houseinfo where num='''+bsskinedit1.

　　Text+''''+' and chengjiao='+'''0''';

　　end;

　　if bsskincombobox1.Text='日期' then

　　begin

　　str:='select * from houseinfo where dengjiriqi='''+ bsskin

　　dateedit1.Text+''''+'and chengjiao='+'''0''';

　　end;

　　end;

　　Button按钮组件在该窗体中使用了两个，分别是开始查询和选择成交。Edit组件响应程序运行时用户输入的文本内容，向Edit中输入的编号和房源信息表中的编号经过比较后才能将新的记录添加到信息表中。