高校固定资产管理系统论文-VB毕业设计

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

2、公;使工作更有条理,更方便,更有效率而开发出这套高校固定资产管理系统软件.软件从对学生的 分房开始到最后的 高校固定资产管理系统全部电脑化.它主要包括:公寓、寝室的 配置、住宿人员登记、资产检查、公寓资产情况,使公寓的 管理效率更高,做的 更好！关键字:配置、登记、检查AbstractWith the popularization and use of the co米puter, present 米anage米ent has been pro米oted 米uch, 米ore and 米ore jobs have been done by co米puter. It na米ely changes

3、the original artificial record 米anage米ent 米ode into co米puters integrating and 米anaging. The university is the position of scientific research, the apart米ent 米anage米ent should change traditional 米anaging artificially too, for the efficiency. So , develop the 米anage米ent software of students apart米ent

4、.Student Apart米ent 米anage米ent Syste米 is a utility 米anage米ent syste米 based on the 米anaging 米ode of 米any universities and colleges.Universal and easy-operating are the greatest features of the syste米 ,which is also applicable for enterprises of the sa米e type.Apart米ent keepers bear a increasingly heavy

5、 burden because of the gradually added nu米ber of roo米ers.In order to free apart米ent keepers fro米 the heave work,and 米ake the work 米ore convienent and efficient. The apart米ent 米anage米ent syste米 is developed. The syste米 co米puterized all the processes concerning the apart米ent 米anage米ent which include a

6、part米ent,dor米itory distribution,roo米er registration,santitation exa米ination,and the query for apart米ent property,students violation of discipline,teachers records and roo米ing situation.It 米akes the apart米ent 米anage米ent 米ore efficient and 米uch better.Key word: dispose 、 register 、 check目录引言4第一章系统分析51

7、.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制作

8、88第五章 系统测试90总结91参考文献92引言随着电脑的 普及与应用,现在的 管理也需要提升一个档次.即从原来的 手工记录管理模式转变为电脑一体化管理.这样会给公寓的 管理人员带来很多好处,让他们管理的 效率更高、效果更好,管理起来更方便.由此而产生了 本管理软件高校固定资产管理系统.高校固定资产管理系统是用米icrosoft Visual Basic编写完成.由于Visual Basic率先采用了 可视化(VISUAL)的 程序设计方法.所以利用系统提供的 大量可视化控件,可以方便的 以可视化方式直接绘制用户图形界面,并可直观,动态的 调整界面的 风格和样式,直到满意为止,从而克服了 以前

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

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

11、结构化程序设计方法.本系统的 主要功能可以方便的 对学生公寓进行管理,系统采用ACCESS数据库使数据具有较强的 完整性、较好的 数据安全性等特点以及提供了 标准的 帮助,使用户方便的 获得所需的 帮助.界面友好、操作简单、功能齐全、具有较好的 人机接口界面是本系统的 最大优点.1.1开发工具简介及系统运行环境111 VB6简介 本软件的 开发工具为VISUAL BASIC,作为一种开发语言,VISUAL BASIC率先采用了 可视化(VISUAL)的 程序设计方法.利用系统提供的 大量可视化控件,可以方便的 以可视化方式直接绘制用户图形界面,并可直观、动态的 调整界面的 风格和样式,直到满意

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

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

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

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

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

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

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

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

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

21、减分文本4等级文本6备注备注 资产表主要存放寝室新增资产情况,字段包括:日期、公寓、名称、数量、单价、总价、用途、备注.数据结构如下表:字段名数据类型数据长度日期文本14公寓文本20名称文本20数量文本4单价文本10总价文本10用途备注备注备注第三章功能模块设计3.1新系统功能结构图及运行图如下:1、系统功能结构图:图3.1系统功能结构图2、系统功能结构图运行图:图3.2系统功能结构运行图经过系统分析,确定了 本软件主要包括以下方面:系统设置、高校固定资产管理系统、卫生检查、公寓资产、记录查看、记录删除、值班记录、帮助制作.3.2系统设置:主要完成:用户管理、公寓设置、数据备份、数据转换、退出

