毕业设计（论文）学生宿舍管理系统

1、毕业论文设计题目：学生公寓管理目 录摘  要 1第一章  系统分析 11.1开发工具简介及系统运行环境 11.2开发的必要性 1 1.3系统开发的可行性 11.4数据来源 11.5新系统数据流程图 1第二章 数据库设计 12.1 应用需求分析 12.2 系统功能模块划分 12.3 系统数据库设计 1第三章 功能模块设计 13.1新系统功能结构图 13.2系统设置 13.3公寓管理 13.4卫生检查 13.5 公寓资产 13.6 记录查看与记录删除 13.7值班记录 13.8帮助制作 1第四章 结束语 14.1登录界面 14.2程序主界面 14.3系统设置 14.4公寓管理

2、14.5卫生检查 14.6记录查看 14.7记录删除 1第五章 系统测试 1总 结 1参考文献 1摘 要在社会飞速发展的今天，用计算机来管理宿舍信息是发展必然趋势，又因为宿舍种类和学生的不断增加，对于管理造成了困难。以往的宿舍管理方法，查询速度慢，管理困难，容易丢失数据，已经不适合现在的要求。为克服宿舍管理的困难和查询的不便。采用计算机来管理宿舍和学生的信息，大大提高了查询的速度，节约了人力和物力资源，达到了预期的要求。 二十一世纪的今天，已经是计算机的时代。计算机已经进入了现代社会的各个领域，计算机世界日新月异地发展着，在microsoft 公司的 windows 操作系统被成千上万的用户所

3、使用的今天，开发 windows 下的图形用户界面程序对于广大的程序员来说已经成为一件刻不容缓的事。开发数据库程序已经一个重要的领域，如今，各种数据库的开发出不穷，而 visual basic 以其完美的界面，方便的操作，强大的功能在各种数据库开发独树一帜。作为微软公司的重点产品， visual basic 具有其它数据库开发所无法比拟的优势，它易学易用，因此得到了广大软件开发人员及计算机爱好者的青睐，成为了人们的得力助手。 过去的单位一般都用人工来管理信息，这样既不方便又容易发生错误，还占用了大量的人员和物资，现在这些已经成为过去，用计算机来管理可以非常容易的实现这些要求。 用计算机来管理各

4、种数据信息，是世界发展的需求，也是社会发展的趋势。 在学校的宿舍管理中，也存在着这种问题，为了提高办事效率，急需开发一套操作简单方便的管理系统。此次课程设计就是为了解决这种问题而设计的。 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面： 首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以节省许多资源； 第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全，等等 关键字：公寓管理 、 学生公寓前景、 学生公寓系统功能、配置、登记、检查第一章 系统需求分析一、开发原因与前景在现代，高科

5、技的飞跃发展，人们工作习惯的改变，特别是电脑的大量普及，人们生活节奏越来越快，怎样提高工作效率是人们首先考虑的问题。宿舍管理特别是学校宿舍的管理是一个非常繁琐与复杂的一项工作，一个原因就是工作量大不好管。对于一个学校而言，更应该运用一些本地资源，提高管理的力度，对学生负责，对国家负责。二、课题来源及意义对于一名专业的信息技术人员来说，如何最大限度地利用学校后勤部门多年来在数据库系统上的投资，把学校花了大力气搜集来的数据变成对学校未来发展有巨大价值的信息，这是每一个从事信息技术工作的专业人员都应该考虑的问题。现在全国的很多大学校园内的学生公寓都采用了计算机统一管理，这样就需要一种管理软件来为公寓

6、的管理者服务，协助他们来完成管理学生公寓这么一个庞大的工作。在这种情况下，用各种开发工具开发出来的学生公寓智能管理系统应运而生，并且蓬勃的发展起来。这为学校的公寓管理带来了很大的方便，更重要的是节省了相当大的人力、物力、财力。本系统的深刻意义可以通过一个例子来体现出来。假如想在全校范围内查找一名学生所在的公寓，则不要象以前那样一个一个公寓楼去查名单，只需通过查询方法，输入该学生的学号或者是姓名，即可很容易的找到他的所在公寓，同时也可以了解他的一些基本信息，看所查找的对象是否是自己所要找的人，另外，还可以知道他的交费情况，可以帮助及时的了解学生欠交住宿费用的情况。三、可行性分析1、经济的可行性从

