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

沈阳理工大学课程设计专用纸 Noi成 绩 评 定 表学生姓名张恒郡班级学号1109010116专 业信息与计算科学课程设计题目售楼信息管理系统评语组长签字：成绩日期 2013 年12月 日课程设计任务书学 院理学院专 业信息与计算科学学生姓名张恒郡班级学号 1109010116课程设计题目售楼信息管理系统实践教学要求与任务:设计为MDI窗体，含有主菜单：文件、数据管理、数据查询。文件菜单包含以下子菜单及其功能：注册新用户菜单：打开“注册新用户”窗体退出菜单：结束程序运行数据管理 包含以下子菜单：管理楼盘信息菜单：显示管理楼盘信息窗体管理合同信息菜单：显示管理合同信息窗体管理收款信息菜单：显示管理收款信息窗体管理收款合同信息菜单：显示管理收款合同信息窗体管理售楼合同信息菜单：显示管理售楼合同信息窗体 数据查询包含以下子菜单：查询楼盘信息：显示查询楼盘信息窗体查询合同信息：显示查询合同信息窗体查询收款信息：显示查询收款信息窗体查询收款合同信息：显示查询收款合同信息窗体查询售楼合同信息：显示查询售楼合同信息窗体工作计划与进度安排:第一周：数据库设计，利用SQL Server创建数据库及数据表。 总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。 撰写课程设计报告，验收与答辩。指导教师： 2013年12月1 日专业负责人：2013年 12月 日学院教学副院长：2013 年12月 日 沈阳理工大学课程设计专用纸 No50摘 要近几年，中国经济快速、平稳发展，伴随着中国城市化进程加快和住房体制的改革，售楼行业得到了迅猛发展，房地产销售业务量急剧扩大，因此对售楼管理提出了更高的要求。售楼信息管理系统就是为了实现这一目标而设计的，管理人员通过该系统可以及时了解楼盘的动态销售情况，还能充分利用电脑的可检索性、方便、快速地了解有关销售楼盘的其他各种详细资料，以便及时做出正确决策。 本系统主要实现以下功能：售楼管理，即管理所有的售楼信息、合同信息、收款信息，并对售楼数据进行添加、删除等操作。此外，方便的查询功能可以使客户迅速地找到自己所需的售楼信息；系统的核心实现对楼盘销售的数据、合同签订情况、客户付费等情况的管理。 系统以中文版Visual Basic 6.0为前台开发工具，用中文版SQL 2000作为后台数据库。关键词：Visual Basic SQL sever 2000 售楼信息管理系统目 录第一章 系统功能概述11.1 系统功能分析11.2 系统结构图1第二章 数据库设计22.1 需求分析22.2 E-R模型22.3 关系模型42.4 表结构设计5第三章 系统各功能模块的详细设计103.1 主窗体模块的详细设计103.2 用户管理模块的详细设计133.3 数据查询模块的详细设计173.4 数据管理模块的详细设计28总结50参考文献51I第1章 系统功能概述1.1 系统功能分析该系统具备的功能包括楼盘管理、合同管理、收款管理、售楼合同管理、收款合同管理、退出系统。具体主要实现如下功能：售楼信息管理部分包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理，其功能是分别实现对楼盘信息、合同信息、收款信息和售楼合同信息和收款合同信息的各部分数据内容的添加、删除等操作。售楼信息查询部分包括楼盘信息查询、合同信息查询、收款信息查询、售楼合同信息查询与收款合同信息查询，其功能是分别实现对楼盘信息、合同信息、收款信息、售楼合同信息和收款合同信息查询的各部分数据内容的查询操作。1.2 系统结构图图1.1售楼管理信息系统总体结构售楼信息管理售楼楼盘信息售楼合同信息售楼收款信息楼盘编号楼号单元号楼层房号户型面积合同编号合同签订日期购买人姓名身份证号售楼人员姓名合同单价付款方式贷款银行收款编号交款日期收款金额交款人收款人第2章 数据库设计2.1 需求分析通过对用户需求的分析，确定系统应具备的功能包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理、退出系统。具体主要实现如下功能：售楼信息管理部分包括楼盘信息管理与查询、合同信息管理与查询、收款信息管理与查询、售楼合同信息管理与查询和收款合同信息管理与查询，其功能是实现对楼盘各部分数据内容的添加、删除和查询等操作。（1）楼盘信息：包括楼盘信息的添加、删除和查询。楼盘信息包括楼盘编号，楼号，单元号，楼层，房号，户型和面积。（2）收款信息：包括收款信息的添加、删除和查询。收款信息包括收款编号，交款日期，收款金额，交款人和收款人。（3）合同信息：包括合同信息的添加、删除和查询。合同信息包括合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式和贷款银行。（4）售楼合同信息：包括售楼合同信息的添加、删除和查询。售楼合同信息包括合同编号，楼盘编号，合同签订日期和身份证号。（5）收款合同信息：包括收款合同信息的添加、删除和查询。收款合同信息包括收款编号，合同编号，交款人和收款人。2.2 E-R模型(1) 局部E-R模型：图1.2楼盘信息楼盘信息楼盘编号楼号单元号楼层房号户型面积图1.3合同信息合同信息合同编号合同签订日期身份证号售楼人员姓名购买人姓名合同单价付款方式贷款银行图1.4收款信息收款信息收款编号交款日期收款金额交款人收款人图1.5售楼合同信息售楼合同信息楼盘编号合同编号身份证号合同签订日期图1.6收款合同信息收款合同信息收款编号合同编号交款人收款人(2) 全局E-R模型：图1.7售楼信息管理系统E-R模型楼盘信息购买合同信息支付收款信息 m n n m楼盘编号身份证号合同编号合同编号交款人收款编号合同签订日期收款人2.3 关系模型（1） 楼盘信息（楼盘编号，楼号，单元号，楼层，房号，户型，面积）（2）合同信息（合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行）（3）收款信息（收款编号，交款日期，收款金额，交款人，收款人,有线电视费，电费）（4）售楼合同信息（楼盘编号，合同编号，合同签订日期，身份证号）（5）收款合同信息（收款编号，合同编号，收款人，交款人）2.4 表结构设计（1）用户信息表的建立与基本数据图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收款合同信息表基本数据第3章 系统各功能模块的详细设计3.1 主窗体模块的详细设计利用VB工程实现，页面的设计如下图：1、主窗体页面图1.20主窗体2、主窗体模块功能（1）设计为MDI窗体，含有主菜单：文件、数据管理、数据查询。文件菜单包含以下子菜单及其功能：注册新用户菜单：打开“注册新用户”窗体退出菜单：结束程序运行数据管理 包含以下子菜单：管理楼盘信息菜单：显示管理楼盘信息窗体管理合同信息菜单：显示管理合同信息窗体管理收款信息菜单：显示管理收款信息窗体管理收款合同信息菜单：显示管理收款合同信息窗体管理售楼合同信息菜单：显示管理售楼合同信息窗体 数据查询包含以下子菜单：查询楼盘信息：显示查询楼盘信息窗体查询合同信息：显示查询合同信息窗体查询收款信息：显示查询收款信息窗体查询收款合同信息：显示查询收款合同信息窗体查询售楼合同信息：显示查询售楼合同信息窗体3、主窗体模块详细设计代码Private 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()管理合同信息.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 SubPrivate 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 Label2 Caption输入用户 输入密码 命令按钮NameCmdLand CmdCancelCaption登录 取消文本框NameText1 Text2（3） 注册新用户 对新用户进行注册，输入用户名与密码，点击登录按钮，用户注册成功，否则退出系统对象的属性值表：表1-3对象名属性名属性值标签框NameLabel1 Label2 Label3Caption用户名 输入密码 确认密码命令按钮NameCommand1 Command2Caption登录 取消文本框NameText1 Text2 Text33、各模块详细设计代码（1）进入售楼管理系统代码Private Sub Command1_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("密码") = Text2 Then 主窗体.Show Unload Me Else MsgBox "密码错误，重新输入 ", vbExclamation, "警告"Text2.Text = " "Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd Sub（3）注册新用户代码Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = "" Then MsgBox "请输入用户名！", vbExclamation, "确认用户名" Text1.SetFocus Exit SubElse sqlstr = "Select * from 密码表 where 用户名='" & Text1 & "'" Adodc1.RecordSource = sqlstr Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox "用户名已存在，请重新输入！", vbExclamation, "检验用户名" Text1 = "" Text1.SetFocus Exit Sub End IfEnd IfIf Text2 <> Text3 Then MsgBox "二次输入的密码不一致，请重新输入", vbExclamation, "检验密码" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElseIf Text2 = "" Then MsgBox "密码不能为空！", vbExclamation, "检验密码" Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用户名") = Trim(Text1) Adodc1.Recordset.Fields("密码") = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox "成功注册新用户！", vbInformation, "添加用户"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.3 数据查询模块的详细设计利用VB工程实现，页面的设计如下图：1、各查询页面图1.24查询楼盘信息页面图1.25查询合同信息页面图1.26查询收款信息页面图1.27查询收款合同信息页面图1.28查询售楼合同信息页面2、 各查询模块功能combo1主要是实现查询条件的多样化，即可以实现利用不同的条件进行查询，text1则主要是接收查询信息，用来匹对相关信息，如果相符则输出相符的元组。输出框下面的主要是与数据源相连，以实现对数据源中的数据进行查询，查询窗口主要实现查询功能，输出框与相连之后可以实现对查询结果的输出。（1） 查询楼盘信息 选择查询对象，输入所要查询对象的内容，点击查询按钮，进行查询，如图所示图1.29对楼盘信息进行查询对象的属性值表：表14控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：楼盘编号，楼号，单元号，楼层，房号，户型，面积 标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认（2） 查询合同信息当查询合同信息时，对购买人姓名查询对象进行查询，输入王字进行模糊查询，在合同信息表里就可以看到所查的信息，如下图所示图1.30对合同信息进行查询对象的属性值表：表15控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行 标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认（3） 查询收款信息图1.31对收款信息进行查询对象的属性值表：表16控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：收款编号，交款日期，收款金额，交款人，收款人标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认（4） 查询收款合同信息图1.32对收款合同信息进行查询对象的属性值表：表17控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：合同编号，收款编号，交款人，收款人 标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认（5） 查询售楼合同信息图1.33对售楼合同信息进行查询对象的属性值表：表18控件名属性设置值文本框NameText1组合框NameCombo1ListCombo1：楼盘编号，合同编号，身份证号，合同签订日期标签控件NameLabel1Caption选择查询对象命令按钮Namecmdcx cmdfhCaption查询 返回DataGrid1属性默认3、各查询模块详细设计代码（1）查询楼盘信息代码Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 楼盘信息 " sqlstr = sqlstr & "where 楼盘信息.楼盘编号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = "select * from 楼盘信息 " sqlstr = sqlstr & "where 楼盘信息.楼号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 楼盘信息 " sqlstr = sqlstr & "where 楼盘信息.单元号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = "select * from 楼盘信息 " sqlstr = sqlstr & "where 楼盘信息.楼层 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(4) = Combo1.Text Then sqlstr = "select * from 楼盘信息 " sqlstr = sqlstr & "where 楼盘信息.房号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(5) = Combo1.Text Then sqlstr = "select * from 楼盘信息 " sqlstr = sqlstr & "where 楼盘信息.户型 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(6) = Combo1.Text Then sqlstr = "select * from 楼盘信息 " sqlstr = sqlstr & "where 楼盘信息.面积 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub Form_Load() Combo1.AddItem "楼盘编号" Combo1.AddItem "楼号" Combo1.AddItem "单元号" Combo1.AddItem "楼层" Combo1.AddItem "房号" Combo1.AddItem "户型" Combo1.AddItem "面积"End Sub（2）查询合同信息代码Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同编号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同签订日期 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.购买人姓名 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.身份证号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(4) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.售楼人员姓名 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(5) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同单价 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(6) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.付款方式 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.RefreshElseIf Combo1.List(7) = Combo1.Text Then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.贷款银行 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem "合同编号" Combo1.AddItem "合同签定日期" Combo1.AddItem "购买人姓名" Combo1.AddItem "身份证号" Combo1.AddItem "售楼人员姓名" Combo1.AddItem "合同单价" Combo1.AddItem "付款方式" Combo1.AddItem "贷款银行"End Sub（3）查询收款信息代码Private Sub cmdcx_Click()Dim sqlstr As String If Combo2.List(0) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.收款编号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(1) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.交款日期 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(2) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.收款金额 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(3) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.交款人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo2.List(4) = Combo2.Text Then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.收款人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub Form_Load() Combo2.AddItem "收款编号" Combo2.AddItem "交款日期" Combo2.AddItem "收款金额" Combo2.AddItem "交款人" Combo2.AddItem "收款人"End Sub（4）查询收款合同信息代码Private Sub cmdcx_Click()Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.合同编号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.收款编号 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.交款人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.收款人 like'" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End IfEnd SubPrivate Sub cmdfh_Click()主窗体.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem "合同编号" Combo1.AddItem "收款编号" Combo1.AddItem "交款人" Combo1.AddItem "收款人"End Sub（5）查询售楼合同信息代码Priv