[理学]物业管理系统数据库课程设计.doc

沈阳理工大学课程设计专用纸 No32目 录第一章 系统功能概述11.1 系统功能11.2 系统功能模块图2第二章 数据库设计22.1 需求分析22.2 E-R模型42.3关系模型52.4表结构设计7第三章 系统各功能模块的详细设计93.1 欢迎界面的设计93.2 主控界面103.3 登录和注册界面123.4 浏览界面163.5 查询界面223.6 修改界面26总 结31参考文献3232沈阳理工大学第一章 系统功能概述1.1 系统功能随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对业主资源信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高物业管理员管理业主信息的效率。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套物业馆管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。经过分析如此情况,我们使用微软公司的VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。1.1 系统功能设计能够管理所有业主的相关信息，如：业主编号，姓名，性别，门牌号，面积等；输入收费项目的信息，如：收费编号，收费名称，单价，收费说明等；服务项目的信息，如：项目编号，项目名称，负责人等。业主交费，应记载交费日期，交费金额、，收款人等；业主接受服务，应记录服务时间，服务效果等。功能包括：（1）可浏览所有业主信息，服务项目信息，收费信息。（2）能对所有信息进行录入和编辑（3）能对各种信息进行精确查询或模糊查询。1.2 系统功能模块图物业管理系统系统管理登录退出业主交费信息管理业主信息管理业主服务信息管理理物业收费信息管理服务项目信息管理记录的修改记录的添加记录的删除信息管理信息查询修改密码记录的添加记录的修改记录的删除第二章 数据库设计2.1 需求分析系统开发的总体任务是实现图书信息关系的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。用户及功能要求：建立物业业主信息档案，物业收费信息档案，业主交费信息档案，物业服务项目信息档案，业主接受服务信息档案；完成新用户的注册功能及以上信息的浏览、查询、添加、删除以及修改功能，具体要求如下：（1）业主信息档案数据包括：业主编号、姓名、性别、电话、门牌号、面积。操作要求：能进行业主信息的浏览、查询、添加、删除以及修改。输出数据：在浏览窗口上可对业主信息进行查询、添加、删除和修改。在查询时按要求输入某个业主的基本信息，可以进行模糊查询以及精确查询。（2）物业收费信息档案数据包括：收费编号、收费名称、单价、收费说明。 操作要求：能进行物业收费信息的浏览、查询、添加、删除以及修改。输出数据：在浏览窗口上可对物业收费信息进行查询、添加、删除和修改。在查询时按要求输入某个物业收费的基本信息，可以进行模糊查询以及精确查询。（3）业主交费信息档案数据包括：业主编号、收费编号、交费日期、交费金额、收款人 操作要求：能进行业主交费信息的浏览、查询、添加、删除以及修改。输出数据：在浏览窗口上可对业主交费信息进行查询、添加、删除和修改。在查询时按要求输入某个业主交费的基本信息，可以进行模糊查询以及精确查询。（4）物业服务项目信息档案数据包括：项目编号、项目名称、负责人 操作要求：能进行物业服务项目信息的浏览、查询、添加、删除以及修改。输出数据：在浏览窗口上可对物业服务项目信息进行查询、添加、删除和修改。在查询时按要求输入某个服务项目的基本信息，可以进行模糊查询以及精确查询。（5）业主接受服务信息档案数据包括：业主编号、项目编号、服务费用、服务时间、服务效果 操作要求：能进行业主接受服务信息的浏览、查询、添加、删除以及修改。输出数据：在浏览窗口上可对业主接受服务信息进行查询、添加、删除和修改。在查询时按要求输入某个业主接受服务的基本信息，可以进行模糊查询以及精确查询。（6）登录系统在系统欢迎界面点击进入后即可进入登陆界面，在进入登陆界面后输入用户名和密码，正确即可进入主窗体界面进行操作，如果密码错误三次后就自动退出登陆界面。（7）主窗体操作系统在登陆进入主窗体界面后即可进行数据的操作了，业主信息的查询、添加、删除和修改。新用户的注册在登陆界面点击“注册”按钮即可进入新用户注册界面。用户密码的修改可以在主窗体界面的“系统管理”下的“修改密码”里面进行，要求输入用户名、原密码和新密码。2.2 E-R模型管理人员登陆进入管理界面YN信息管理系统管理业 主 信 息业主编号姓 名性 别电 话门牌号面 积业 主 信 息业主编号姓 名性 别电 话门牌号面 积物业收费信息收费编号收费名称单 价收费说明收取费用业主交费信息MN业主编号收费编号交费日期交费金额收款人物业服务项目信息项目编号项目名称负责人服务业主接受服务信息业主编号项目编号服务费用服务时间服务效果MN2.3关系模型（1）业主信息（业主编号，姓名，性别，电话，门牌号，面积）（2）交费信息（业主编号，收费编号，交费日期，交费金额，收款人）（3）收费信息（收费编号，收费名称，单价，收费说明）（4）服务信息（业主编号，项目编号，服务费用，服务时间，服务效果）（5）服务项目（项目编号，项目名称，负责人）（6）用户信息（用户名，密码）表结构设计启动SQL Server 2000建立数据库课程设计，在该数据库中，用可视化的方法进行建表，要建的表有业主信息表、交费信息表、收费信息、服务信息、服务项目和用户信息六个表，所建各表的表信息如下：表1：业主信息表表2：交费信息表3：收费信息表4：服务信息表5：服务项目表6：用户信息2.4表结构设计启动SQL Server 2000建立数据库课程设计，在该数据库中，用可视化的方法进行建表，要建的表有业主信息表、交费信息表、收费信息、服务信息、服务项目和用户信息六个表，所建各表的表信息如下：表1：业主信息： 表2：交费信息： 表3：收费信息： 表4：服务信息： 表5：服务项目信息表6：用户登录信息第三章 系统各功能模块的详细设计3.1 欢迎界面的设计点击欢迎界面上的欢迎词“请单击进入登陆界面” 时即可跳转到MDIForm1主界面，欢迎词用Label控件进行添加，程序运行时欢迎界面最大化。控件属性值表：控件名属性名属性值Label1Caption欢迎进入物业管理系统Font宋体、一号ForeColor红色欢迎界面如下图所示对应代码如下：Private Sub Label_Click()MDIForm1.ShowUnload MeEnd Sub3.2 主控界面主控界面是MDI窗体，含有的主菜单包含：登录、信息管理、信息查询和系统管理。在未登录之前只有登录菜单可用，成功登录之后信息管理、信息查询和系统管理三个主菜单变为可用的。主控界面的详细情况如下：登录菜单：打开登录界面信息管理菜单包含以下子菜单和功能：业主信息管理菜单：显示业主信息的查询窗体业主交费信息管理菜单：显示业主交费信息的查询窗体业主接受服务信息管理菜单：显示业主接受服务信息的查询窗体信息查询菜单包含以下子菜单和功能：物业收费信息管理菜单：显示收费信息的查询窗体服务项目信息管理菜单：显示项目信息的窗体窗体系统管理菜单包含以下子菜单和功能： 修改密码菜单：修改已有用户的密码退出系统菜单：关闭程序主控界面的设计如下图所示： 对应代码如下：Private Sub MDIForm_Load()信息管理.Enabled = False系统管理.Enabled = False信息查询.Enabled = FalseEnd SubPrivate Sub 登录_Click()Form2.ShowEnd SubPrivate Sub 服务项目信息管理_Click()Form7.ShowEnd SubPrivate Sub 退出系统_Click()If MsgBox( 退出系统！ , vbOKCancel, 提示信息) = vbOK Then Unload MeEnd IfEnd SubPrivate Sub 物业收费信息管理_Click()Form5.ShowEnd SubPrivate Sub 修改密码_Click()Form14.ShowEnd SubPrivate Sub 业主交费信息管理_Click()Form6.ShowEnd SubPrivate Sub 业主接受服务信息管理_Click()Form8.ShowEnd SubPrivate Sub 业主信息管理_Click()Form4.ShowEnd Sub3.3 登录和注册界面（1）登录界面的设计用Label控件添加“用户名”和“密码”显示在界面上，并在后面用TextBox控件添加练个输入区，三个按钮则由CommandButton控件进行添加，最后由Adodc控件与数据库相连。控件属性值表： 控件名属性名属性值控件名属性名属性值Label2Caption用户名Command1Caption登录Font宋体、小四Font宋体、小四Label3Caption密码Command3Caption注册Font宋体、小四Font宋体、小四登录界面如下： 当输入的用户名不存在或者密码错误时系统会给出警告： 对应的代码如下：Dim miCount As Integer 用于记录输入密码次数Private Sub Command1_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 MDIForm1.Show MDIForm1.信息管理.Enabled = TrueMDIForm1.系统管理.Enabled = TrueMDIForm1.信息查询.Enabled = True Unload Me Else MsgBox 密码错误，重新输入 , vbExclamation, 警告Text2.Text = Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Form3.ShowUnload MeEnd Sub（2）注册界面的设计该界面主要有CommandButton控件添加两个按钮“确认”和“取消”，Label控件添加的四个标签以及TextBox控件添加的三个输入区，最后由Adodc控件和“密码表”连接。控件属性值表： 控件名属性名属性值控件名属性名属性值Label1Caption输入用户名Label4Caption确认密码Font宋体、小四Font宋体、小四号Label2Caption输入用户名Command1Caption确认Font宋体、小四号Font宋体、小五号Label3Caption输入密码Command2Caption取消Font宋体、小四号Font宋体、小五号注册界面如下：当两次输入的密码不同和注册成功时都会给出提示： 对应代码如下：Private Sub CmdOK_Click()Dim SQLStr As StringIf Text1 = Then MsgBox 请输入用户名！, vbExclamation, 确认用户名 Text1.SetFocus Exit SubElse SQLStr = Select * from 用户信息 where 用户名= & Text1 & Adodc1.RecordSource = SQLStr Adodc1.Refresh判断输入的用户名是否已存在： If Adodc1.Recordset.EOF = False Then MsgBox 用户名已存在，请重新输入！, vbExclamation, 检验用户名 Text1 = Text2 = : Text3 = Text1.SetFocus Exit Sub End IfEnd If判断二次输入密码是否一致：If 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 CmdCancel_Click() 单击取消按钮Form2.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub3.4 浏览界面（1）业主信息查询界面如下该界面浏览时支持向前或者向后逐条浏览记录，但是到达首记录时“前移”按钮失效，到达末记录时“后移”按钮失效。另外，还可以根据需求进行跳跃式浏览，在界面上还可以显示你当前浏览的记录在表中的位置。控件属性值表： 控件名属性名属性值控件名属性名属性值Text1DataSourceAdodc1Text4DataSourceAdodc1DataField业主编号DataField电话LockedTrueLockedTrueText2DataSourceAdodc1Text5DataSourceAdodc1DataField姓名DataField门牌号LockedTrueLockedTrueText3DataSourceAdodc1Text6DataSourceAdodc1DataField性别DataField面积LockedTrueLockedTrue控件名属性名属性值作用CmdFirstCaption首记录将指针移动到第一条记录CmdPreCaption前移指针向前移动一个记录CmdNextCaption后移指针向后移动一条记录CmdLastCaption末记录指针移动到最后一条记录CmdNCaption移动记录数一次移动n条记录Text7Text空输入要移动的记录数Label7Caption空显示当前记录数和记录总数业主信息查询界面如下（首记录）：对应的代码如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdModify.Enabled = FalseCmdOK.Enabled = TrueCmdCancel.Enabled = TrueText1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = FalseEnd SubPrivate Sub CmdCancel_Click()Adodc1.RefreshCmdModify.Enabled = TrueCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOK.Enabled = FalseCmdCancel.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox(确实要删除当前记录吗？, vbYesNo + vbQuestion, 确认)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst 记录指针移到首记录（显示首记录）CmdFirst.Enabled = False 让首记录按钮无效CmdPre.Enabled = False 让前移按钮无效CmdNext.Enabled = True 让后移按钮有效CmdLast.Enabled = True 让末记录按钮有效在Label7上显示当前记录号/记录总数：Label7.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdLast_Click()Adodc1.Recordset.MoveLast 移到末记录 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseLabel7.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdModify_Click() Dim answer As String On Error GoTo CmdModify CmdDel.Enabled = False CmdModify.Enabled = False CmdAdd.Enabled = False CmdOK.Enabled = True CmdCancel.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Exit SubCmdModify: If Err.Number 0 Then MsgBox Err.Description End IfEnd SubPrivate Sub CmdN_Click()Dim n As Integern = Text7.TextAdodc1.Recordset.Move nIf n 0 Then CmdFirst.Enabled = True CmdPre.Enabled = True End IfLabel7.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdNext_Click()Adodc1.Recordset.MoveNext 记录指针移到下一条记录CmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast 则记录指针移到末记录上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel7.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdOK_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdModify.Enabled = TrueCmdOK.Enabled = FalseCmdCancel.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueEnd SubPrivate Sub CmdPre_Click()Adodc1.Recordset.MovePrevious 记录指针移到前一条记录CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF Then 如果记录指针移到首记录之前, Adodc1.Recordset.MoveFirst 则记录指针移到首记录上 CmdFirst.Enabled = False CmdPre.Enabled = FalseEnd IfLabel7.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click()Dim sql As String sql = select * from 业主信息 where 业主编号= & Text1.Text & Adodc2.RecordSource = sql Adodc2.Refresh Set Form9.DataGrid1.DataSource = Adodc2 Form9.DataGrid1.ReBindForm9.ShowUnload MeEnd SubPrivate Sub Form_Load()CmdFirst.Enabled = False 首记录按钮无效CmdPre.Enabled = False 前移按钮无效CmdNext.Enabled = True 后移按钮有效CmdLast.Enabled = True 末记录按钮有效Label7.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub（2）业主交费信息浏览界面由于业主交费信息的浏览和业主信息的浏览及其类似，所以在这里不再赘述。（3）接受服务信息浏览界面和业主信息浏览的功能和界面都类似，所以也不再给出。3.5 查询界面（1）业主信息查询界面查询时分为三种情况的查询，一种是按“业主编号”、“姓名”、“门牌号”查询，由Combo控件控制，可以按需求选择，查询时都可以进行模糊查询，并可以显示出查询到的记录的数量。第一种查询条件控件属性值表：控件名属性名属性值控件名属性名属性值Label1Caption按类型查询Command2Caption业主信息Font宋体、小五Font宋体、小四Label2Caption请输入查询信息Command3Caption返回Font宋体、小四Font宋体、小四Command1Caption模糊查询DataGrid1DataSourceAdodc1Font宋体、小五业主信息查询界面如下：对应的代码如下：Private Sub Command1_Click()Dim str As Stringstr = Select * from 业主信息 Where 业主信息. & Combo1.Text & = & Text1 & Text1 = Adodc1.RecordSource = strAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd SubPrivate Sub Command2_Click()Form15.ShowEnd SubPrivate Sub Command3_Click()Dim str As Stringstr = Select * from 业主信息 Where 业主信息. & Combo1.Text & like & Text1 & % Text1 = Adodc1.RecordSource = strAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd SubPrivate Sub Command4_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.Text = 业主编号 让组合框初始选中姓名项Text1.Text = 清空文本框End Sub第二种查询条件控件属性值表：控件名属性名属性值控件名属性名属性值Label1Caption请输入查询信息Command1Caption业主信息Font宋体、小四Font宋体、小四Label2Caption按类别查询Command2Caption返回Font宋体、小五Font宋体、小四Label3Caption模糊查询DataGrid1DataSourceAdodc1Font宋体、小五Text1DataSourceAdodc2查询界面如下：（2）业主交费信息查询界面由于业主交费信息查询界面的设计和业主信息的类似，功能也相近，所以只给出查询界面的图片。（3）业主接受服务项目信息查询界面接受服务信息查询的界面功能和业主信息的查询基本一样，同样只给出图片。3.6 修改界面（1）业主信息的修改界面修改界面的功能主要有添加、删除、修改，添加时在文本输入区输入要添加的记录的详细内容，然后点击添加按钮即可把信息添加到数据库中。删除时先要选定要删除的记录，点击删除按钮即可把信息删除。修改时也要选定要修改的记录，点击“修改”，直接在记录上修改，修改完后确定即可保存。 控件属性值表：控件名属性名属性值控件名属性名属性值Label1Caption业主编号Command1Caption查询Font宋体、小四Font宋体、小四Label2Caption姓名Command2Caption修改Font宋体、小四Font宋体、小四Label3Caption性别Command3Caption添加Font宋体、小四Font宋体、小四Label4Caption电话Command4Caption删除Font宋体、小四Font宋体、小四Label5Caption门牌号Command5Caption确定Font宋体、小四Font宋体、小四Label6Caption面积Command6Caption取消Font宋体、小四Font宋体、小四控件名属性名属性值作用CmdFirstCaption首记录将指针移动到第一条记录CmdPreCaption前移指针向前移动一个记录CmdNextCaption后移指针向后移动一条记录CmdLastCaption末记录指针移动到最后一条记录CmdNCaption移动记录数一次移动n条记录