售楼信息管理系统课程设计
- 格式:doc
- 大小:3.59 MB
- 文档页数:55
成绩评定表课程设计任务书摘要近几年,中国经济快速、平稳发展,伴随着中国城市化进程加快和住房体制的改革,售楼行业得到了迅猛发展,房地产销售业务量急剧扩大,因此对售楼管理提出了更高的要求。
售楼信息管理系统就是为了实现这一目标而设计的,管理人员通过该系统可以及时了解楼盘的动态销售情况,还能充分利用电脑的可检索性、方便、快速地了解有关销售楼盘的其他各种详细资料,以便及时做出正确决策。
本系统主要实现以下功能:售楼管理,即管理所有的售楼信息、合同信息、收款信息,并对售楼数据进行添加、删除等操作。
此外,方便的查询功能可以使客户迅速地找到自己所需的售楼信息;系统的核心实现对楼盘销售的数据、合同签订情况、客户付费等情况的管理。
系统以中文版Visual Basic 6.0为前台开发工具,用中文版SQL 2000作为后台数据库。
关键词:Visual Basic SQL sever 2000 售楼信息管理系统目录第一章系统功能概述 (1)1.1 系统功能分析 (1)1.2 系统结构图 (1)第二章数据库设计 (2)2.1 需求分析 (2)2.2 E-R模型 (2)2.3 关系模型 (4)2.4 表结构设计 (5)第三章系统各功能模块的详细设计 (10)3.1 主窗体模块的详细设计 (10)3.2 用户管理模块的详细设计 (13)3.3 数据查询模块的详细设计 (17)3.4 数据管理模块的详细设计 (28)总结 (50)参考文献 (51)第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模型2.3 关系模型(1)楼盘信息(楼盘编号,楼号,单元号,楼层,房号,户型,面积)(2)合同信息(合同编号,合同签订日期,购买人姓名,身份证号,售楼人员姓名,合同单价,付款方式,贷款银行)(3)收款信息(收款编号,交款日期,收款金额,交款人,收款人,有线电视费,电费)(4)售楼合同信息(楼盘编号,合同编号,合同签订日期,身份证号)(5)收款合同信息(收款编号,合同编号,收款人,交款人)2.4 表结构设计(1)用户信息表的建立与基本数据图1.8密码表属性基本数据如下图:图1.9密码表基本数据(2)楼盘信息表的建立与基本数据图1.10楼盘信息表属性基本数据如下图:(3)合同信息表的建立与基本数据图1.12合同信息表属性基本数据如下图:(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(2)输入用户与密码,若输入正确,则可以对售楼信息进行管理与查询,否则退出系统对象的属性值表:表1-2(3)对新用户进行注册,输入用户名与密码,点击登录按钮,用户注册成功,否则退出系统对象的属性值表:表1-33(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主窗体.ShowUnload MeElseMsgBox "密码错误,重新输入 ", vbExclamation, "警告"Text2.Text = " "Text2.SetFocusEnd 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 = "" ThenMsgBox "请输入用户名!", vbExclamation, "确认用户名"Text1.SetFocusExit SubElsesqlstr = "Select * from 密码表 where 用户名='" & Text1 & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox "用户名已存在,请重新输入!", vbExclamation, "检验用户名"Text1 = ""Text1.SetFocusExit SubEnd IfEnd IfIf Text2 <> Text3 ThenMsgBox "二次输入的密码不一致,请重新输入", vbExclamation, "检验密码" Text2 = "": Text3 = ""Text2.SetFocusExit SubElseIf Text2 = "" ThenMsgBox "密码不能为空!", vbExclamation, "检验密码"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名") = Trim(Text1)Adodc1.Recordset.Fields("密码") = Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox "成功注册新用户!", 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则主要是接收查询信息,用来匹对相关信息,如果相符则输出相符的元组。