VB学生公寓管理系统

1、中文摘要中文摘要随着电脑的普及与使用，现在的管理也提升了一个档次，渐渐实现了无纸化办公，即从原来的人工记录管理模式转变为电脑一体化管理。高校是科研的阵地，后勤的公寓管理也应该一改传统的人工管理，更加信息化，时代化，节省人力物力，提高效率。基于这一点，开发此学生公寓管理软件。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理系统。本系统最大的特点是通用性、简单操作性，适用于同行业以及一些同类型的企业管理。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公；使工作更有条理，更方便，更有效率而开发出这套公寓管理软件。软件从

2、对学生的分房开始到最后的公寓管理全部电脑化。它主要包括：公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，可以更快地了解到每个学生的住宿情况,使公寓的管理效率更高，做的更好！关键字：配置、登记、检查关键字：配置、登记、检查abstractabstractwith the popularization and use of the computer, present management has been promoted much, more and more jobs have been done by computer. it namely

3、changes the original artificial record management mode into computers integrating and managing. the university is the position of scientific research, the apartment management should change traditional managing artificially too, for the efficiency. so , develop the management software of students ap

4、artment .student apartment management system is a utility management system based on the managing mode of many universities and colleges.universal and easy-operating are the greatest features of the system ,which is also applicable for enterprises of the same type.apartment keepers bear a increasing

5、ly heavy burden because of the gradually added number of roomers.in order to free apartment keepers from the heave work,and make the work more convienent and efficient. the apartment management system is developed. the system computerized all the processes concerning the apartment management which i

6、nclude apartment,dormitory distribution,roomer registration,santitation examination,and the query for apartment property,students violation of discipline,teachers records and rooming situation.it makes the apartment management more efficient and much better.keykey word:word: disposedispose 、 registe

7、rregister 、 checkcheck引言引言.3第一章系统分析第一章系统分析.11.1 开发工具简介及系统运行环境.11.2 开发的必要性.11.3 系统开发的可行性.21.4 数据来源.2第二章第二章 数据库设计数据库设计.5第三章功能模块设计第三章功能模块设计.83.1 新系统功能结构图及运行图如下：.83.2 系统设置:.93.3 公寓管理.93.4 卫生检查.103.5 公寓资产.103.6 记录查看与记录删除.103.7 值班记录.103.8 帮助制作.11第四章第四章 程序设计程序设计.12主程序流程图.124.1 登录界面.124.2 程序主界面 .144.3 系统设置.

8、184.4 公寓管理.34第五章第五章 系统测试系统测试.37参考文献参考文献.38目录目录引言引言随着电脑的普及与应用，现在的管理也需要提升一个档次。即从原来的手工记录管理模式转变为电脑一体化管理。这样会给公寓的管理人员带来很多好处，让他们管理的效率更高、效果更好，管理起来更方便。由此而产生了本管理软件学生公寓管理软件。学生公寓管理软件是用 microsoft visual basic 编写完成。由于 visual basic 率先采用了可视化（visual）的程序设计方法。所以利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观，动态的调整界面的风格和样式，直

9、到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。做起来方便，使用起来更为快捷。作为一个学生公寓的管理软件，要十分全面的贴近以及适合大学公寓的管理方法。本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法。如各个公寓的分布特色，以及公寓的各种管理制度。这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个公寓最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软

10、件首先要进行取其精华，弃其糟粕，从而进行编写。本软件主要包括以下方面：系统设置、公寓管理、卫生检查、公寓资产、记录查看、记录删除、值班记录、帮助制作。学生公寓管理软件目前版本为 1.0.1，为一个测试版本。它目前在功能上，以及操作的简便上有很大的改进。但是还是存在一些不足，在有些功能的实现上还不是十分的理想，这也是本人在时间和精力上留下的遗憾。但是相信这些会在以后的版本中得到完善，使这个软件成为一个功能上最全，使用上最简捷方便的管理软件。1第一章系统分析第一章系统分析系统采用 microsoft 公司的 visual basic 语言编写的学生公寓管理系统,本系统在研制开发过程中，严格遵循软件

11、工程方法，完全采用结构化程序设计方法。本系统的主要功能可以方便的对学生公寓进行管理，系统采用 access 数据库使数据具有较强的完整性、较好的数据安全性等特点以及提供了标准的帮助，使用户方便的获得所需的帮助。界面友好、操作简单、功能齐全、具有较好的人机接口界面是本系统的最大优点。1.11.1 开发工具简介开发工具简介及系统运行环境及系统运行环境1 11 11 1vb6vb6 简介简介 本软件的开发工具为 visual basic，作为一种开发语言，visual basic 率先采用了可视化（visual）的程序设计方法。利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面

