59学生公寓管理系统毕业论文.doc

软件设计基础（VB）课程设计报告 第 75 页，共 75 页59学生公寓管理系统毕业论文目 录1.课程设计目的2.课程设计任务与要求3.课程设计说明书4.课程设计成果5.程序调试过程6.设计问题的不足和改进方案7.课程设计心得8.附录9.参考文献1课程设计目的软件设计基础（VB）课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。培养学生综合利用VisualBasic6.0语言进行程序设计的能力，主要培养学生使用ACCESS数据库和ADO控件设计信息管理类软件。2课程设计任务与要求：要求：本次课程设计利用软件设计基础（VB）课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务： 要求用ACCESS搭建数据库。 使用ADO控件实现与数据库的连接 程序界面美观，运行无差错 设计一个“学生公寓物业管理系统”程序，实现对学生公寓日常事务的电脑化管理，主要包括系统设置、学生管理、事务管理、资产管理、情况查询等内容。 3课程设计说明书功能描述主界面设计菜单，具体如下：（1）主菜单包含“系统设置”、“ 学生管理”、“事务管理”、“资产管理”、“情况查询”和“帮助”六项内容，每个主菜单项包括若干子菜单功能。（2）“系统设置”：包括用户设置、公寓设置。用户设置用来添加用户名和密码，允许添加两种权限的用户，一个是管理员，一个是普通用户；管理员具有所有操作权限，普通用户只能使用和查看信息，不能进行系统设置和删除操作。公寓设置包括公寓楼号设置、每座公寓寝室编号设置和班级代码设置。（3）“学生管理”：进行所有入住学生的管理，包括入住和退宿。能够对入住学生的信息进行添加、修改和删除操作。（4）“事务管理”：对学生的日常事务进行管理，包括请假管理、违纪处理、卫生检查。能够对这些事务进行登记、修改、删除操作（5）“资产管理”：对寝室物品的管理，包括购买新物品、物品分配和物品维修情况。（6）“情况查询”：用来进行床位查询、学生查询、事务查询。概要设计模块结构图： 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系（如下图）。学生公寓物业管理系统帮助情况查询资产管理事务管理学生管理系统设置关于用户设置公寓设置事务查询学生查询床位查询物品维修物品分配购买新物品卫生检查违纪处理请假管理退宿入住 登录添加用户详细设计 总体流程图：系统设置帮助事务管理公寓设置登录用户设置学生管理资产管理情况查询各功能模块流程图：系统设置学生管理用户设置登录公寓设置上一条上一条退出编辑删除添加下一条退宿入住下一条添加取消退宿更新事务管理资产管理卫生检查违纪处理请假管理物品维修物品分配购买新物品上一条下一条添加删除编辑退出上一条下一条添加删除编辑退出事务查询学生查询床位查询情况查询帮助关于添加退出查询代码实现详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。如：本系统总共15个窗体：form1-form15详细如下：form1、首页作用：“进入应用程序”。所用控件：1个菜单编辑器。设计思路：主要完成：系统设置，学生管理，事务管理，资产管理，情况查询，帮助。详细内容：属性较特殊的需要说明。代码如下：Private Sub cwcx_Click()Form11.ShowEnd SubPrivate Sub dl_Click()Form2.ShowEnd SubPrivate Sub Form_Load()MsgBox 请在系统设置中的用户设置中登录, 48, 提示rz.Enabled = Falsets.Enabled = Falseqjgl.Enabled = Falsewjcl.Enabled = Falsewsjc.Enabled = Falsegmxwp.Enabled = Falsewpfp.Enabled = Falsewpwx.Enabled = Falsecwcx.Enabled = Falsexscx.Enabled = Falseswcx.Enabled = Falsegy.Enabled = Falsegysz.Enabled = False tjyh.Enabled = FalseEnd SubPrivate Sub gmxwp_Click()Form8.ShowEnd SubPrivate Sub gy_Click()Form14.ShowEnd SubPrivate Sub gysz_Click()Form3.ShowEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub qjgl_Click()Form5.ShowEnd SubPrivate Sub rz_Click()Form4.ShowEnd SubPrivate Sub swcx_Click()Form13.ShowEnd SubPrivate Sub tjyh_Click()Form15.ShowEnd SubPrivate Sub ts_Click()Form4.ShowEnd SubPrivate Sub wjcl_Click()Form6.ShowEnd SubPrivate Sub wpfp_Click()Form9.ShowEnd SubPrivate Sub wpwx_Click()Form10.ShowEnd SubPrivate Sub wsjc_Click()Form7.ShowEnd SubPrivate Sub xscx_Click()Form12.ShowEnd SubForm2、用户设置作用：用于登录 所用控件：3个标签，2个文本框，1个combo控件，1个Ado控件，2个命令按钮设计思路：combo控件用于选择类型，2个命令按钮用于登录和取消 代码如下：Private Sub Combo1_Change()End SubPrivate Sub Command1_Click()Static Num As IntegerOn Error Resume NextIf Text1.Text = ThenMsgBox 请输入用户名!, 48, 提示ElseIf Text2.Text = ThenMsgBox 请输入密码!, 48, 提示ElseIf Combo1 = ThenMsgBox 请选择用户类型!, 48, 提示Exit SubEnd IfAdodc1.Recordset.MoveFirstFor i = 1 To Adodc1.Recordset.RecordCountIf Adodc1.Recordset.Fields(用户名) = Text1.Text And Text2.Text = Trim(Adodc1.Recordset.Fields(密码) And Adodc1.Recordset.Fields(用户类型) = Combo1 ThenForm1.ShowForm1.rz.Enabled = TrueForm1.ts.Enabled = TrueForm1.qjgl.Enabled = TrueForm1.wjcl.Enabled = TrueForm1.wsjc.Enabled = TrueForm1.gmxwp.Enabled = TrueForm1.wpfp.Enabled = TrueForm1.wpwx.Enabled = TrueForm1.cwcx.Enabled = TrueForm1.xscx.Enabled = TrueForm1.swcx.Enabled = TrueForm1.gy.Enabled = TrueForm1.gysz.Enabled = TrueForm1.tjyh.Enabled = TrueUnload MeElseAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenNum = Num + 1Text1.Text = Text2.Text = Combo1 = MsgBox 登陆不成功,请重新登陆!, 48, 提示Text1.SetFocusEnd IfIf Num = 3 Then Num = 0 EndEnd IfEnd IfNextEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Combo1.ClearCombo1.AddItem 管理员Combo1.AddItem 普通用户Dim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & 学生物业管理系统数据库.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = 用户信息.Refresh.Recordset.MoveFirstEnd WithEnd SubForm3、公寓设置作用：用于添加、删除、编辑公寓及其内容 所用控件：1个框架，7个标签，7个文本框，1个Ado控件，6个命令按钮设计思路：6个命令按钮分别用于查询、添加、删除、编辑、退出 代码如下：Private Sub Command1_Click()Adodc1.Recordset.MovePrevious 移动记录Command2.Enabled = TrueIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command1.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveNext 移动记录Command1.Enabled = TrueIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()On Error Resume NextIf Command3.Caption = 添加 ThenCommand4.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Caption = 确定Command5.Caption = 取消Adodc1.Recordset.AddNewText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueElseIf Text1.Text = ThenMsgBox 公寓名称不能为空！ElseIf Text2.Text = ThenMsgBox 公寓楼号不能为空！ElseIf Text3.Text = ThenMsgBox 寝室编号不能为空！ElseIf Text4.Text = ThenMsgBox 班级名称不能为空！ElseIf Text5.Text = ThenMsgBox 班级代码不能为空！ElseIf Text6.Text = ThenMsgBox 楼管人员不能为空！ElseIf Text7.Text = ThenMsgBox 寝室床位不能为空！ElseCommand4.Enabled = TrueCommand5.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueCommand5.Caption = 编辑Command3.Caption = 添加Adodc1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()On Error Resume NextIf Adodc1.Recordset.RecordCount = 1 ThenCommand4.Enabled = FalseEnd IfIf (MsgBox(你真的想删除当前记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstAdodc1.RefreshEnd IfEnd SubPrivate Sub Command5_Click()On Error Resume NextIf Command5.Caption = 编辑 ThenCommand4.Enabled = FalseText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueCommand3.Caption = 确定ElseIf Command5.Caption = 取消 ThenCommand5.Caption = 编辑Command3.Caption = 添加Command4.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseAdodc1.Recordset.CancelUpdateEnd IfEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()If Form2.Combo1 = 普通用户 ThenCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseElseIf Form2.Combo1 = 管理员 ThenCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd IfDim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & 学生物业管理系统数据库.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = 公寓信息.RefreshEnd WithEnd SubForm4、入住和退宿学生信息作用：用于入住和退宿学生信息的编辑 所用控件：9个标签，9个文本框， 1个Ado控件，6个命令按钮设计思路：6个命令按钮分别用于查询、添加、退宿、编辑、退出 代码如下：Private Sub Command1_Click()Adodc1.Recordset.MovePreviousCommand2.Enabled = TrueIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command1.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveNextCommand1.Enabled = TrueIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()On Error Resume NextIf Command3.Caption = 添加 ThenCommand4.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Caption = 确定Command5.Caption = 取消Adodc1.Recordset.AddNewText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueElseIf Text1.Text = ThenMsgBox 姓名不能为空！ElseIf Text2.Text = ThenMsgBox 性别不能为空！ElseIf Text3.Text = ThenMsgBox 学号不能为空！ElseIf Text4.Text = ThenMsgBox 专业不能为空！ElseIf Text5.Text = ThenMsgBox 班级不能为空！ElseIf Text6.Text = ThenMsgBox 公寓不能为空！ElseIf Text7.Text = ThenMsgBox 寝室不能为空！ElseIf Text8.Text = ThenMsgBox 入学时间不能为空！ElseIf Text9.Text = ThenMsgBox 个人电话不能为空！ElseCommand4.Enabled = TrueCommand5.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueCommand5.Caption = 退宿Command3.Caption = 添加Adodc1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()On Error Resume NextIf Command.Caption = 更新 ThenCommand6.Enabled = FalseText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueCommand3.Caption = 确定ElseIf Command4.Caption = 取消 ThenCommand4.Caption = 更新Command3.Caption = 添加Command5.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseAdodc1.Recordset.CancelUpdateEnd IfEnd SubPrivate Sub Command5_Click()On Error Resume NextIf Adodc1.Recordset.RecordCount = 1 ThenCommand5.Enabled = FalseEnd IfIf (MsgBox(你真的想删除当前记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstAdodc1.RefreshEnd IfEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()If Form2.Combo1 = 普通用户 ThenCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseElseIf Form2.Combo1 = 管理员 ThenCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd IfDim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & 学生物业管理系统数据库.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = 学生信息.RefreshEnd WithEnd SubForm5、请假管理 作用：用于学生请假的管理 所用控件：9个标签，9个文本框， 1个Ado控件，6个命令按钮设计思路：6个命令按钮分别用于查询、添加、删除、编辑、退出 代码如下：Private Sub Command1_Click()Adodc1.Recordset.MovePrevious 移动记录Command2.Enabled = TrueIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command1.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveNext 移动记录Command1.Enabled = TrueIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()On Error Resume NextIf Command3.Caption = 添加 ThenCommand4.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Caption = 确定Command5.Caption = 取消Adodc1.Recordset.AddNewText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueElseIf Text1.Text = ThenMsgBox 姓名不能为空！ElseIf Text2.Text = ThenMsgBox 班级不能为空！ElseIf Text3.Text = ThenMsgBox 公寓不能为空！ElseIf Text4.Text = ThenMsgBox 寝室不能为空！ElseIf Text5.Text = ThenMsgBox 天数不能为空！ElseIf Text6.Text = ThenMsgBox 日期不能为空！ElseIf Text7.Text = ThenMsgBox 原因不能为空！ElseIf Text8.Text = ThenMsgBox 原因不能为空！ElseCommand4.Enabled = TrueCommand5.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueCommand5.Caption = 编辑Command3.Caption = 添加Adodc1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()On Error Resume NextIf Adodc1.Recordset.RecordCount = 1 ThenCommand4.Enabled = FalseEnd IfIf (MsgBox(你真的想删除当前记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstAdodc1.RefreshEnd IfEnd SubPrivate Sub Command5_Click()On Error Resume NextIf Command5.Caption = 编辑 ThenCommand4.Enabled = FalseText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueCommand3.Caption = 确定ElseIf Command5.Caption = 取消 ThenCommand5.Caption = 编辑Command3.Caption = 添加Command4.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseAdodc1.Recordset.CancelUpdateEnd IfEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()If Form2.Combo1 = 普通用户 ThenCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseElseIf Form2.Combo1 = 管理员 ThenCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd IfDim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & 学生物业管理系统数据库.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = 请假表.RefreshEnd WithEnd SubForm6、违纪处理 作用：用于违纪学生的处理 所用控件：9个标签，9个文本框， 1个Ado控件，6个命令按钮设计思路：6个命令按钮分别用于查询、添加、删除、编辑、退出 代码如下：Private Sub Command1_Click()Adodc1.Recordset.MovePrevious 移动记录Command2.Enabled = TrueIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command1.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveNext 移动记录Command1.Enabled = TrueIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()On Error Resume NextIf Command3.Caption = 添加 ThenCommand4.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Caption = 确定Command5.Caption = 取消Adodc1.Recordset.AddNewText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueElseIf Text1.Text = ThenMsgBox 姓名不能为空！ElseIf Text2.Text = ThenMsgBox 班级不能为空！ElseIf Text3.Text = ThenMsgBox 公寓不能为空！ElseIf Text4.Text = ThenMsgBox 寝室不能为空！ElseIf Text5.Text = ThenMsgBox 日期不能为空！ElseIf Text6.Text = ThenMsgBox 原因不能为空！ElseIf Text7.Text = ThenMsgBox 程度不能为空！ElseIf Text8.Text = ThenMsgBox 处罚情况不能为空！ElseCommand4.Enabled = TrueCommand5.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueCommand5.Caption = 编辑Command3.Caption = 添加Adodc1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()On Error Resume NextIf Adodc1.Recordset.RecordCount = 1 ThenCommand4.Enabled = FalseEnd IfIf (MsgBox(你真的想删除当前记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstAdodc1.RefreshEnd IfEnd SubPrivate Sub Command5_Click()On Error Resume NextIf Command5.Caption = 编辑 ThenCommand4.Enabled = FalseText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueCommand3.Caption = 确定ElseIf Command5.Caption = 取消 ThenCommand5.Caption = 编辑Command3.Caption = 添加Command4.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseAdodc1.Recordset.CancelUpdateEnd IfEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()If Form2.Combo1 = 普通用户 ThenCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseElseIf Form2.Combo1 = 管理员 ThenCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd IfDim provider As StringDim datasource As String