VB数据库报告房产管理系统

沈阳理工大学课程设计专用纸 沈阳理工大学 课课程程设设计计任任务务书书 学 院信息科学与工程学院专 业计算机科学与技术 学 生 姓 名陈一飞学 号0803050403 设 计 题 目售楼信息管理系统 房产信息管理 内容及要求 内容及要求 1 1 系统功能 系统功能 1 户型 楼盘信息的浏览 2 户型 楼盘信息的登记管理 3 户型 楼盘信息的查询 4 打印报表 2 2 数据库的设计 数据库的设计 包含以下实体及其属性 仅供参考 可以自行修改或补充 1 户型信息 户型编号 户型结构 建筑面积 套内面积 户型简介 2 楼盘信息 楼盘编号 楼号 单元号 楼层 房号 3 系统信息 用户名 密码 要求画出 E R 图 并转换为关系模型 设计表结构 1 户型 楼盘信息的浏览 2 户型 楼盘信息的登记管理 3 户型 楼盘信息的查询 4 打印报表 进度安排 进度安排 第 19 周 系统需求分析 设计 E R 图 数据库设计和模块设计 进行软件编码设计 实现各模块功能 第 20 周 继续完成软件设计 调试与完善系统的各项功能 书写课程设计报告 验收程序 答辩 指导教师 签字 年 月 日 学院院长 签字 年 月 日 沈阳理工大学课程设计专用纸 沈阳理工大学 1 目录目录 第 1 章 系统功能概述 2 1 1 问题定义 2 1 2 系统功能 2 第 2 章 数据库设计 3 2 1 需求分析 3 2 2 E R 模型 3 2 3 关系模型 4 2 4 数据库结构设计 5 第 3 章 程序运行结果 6 3 1 登录界面 6 3 2 用户注册界面 8 3 3 数据信息界面 10 3 4 数据查询 17 总结 21 参考文献 21 沈阳理工大学课程设计专用纸 沈阳理工大学 2 第第 1 章章 系统功能概述系统功能概述 1 1 问题定义问题定义 设计一个房产信息管理系统 主要对各类房产信息进行有效的管理 使用计 算机对房产信息进行管理 具有手工管理所无法比拟的优点 例如 检索迅速 查找方便 可靠性高 存储量大等 从而能够极大地提高房产信息管理的效率 也是提高信息发布速度的手段 增强了信息的及时性 有效性 1 2 系统功能系统功能 本系统主要实现以下功能 房产管理 管理所有的房产信息 对房产数据进 行添加 修改 删除等操作 此外 方便的查询功能可以使客户迅速地找到自己 所需的房产信息 客户管理 拥有完善的客户管理功能 才能更加迅速地了解客 户的需求动态 客户管理功能要实现对客户各种数据的管理 包括客户和购买动 向等 收费管理 对于各种复杂的物业收费 完善的收费管理功能将使得收费管 理更加便捷准确 售楼管理 系统的核心 实现对楼盘销售的数据 合同签订情 况 客户付费等情况的管理 沈阳理工大学课程设计专用纸 沈阳理工大学 3 第第 2 章章 数据库设计数据库设计 2 1 需求分析需求分析 功能模块划分 1 系统登录模块 用于登录此系统 包括添加 编辑 删除其它管理员用户 2 会员管理模块 添加 删除发布房产信息的会员 修改会员信息 3 房产信息管理模块 用于添加 删除 修改 查询房产信息 并对其进行 分类 4 交易信息管理模块 用于添加 删除 修改交易信息 2 2 E R 模型模型 售楼系统功能模块 E R 图如下 图 2 1 系统功能 E R 图 沈阳理工大学课程设计专用纸 沈阳理工大学 4 2 3 关系模型关系模型 本系统包括的实体主要有系统用户 房产信息 交易 图 2 2 系统用户关系图 系统用户 用户 id 用户名 密码 电邮 级别 图 2 3 房产信息关系图 房产信息 信息编号 收款人 面积 房型 区域 价格 信息类型 图 2 4 交易关系图 交易 信息编号 收款人 交易人 交易时间 沈阳理工大学课程设计专用纸 沈阳理工大学 5 将售楼信息管理系统的 E R 图转换为关系模型如下 系统用户 用户名 密码 楼盘信息 楼盘编号 单元号 楼号 房号 户型 面积 楼层 收款信息 收款编号 交款日期 收款人 交款人 收款金额 合同信息 合同编号 合同签订日期 购买人姓名 身份证号 售楼人员姓名 合同单价 付款方式 贷款银行 2 4 数据库结构设计 表 2 1 系统用户表 字段名称字段描述类型位数属性 username用户名char20可空 passwd密码char20可空 表 2 2楼盘信息表 字段名称字段描述类型位数属性 build id楼盘编号int4主码 非空 unit num单元号 char20可空 area面积char20可空 type户型char20可空 bulid num楼号int4可空 Home num房号int4可空 floor楼层int4可空 表 2 3 收款信息表 字段名称字段描述类型位数属性 rece id收款编号int4主码 非空 issuer收款人char20外码 buyer交款人char20外码 amount交款金额char15可空 表 2 4 合同信息表 字段名称字段描述类型位数属性 pact id合同编号int4主码 非空 deal time签订日期char20可空 buyer购买者姓名char20外码 amount合同单价char15可空 idcard身份证号char18可空 issuer售楼人姓名char20外码 pay way付款方式char20可空 沈阳理工大学课程设计专用纸 沈阳理工大学 6 第第 3 章章 程序运行结果程序运行结果 3 1 登录界面登录界面 在 VB6 环境中 选择菜单 运行 启动 命令 将显示登陆窗体 如图 4 1 所 示 图 3 1 登录界面 程序代码 Private Sub cmdOK Click Static Count As Integer Dim sqlstr As String sqlstr select from 系统信息 where 用户名 txtUserName Adodc1 RecordSource sqlstr Adodc1 Refresh If Adodc1 Recordset BOF Then MsgBox 用户名错误 重新输入 vbExclamation 警告 txtUserName Text txtUserName SetFocus Else If Trim Adodc1 Recordset Fields 密码 Trim txtPassword Then 主窗体 Show Unload Me Else MsgBox 密码错误 重新输入 vbExclamation 警告 txtPassword Text txtPassword SetFocus End If End If Count Count 1 If Count 3 Then Unload Me End Sub 沈阳理工大学课程设计专用纸 沈阳理工大学 7 输入用户名及密码 点击确定后就进入系统主窗体 如图 3 2 所示 图 3 2 系统主窗体 程序代码 Private Sub hprint Click DataReport 合同 Show End Sub Private Sub mchahetong Click 查询合同信息 Show End Sub Private Sub mchashoukuan Click 查询收款信息 Show End Sub Private Sub mchaxun Click 查询楼盘信息 Show End Sub Private Sub MDIForm Unload Cancel As Integer Unload 登陆 End Sub Private Sub mexit Click Unload Me End Sub 沈阳理工大学课程设计专用纸 沈阳理工大学 8 Private Sub mhetong Click 管理合同信息 Show End Sub Private Sub mloupan Click 管理楼盘信息 Show End Sub Private Sub mprint Click DataReport 收款 Show End Sub Private Sub mprintlou Click DataReport 楼盘 Show End Sub Private Sub mprintlou Click DataReport 合同 Show End Sub Private Sub mshoukuan Click 管理收款信息 Show End Sub Private Sub mzhuce Click 注册新用户 Show End Sub 3 2 用户注册界面用户注册界面 新用户登录需注册 如图 3 3 所示 图 3 3 注册新用户 沈阳理工大学课程设计专用纸 沈阳理工大学 9 程序代码 Private Sub Command1 Click Dim sqlstr As String If Trim Text1 Text Then MsgBox 请输入用户名 vbOKOnly vbExclamation 警告 Text1 SetFocus Exit Sub Else sqlstr select from 系统信息 where 用户名 Text1 登陆 Adodc1 Refresh If 登陆 Adodc1 Recordset EOF False Then MsgBox 用户名已存在 请重新输入用户名 vbOKOnly vbExclamation 警告 Text1 Text Text2 Text Exit Sub End If End If If Trim Text2 Text Trim Text3 Text Then MsgBox 两次输入密码不一致 请确认 vbOKOnly vbExclamation 警告 Text2 SetFocus Text2 Text Exit Sub Else If Text2 Text Then MsgBox 密码不能为空 vbOKOnly vbExclamation 警告 Text2 SetFocus Text2 Text Text3 Text Else 登陆 Adodc1 Recordset AddNew 登陆 Adodc1 Recordset Fields 1 Trim Text2 Text MsgBox 添加用户成功 vbOKOnly vbExclamation 添加用户 Unload Me End If End If End Sub Private Sub Command2 Click Unload Me End Sub 沈阳理工大学课程设计专用纸 沈阳理工大学 10 3 3 数据信息界面数据信息界面 售楼人员对楼盘信息管理界面 如图 3 4 所示 图 3 4 楼盘信息管理界面 程序代码 Private Sub Command1 Click Text1 Locked False Text2 Locked False Text3 Locked False Text4 Locked False Text5 Locked False Text6 Locked False Text7 Locked False Adodc1 Recordset AddNew Command1 Enabled False Command2 Enabled False Command3 Enabled False Command4 Enabled True 沈阳理工大学课程设计专用纸 沈阳理工大学 11 Command5 Enabled True End Sub Private Sub Command2 Click Text1 Locked False Text2 Locked False Text3 Locked False Text4 Locked False Text5 Locked False Text6 Locked False Text7 Locked False Command1 Enabled False Command2 Enabled False Command3 Enabled False Command4 Enabled True Command5 Enabled True End Sub Private Sub Command3 Click X MsgBox 确定要删除当前记录吗 vbYesNo vbQuestion 确认 If X vbYes Then Adodc1 Recordset Delete Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then Adodc1 Recordset MoveLast End If Else Adodc1 Refresh End If End Sub Private Sub Command4 Click Adodc1 Recordset Update Command1 Enabled True Command3 Enabled True Command2 Enabled True Command4 Enabled False Command5 Enabled False Text1 Locked True Text2 Locked True Text3 Locked True Text4 Locked True Text5 Locked True End Sub Private Sub Command5 Click Adodc1 Refresh Command1 Enabled True 沈阳理工大学课程设计专用纸 沈阳理工大学 12 Command2 Enabled True Command3 Enabled True Command4 Enabled False Command5 Enabled False End Sub 售楼人员对合同信息管理界面 如图 3 5 所示 图 3 5 合同信息管理界面 程序代码如下 Private Sub Command1 Click Adodc1 Recordset AddNew Command1 Enabled False Command3 Enabled False Command4 Enabled True Command5 Enabled True Text1 SetFocus Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command2 Click Text1 SetFocus 沈阳理工大学课程设计专用纸 沈阳理工大学 13 End Sub Private Sub Command3 Click Dim x As String x MsgBox 确定要删除当前记录么 vbYesNo vbQuestion 确认 If x vbYes Then Adodc1 Recordset Delete Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then Adodc1 Recordset MoveLast End If Else Adodc1 Refresh End If Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command4 Click Adodc1 Recordset Update Command1 Enabled True Command3 Enabled True Command4 Enabled False Command5 Enabled False Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command5 Click Adodc1 Refresh Command1 Enabled True Command3 Enabled True Command4 Enabled False Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command6 Click Unload Me Form3 Show End Sub Private Sub Command7 Click Adodc1 Recordset MovePrevious Command8 Enabled True 沈阳理工大学课程设计专用纸 沈阳理工大学 14 If Adodc1 Recordset BOF Then Adodc1 Recordset MoveFirst Command7 Enabled False End If End Sub Private Sub Command8 Click Adodc1 Recordset MoveNext Command7 Enabled True Command8 Enabled False End If Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Form Load Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub 售楼人员对收款信息管理界面 如图 3 6 所示 图 3 6 收款信息管理界面 沈阳理工大学课程设计专用纸 沈阳理工大学 15 程序代码如下 Private Sub Command1 Click Adodc1 Recordset AddNew Command1 Enabled False Command3 Enabled False Command4 Enabled True Command5 Enabled True Text1 SetFocus Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command2 Click Text1 SetFocus End Sub Private Sub Command3 Click Dim x As String x MsgBox 确定要删除当前记录么 vbYesNo vbQuestion 确认 If x vbYes Then Adodc1 Recordset Delete Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then Adodc1 Recordset MoveLast End If Else Adodc1 Refresh End If Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command4 Click Adodc1 Recordset Update Command1 Enabled True Command3 Enabled True Command4 Enabled False Command5 Enabled False Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command5 Click Adodc1 Refresh 沈阳理工大学课程设计专用纸 沈阳理工大学 16 Command1 Enabled True Command3 Enabled True Command4 Enabled False Command5 Enabled False Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command6 Click Unload Me Form3 Show End Sub Private Sub Command7 Click Adodc1 Recordset MovePrevious Command8 Enabled True If Adodc1 Recordset BOF Then Adodc1 Recordset MoveFirst Command7 Enabled False End If Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub Private Sub Command8 Click Adodc1 Recordset MoveNext Command8 Enabled False End If Private Sub Form Load Label14 Caption 记录 Adodc1 Recordset AbsolutePosition Adodc1 Recordset RecordCount End Sub 沈阳理工大学课程设计专用纸 沈阳理工大学 17 3 4 数据数据查询查询 售楼人员对合同信息查询界面 如图 3 7 所示 图 3 7 合同信息查询界面 程序代码 Dim sqlstr As String If Combo1 List 0 Combo1 Text Then sqlstr select from 合同信息 where 合同编号 Trim Text1 Text Adodc1 Refresh ElseIf Combo1 List 1 Combo1 Text Then sqlstr select from 合同信息 where 购买人姓名 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 2 Combo1 Text Then sqlstr select from 合同信息 where 售楼人员姓名 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 3 Combo1 Text Then 沈阳理工大学课程设计专用纸 沈阳理工大学 18 sqlstr select from 合同信息 where 付款方式 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 5 Combo1 Text Then sqlstr select from 合同信息 where 合同签定日期 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 6 Combo1 Text Then sqlstr select from 合同信息 where 身份证号 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 7 Combo1 Text Then sqlstr select from 合同信息 where 合同单价 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 8 Combo1 Text Then sqlstr select from 合同信息 where 贷款银行 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh End If End Sub Private Sub Form Load Combo1 AddItem 合同编号 Combo1 AddItem 购买人姓名 Combo1 AddItem 售楼人员姓名 Combo1 AddItem 付款方式 Combo1 AddItem 合同签定日期 Combo1 AddItem 身份证号 Combo1 AddItem 合同单价 Combo1 AddItem 贷款银行 End Sub 沈阳理工大学课程设计专用纸 沈阳理工大学 19 售楼人员对楼盘信息查询界面 如图 3 8 所示 图 3 8 楼盘信息查询界面 程序代码 Private Sub Command1 Click Dim sqlstr As String If Combo1 List 0 Combo1 Text Then sqlstr select from 楼盘信息 where 楼盘编号 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 2 Combo1 Text Then sqlstr select from 楼盘信息 where 单元号 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 3 Combo1 Text Then sqlstr select from 楼盘信息 where 楼层 Trim Text1 Text Adodc1 RecordSource sqlstr Adodc1 Refresh ElseIf Combo1 List 5 Combo1 Text Then sqlstr select from 楼盘信息 where 户型 Tr