房产中介管理软件客户管理窗体的设计与实现

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

　　房产中介管理软件客户管理窗体的设计与实现

　　(1)客源信息录入

　　① 泛普软件功能说明

　　该窗体模块是提供对求租和求购房屋及房屋拥有者的所有用户的基本信息进行录入及信息维护的窗体。当向窗体的姓名、编号、联系电话、类型和E-mail文本框中输入数据后，单击“添加保存”按钮保存新添加的客户信息，在窗体的客源信息列表中显示出新添加的记录。单击“保存”按钮可以重新向窗体的各文本框中输入客户的数据。当向编号文本框中输入客源信息表中已经存在的客户信息，通过单击“定位”按钮可以在客源信息列表中显示出定位的客户信息。当对客源信息数据表中的某条记录修改完成后，单击“修改保存”按钮对修改后的客户基本信息进行保存。如果要删除某条客户信息，先输入客户编号进行定位，然后单击“删除”按钮将该信息删除。如果对该窗体没有其它的操作通过单击“退出”按钮退出该窗体。

　　② 房产中介管理系统设计思路

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

　　该窗体的设计使用GroupBox组件将窗体分成客源基本信息录入和客源信息列表两部分，客源基本信息录入部分的Label组件用于用户操作提示。Edit组件用来接收向窗体中输入的数据。ComboBox组件汇集了列表框和编辑框的功能，用户可以从下拉列表中选择数据或者直接向组合框中输入数据。客源信息列表部分的DataSource1数据库连接组件的Dataset属性设置成dm.a，通过下面的语句可以实现打开客源信息表，将客源信息表中的所有记录显示出来。

　　dm.a.Close;

　　dm.a.SQL.Clear;

　　dm.a.SQL.Add('select * from keyuan');

　　dm.a.Open;

　　将DBGrid组件的DataSource属性设置成DataSource1;Visible属性是逻辑型，取值为True，决定该组件是可见的。向客源信息表中添加记录时先将编号和信

　　息表中的编号进行比较，若所输入的编号已经存在，下面的语句给出信息提示。

　　if dm.d.RecordCount>0 then

　　begin

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

　　exit;

　　end;

　　若编号不存在则将记录添加到信息表中，并将添加完新记录的客源基本信息通过DBGrid显示在网格中，方便用户的查看。

　　Panel组件也叫面板，可在其上放置其他组件，常用于组织程序界面。Button按钮组件，在该窗体中使用了六个分别是添加、添加保存、定位、修改保存、删除和退出。

　　(2)房管家erp中介管理软件客源信息查询

　　① 功能说明

　　房产中介管理软件的窗体模块提供对求租和求购房屋及房屋拥有者的所有用户的基本信息通过根据名称查询或根据编号查询两个查询条件进行查询的管理，根据名称查询时，向文本框中输入名称，单击“开始查询”按钮进行查询。根据编号查询时，向文本框中输入编号，单击“开始查询”按钮进行查询。通过DBGrid组件可以将要查询的客户的基本信息显示出来。如果对该窗体没有其它的操作通过单击“退出”按钮退出该窗体。

　　② 房产中介管理系统设计思路

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

　　该窗体的设计使用GroupBox组件将窗体中所使用到的其他组件都放到其中，CheckRadioBox组件称为复选框，用户可以对它做出选择。若选择按出售方进行查询，通过下面的语句可以实现按所选择的查询方式进行查询的功能。

　　if bsskincheckradiobox3.Checked then

　　begin

　　dm.q.Close;

　　dm.q.SQL.Clear;

　　dm.q.SQL.Add('select * from keyuan where leixing='''+ bskin

　　checkradiobox3.Caption+'''');

　　dm.q.Open;

　　end;

　　Edit组件接收用户向窗体中输入的数据。Button按钮组件在该窗体中使用了两个，分别是开始查询和退出。DataSource1组件的Dataset属性值设置为dm.q，通过下面的四条语句可以实现根据所输入的名称从数据表中查询出匹配的记录，并通过DBGrid组件将客源信息表中匹配的数据显示在网格中。

　　dm.q.Close;

　　dm.q.SQL.Clear;

　　dm.q.SQL.Add('select * from keyuan where name ='''+ bsskin edit1.Text+'''');

　　dm.q.Open;