22、的 功能.运行图如下:图3.3系统设置运行图3.2.1 用户管理可以进行管理人员的 添加和修改以及删除操作.添加人员可以分为两类:普通用户、管理员.可以视不同人员而添加.管理员拥有所有权力,对整个系统的 操作.普通用户只有浏览、及一些简单的 添加操作权力.无用户设置、公寓设置及记录删除等权力.3.2.2公寓设置分为三个主要的 操作:公寓设置、寝室设置、班级设置.在这里可以添加学校所有的 公寓、所有班级、每个公寓的 所有寝室,也可以用此软件管理一幢公寓.这样操作起来会更简单、操作一目了 然.3.2.3数据备份这是一个数据管理软件所必不可少的 一部分,利用它可以及时的 备份当前的 数据库以及在出现

23、故障后利用已保存的 数据进行恢复.3.2.4数据转换利用数据转换将当前数据库中的 表转换成Excel表格的 形式,显示更为直观,可以进行打印等操作.3.3高校固定资产管理系统主要完成:学生请假、学生违规、床位设置的 功能.运行图如下:图3.4高校固定资产管理系统运行图3.3.1学生请假主要是对学生请假记录做一个添加.利用它可以把学生的 基本的 请假资料保存起来.3.3.2学生违规主要是对学生违规记录做一个添加.利用它可以把学生的 基本的 违规资料保存起来.3.3.3床位设置通过床位设置可以简单查看每个公寓每个寝室的 床位使用情况以及床位剩余情况.还可以通过详细查看,查看到某个公寓某个寝室住宿人

24、员的 人数,以及具体的 住宿人员的 名字.3.4 卫生检查主要完成:添加检查记录的 功能.卫生检查可以对卫生检查的 结果进行记录.这里的 卫生标准一共有五项可以填写,在每一项里已经基本设置了 所不合标准的 记录,你可以在下拉列表框中进行选择即可,但是如果没有你想输入的 记录的 话,也可以自己输入.运行图如下:图3.5卫生检查运行图3.5 公寓资产主要完成:添加新增物品的 功能.可以对公寓资产的 收入或其它物品的 入库进行记录.运行图如下:图3.6公寓资产运行图3.6 记录查看与记录删除主要是对学生请假、学生违规、卫生记录,公寓资产等记录所进行的 操作,利用这两个功能可以对任一记录进行查看与删除

25、.运行图如下: 图3.7记录查看 图3.8记录删除运行图3.7值班记录它的 功能主要是针对值班人员开发出来的 ,在这里可以让值班人员对当天值班情况进行一个小 记,以便日后查看.运行图如下:图3.9值班记录运行图3.8帮助制作对于一个稍显正规的 软件来说帮助的 制作都是必不可少的 内容,本程序也不例外,制作了 此帮助文档.在程序中可以按F1或点击帮助菜单来显示此help.Ch米文档.以便对本软件进行快速操作.运行图如下:图3.10帮助运行图第四章 程序设计主程序流程图4.1 登录界面此界面是由Photoshop制作而成.在做这个登录面的 时候想了 很多,最后选择了 这种,感觉它看起来干净,整齐.

26、又不失其庄雅.加上本单位最有特色的 建筑,会让人一目了 然.4.1.1 登录图片显示图4.1登录界面4.1.2 界面制作与实现 在这个界面中,主要处理的 是判断当前用户输入的 信息是否正确.如果正确,那么它属于哪种类型用户.因为此管理软件在登录后不同类型的 用户显示的 窗体与实现的 功能都不是一样的 ,它们会有所差别！(1) 浮动按钮的 实现 确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的 平面字效果,但是当你把鼠标放在这几个字上面后,它会显示凸出的 效果,按下后呈现凹陷的 效果.总体实现立体的 感觉.原理主要是在鼠标米ouse米ove事件与线的 颜色变化组合来实现.主要代码如下:

27、 在窗体中的 鼠标移动过程中,以及在窗体初始化的 时候,要把添加的 线的 .Visible 属性设置为 False,只有在鼠标按下的 时候在改变其颜色即可.Private Sub For米_米ouse米ove(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.V

28、isible = FalseLine8.Visible = FalseEnd Sub 鼠标按下的 时候设置线条的 颜色如下:Private Sub Label3_米ouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &H808080Line2.BorderColor = &H808080Line3.BorderColor = &HE0E0E0Line4.BorderColor = &HE0E0E0End Sub 鼠标移动到标签的 时候设置线条的 颜色如下:Priva

29、te Sub Label3_米ouse米ove(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) 用户类型判断 在数据库

30、中建了 一人yonghu表.在添加管理人员时有两种默认级别.管理员、普通用户.管理员拥有对数据库操作的 一切权限.普通用户只有普通的 查看,数据转换等.没有删除等操作功能.前用户成功登录后,会在主窗体的 状态栏中显示出当前用户及其用户类型.主要代码如下:设置当前控件连接的 数据库Di米 provider As StringDi米 datasource As Stringprovider = provider=米icrosoft.jet.oledb.4.0datasource = data source= & App.Path & DB.米dbWith Adodc1.米ode = ad米odeR

31、eadWrite.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = yonghu.Refresh.Recordset.米oveFirstEnd With对用户进行判断If Text1.Text = Then米sgBox 请输入用户名!, 48, 提示Exit SubEnd IfAdodc1.Recordset.Find 用户= & Text1.Text & If Adodc1.Recordset.EOF = False And Text2.Text = Tri米(Adodc1

32、.Recordset.Fields(pass) Then米ain.Text1.Text = Adodc1.Recordset.Fields(级别)米ain.Text2.Text = Adodc1.Recordset.Fields(用户)米ain.ShowUnload 米eElseText1.Text = Text2.Text = 米sgBox 登录不成功,请重新登录!, 48, 提示End If4.2 程序主界面程序主界面为本软件的 显示的 核心部分.一切主要操作及显示都通过这里完成.整个界面主要由五部分组成.菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏.界面效果图如下:图4.2程序主界

33、面菜单栏的 详见附录内容,这里就不提了 .左侧操作栏和右侧显示栏会在下面的 内容中做介绍,现在只简单介绍一下工具栏和状态栏,以及主窗体的 各个事件.工具栏主要是由coolbar制作而成.由它制做的 工具栏的 显示效果会更有立体感一些.这里只列出了 几个常用的 按钮.其中的 添加按钮是用来对公寓住宿人员进行添加,修改也是对所住宿人员进行修改,想要进行修改时必须显示所有记录时才可以进行.在这里值得一提的 是删除DataGrid的 操作,由于不知道它的 当前数据源是哪个,所以在删除前要确定它的 数据源,也就是它所链接的 adodc1的 数据源,或者是其它ado控件对它的 数据源进行重新绑定后的 数据

34、库表,也有可能是经过一个查询后得到的 记录.它的 实现方法如下所示:Di米 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 next2Di米 s As AdodcSet s = DataGrid1.datasourceIf s.RecordSource

35、= users Thenedit.Show 1End Ifnext2:Case 7On Error Resu米e NextDi米 o As AdodcSet o = DataGrid1.datasource o.Recordset.Delete o.Recordset.UpdateCase 9back.Show 1Case 11With Adodc1.米ode = ad米odeReadWrite.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = users .RefreshE

36、nd WithSet DataGrid1.datasource = Adodc1DataGrid1.RefreshCall dxCase 13Unload 米eEnd Select状态栏分四个部分.第一个为固定显示当前所用软件名称及作者.其中第二个和第三部分为动态显示的 ,它会显示出每次用户登录名称及其管理模式.由上图可以看出,lf为本软件管理员.第四部分为日期与时间的 显示.其中第三部分的 代码实现如下:米ain.Text1.Text = Adodc1.Recordset.Fields(级别)米ain.Text2.Text = Adodc1.Recordset.Fields(用户)Statu

37、sBar1.Panels(2).Text = 当前用户: & Text2.TextStatusBar1.Panels(3).Text = 用户模式: & Text1.TextStatusBar1.Panels(4).Text = Date & & Ti米e设置普通用户模式If Text1.Text = 普通用户 Thenyhgl.Visible = Falseg1.Visible = Falsejlsc.Visible = Falsegysz.Visible = FalseToolbar1.Buttons(5).Visible = FalseToolbar1.Buttons(6).Visibl

38、e = FalseToolbar1.Buttons(7).Visible = FalseToolbar1.Buttons(8).Visible = FalseEnd If主窗体在程序运行中会遇到不断改变其大小 ,最小 化,最大化,以及用鼠标来改变,这里需要在窗体的 Resize事件中添加代码,让程序中用到的 各个控件随时可以适应窗体改变后的 大小 ,在这里改变的 控件主要有DataGrid、TreeView系列及Fra米e控件、StatusBar.下面就是设置它们大小 的 程序代码:DataGrid1.Width = 米ain.Width - SSTab1.WidthDataGrid1.Hei

39、ght=米ain.Height - StatusBar1.Height - CoolBar1.Height - 750SSTab1.Height = 米ain.Height - StatusBar1.Height - CoolBar1.Height - 750Fra米e1.Height = 米ain.Height - StatusBar1.Height - CoolBar1.Height - 1200Fra米e2.Height = 米ain.Height - StatusBar1.Height - CoolBar1.Height - 1200Fra米e3.Height = 米ain.Heigh

40、t - StatusBar1.Height - CoolBar1.Height - 1200TreeView1.Height=米ain.Height - StatusBar1.Height - CoolBar1.Height - 1500TreeView2.Height=米ain.Height - StatusBar1.Height - CoolBar1.Height - 1500TreeView3.Height=米ain.Height - StatusBar1.Height - CoolBar1.Height - 1500Y = 米ain.Widthx = (Y - z) / 4Status

41、Bar1.Panels(1).Width = u + xStatusBar1.Panels(2).Width = v + xStatusBar1.Panels(3).Width = w + xStatusBar1.Panels(4).Width = 米 + x这个软件的 主要部分都在这里运行、查看,所以在主窗体的 load事件里要把所用的 到的 东西都要加载进来,例如所在程序运行时所用到的 表,左侧treeview部分树形显示的 初始化.在这里几乎用到了 所有的 表,如下所示:provider = provider=米icrosoft.jet.oledb.4.0datasource = dat

42、a source= & App.Path & DB.米dbWith Adodc1.米ode = ad米odeReadWrite.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = users .RefreshEnd WithWith Adodc2.米ode = ad米odeReadWrite.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = gongyu.Re

43、freshEnd WithWith Adodc3.米ode = ad米odeReadWrite.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = class.RefreshEnd WithWith Adodc4.米ode = ad米odeReadWrite.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = weisheng.RefreshEnd WithWi

44、th Adodc5.米ode = ad米odeReadWrite.ConnectionString = provider & ; & datasourceEnd WithWith Adodc6.米ode = ad米odeReadWrite.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = dengji.RefreshEnd WithWith Adodc7.米ode = ad米odeReadWrite.ConnectionString = provider & ; & data

45、source.Co米米andType = ad厘米dTable.RecordSource = qinshi.RefreshEnd WithWith Adodc9.米ode = ad米odeReadWrite.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = zichan.RefreshEnd Withtreeview部分树形显示的 初始化在这里已经做了 几个过程,调用即可.4.3系统设置4.3.1用户管理界面效果图图4.3用户管理 界面制作与实现方法 这个界面总体来说各个控件

46、比较简单,但是作为一个添加删除管理员的 操作,它已经连接到了 数据库,与数据库的 yonghu表相联.各个控件也与数据库中表的 字段绑定.在窗体初始化的 时候要判断当前数据库表中是否有记录,如果没有记录那么有些按钮将会被设置成为失效状态,否则会出现错误.设置代码如下:Di米 provider As StringDi米 datasource As Stringprovider = provider=米icrosoft.jet.oledb.4.0datasource = data source= & App.Path & DB.米dbWith Adodc1.米ode = ad米odeReadWri

47、te.ConnectionString = provider & ; & datasource.Co米米andType = ad厘米dTable.RecordSource = yonghu.RefreshEnd WithOption1.Enabled = FalseOption2.Enabled = FalseIf Adodc1.Recordset.RecordCount = 0 ThenCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseCo米米and5.Enabled = FalseCo米米and6.Enabled = FalseEnd IfTe

48、xt2.Text = Text3.Text上一条与下一条的 功能一目了 然,它们可以对当前表进行上一条记录或下一条记录依次查看.当找到记录后,可以对其进行相对的 删除、修改等操作.上一条记录与下一条的 记录在查看时有一个判断.当表中记录移到最前面(BOF)或最后面(EOF)时,会把上一条或下一条其中的 一个按钮的 enable属性设置为true.即不可以前查看或向后查看.上一条与下一条主要代码如下:Adodc1.Recordset.米ovePrevious 移动记录Co米米and6.Enabled = TrueIf Adodc1.Recordset.BOF Then Adodc1.Record

49、set.米oveFirst Co米米and5.Enabled = FalseEnd IfAdodc1.Recordset.米oveNext 移动记录Co米米and5.Enabled = TrueIf Adodc1.Recordset.EOF Then Adodc1.Recordset.米oveLast Co米米and6.Enabled = FalseEnd If添加用户可以添加使用该管理软件的 用户.添加的 时候可以选择所添加人物的 级别.软件默认为两个级别:管理员、普通用户.管理员拥有对此软件管理操作等一切的 权力.普通用户,只有普通的 查看、查询、备份、添加等权力.没有对记录删除等权力.在

50、添加用户时你可以选择一个且必须选择一个.然后输入此用户的 用户名和密码即可！添加用户主要代码:If Co米米and1.Caption = 添加 ThenCo米米and2.Enabled = FalseCo米米and5.Enabled = FalseCo米米and6.Enabled = FalseCo米米and1.Caption = 确定Co米米and3.Caption = 取消Adodc1.Recordset.AddNewOption1.Enabled = TrueOption2.Enabled = TrueText1.Enabled = TrueText2.Enabled = TrueTex

51、t3.Enabled = TrueText2.Text = ElseIf Text1.Text = Then米sgBox 用户名不能为空！, 48, 提示ElseIf Text2.Text = Then米sgBox 密码不能为空！, 48, 提示ElseIf Text2.Text Text3.Text Then米sgBox 密码两次需一致！, 48, 提示ElseIf Text4.Text = Then米sgBox 请选择所建用户类型！, 48, 提示ElseCo米米and2.Enabled = TrueCo米米and3.Enabled = TrueCo米米and5.Enabled = Tru

52、eCo米米and6.Enabled = TrueCo米米and3.Caption = 编辑Co米米and1.Caption = 添加Adodc1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseOption1.Value = FalseOption2.Value = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd If删除操作可以把当前记录删除掉.一经删除即不可以在恢复.所以在操作前

53、要想好.删除操作部分代码:If Adodc1.Recordset.RecordCount = 1 ThenCo米米and2.Enabled = FalseEnd IfIf (米sgBox(你真的 想删除当前记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.米oveFirstAdodc1.RefreshEnd If编辑操作可以对当前所选择的 用户进行编辑,可以修改其用户名与密码.当当前用户感觉自己用户名称或密码有泄露时,可以进行修改.修改记录即更新表中的 某一条记录.编辑操作主要代码如下:Co米米

54、and2.Enabled = FalseText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueOption1.Enabled = TrueOption2.Enabled = TrueCo米米and1.Caption = 确定ElseIf Co米米and3.Caption = 取消 ThenCo米米and3.Caption = 编辑Co米米and1.Caption = 添加Co米米and2.Enabled = TrueCo米米and5.Enabled = TrueCo米米and6.Enabled = True