7、经济支出方面，这是个超小型的管理系统，从投入的人力、财力与物力来讲是非常之小的，只要一台电脑、一台打印机，这个系统就可以搞起来。从节省人力方面，可以让管理人员从繁与复杂的工作中解脱出来，做更多的工作，可以给宿舍里的管理提高一个层次。2、技术上的可行性技术上的可行性分析要考虑将来采用的硬件和软件技术能否满足学校宿舍管理的要求。此外，还要考虑开发过程中界面的人性化，今后使用人员数据的稳定性、安全性。通过以上两点的分析，编写或开发这个宿舍管理系统是可行的，只要这个系统能实现对学生数据的输入、修改、删除、打印、浏览与查询就可以了。以便学校方面管理人员可以很方便的查询想要的数据，以便进行统一管理，统一安

8、排。四、系统设计的任务在系统分析的基础上,按照逻辑模型的要求,科学合理地进行系统的总体设计和具体的物理设计,为下一阶段系统实施提供必要的技术资料。包括总体设计与详细设计。总体设计：总体设计包括子系统的划分,代码设计、设计规范制定、信息系统流程图设计、功能结构图设计和系统物理配置方案设计等。详细设计：详细设计包括数据存储文件设计（数据库文件的设计）、输出设计、输入设计、编写程序设计说明书等。系统设计应符合以下要求：（1）系统性：系统作为整体而存在的,所以系统的代码要统一,设计规范要标准,传递语言要尽量一致,并使一次输入得到多次利用。（2）灵活性：系统应灵活,对环境的变化要有很强的适应性。这要求我

9、们尽量采用模块化结构,提高各部分的独立性,尽是减少各子系统之间的数据依赖性。（3）可靠性：这是指系统受外界干扰时的抵御力与恢复能力。五、系统需求分析 目前，学校的宿舍管理采用的还是人工来进行管理的，面对目前学校发展的实际状况，我们通过实地调研之后，对宿舍管理系统的设计开发做了一个详细的概述。5.1功能需求 5.1.1 基本功能需求 本课题要实现的是高校学生宿舍管理系统，在设计该系统时，应尽可能的贴近学生,便于用户操作。系统在实现上应该具有如下功能： 1.系统要求进入界面应具有通用性。2.系统应该提供学生住宿情况的基本登记。3.系统应提供学生每学期的注册及学生的离校处理。4.系统应提供人员来访登

10、记及结束访问的详细登记。5.系统应提供学生在校期间物品出入宿舍楼的详细情况登记。6.系统应提供查询功能，以方便用户对学生基本信息的查询(要实现按多种条件的查询)及楼房信息的查询。7.系统应提供增加、删除、修改用户账户的功能。8.系统还应具有添加、修改、删除学生及员工基本信息的功能。5.1.2 报表需求 学生宿舍管理系统的某些信息应当能够以报表形式打印出来。基本上应该能够实现学生基本信息的报表打印、某宿舍具体住宿情况的报表打印、某栋宿舍楼的所有员工信息打印、所有学生各年度宿舍交费情况打印、学生物品出入的信息打印及人员来访信息的打印等的功能。5.1.3 用户界面需求 学生宿舍管理系统应提供简单、层

11、次关系明了、清晰的操作界面，使用户一目了然。尽可能的为用户的录入、查询等功能操作提供方便。快捷按钮的创建也是非常需要的，以方便用户操作。5.2性能需求   5.2.1系统安全性学生宿舍管理系统中的增加用户、学生学期注册、学生毕业离校等的某些模块都是和学生住宿费相联系在一起的，只有每年度的住宿费用交纳完毕才准许该生离校，所以在系统的管理权限上应当进行严格控制，具体思想如下：1.要想对该学生宿舍管理系统进行操作就应当具有某些操作权限。没有权限的用户将不能通过任何渠道来登录该系统，查看该系统的任何信息和数据，以确保系统的严密性和安全性。2.在上述要求基础上可以为该系统设定两种登录

