售楼信息管理系统课程设计.docx

1、售楼信息管理系统课程设计成 绩 评 定 表学生姓名张恒郡班级学号1109010116专 业信息与计算科学课程设计题目售楼信息管理系统评语组长签字：成绩日期 2013 年12月 日课程设计任务书学 院理学院专 业信息与计算科学学生姓名张恒郡班级学号 1109010116课程设计题目售楼信息管理系统实践教学要求与任务:设计为MDI窗体，含有主菜单：文件、数据管理、数据查询。文件菜单包含以下子菜单及其功能：注册新用户菜单：打开“注册新用户”窗体退出菜单：结束程序运行数据管理 包含以下子菜单：管理楼盘信息菜单：显示管理楼盘信息窗体管理合同信息菜单：显示管理合同信息窗体管理收款信息菜单：显示管理收款信息

2、窗体管理收款合同信息菜单：显示管理收款合同信息窗体管理售楼合同信息菜单：显示管理售楼合同信息窗体 数据查询包含以下子菜单：查询楼盘信息：显示查询楼盘信息窗体查询合同信息：显示查询合同信息窗体查询收款信息：显示查询收款信息窗体查询收款合同信息：显示查询收款合同信息窗体查询售楼合同信息：显示查询售楼合同信息窗体工作计划与进度安排:第一周：数据库设计，利用SQL Server创建数据库及数据表。 总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。 撰写课程设计报告，验收与答辩。指导教师： 2013年12月1 日专业负责人：2013

3、年 12月 日学院教学副院长：2013 年12月 日摘 要近几年，中国经济快速、平稳发展，伴随着中国城市化进程加快和住房体制的改革，售楼行业得到了迅猛发展，房地产销售业务量急剧扩大，因此对售楼管理提出了更高的要求。售楼信息管理系统就是为了实现这一目标而设计的，管理人员通过该系统可以及时了解楼盘的动态销售情况，还能充分利用电脑的可检索性、方便、快速地了解有关销售楼盘的其他各种详细资料，以便及时做出正确决策。 本系统主要实现以下功能：售楼管理，即管理所有的售楼信息、合同信息、收款信息，并对售楼数据进行添加、删除等操作。此外，方便的查询功能可以使客户迅速地找到自己所需的售楼信息；系统的核心实现对楼盘

4、销售的数据、合同签订情况、客户付费等情况的管理。 系统以中文版Visual Basic 6.0为前台开发工具，用中文版SQL 2000作为后台数据库。关键词：Visual Basic SQL sever 2000 售楼信息管理系统第1章 系统功能概述1.1 系统功能分析该系统具备的功能包括楼盘管理、合同管理、收款管理、售楼合同管理、收款合同管理、退出系统。具体主要实现如下功能：售楼信息管理部分包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理，其功能是分别实现对楼盘信息、合同信息、收款信息和售楼合同信息和收款合同信息的各部分数据内容的添加、删除等操作。售楼信息查询

5、部分包括楼盘信息查询、合同信息查询、收款信息查询、售楼合同信息查询与收款合同信息查询，其功能是分别实现对楼盘信息、合同信息、收款信息、售楼合同信息和收款合同信息查询的各部分数据内容的查询操作。1.2 系统结构图图1.1售楼管理信息系统总体结构第2章 数据库设计2.1 需求分析通过对用户需求的分析，确定系统应具备的功能包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理、退出系统。具体主要实现如下功能：售楼信息管理部分包括楼盘信息管理与查询、合同信息管理与查询、收款信息管理与查询、售楼合同信息管理与查询和收款合同信息管理与查询，其功能是实现对楼盘各部分数据内容的添加、

6、删除和查询等操作。（1）楼盘信息：包括楼盘信息的添加、删除和查询。楼盘信息包括楼盘编号，楼号，单元号，楼层，房号，户型和面积。（2）收款信息：包括收款信息的添加、删除和查询。收款信息包括收款编号，交款日期，收款金额，交款人和收款人。（3）合同信息：包括合同信息的添加、删除和查询。合同信息包括合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式和贷款银行。（4）售楼合同信息：包括售楼合同信息的添加、删除和查询。售楼合同信息包括合同编号，楼盘编号，合同签订日期和身份证号。（5）收款合同信息：包括收款合同信息的添加、删除和查询。收款合同信息包括收款编号，合同编号，交款人和收

7、款人。2.2 E-R模型(1)局部E-R模型：图1.2楼盘信息图1.3合同信息图1.4收款信息图1.5售楼合同信息图1.6收款合同信息(2)全局E-R模型：图1.7售楼信息管理系统E-R模型2.3 关系模型（1） 楼盘信息（楼盘编号，楼号，单元号，楼层，房号，户型，面积）（2）合同信息（合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行）（3）收款信息（收款编号，交款日期，收款金额，交款人，收款人,有线电视费，电费）（4）售楼合同信息（楼盘编号，合同编号，合同签订日期，身份证号）（5）收款合同信息（收款编号，合同编号，收款人，交款人）2.4 表结构设计（1