12、，并可直观、动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。它还拥有面向对象的编程方法。面向对象的程序设计是伴随 widnows 图形界面的诞生而产生的一种新的程序设计思想，与传统程序设计有着较大的区别，visual basic 采用了面向对象的程序设计思想。所谓“对象”就是现实生活中的每个一人，每一个可见的实体。同样，在 visual basic 中，用来构成用户图形界面的可视化控件，也可视为是一个对象。不同的对象，在程序中所赋给它的功能是不同的，比如，在图形界面上有两个命令按钮，一个用来实现数据的统计计算，另一个用来实现数据的

13、打印，这两个按钮就可视为是两个不同的对象，为了实现这两个对象各自不同的功能，接下来就应该分别针对这两个对象编写程序代码，这种编程的思想和方法即为所谓的“面向对象的程序设计” 。它还支持第三方软件商为其开发的可视化控制对象，如本例中就用到了一个。这些可视化控件对应的文件扩展名这 ocx。只要拥有控件的 ocx 文件，就可将其加入到 vb 系统中，从而大大增强vb 的编程实力。使软件做起来会更加得心应手。1 11 12 2 helphelp 制作制作 制作 help 文档需要一个专业制作软件，本人使用的是破解版的 quickchm，此软件无论在功能上还在是操作上用起来都是很方便。它属于一个傻瓜型的

14、制作软件，利用它可以快速的制作出各种你所需要的帮助文档。但是如果想制作出帮助文档，就需要使用制作网页的软件把内容先做成html 形式，本人使用 dreamweaver 制作的网页，然后在用此软件进行加载，最后生成 chm 文档。1.21.2 开发的必要性开发的必要性信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企业或组织生存越来越重要的信息资源。长期以来，使用传统人工的方法管理高校公寓，这种管理方式存在着许多缺点，如：效率低。而且时间一长，将产生大量的文件和数据，这对于查找、更新、维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟，其

15、强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理软件。本系统最大的特点是通用性、简单操作性。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公，使工作更有条理、更方便、更有效率，而开发出这套公寓管理软件。1.31.3 系统开发的可行性系统开发的可行性1 13 31 1 技术上的可行性技术上的可行性我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行

16、信息管理是一个总趋势。学生公寓管理软件主要是对公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生公寓管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生公寓管理系统是完全可行的。1 13 32 2 经济上的可行性经济上的可行性本单位有自己的微机室可以使用，不必重新购置计算机，不需要花费大量资金，是一个节约人力物力的好办法。1 13 33 3 组织管理上的可行性组织管理上的可行性本单位的领导干部具有较高

17、的素质，它们对管理现代化有较高的认识水平，并且有各级领导的大力支持和重视。综上所述，建立一个学生公寓管理软件与人工操作相比具有速度更快，操作更准确，更节约开支等有利之处，因此建立一个学生公寓管理软件是必要可行。1.41.4 数据来源数据来源作为一个学生公寓的管理软件，要十分全面的贴近以及适合大学公寓的管理方法。本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法，这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个公寓最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常

18、的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。1.5 新系统数据流程图新系统数据流程图图 1.1 数据流程图数据字典数据字典图 1.2 数据元素注：其它数据元素略图 1.3 数据流注：其它数据流略图 1.4 加工注：其它加工略注：其它数据存储略第二章第二章 数据库设计数据库设计1、er 图图 2.1 er 图2、信息的数量越来越大，数据库的作用越发突出,所以数据库的建立是系统施实的主要部分之一，它关系到整个系统的运行情况，是整个系统的重要组成部分。本系统数据库为 db.mdb，在数据库中包括十个表。分别是：用户表

19、、公寓表、班级表、寝室表、卫生等级表、学生基本情况表、学生请假情况表、学生违规情况表、寝室卫生情况表、资产表。下面介绍几个主要的表： 学生基本情况表主要是存放学生的基本情况，字段包括：姓名、性别、学号、班级、公寓、寝室、入学时间、年制、寝室电话、个人电话、备注。数据结构如下表：字段名数据类型数据长度姓名文本8性别文本2学号文本10班级文本10公寓文本20寝室文本10入学时间文本14年制文本8个人电话文本15备注备注 学生请假情况表主要存放学生请假情况，字段包括：日期、姓名、班级、公寓、寝室、天数、原因、老师、备注。数据结构如下表：字段名数据类型数据长度日期文本14姓名文本8班级文本10公寓文本