12、方式，程序开始运行所有功能将是不可使用的，只有系统管理员登录和普通用户登录两个窗口可以使用，没有系统管理员或者普通用户的用户名和密码任何人都不能登录该系统。3.在具体实现时还应为系统管理员和普通用户设定不同的权限，系统管理员应当可以使用系统的所有模块，普通用户对于用户管理模块、学生学期注册(涉及到交费问题)及学生毕业离校等。第二章 相关工具的基本理论2.1 关于vb的说明visual basic 是microsoft公司推出的一种windows应用程序的开发工具。由于它具有使用方便，简单易学、功能丰富等特点，迅速成为最流行的windows应用程序的开发工具之一。何谓visual basic？“

13、visual”指的是开发图形用户界面（gui）的方法，不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象加到屏幕上即可。如果已使用过诸如paint之类的绘图程序，实际上就已经掌握了创建用户界面的必要技巧。“basic”指的是basic（beginners all-purpose symbolit instruction code）语言，这是一种在计算技术发展史上应用得最为广泛的语言。visual basic 在原有basic语言的基础上进一步发展，目前包含了数百条语句、函数及关键词。其中，很多和windows gui有直接关系。数据访问特性允许对包括microsoft sql

14、server和其他企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。有了activex技术，就可使用其他应用程序提供的功能，例如，microsoft word字处理器，microsoft excel电子数据表及其他windows应用程序。甚至可直接使用vbp或vbe创建的应用程序和对象。2.2 关于管理信息系统管理信息系统在最初级阶段是统计系统,所研究的内容是数量数据间的表面的规律，它可以把数据分成较相关和较不相关的组，然后把数据转换为信息。管理信息系统起初应用于最基础的工作，如打印报表、计算工资、学生管理等，进而发展到企业财务管理、库存管理等单项业务管理,这

15、属于电子数据处理系统。当建立了企业数据库，有了计算机网络从而达到数据共享后，从系统观点出发，实施全局规划和设计信息系统时，就达到管理信息系统的阶段。随着计算机技术的进步和人们对系统的需求进一步提高，人们更加强调管理信息系统能否支持企业高层领导的决策这一功能，更侧重于企业外部信息的收集、综合数据库、模型库、方法库和其他人工智能工具能否直接面向决策者，这是决策支持系统的任务。我国20世纪70年代末有少数企业开始mis的局部应用。”六五”期间， 选择一些大企业进行mis的开发试点， 其中首都钢铁公司、北京第一棉纺厂、湖北第二汽车制造厂、宁江机床厂等取得了经验。20世纪80年代中后期，在全国性的计算机

16、应用热潮中，许多企业纷纷从财务管理、人事管理等单项应用入手，尝试建立mis。2.3 数据库系统概述数据库系统是指在计算机系统中引入数据库后的系统，一般由数据库、数据库管理系统、应用系统、数据库管理员和用户构成。应当指出的是，数据库的建立、使用和维护等工作只靠一个dbms远远不够，还要有专门的人员来完成，这些人被称为数据库管理员。在一般不引起混淆的情况下常常把数据库系统简称为数据库。数据库技术是应数据管理任务的需要而产生的。随着计算机技术的发展，其应用远远地超出了这个范围。在应用需求的推动下，在计算机硬件、软件发展的基础上，数据管理技术经历了人工管理、文件系统、数据库系统三个阶段。与人工管理和文

17、件系统相比，数据库系统的特点主要有以下几个主面:1、数据的结构化；2、数据的共享性高，冗余度低，易扩充；3、数据独立性高；数据由dbms统一管理和控制。目前，数据库己经成为现代信息系统的不可分离的重要组成部分。具有数百万甚至数十亿字节信息的数据库己经普遍存在于科学技术、工业、农业、商业、服务业和政府部门的信息系统。20世纪80年代后不仅在大型机上，在多数微机上也配置了dbms，使数据库技术得到了更加广泛的应用和普及，是计算机领域中发展最快的技术之一。2.4 ado与sql server 20002.4.1 axtivex数据对象-adoado，即active 数据对象，实际是一种提供访问各种数