8、）用户信息表的建立与基本数据图1.8密码表属性基本数据如下图：图1.9密码表基本数据（2）楼盘信息表的建立与基本数据图1.10楼盘信息表属性基本数据如下图： 图1.11楼盘信息表基本数据（3）合同信息表的建立与基本数据 图1.12合同信息表属性基本数据如下图： 图1.13合同信息表基本数据（4）收款信息表的建立与基本数据图1.14收款信息表属性基本数据如下图： 图1.15收款信息表基本数据（5）售楼合同信息表的建立与基本数据图1.16售楼合同信息表属性基本数据如下图： 图1.17售楼合同信息表基本数据（6）收款合同信息表的建立与基本数据图1.18收款合同信息表属性基本数据如下图：图1.19收款

9、合同信息表基本数据第3章 系统各功能模块的详细设计3.1 主窗体模块的详细设计利用VB工程实现，页面的设计如下图：1、主窗体页面图1.20主窗体2、主窗体模块功能（1）设计为MDI窗体，含有主菜单：文件、数据管理、数据查询。文件菜单包含以下子菜单及其功能：注册新用户菜单：打开“注册新用户”窗体退出菜单：结束程序运行数据管理 包含以下子菜单：管理楼盘信息菜单：显示管理楼盘信息窗体管理合同信息菜单：显示管理合同信息窗体管理收款信息菜单：显示管理收款信息窗体管理收款合同信息菜单：显示管理收款合同信息窗体管理售楼合同信息菜单：显示管理售楼合同信息窗体 数据查询包含以下子菜单：查询楼盘信息：显示查询楼盘

10、信息窗体查询合同信息：显示查询合同信息窗体查询收款信息：显示查询收款信息窗体查询收款合同信息：显示查询收款合同信息窗体查询售楼合同信息：显示查询售楼合同信息窗体3、主窗体模块详细设计代码Private Sub 查询合同信息1_Click()查询合同信息.ShowEnd SubPrivate Sub 查询楼盘信息1_Click()查询楼盘信息.ShowEnd SubPrivate Sub 查询收款合同信息1_Click()查询收款合同信息.ShowEnd SubPrivate Sub 查询收款信息1_Click()查询收款信息.ShowEnd SubPrivate Sub 查询售楼合同信息1_C

11、lick()查询售楼合同信息.ShowEnd SubPrivate Sub 管理合同信息1_Click()管理合同信息.ShowEnd SubPrivate Sub 管理楼盘信息1_Click()管理楼盘信息.ShowEnd SubPrivate Sub 管理收款合同信息1_Click()管理收款合同信息.ShowEnd SubPrivate Sub 管理收款信息1_Click()管理收款信息.ShowEnd SubPrivate Sub 管理售楼合同信息1_Click()管理售楼合同信息.ShowEnd SubPrivate Sub 退出1_Click()Unload MeEnd SubPr

12、ivate Sub 注册新用户1_Click()注册新用户.ShowEnd Sub3.2 用户管理模块的详细设计1、利用VB工程实现，页面的设计如下图：（1）进入售楼管理系统页面图1.21进入售楼管理系统（2）用户登录页面图1.22用户登录（3）注册新用户页面图1.23注册新用户2、各模块功能（1）进入售楼管理系统 点击进入按钮，进入主窗体对象的属性值表：表1-1对象名属性名属性值命令按钮NameCommand1Caption进入系统（2） 用户登录 输入用户与密码，若输入正确，则可以对售楼信息进行管理与查询，否则退出系统对象的属性值表：表1-2对象名属性名属性值标签框NameLabel1 L

13、abel2 Caption输入用户 输入密码 命令按钮NameCmdLand CmdCancelCaption登录 取消文本框NameText1 Text2（3） 注册新用户 对新用户进行注册，输入用户名与密码，点击登录按钮，用户注册成功，否则退出系统对象的属性值表：表1-3对象名属性名属性值标签框NameLabel1 Label2 Label3Caption用户名 输入密码 确认密码命令按钮NameCommand1 Command2Caption登录 取消文本框NameText1 Text2 Text33、各模块详细设计代码（1）进入售楼管理系统代码Private Sub Command1_

14、Click()Unload Me登录.ShowEnd Sub（2）用户登录代码Dim miCount As Integer 用于记录输入密码次数Private Sub CmdLand_Click()Dim sqlstr As Stringsqlstr = Select * From 密码表 Where 用户名= & Text1 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then 若没找到符合Where条件的记录 MsgBox 用户名错误，重新输入, vbExclamation, 警告 Text1.Text = Text1.SetFocus Text1获得焦点Else 判断密码是否正确 If Adodc1.Recordset.Fields(密码) =