20、20寝室文本10天数文本10原因备注老师文本8备注备注 学生违规情况表主要存放学生违规情况，字段包括：日期、姓名、班级、公寓、寝室、原因、程度、处罚、备注。数据结构如下表：字段名数据类型数据长度日期文本14姓名文本8班级文本10公寓文本20寝室文本10原因备注程度备注处罚备注备注备注 卫生情况表主要存放寝室卫生情况，字段包括：日期、公寓、寝室、检查 1 到 5、得分、减分、等级、备注。其中检查 1 到 5 是为了在没有使用者想输入的记录的情况下自己输入而设计的，保证了系统的可修改性、可扩展性。数据结构如下表：字段名数据类型数据长度日期文本14公寓文本20寝室文本10检查 1文本40检查 2文本

21、40检查 3文本40检查 4文本40检查 5文本40得分文本4减分文本4等级文本6备注备注 资产表主要存放寝室新增资产情况，字段包括：日期、公寓、名称、数量、单价、总价、用途、备注。数据结构如下表：字段名数据类型数据长度日期文本14公寓文本20名称文本20数量文本4单价文本10总价文本10用途备注备注备注第三章功能模块设计第三章功能模块设计3.13.1 新系统功能结构图及运行图如下：新系统功能结构图及运行图如下：1、系统功能结构图：图 3.1 系统功能结构图2、系统功能结构图运行图：图 3.2 系统功能结构运行图经过系统分析，确定了本软件主要包括以下方面：系统设置、公寓管理、卫生检查、公寓资产

22、、记录查看、记录删除、值班记录、帮助制作。3.23.2 系统设置系统设置: :主要完成：用户管理、公寓设置、数据备份、数据转换、退出的功能。运行图如下:图 3.3 系统设置运行图.1 用户管理用户管理可以进行管理人员的添加和修改以及删除操作。添加人员可以分为两类：普通用户、管理员。可以视不同人员而添加。管理员拥有所有权力，对整个系统的操作。普通用户只有浏览、及一些简单的添加操作权力。无用户设置、公寓设置及记录删除等权力。.2 公寓设置公寓设置分为三个主要的操作：公寓设置、寝室设置、班级设置。在这里可以添加学校所有的公寓、所有班级、每个公寓的所有寝室,也可以用此软

23、件管理一幢公寓。这样操作起来会更简单、操作一目了然。.3 数据备份数据备份这是一个数据管理软件所必不可少的一部分，利用它可以及时的备份当前的数据库以及在出现故障后利用已保存的数据进行恢复。.4 数据转换数据转换利用数据转换将当前数据库中的表转换成 excel 表格的形式，显示更为直观，可以进行打印等操作。3.33.3 公寓管理公寓管理主要完成：学生请假、学生违规、床位设置的功能。运行图如下:图 3.4 公寓管理运行图.1 学生请假学生请假主要是对学生请假记录做一个添加。利用它可以把学生的基本的请假资料保存起来。.2 学生违规学生违

24、规主要是对学生违规记录做一个添加。利用它可以把学生的基本的违规资料保存起来。.3 床位设置床位设置通过床位设置可以简单查看每个公寓每个寝室的床位使用情况以及床位剩余情况。还可以通过详细查看，查看到某个公寓某个寝室住宿人员的人数，以及具体的住宿人员的名字。3.43.4 卫生检查卫生检查主要完成：添加检查记录的功能。卫生检查可以对卫生检查的结果进行记录。这里的卫生标准一共有五项可以填写，在每一项里已经基本设置了所不合标准的记录，你可以在下拉列表框中进行选择即可，但是如果没有你想输入的记录的话，也可以自己输入。运行图如下:图 3.5 卫生检查运行图3.53.5 公寓资产公寓资产主要完

25、成：添加新增物品的功能。可以对公寓资产的收入或其它物品的入库进行记录。运行图如下:图 3.6 公寓资产运行图3.63.6 记录查看与记录删除记录查看与记录删除主要是对学生请假、学生违规、卫生记录，公寓资产等记录所进行的操作，利用这两个功能可以对任一记录进行查看与删除。运行图如下: 图 3.7 记录查看 图 3.8 记录删除运行图3.73.7 值班记录值班记录它的功能主要是针对值班人员开发出来的，在这里可以让值班人员对当天值班情况进行一个小记，以便日后查看。运行图如下:图 3.9 值班记录运行图3.83.8 帮助制作帮助制作对于一个稍显正规的软件来说帮助的制作都是必不可少的内容，本程序也不例外，