18、据类型的连接机制。ado设计为一种极简单的格式，通过odbc的方法同数据库接口相连。用户可以使用任何一种odbc数据源。ado集中了rdo和dao的优点，可以通过简单的编程实现和各种数据结构进行连接。ado通过下面几步来完成对数据库的操作:1.创建一个到数据源的连接，边接到数据库或者开始一个事务。2.创建一个代表sql命令行的对象。3.执行命令行。4.如果返回以表格形式组织的数据，则将它们保存在缓存中，产生相应的数据集对象。这样便于查找，操作数据。5.通过数据集对象对数据进行各种操作。6.更新数据库，如果使用事务，确认是否接受事务期间发生的数据变化。7.结束连接和事务。使用ado的目的是进入数

19、据源，使得修改，更新数据成为可能。2.4.2 sql server 2000知识介绍 sql server 2000 是microsoft 公司推出的sql server数据库管理系统，它继承了sql server 7.0 版本的优点，同时又为它增加了许多更先进的功能，具有使用方便、可伸缩性好、与相关软件集成度高等优点，应用程序的操作系统支持所有windows版本。在sql server中，使用的是t-sql语言，t-sql是ansi sql的加强版语言，它提供了标准的sql 命令，由于sql语言功能丰富、语言简洁，使用方法灵活，倍受用户和计算机业界的青睐，被众多的计算机公司和软件公司采用。经

20、过多年的发展，sql语言已成为关系数据库的标准语言。sql语言主要有数据定义语言、数据操纵语言、数据控制语言和其他类语言要素组成。t-sql的分类也有类似于sql语言的分类，不过做了许多扩充。t-sql语言的分类如下：变量说明语句、数据定义语言（用来建立数据库、数据库对象和定义其列，大部分是以create 开头的命令）、数据操纵语言（用来操纵数据库中的数据的命令，如：select、insert、delete等）、数据控制语言（用来控制数据库组件的存取许可、存取权限等的命令，如：grant 等）、流程控制语言（用于设计应用程序的语句 ，如：if while和case等）、内嵌函数（说明变量的命令

21、）、其他命令（嵌于命令中使用的标准函数）。在数据库中，数据查询是通过select语句来完成的。select语句可以从数据库中按用户要求检索数据，并将查询结果以表格的形式返回。当然用户在查询数据库时往往并不需要了解全部信息，而只需要其中一部分满足某些条件的信息。在这种情况下就需要在select语句中加入条件以选择数据行，这时，就用到where子句 。where 子句中的条件是由表达式以及逻辑联结词and、or和not等组成。用户在进行查询时，会出现重复结果，这时就需要使用distinct关键字来取消重复部分。在where子句中，可以使用谓词like来进行字符串的匹配检查。当用户要对查询结果进行排

22、序时，就需要在select语句中加入order by子句。在order by子句中，可以使用一个或多个排序，要求其优先级次序从左到右。为了使数据库更加精简，最大限度的减少数据库冗余数据。可以使用连接查询来实现多个表的连接。连接查询可以分为等值连接查询、非等值连接查询、自身连接查询等。表之间的连接如果是通过相等的字段值连接起来的查询称为等值连接查询。在等值查询的连接条件中，不使用等号而使用其他比较运算符，就构成了非等值连接查询，可以使用的比较运算符有、=、！= 等。连接不仅可以在表之间进行，也可以使一个表同其自身进行连接，这种连接成为自身连接，相应得查询成为自连接查询。第三章 数据库设计1、流程

23、图i>=3开始i=0显示登陆界面输入用户名和密码正确管理员i=i+1输入用户名和密码输入用户名和密码输入用户名和密码输入用户名和密码结束员工姓名学号性别个人电话班级住址楼房号寝室号年制2、信息的数量越来越大，数据库的作用越发突出,所以数据库的建立是系统实施的主要部分之一，它关系到整个系统的运行情况，是整个系统的重要组成部分。e-r图寝室寝室号居住性别住宿费应住人数实住人数信息管理退出系统维修管理接受信息房间管理本系统数据库是基于sql server 2000建立的，数据库名为db_goods_data.mdf，在数据库中包括3个表。分别是：用户表、宿舍信息表、宿舍成员表。下面介绍几个主要

