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

学生公寓管理系统毕业设计毕业论文 目录引言4第一章系统分析51.1开发工具简介及系统运行环境51.2开发的必要性61.3系统开发的可行性71.4数据来源81.5新系统数据流程图9第二章 数据库设计12第三章功能模块设计163.1新系统功能结构图及运行图如下：163.2系统设置:173.3公寓管理183.4 卫生检查193.5 公寓资产203.6 记录查看与记录删除203.7值班记录203.8帮助制作21第四章 程序设计22主程序流程图224.1 登录界面234.2 程序主界面264.3系统设置324.4公寓管理574.5卫生检查604.6 公寓资产644.7记录查看664.8记录删除744.9值班记录814.10 Help制作88第五章 系统测试90总结91参考文献92引言随着电脑的普及与应用，现在的管理也需要提升一个档次。即从原来的手工记录管理模式转变为电脑一体化管理。这样会给公寓的管理人员带来很多好处，让他们管理的效率更高、效果更好，管理起来更方便。由此而产生了本管理软件学生公寓管理软件。学生公寓管理软件是用Microsoft Visual Basic编写完成。由于Visual Basic率先采用了可视化（VISUAL）的程序设计方法。所以利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观，动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。做起来方便，使用起来更为快捷。作为一个学生公寓的管理软件，要十分全面的贴近以及适合大学公寓的管理方法。本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法。如各个公寓的分布特色，以及公寓的各种管理制度。这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个公寓最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。本软件主要包括以下方面：系统设置、公寓管理、卫生检查、公寓资产、记录查看、记录删除、值班记录、帮助制作。学生公寓管理软件目前版本为1.0.1，为一个测试版本。它目前在功能上，以及操作的简便上有很大的改进。但是还是存在一些不足，在有些功能的实现上还不是十分的理想，这也是本人在时间和精力上留下的遗憾。但是相信这些会在以后的版本中得到完善，使这个软件成为一个功能上最全，使用上最简捷方便的管理软件。第一章系统分析系统采用MICROSOFT公司的 VISUAL BASIC语言编写的学生公寓管理系统,本系统在研制开发过程中，严格遵循软件工程方法，完全采用结构化程序设计方法。本系统的主要功能可以方便的对学生公寓进行管理，系统采用ACCESS数据库使数据具有较强的完整性、较好的数据安全性等特点以及提供了标准的帮助，使用户方便的获得所需的帮助。界面友好、操作简单、功能齐全、具有较好的人机接口界面是本系统的最大优点。1.1开发工具简介及系统运行环境111 VB6简介 本软件的开发工具为VISUAL BASIC，作为一种开发语言，VISUAL BASIC率先采用了可视化（VISUAL）的程序设计方法。利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观、动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。它还拥有面向对象的编程方法。面向对象的程序设计是伴随WIDNOWS图形界面的诞生而产生的一种新的程序设计思想，与传统程序设计有着较大的区别，VISUAL BASIC采用了面向对象的程序设计思想。所谓“对象”就是现实生活中的每个一人，每一个可见的实体。同样，在VISUAL BASIC中，用来构成用户图形界面的可视化控件，也可视为是一个对象。不同的对象，在程序中所赋给它的功能是不同的，比如，在图形界面上有两个命令按钮，一个用来实现数据的统计计算，另一个用来实现数据的打印，这两个按钮就可视为是两个不同的对象，为了实现这两个对象各自不同的功能，接下来就应该分别针对这两个对象编写程序代码，这种编程的思想和方法即为所谓的“面向对象的程序设计”。它还支持第三方软件商为其开发的可视化控制对象，如本例中就用到了一个。这些可视化控件对应的文件扩展名这OCX。只要拥有控件的OCX文件，就可将其加入到VB系统中，从而大大增强VB的编程实力。使软件做起来会更加得心应手。112 HELP 制作 制作help文档需要一个专业制作软件，本人使用的是破解版的QuickCHM，此软件无论在功能上还在是操作上用起来都是很方便。它属于一个傻瓜型的制作软件，利用它可以快速的制作出各种你所需要的帮助文档。但是如果想制作出帮助文档，就需要使用制作网页的软件把内容先做成html形式，本人使用Dreamweaver制作的网页，然后在用此软件进行加载，最后生成chm文档。1.2开发的必要性信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企业或组织生存越来越重要的信息资源。长期以来，使用传统人工的方法管理高校公寓，这种管理方式存在着许多缺点，如：效率低。而且时间一长，将产生大量的文件和数据，这对于查找、更新、维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理软件。本系统最大的特点是通用性、简单操作性。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公，使工作更有条理、更方便、更有效率，而开发出这套公寓管理软件。1.3系统开发的可行性131 技术上的可行性我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行信息管理是一个总趋势。学生公寓管理软件主要是对公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生公寓管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生公寓管理系统是完全可行的。132 经济上的可行性本单位有自己的微机室可以使用，不必重新购置计算机，不需要花费大量资金，是一个节约人力物力的好办法。133 组织管理上的可行性本单位的领导干部具有较高的素质，它们对管理现代化有较高的认识水平，并且有各级领导的大力支持和重视。综上所述，建立一个学生公寓管理软件与人工操作相比具有速度更快，操作更准确，更节约开支等有利之处，因此建立一个学生公寓管理软件是必要可行。1.4数据来源作为一个学生公寓的管理软件，要十分全面的贴近以及适合大学公寓的管理方法。本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法，这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个公寓最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。1.5新系统数据流程图图1.1数据流程图数据字典图1.2 数据元素注：其它数据元素略图1.3 数据流注：其它数据流略图1.4 加工注：其它加工略注：其它数据存储略第二章 数据库设计1、ER图图2.1 ER图2、信息的数量越来越大，数据库的作用越发突出,所以数据库的建立是系统施实的主要部分之一，它关系到整个系统的运行情况，是整个系统的重要组成部分。本系统数据库为db.mdb，在数据库中包括十个表。分别是：用户表、公寓表、班级表、寝室表、卫生等级表、学生基本情况表、学生请假情况表、学生违规情况表、寝室卫生情况表、资产表。下面介绍几个主要的表： 学生基本情况表主要是存放学生的基本情况，字段包括：姓名、性别、学号、班级、公寓、寝室、入学时间、年制、寝室电话、个人电话、备注。数据结构如下表：字段名数据类型数据长度姓名文本8性别文本2学号文本10班级文本10公寓文本20寝室文本10入学时间文本14年制文本8个人电话文本15备注备注 学生请假情况表主要存放学生请假情况，字段包括：日期、姓名、班级、公寓、寝室、天数、原因、老师、备注。数据结构如下表：字段名数据类型数据长度日期文本14姓名文本8班级文本10公寓文本20寝室文本10天数文本10原因备注老师文本8备注备注 学生违规情况表主要存放学生违规情况，字段包括：日期、姓名、班级、公寓、寝室、原因、程度、处罚、备注。数据结构如下表：字段名数据类型数据长度日期文本14姓名文本8班级文本10公寓文本20寝室文本10原因备注程度备注处罚备注备注备注 卫生情况表主要存放寝室卫生情况，字段包括：日期、公寓、寝室、检查1到5、得分、减分、等级、备注。其中检查1到5是为了在没有使用者想输入的记录的情况下自己输入而设计的，保证了系统的可修改性、可扩展性。数据结构如下表：字段名数据类型数据长度日期文本14公寓文本20寝室文本10检查1文本40检查2文本40检查3文本40检查4文本40检查5文本40得分文本4减分文本4等级文本6备注备注 资产表主要存放寝室新增资产情况，字段包括：日期、公寓、名称、数量、单价、总价、用途、备注。数据结构如下表：字段名数据类型数据长度日期文本14公寓文本20名称文本20数量文本4单价文本10总价文本10用途备注备注备注第三章功能模块设计3.1新系统功能结构图及运行图如下：1、系统功能结构图：图3.1系统功能结构图2、系统功能结构图运行图：图3.2系统功能结构运行图经过系统分析，确定了本软件主要包括以下方面：系统设置、公寓管理、卫生检查、公寓资产、记录查看、记录删除、值班记录、帮助制作。3.2系统设置:主要完成：用户管理、公寓设置、数据备份、数据转换、退出的功能。运行图如下:图3.3系统设置运行图3.2.1 用户管理可以进行管理人员的添加和修改以及删除操作。添加人员可以分为两类：普通用户、管理员。可以视不同人员而添加。管理员拥有所有权力，对整个系统的操作。普通用户只有浏览、及一些简单的添加操作权力。无用户设置、公寓设置及记录删除等权力。3.2.2公寓设置分为三个主要的操作：公寓设置、寝室设置、班级设置。在这里可以添加学校所有的公寓、所有班级、每个公寓的所有寝室,也可以用此软件管理一幢公寓。这样操作起来会更简单、操作一目了然。3.2.3数据备份这是一个数据管理软件所必不可少的一部分，利用它可以及时的备份当前的数据库以及在出现故障后利用已保存的数据进行恢复。3.2.4数据转换利用数据转换将当前数据库中的表转换成Excel表格的形式，显示更为直观，可以进行打印等操作。3.3公寓管理主要完成：学生请假、学生违规、床位设置的功能。运行图如下:图3.4公寓管理运行图3.3.1学生请假主要是对学生请假记录做一个添加。利用它可以把学生的基本的请假资料保存起来。3.3.2学生违规主要是对学生违规记录做一个添加。利用它可以把学生的基本的违规资料保存起来。3.3.3床位设置通过床位设置可以简单查看每个公寓每个寝室的床位使用情况以及床位剩余情况。还可以通过详细查看，查看到某个公寓某个寝室住宿人员的人数，以及具体的住宿人员的名字。3.4 卫生检查主要完成：添加检查记录的功能。卫生检查可以对卫生检查的结果进行记录。这里的卫生标准一共有五项可以填写，在每一项里已经基本设置了所不合标准的记录，你可以在下拉列表框中进行选择即可，但是如果没有你想输入的记录的话，也可以自己输入。运行图如下:图3.5卫生检查运行图3.5 公寓资产主要完成：添加新增物品的功能。可以对公寓资产的收入或其它物品的入库进行记录。运行图如下:图3.6公寓资产运行图3.6 记录查看与记录删除主要是对学生请假、学生违规、卫生记录，公寓资产等记录所进行的操作，利用这两个功能可以对任一记录进行查看与删除。运行图如下: 图3.7记录查看 图3.8记录删除运行图3.7值班记录它的功能主要是针对值班人员开发出来的，在这里可以让值班人员对当天值班情况进行一个小记，以便日后查看。运行图如下:图3.9值班记录运行图3.8帮助制作对于一个稍显正规的软件来说帮助的制作都是必不可少的内容，本程序也不例外，制作了此帮助文档。在程序中可以按F1或点击帮助菜单来显示此help.Chm文档。以便对本软件进行快速操作。运行图如下:图3.10帮助运行图第四章 程序设计主程序流程图4.1 登录界面此界面是由Photoshop制作而成。在做这个登录面的时候想了很多，最后选择了这种，感觉它看起来干净，整齐。又不失其庄雅。加上本单位最有特色的建筑，会让人一目了然。4.1.1 登录图片显示图4.1登录界面4.1.2 界面制作与实现 在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！(1) 浮动按钮的实现 确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。总体实现立体的感觉。原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。主要代码如下： 在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.Visible 属性设置为 False，只有在鼠标按下的时候在改变其颜色即可。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.Visible = FalseLine2.Visible = FalseLine3.Visible = FalseLine4.Visible = FalseLine5.Visible = FalseLine6.Visible = FalseLine7.Visible = FalseLine8.Visible = FalseEnd Sub 鼠标按下的时候设置线条的颜色如下：Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &H808080Line2.BorderColor = &H808080Line3.BorderColor = &HE0E0E0Line4.BorderColor = &HE0E0E0End Sub 鼠标移动到标签的时候设置线条的颜色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &HE0E0E0Line2.BorderColor = &HE0E0E0Line3.BorderColor = &H808080Line4.BorderColor = &H808080Line1.Visible = TrueLine2.Visible = TrueLine3.Visible = TrueLine4.Visible = TrueEnd Sub(2) 用户类型判断 在数据库中建了一人yonghu表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操作的一切权限。普通用户只有普通的查看，数据转换等。没有删除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。主要代码如下：设置当前控件连接的数据库Dim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & DB.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.Recordset.MoveFirstEnd With对用户进行判断If Text1.Text = ThenMsgBox 请输入用户名!, 48, 提示Exit SubEnd IfAdodc1.Recordset.Find 用户= & Text1.Text & If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields(pass) Thenmain.Text1.Text = Adodc1.Recordset.Fields(级别)main.Text2.Text = Adodc1.Recordset.Fields(用户)main.ShowUnload MeElseText1.Text = Text2.Text = MsgBox 登录不成功,请重新登录!, 48, 提示End If4.2 程序主界面程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。界面效果图如下：图4.2程序主界面菜单栏的详见附录内容，这里就不提了。左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主窗体的各个事件。工具栏主要是由coolbar制作而成。由它制做的工具栏的显示效果会更有立体感一些。这里只列出了几个常用的按钮。其中的添加按钮是用来对公寓住宿人员进行添加，修改也是对所住宿人员进行修改，想要进行修改时必须显示所有记录时才可以进行。在这里值得一提的是删除DataGrid的操作，由于不知道它的当前数据源是哪个，所以在删除前要确定它的数据源，也就是它所链接的adodc1的数据源，或者是其它ado控件对它的数据源进行重新绑定后的数据库表，也有可能是经过一个查询后得到的记录。它的实现方法如下所示：Dim o As AdodcSet o = DataGrid1.datasource o.Recordset.Delete o.Recordset.Update这里主要是用到了ado对像的方法。用这个方法得到数据源。 下面是整个工具栏运行时代码：Select Case Button.IndexCase 1sel.Show 1Case 3add.Show 1Case 5On Error GoTo next2Dim s As AdodcSet s = DataGrid1.datasourceIf s.RecordSource = users Thenedit.Show 1End Ifnext2:Case 7On Error Resume NextDim o As AdodcSet o = DataGrid1.datasource o.Recordset.Delete o.Recordset.UpdateCase 9back.Show 1Case 11With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = users .RefreshEnd WithSet DataGrid1.datasource = Adodc1DataGrid1.RefreshCall dxCase 13Unload MeEnd Select状态栏分四个部分。第一个为固定显示当前所用软件名称及作者。其中第二个和第三部分为动态显示的，它会显示出每次用户登录名称及其管理模式。由上图可以看出，lf为本软件管理员。第四部分为日期与时间的显示。其中第三部分的代码实现如下：main.Text1.Text = Adodc1.Recordset.Fields(级别)main.Text2.Text = Adodc1.Recordset.Fields(用户)StatusBar1.Panels(2).Text = 当前用户： & Text2.TextStatusBar1.Panels(3).Text = 用户模式： & Text1.TextStatusBar1.Panels(4).Text = Date & & Time设置普通用户模式If Text1.Text = 普通用户 Thenyhgl.Visible = Falseg1.Visible = Falsejlsc.Visible = Falsegysz.Visible = FalseToolbar1.Buttons(5).Visible = FalseToolbar1.Buttons(6).Visible = FalseToolbar1.Buttons(7).Visible = FalseToolbar1.Buttons(8).Visible = FalseEnd If主窗体在程序运行中会遇到不断改变其大小，最小化，最大化，以及用鼠标来改变，这里需要在窗体的Resize事件中添加代码，让程序中用到的各个控件随时可以适应窗体改变后的大小，在这里改变的控件主要有DataGrid、TreeView系列及Frame控件、StatusBar。下面就是设置它们大小的程序代码：DataGrid1.Width = main.Width - SSTab1.WidthDataGrid1.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 750SSTab1.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 750Frame1.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200Frame2.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200Frame3.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200TreeView1.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500TreeView2.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500TreeView3.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500Y = main.Widthx = (Y - z) / 4StatusBar1.Panels(1).Width = u + xStatusBar1.Panels(2).Width = v + xStatusBar1.Panels(3).Width = w + xStatusBar1.Panels(4).Width = m + x这个软件的主要部分都在这里运行、查看，所以在主窗体的load事件里要把所用的到的东西都要加载进来，例如所在程序运行时所用到的表，左侧treeview部分树形显示的初始化。在这里几乎用到了所有的表，如下所示：provider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & DB.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = users .RefreshEnd WithWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = gongyu.RefreshEnd WithWith Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = class.RefreshEnd WithWith Adodc4.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider & ; & datasourceEnd WithWith Adodc6.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = dengji.RefreshEnd WithWith Adodc7.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = qinshi.RefreshEnd WithWith Adodc9.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withtreeview部分树形显示的初始化在这里已经做了几个过程，调用即可。4.3系统设置4.3.1用户管理界面效果图图4.3用户管理 界面制作与实现方法 这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的操作，它已经连接到了数据库，与数据库的yonghu表相联。各个控件也与数据库中表的字段绑定。在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。设置代码如下：Dim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & DB.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd WithOption1.Enabled = FalseOption2.Enabled = FalseIf Adodc1.Recordset.RecordCount = 0 ThenCommand2.Enabled = FalseCommand3.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseEnd IfText2.Text = Text3.Text上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。当找到记录后，可以对其进行相对的删除、修改等操作。上一条记录与下一条的记录在查看时有一个判断。当表中记录移到最前面（BOF）或最后面（EOF）时，会把上一条或下一条其中的一个按钮的enable属性设置为true。即不可以前查看或向后查看。上一条与下一条主要代码如下：Adodc1.Recordset.MovePrevious 移动记录Command6.Enabled = TrueIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command5.Enabled = FalseEnd IfAdodc1.Recordset.MoveNext 移动记录Command5.Enabled = TrueIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command6.Enabled = FalseEnd If添加用户可以添加使用该管理软件的用户。添加的时候可以选择所添加人物的级别。软件默认为两个级别：管理员、普通用户。管理员拥有对此软件管理操作等一切的权力。普通用户，只有普通的查看、查询、备份、添加等权力。没有对记录删除等权力。在添加用户时你可以选择一个且必须选择一个。然后输入此用户的用户名和密码即可！添加用户主要代码：If Command1.Caption = 添加 ThenCommand2.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand1.Caption = 确定Command3.Caption = 取消Adodc1.Recordset.AddNewOption1.Enabled = TrueOption2.Enabled = TrueText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText2.Text = ElseIf Text1.Text = ThenMsgBox 用户名不能为空！, 48, 提示ElseIf Text2.Text = ThenMsgBox 密码不能为空！, 48, 提示ElseIf Text2.Text Text3.Text ThenMsgBox 密码两次需一致！, 48, 提示ElseIf Text4.Text = ThenMsgBox 请选择所建用户类型！, 48, 提示ElseCommand2.Enabled = TrueCommand3.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand3.Caption = 编辑Command1.Caption = 添加Adodc1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseOption1.Value = FalseOption2.Value = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd If删除操作可以把当前记录删除掉。一经删除即不可以在恢复。所以在操作前要想好。删除操作部分代码：If Adodc1.Recordset.RecordCount = 1 ThenCommand2.Enabled = FalseEnd IfIf (MsgBox(你真的想删除当前记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstAdodc1.RefreshEnd If编辑操作可以对当前所选择的用户进行编辑，可以修改其用户名与密码。当当前用户感觉自己用户名称或密码有泄露时，可以进行修改。修改记录即更新表中的某一条记录。编辑操作主要代码如下：Command2.Enabled = FalseText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueOption1.Enabled = TrueOption2.Enabled = TrueCommand1.Caption = 确定ElseIf Command3.Caption = 取消 ThenCommand3.Caption = 编辑Command1.Caption = 添加Command2.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueText2.Text = Text3.TextText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseOption1.Value = FalseOption2.Value = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd If4.3.2 公寓设置公寓设置可以说是本程序中一关键部分。因为所有的设置都在此进行。包括公寓添加、修改、删除。寝室的添加、修改、删除以及班级的添加、修改和删除操作。只有正确的对这些设置进行添加修改，才能输入正确的记录。这里主要涉及到的问题是datagrid的显示，以及treeview及时形成新的结构。还有一些就是对表记录的复杂操作。在点击sstab各版的时候，要在这时重新生成寝室设置中的树型结构，Select Case PreviousTab Case 0 Call startree1 Case 1 Combo1.Clear Dim I As Integer I = 1 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Do While I Adodc1.Recordset.RecordCount Combo1.AddItem (Adodc1.Recordset.Fields(公寓名称) Adodc1.Recordset.MoveNext I = I + 1 Loop End If Call startree1 Case 2 Call startree1End SelectEnd Sub(1) 公寓设置 公寓设置效果图图4.4公寓设置 界面制作与实现方法在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。在右下角的文本框中可以输入想要添加的公寓名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改公寓的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的公寓名称，点击删除，确认后完成此操作。但是删除后不会影响其它表中的数据。其它表的有关此公寓的信息还会存在。在进行所有操作前，先要确定数据库已连接。在添加前要判断所写公寓名称是否正确，即是否输入名称，该记录不能为空，不为空则对数据库表进行查找，判断当前输入记录是否已在表中存在，如果已存在，则会给出提示，不存在，添加成功。Adodc1.Recordset.Find 公寓名称= & Text2.Text & If Adodc1.Recordset.EOF = False ThenMsgBox 此公寓已存在, , 提示Adodc1.Recordset.MoveFirstExit SubEnd IfText3.Text = If Text2.Text = ThenMsgBox 输入所要添加公寓的名称, , 提示Exit SubEnd If添加：Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(公寓名称) = Text2.TextAdodc1.Recordset.UpdateAdodc1.RecordSource = gongyuText2.Text = Set DataGrid2.datasource = Adodc1DataGrid2.Refresh修改公寓名称：If Text3.Text = ThenMsgBox 选择要修改的公寓, , 提示Exit SubEnd IfIf Command12.Caption = 修改 ThenText2.Text = Text3.TextLabel6.Caption = 输入想要修改的公寓名称Command12.Caption = 更新Command3.Enabled = FalseCommand7.Enabled = FalseElseIf Command12.Caption = 更新 ThenCommand3.Enabled = TrueCommand7.Enabled = TrueLabel6.Caption = 输入想要添加的公寓名称Adodc1.Recordset.Fields(公寓名称) = Text2.TextAdodc1.Recordset