26、制作了此帮助文档。在程序中可以按 f1 或点击帮助菜单来显示此 help.chm 文档。以便对本软件进行快速操作。运行图如下:图 3.10 帮助运行图第四章第四章 程序设计程序设计主程序流程图主程序流程图4.14.1 登录界面登录界面此界面是由 photoshop 制作而成。在做这个登录面的时候想了很多，最后选择了这种，感觉它看起来干净，整齐。又不失其庄雅。加上本单位最有特色的建筑，会让人一目了然。.1 登录图片显示登录图片显示图 4.1 登录界面.2 界面制作与实现界面制作与实现 在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪

27、种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！(1) 浮动按钮的实现 确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。总体实现立体的感觉。原理主要是在鼠标 mousemove 事件与线的颜色变化组合来实现。主要代码如下： 在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.visible 属性设置为 false，只有在鼠标按下的时候在改变其颜色即可。private sub form_mousemove(button as inte

28、ger, 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 in

29、teger, 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 = &

30、amp;he0e0e0line2.bordercolor = &he0e0e0line3.bordercolor = &h808080line4.bordercolor = &h808080line1.visible = trueline2.visible = trueline3.visible = trueline4.visible = trueend sub(2) 用户类型判断 在数据库中建了一人 yonghu 表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操作的一切权限。普通用户只有普通的查看，数据转换等。没有删除等操作功能。前用户成功登

31、录后，会在主窗体的状态栏中显示出当前用户及其用户类型。主要代码如下：设置当前控件连接的数据库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

32、.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(

33、级别)main.text2.text = adodc1.recordset.fields(用户)main.showunload meelsetext1.text = text2.text = msgbox 登录不成功,请重新登录!, 48, 提示end if4.24.2 程序主界面程序主界面程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。界面效果图如下：图 4.2 程序主界面菜单栏的详见附录内容，这里就不提了。左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主

34、窗体的各个事件。工具栏主要是由 coolbar 制作而成。由它制做的工具栏的显示效果会更有立体感一些。这里只列出了几个常用的按钮。其中的添加按钮是用来对公寓住宿人员进行添加，修改也是对所住宿人员进行修改，想要进行修改时必须显示所有记录时才可以进行。在这里值得一提的是删除 datagrid的操作，由于不知道它的当前数据源是哪个，所以在删除前要确定它的数据源，也就是它所链接的adodc1 的数据源，或者是其它 ado 控件对它的数据源进行重新绑定后的数据库表，也有可能是经过一个查询后得到的记录。它的实现方法如下所示：dim o as adodcset o = datagrid1.datasourc

35、e 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 adodc

36、set 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 dxcas

37、e 13unload meend select状态栏分四个部分。第一个为固定显示当前所用软件名称及作者。其中第二个和第三部分为动态显示的，它会显示出每次用户登录名称及其管理模式。由上图可以看出，lf 为本软件管理员。第四部分为日期与时间的显示。其中第三部分的代码实现如下：main.text1.text = adodc1.recordset.fields(级别)main.text2.text = adodc1.recordset.fields(用户)statusbar1.panels(2).text = 当前用户： & text2.textstatusbar1.panels(3).tex

38、t = 用户模式： & 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.

39、buttons(8).visible = falseend if主窗体在程序运行中会遇到不断改变其大小，最小化，最大化，以及用鼠标来改变，这里需要在窗体的 resize 事件中添加代码，让程序中用到的各个控件随时可以适应窗体改变后的大小，在这里改变的控件主要有 datagrid、treeview 系列及 frame 控件、statusbar。下面就是设置它们大小的程序代码：datagrid1.width = main.width - sstab1.widthdatagrid1.height=main.height - statusbar1.height - coolbar1.height -

40、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.

41、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 =

42、 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 = admo

43、dereadwrite.connectionstring = provider & ; & datasource.commandtype = adcmdtable.recordsource = users .refreshend withwith adodc2.mode = admodereadwrite.connectionstring = provider & ; & datasource.commandtype = adcmdtable.recordsource = gongyu.refreshend withwith adodc3.mode = admo

44、dereadwrite.connectionstring = provider & ; & datasource.commandtype = adcmdtable.recordsource = class.refreshend withwith adodc4.mode = admodereadwrite.connectionstring = provider & ; & datasource.commandtype = adcmdtable.recordsource = weisheng.refreshend withwith adodc5.mode = adm

45、odereadwrite.connectionstring = provider & ; & datasourceend withwith adodc6.mode = admodereadwrite.connectionstring = provider & ; & datasource.commandtype = adcmdtable.recordsource = dengji.refreshend withwith adodc7.mode = admodereadwrite.connectionstring = provider & ; &

46、datasource.commandtype = adcmdtable.recordsource = qinshi.refreshend withwith adodc9.mode = admodereadwrite.connectionstring = provider & ; & datasource.commandtype = adcmdtable.recordsource = zichan.refreshend withtreeview 部分树形显示的初始化在这里已经做了几个过程，调用即可。4.34.3 系统设置系统设置.1 用户管理用户管理界面效果图图

47、4.3 用户管理 界面制作与实现方法 这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的操作，它已经连接到了数据库，与数据库的 yonghu 表相联。各个控件也与数据库中表的字段绑定。在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。设置代码如下：dim provider as stringdim datasource as stringprovider = provider=microsoft.jet.oledb.4.0datasource = data source= & app.path & db

48、.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.ena

49、bled = falsecommand6.enabled = falseend iftext2.text = text3.text上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。当找到记录后，可以对其进行相对的删除、修改等操作。上一条记录与下一条的记录在查看时有一个判断。当表中记录移到最前面（bof）或最后面（eof）时，会把上一条或下一条其中的一个按钮的 enable 属性设置为 true。即不可以前查看或向后查看。上一条与下一条主要代码如下：adodc1.recordset.moveprevious 移动记录command6.enabled = truei

50、f 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添加用户可以添加使用该管理软件的用户。添加的时候可以选择所添加人物的级别。软件默认为两个级别：管理员、普通用户。管理员拥有对此软件管理操作等一切的权力。普

51、通用户，只有普通的查看、查询、备份、添加等权力。没有对记录删除等权力。在添加用户时你可以选择一个且必须选择一个。然后输入此用户的用户名和密码即可！添加用户主要代码：if command1.caption = 添加 thencommand2.enabled = falsecommand5.enabled = falsecommand6.enabled = falsecommand1.caption = 确定command3.caption = 取消adodc1.recordset.addnewoption1.enabled = trueoption2.enabled = truetext1.en

52、abled = 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.e

53、nabled = 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

54、if删除操作可以把当前记录删除掉。一经删除即不可以在恢复。所以在操作前要想好。删除操作部分代码：if adodc1.recordset.recordcount = 1 thencommand2.enabled = falseend ifif (msgbox(你真的想删除当前记录吗？, vbokcancel, 系统提示) = vbok thenadodc1.recordset.deleteadodc1.recordset.movefirstadodc1.refreshend if编辑操作可以对当前所选择的用户进行编辑，可以修改其用户名与密码。当当前用户感觉自己用户名称或密码有泄露时，可以进行修改

55、。修改记录即更新表中的某一条记录。编辑操作主要代码如下：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 = truecomma

56、nd5.enabled = truecommand6.enabled = truetext2.text = text3.texttext1.enabled = falsetext2.enabled = falsetext3.enabled = falsetext4.enabled = falseoption1.value = falseoption2.value = falseoption1.enabled = falseoption2.enabled = falseend if.2 公寓设置公寓设置公寓设置可以说是本程序中一关键部分。因为所有的设置都在此进行。包括公寓添加、修

57、改、删除。寝室的添加、修改、删除以及班级的添加、修改和删除操作。只有正确的对这些设置进行添加修改，才能输入正确的记录。这里主要涉及到的问题是 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

58、.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 控件。在右

59、下角的文本框中可以输入想要添加的公寓名称。然后点击添加即可完成添加操作。datagrid 中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改公寓的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。datagrid 也会即时更新其内容。删除操作更为简单，选择想要删除的公寓名称，点击删除，确认后完成此操作。但是删除后不会影响其它表中的数据。其它表的有关此公寓的信息还会存在。在进行所有操作前，先要确定数据库已连接。在添加前要判断所写公寓名称是否正确，即是否输入名称，该记录不能为空，不为空则对数据库表进行查

60、找，判断当前输入记录是否已在表中存在，如果已存在，则会给出提示，不存在，添加成功。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 s