24、的表：（1）用户表表主要是登录用户基本情况，字段包括：用户名、密码，系统分别设定了用户的权限级别，用户名是以数据表的方式实现，在登录时，用户只需要通过选择方式，并输入与之相对应的密码即可登录。数据结构如下表：字段名数据类型数据长度用户文本10密码文本10（2）宿舍信息表表主要存放学院住宿宿舍情况，字段包括：宿舍号、宿舍位置、联系电话、管理人员、性别。数据结构如下表：字段名数据类型数据长度宿舍号文本3宿舍位置文本50联系电话文本20管理人员文本10性别文本1（3）宿舍成员表主要不同宿舍内成员的基本信息，字段包括：学号、姓名、性别、年龄、学院、系名、班级。数据结构如下表：字段名数据类型数据长度学号

25、文本10姓名文本10性别文本1年龄文本2学院文本20系名备注20班级备注20第三章 功能模块设计一、新系统功能结构图及运行图如下：1、系统功能结构图：宿舍管理系统宿舍信息添加保存删除取消宿舍成员信息添加保存删除取消2、 宿舍管理此功能包含两方面：一是可对宿舍信息的管理，另一方面可对宿舍成员信息进行索引，以对话框方式弹出舍员管理信息界面。宿舍信息的添加、保存、删除、取消都是通过很直观的命令按钮实现。而界面编辑区主要是以宿舍信息为主，包括：宿舍号、宿舍位置、联系电话、管理人员、性别。3、成员信息管理此窗体是由宿舍管理窗体索引而出，功能编辑区主要是对舍员信息的记录，包括学号、姓名、性别、年龄、学院、

26、系名、班级。整个窗体也是通过4个按钮（添加、保存、删除、取消）命令实现全部功能。第四章 详细设计及具体实施4.1 登录界面此界面用户是以内置信息选择方式输入，密码的输入则必须与用户名相对应，根据选择的用户不同，所具有的权限也不相同。界面操作简单明了。图4.1登录界面登录界面的代码实现过程：dim itmx as listitem '定义一个listitem对象dim key as string '定义字符串变量private sub cmd_cancel_click() endend sub'用户登录按钮的事件代码private sub cmd_ok_click()di

27、m m password as stringif cbx_name.text = "mr" and txt_password.text = "mingrisoft" then '判断是否使用的是超级口令登录 frm_main.statusbar1.panels.item(2).text = "当前操作员： mr" name1 = cbx_name.text '将操作员姓名信息赋予全局变量name1 unload me frm_main.show '显示系统主窗体elseadodc1.recordsource =

28、 "select * from tb_user where user_name ='" & bx_name.text & "'"adodc1.refresh if adodc1.recordset.recordcount > 0 then mpassword = adodc1.recordset.fields("user_mm") if txt_password.text = mpassword then '判断数据的密码是否正确 name1 = cbx_name.text frm_mai

29、n.statusbar1.panels.item(2).text = "当前操作员： " + adodc1.recordset.fields("user_name") frm_main.show '通过身份验证则显示主窗体，登录到系统当中 unload me else msgbox "密码不正确,请您确认后重新输入", , "提示信息" txt_password.text = "" txt_password.setfocus end if else msgbox "对不起 没有

30、此用户的信息", , "提示信息" cbx_name.text = "" txt_password.text = "" end if end ifend subprivate sub form_load()call whscreen '调用获取屏幕分辨率的过程函数'使用代码连接数据库与数据表 adodc1.connectionstring = publicstr adodc1.recordsource = "select * from tb_user" adodc1.refresh if

31、adodc1.recordset.recordcount > 0 then adodc1.recordset.movefirst cbx_name.clear '在添加数据时，首先清空控件中的内容 do while adodc1.recordset.eof = false '将操作员信息添加到listview控件当中 cbx_name.additem (adodc1.recordset.fields("user_name") adodc1.recordset.movenext loop end if if twidth <= 800 or the

32、igth <= 600 then '判断屏幕分辨率的大小 exit subelse changescreen '调整屏幕分辨率end ifend subprivate sub label3_click()end subprivate sub txt_password_keydown(keycode as integer, shift as integer)if keycode = 13 then call cmd_ok_click '调用确定按钮的单击事件代码 end ifend subprivate sub combo1_keydown(keycode as i

33、nteger, shift as integer)if keycode = 13 then txt_password.setfocusend ifend subprivate sub changescreen() '改变屏幕分辨率函数 'msgbox "您桌面的分辨率并不是800*600,建议您将桌面的分辨率调整成800*600之后，再运行此程序!", 64, "提示信息" end sub只有用户名和密码一一对应，如果输入了非正常的密码，程序将不能进入主运行界面，出现如下图提示：本系统为了实现让操作员更方便、更快速的登录主界面，用户名是通

34、过数据库表直接建立，所以呈现给操作员的运行界面就是以下拉菜单方式进行选择的，用户在运行整个程序时只要将新的用户添加后，数据库内将自动更新，下次运行时下拉菜单中将新增上次添加的用户。其界面如下代码如下：private sub cmd_cancel_click() unload meend subprivate sub cmd_ok_click()if text1.text = "admin" then '判断是否使用超级用户登录if text2.text = "ljm2004" then unload me frm_del_data.show el

35、se msgbox "输入的密码不正确!", 48, "提示信息" text2.text = "" text2.setfocus end ifelse '如果不是使用超级用户登录，则到数据库中查找该用户的信息adodc1.recordsource = "select * from tb_user where user_name='" + text1.text + "'"adodc1.refreshif adodc1.recordset.recordcount > 0

36、 then if text2.text = adodc1.recordset.fields("user_mm") then '判断数据的密码是否正确 unload me frm_del_data.show else msgbox "您输入的密码不正确,请您确认后重新输入", 48, "提示信息" text2.text = "" '如果输入的密码不正确，则清空文本框重新输入 text2.setfocus end if else end ifend ifend subprivate sub form_a

37、ctivate() text1.text = name1end subprivate sub form_load()'利用代码连接数据库adodc1.connectionstring = publicstradodc1.recordsource = "select * from tb_user" '连接操作员信息表adodc1.refreshme.left = (screen.width - me.width) / 2 '使窗体居中me.top = (screen.height - me.height) / 2end subprivate sub t

38、ext2_keydown(keycode as integer, shift as integer)if keycode = 13 then call cmd_ok_click '调用“确定”按钮的单击事件elseend ifend sub4.2 程序主界面程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由两部分组成。学生宿舍资料、退出系统。（1）界面效果图如下：图4.2程序主界面private sub form_activate() statusbar1.panels.item(3).text = format(now, "yyyy年mm月

39、dd日") adors.open "select * from tb_user where user_name='" + name1 + "'", cnn, adopenkeysetadors.closeif twidth <= 800 or theigth <= 600 then me.borderstyle = 2 me.windowstate = 2 else removemenu getsystemmenu(frm_main.hwnd, 0), sc_maximize, mf_remove '最大化按

40、钮不可用 end ifend subprivate sub gszlsz_click() '公司资料设置 frm_gszl.show 1end subprivate sub hwsqdbb_click()on error resume nextdevr1.rscom_sqd.open "select * from tb_goods_sqd" if devr1.rscom_sqd.recordcount > 0 then drp_sqd.show 1 end ifend subprivate sub hwsqdcx_click() strcx = 1 frm_x

41、xcx.show 1end subprivate sub hwtydbb_click() devr1.rscom_tyd.open "select * from tb_goods_tyd" if devr1.rscom_tyd.recordcount > 0 then drp_tyd.show 1 end ifend subprivate sub hwtydgl_click() frm_hpty.show 1 '宿舍成员信息end subprivate sub hwtyxxcx_click() strcx = 3 frm_xxcx.show 1end subp

42、rivate sub hwtyyscx_click()strcx = 4 frm_xxcx.show 1end subprivate sub hwysdbb_click() devr1.rscom_ysd.open "select * from tb_goods_khys" if devr1.rscom_ysd.recordcount > 0 then drp_ysd.show 1 end ifend subprivate sub hwysdgl_click() frm_hpys.show 1end subprivate sub khzlsz_click() '

43、;成员资料信息 frm_khxx.show 1end subprivate sub pshwbgcx_click() frm_ztgzcx.show 1end subprivate sub psjldgl_click() frm_ztgz.show 1end subprivate sub scrz_click()dim deldim temp1 as stringon error resume next '错误处理语句del = msgbox("确认要清除系统的日志信息吗?", 17, "提示信息") if del = vbok then kil

44、l (app.path & "系统日志.ini") open (app.path & "系统日志.ini") for output as #1 temp1 = " 操作员姓名 日期时间 操作类型" print #1, temp1 print #1, close #1 msgbox "日志清理成功完成!", , "提示信息" else end ifend subprivate sub sjbf_click() frm_backup.show 1end subprivate sub

45、sjhf_click()dim itask as longmsgbox "请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序", 64, "提示信息"'调用数据恢复可执行文件itask = shell(app.path & "restore.exe", vbnormalfocus)endend subprivate sub sjql_click() frm_sfyz.show 1end subprivate sub sjzlsz_click() frm_sjxx.s

46、how 1end subprivate sub sqdgl_click() frm_tysq.show 1 end subprivate sub toolbar1_buttonclick(byval button as mscomctllib.button) select case button.key case "sq" frm_tysq.show 1 case "dd" frm_cldd.show 1 case "ty" frm_hpty.show 1 case "gz" frm_ztgz.show 1 cas

47、e "ys" frm_hpys.show 1 case "cx" strcx = 3 frm_xxcx.show 1 case "bb" drp_tyd.show 1 case "rz" frm_systemer.show 1 case "tc" end end selectend subprivate sub ygzlsz_click() '员工资料信息 frm_ygzl.show 1end subprivate sub yhgl_click() frm_systemer.show 1

48、end subprivate sub zwxxsz_click() frm_zwxx.show 1end subprivate sub timer1_timer() statusbar1.panels.item(4).text = timeend subprivate sub changescreen() '改变屏幕分辨率函数 msgbox "您桌面的分辨率并不是800*600,建议您将桌面的分辨率调整成800*600之后，再运行此程序!", 64, "提示信息" end sub4.3宿舍管理宿舍管理界面是整个程序功能模块的主界面，通过此窗口可对

49、宿舍信息以及舍员基本信息的输入、修改、删除和保存。此界面作为毕业设计的课题，仅是学生宿舍管理的一个缩影，功能并不完善，但已基本实现了一定的主要功能。界面效果图private sub form_load() call refreshdata call loadfile for i = 0 to 3 '锁定文本框，禁止输入内容 text1(i).locked = true next i adors.open "select * from tb_goods_tyd order by tyd_tydh", cnn, adopenkeyset if adors.recordc

50、ount > 0 then lbl_num.caption = "当前数据表中共有 " & adors.recordcount & " 条记录" end if adors.close call tbr_cortrol(tbr_xxcz, true)end subprivate sub listview1_click()adors.open "select * from tb_goods_tyd where tyd_tydh='" & listview1.selecteditem & &qu

51、ot;' order by tyd_tydh", cnn, adopenkeyset if adors.recordcount > 0 then call dataload '调用显示数据的事件过程 end if adors.close '关闭数据集对象 adors1.open "select * from tb_goods_khys where khys_tydh='" & listview1.selecteditem & "'", cnn, adopenkeyset adors1

52、.close call showdata '调用数据刷新的事件过程 call dbgconend subprivate sub tbr_xxcz_buttonclick(byval button as mscomctllib.button) select case button.index case 1 call tbr_cortrol(tbr_xxcz, false) for i = 0 to 2 text1(i).locked = false text1(i).text = "" next i text1(0).setfocus check1.value = 0 '根据日期产生