VB学生成绩查询系统

1、山东凯文科技职业学院2011届毕业论文基于VB的图书管理系统学 院：信息学院学生姓名：李雪丽指导教师：戴洪刚专 业：08软件技术班 级：完成时间：20n年6月29日摘要随着人类社会的发展，人类对知识的需求也不断地增长。 在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要 途径，而图书馆就自然而然地在人们的生活中占据了一定的位 置，如何科学地管理图书馆不但关系到读者求知的方便程度， 也关系到图书馆的发展，因此，开发一套完善的图书馆管理系 统就成不可少了，本文介绍了在Visual Basic6.0环境下采用 “自上而下地总体规划，自下而上地应用开发”的策略开发本 系统的详细过程，提出实现图书馆

2、信息管理、资源共享的基本 目标，从而推动迈向数字化图书馆的步伐，并阐述系统结构设 计和功能设计，从图书的入库登记到查询浏览，从借书证发放 到图书的借阅，形成了一个整体自动化管理模式，从软件工程 的角度进行了科学而严谨的阐述。关键词：图书管理；借阅；浏览；Visual Basic6. 0AbstractWith the development of society , Mankind need more knowledge also constantly increase, Under this fsituation, book gradually become the main path to

3、 obtain the knowledge of life, and library naturally occupied in people certainly position, how science ground the management library not only relate to the convenient degree that the reader beg to know, but also relate to the library that strategy of development, therefore, develop the management s

4、ystem of a perfect library can t little, this text introduced under the Visual Basic6.0 the environment adoption" from top to bottom total programming, from the detailed process that bottom but up applied developmentdevelop this system, from the step that but the push head into the arithmetic f

5、igure of the library, and shows the system construction design and function design, from the books of store in warehouse to register the search to view, books that issue from library card to angle of borrow , become a the whole automation the management the mode, and proceeds careful explain from th

6、e software engineering scienceKeywords： library ； borrow； search to view； Visual Basic6. 0目录摘要01概述31.1 数据库及其应用 31.2 数据库系统41.3 数据库系统简介52数据库系统设计62.1数据库设计概述62. 2数据库设计周期62. 3数据库开发工具简介(Microsoft Access2003) 72. 4图书管理系统数据库设计72. 4.1数据库需求分析72. 4. 2数据库概要设计82. 4. 3数据库的具体实现103系统总体设计132.1 图书管理系统简介133. 2系统功能描述15

7、3.3系统模块划分163.4系统流程分析163.5 开发工具简介(Visual Basic6. 0) 173.6系统详细设计183. 6.1启动界面设计183. 6.2登陆界面设计193. 6.3主界面设计 193. 6.4其他功能模块设计19总结23参考文献23谢辞24附录(系统原程序)241概述L1数据库及其应用自20世纪70年代以来,数据库技术得到迅速发展.目前世界上已经 有数百万个数据库系统在运行，其应用已经深入到社会生活的各个领域, 从企业管理,银行管理,资源管理,经济预测一直到信息检索,档案管理,普 查统计等.我国20世纪90年代初在全国范围内装备了 12个以数据库为基 础的大型计

8、算机系统,这些系统分布在邮电,计委,银行，电力，铁路,气象, 民航,情报,公安,军事,航天和财税等行业.现在,数据库技术还在不断发展，并且不断的及其它计算机技术相互 渗透.数据库技术及网络通信技术相结合,产生了分布式数据库系统.数据 库技术及面象对象技术相结合,产生了面向对象数据库系统等各种数据库 系统.在人类迈向21世纪知识经济的时候,信息变为经济发展的战略资源, 信息技术已成为社会生产力重要的组成部分.人们充分认识到，数据库是 信息化社会中信息资源管理及开发利用的基础.对于一个国家，数据库的 建设规模，使用水平已成为衡量该国信息化程度的重要标志.因此,数据库 的学习是非常重要的.1.2数据

9、库系统数据库系统本质上是一个用计算机存储记录的系统。数据库本身可 被看作为一种电子文件柜：也就是说，它是收集计算机数据文件的仓库或 容器。系统用户可以对这些文件执行插入数据、检索数据、更改数据、删 除数据等一系列操作。总之，数据库系统是一个计算机存储记录的系统，即，它是一个计 算机系统，该系统的目标存储信息并支持用户检索和更新所需要的信息。 图-2是一个数据库系统的简图。图1-2数据库系统简图1. 3数据库系统简介本人设计的是一个关于图书馆图书管理的数据库系统,通过这个系 统管理员可以简捷、方便的对图书记录查阅、增加、删除等功能，而用户 也可以通过这个系统对进行图书查询、借阅、归还等功能。该数

10、据库应用程序按照用户权限和实现功能的不同分为两部分：外 部学生对数据库的查询访问和内部管理人员对数据记录的管理维护.每一 部分中包含各自实现的各项功能，对每一项功能的实现，将按照窗体设计 以及运行情况的顺序逐一进行设计.本系统采用Microsoft access技术建立数据库，使用VB技术建立 数据源的链接，并且生成图书管理的数据库应用程序从而实现数据库的管 理功能。9 / 492数据库系统设计1.1 数据库设计概述计算机信息系统以数据库为核心，在数据库管理系统的支持下，进 行信息的收集、整理、存储、检索、更新、加工、统计和传播等操作。对于数据库应用开发人员来说，为使现实世界的信息流计算机话，

11、 并对计算机话的信息进行各种操作，就是如何利用数据库管理系统、系统 软件和相关硬件系统，将用户的要求转化成有效的数据结构，并使数据库 结构易于实现用户新的要求的过程。确切的说，数据库设计是指对于一个给定的应用环境，提供一个确 定最优数据模型及处理模式的逻辑设计，以及一个确定数据库存储结构及 存取方法的物理设计，建立起既能反映现实世界信息和信息联系，满足用 户数据要求和加工要求，有能被某个数据库管理系统所接受，同时能实现 系统目标，并有效存取数据的数据库。2. 2数据库设计周期根据软件工程的思想，数据库设计的周期可以划分为六个阶段：（1）规划阶段确定开发的总目标，给出计划开发的软件系统的功能、性

12、能、可靠 性以及接等方面的设想。（2）需求分析阶段认真细致地了解用户对数据的加工要求，确定系统的功能及边界。 本阶段的最终结果，提供一个可作为设计基础的系统说明书，包括对软硬 件环境的要求和一整套完善的数据流程图。（3）设计阶段把需求分析阶段所确定的功能细化，主要工作是概念设计阶段、逻 辑设计阶段、物理设计阶段，然后，对每个阶段内部设计详细的流程。（4）程序编制阶段以一种或几种特定的程序设计语言表达上一阶段确定的各模块控 制流程。程序编制时应遵循结构化程序设计方法。（5）调试阶段对已编好的程序进行单元调试（分调），整体调试（联调）和系统 测试（验收）。（6）运行和维护阶段这是整个设计周期最长的

13、阶段，其工作重点是收集和记录系统实际运 行的数据。在运行中，必须保持数据库的完整性，必须有效的处理数据故 障和进行数据库恢复。同时解决开发过程的遗留问题，改正错误进行功能 完善。2. 3数据库开发工具简介（Microsoft Access2003）Access是Office办公套件中一个极为重要的组成部分。刚开始时微 软公司是将Access单独作为一个产品进行销售的，后来微软发现如果将 Access捆绑在OFFICE中一起发售，将带来更加可观的利润，于是第一次 将Access捆绑到OFFICE97中，成为OFFICE套件中的一个重要成员。现 在它已经成为Office办公套件中不可缺少的部件了。

14、自从1992年开始销 售以来，Access已经卖出了超过6000万份，现在它已经成为世界上最流 行的桌面数据库管理系统。后来微软公司通过大量地改进，将Access的 新版本功能变得更加强大。不管是处理公司的客户订单数据；管理自己的 个人通讯录；还是大量科研数据的记录和处理，人们都可以利用它来解决 大量数据的管理工作。2. 4图书管理系统数据库设计2. 4.1数据库需求分析随着社会发展，人类的生产、生活越来越离不开信息。谁拥有了更多 更有效的信息，谁就将在竞争中处于有利地位。信息产业正在成为一个国 家的支柱。数据作为信息的载体，其管理工具数据库对于信息技术的重要 性，正日益得到人们的重视。只有拥

15、有了先进的数据库技术，才能有效地 管理好浩如烟海的数据，并从中提取出对自己有用的信息来加以利用。从 60年代末期开始，数据库系统已经经过了 30多年的历程，经历了两代的 演变。第一代数据库系统是层次及网络的数据库系统。第二代数据库系统 是关系数据库系统。30年来，人们主要致力于第二代数据库系统的理论研 究和系统开发，取得了辉煌成就。完善关系理论的确立标志着关系数据库 系统理论趋于完善。商品化的DB2, INGRES, ORACLS. SYBASE, SQL SERVER 等关系数据库的出现标志着关系数据库系统已经接近顶峰。第一代和第二 代数据库系统的设计目标源于商业事务处理。多年来，这两代数据

16、库系统 主要用于银行，飞机定票等事务处理。80代以来，随着计算机应用领域的 迅速扩大，新的数据库应用等。针对新一代数据库应用。从80年代至今, 人们一直在探索新一代的数据库系统的理论,技术和方法。在设计家庭图书管理系统之前，我们应当知道什么是数据库以及VB6. 0 的开发环境。所谓数据库是指以一定的组织方式存储在一起的，能为多个 用户所共享的，及应用程序彼此独立的相关联的数据集合。而数据库系统 是指实现有组织的动态的存储大量关联数据，支持多用户访问的计算机软 硬件资源及数据库管理员组成的系统。我们的系统是按用户的需求进行数 据库定义、存取、运行、建立和维护功能，系统的数据库定义模型图：数据库定

17、义模型图2. 4. 2数据库概要设计软件系统本质上是信息处理系统，因此，在软件系统的整个开发过 程中都必须考虑两方面的问题一一“数据”及对数据的“处理”。为了把 用户的数据要求清晰明确地表达出来，系统分析员通常建立一个概念性的 数据模型。概念性数据模型是一种面向问题的数据模型，是按照用户的观 点来对数据和信息建模，它描述了从用户角度看到的数据，它反映了用户 的现实环境，且及在软件系统中的实现方法无关。这里我们运用最常用的 表示概念性数据模型的方法，是实体一一联系方法即E-R模型。通常， 软件系统中有许多数据是需要长期保存。为减少数据冗余，简化修改数据 的过程，实现对数据进化规范化。数据库表的关

18、系由E-R图转换成关系模式如下:图书关系图:图书名图书类别作者书籍号出版社录入时间高等数学SSSS*0001高等教育2006. 1数据库SSSO O O O O0003工业出版20066读者关系图:读者姓名读者编号性别读者类别工作单位家庭住址联系电话录入时间汤水平001男DFF宜春学院11111126782006. 3223003女FDFDFDFDO O O O466665777用户关系图:用户名密码Admin0000002. 4. 3数据库的具体实现作为Microsoft公司的本地数据库，Access在应用中使用的非常广 泛，为此我选用Access数据库来进行数据库的设计。根据前面定义的实

19、体及实体之间的关系，形成数据库的表格以及各个表之间的关系。(1)用户信息表囱用户表：表user_IDffiiinaS,dbni000000tsh-uipminuser222222米说明：该表是为用户进入本系统而设置的用户权限，只有同时 知道用户名和所对应的密码才能进入本系统。<2）读者信息表读者信息:表语髓名篇羯阴1解期工二位罪战电话需鸵脚1已借微曼豳K01til窘群原彘-03035/啮郎1蒯M3舒豆春羯靛CCOKCO5/1/2CC51弱OIKTip5/1加班20X6苜！的竽标1H09-0)001”。物 60M明：该表是对读者的信息进行管理。读者类别表港整现;黛种类名称借书数量借书期限郁

20、艮期限通2302vip5903金卡8602米0说明：该表规定了读者的类别。（4）图书信息表、书空信息:表一图书绢号111佗者出版社出版日期号记日期|由否建府出333!现我艺聿论文艺黜活华大学出坂社V1/2CO25/1/n可另0032Tisual basic 6讦豆机翻赧L后出成社“1/2 侬2/1/2COS 母0033大学物理物理嵬隽机在工业出版社”1/2 侬，1/2 期 50034论世理清华大学出版社1/1/2CO3V1/2CO5 是0OTB通信工程通信电子大学出用社374/2COZV1/2LO5 否0035大学英语英语就外教出原社374/2C02W2CC6 否*说明：该表详细介绍了图书的相

21、关信息。（5）图书类别表瓯图书类别：表类别名称类别编写1上t十菖机TF物理HLZJ文艺P0_TX英海YY说明：该表对图书进行了分类。（6）借阅信息表借阅信息：表借阅编号读者编号送者姓名书解号椭名名出借日期廷书日期的0001防水平00 二&TziiJ ba:ic 6 I4八8/20况，5/18/200B310203指期0X6大学物理U/18/20C61/37/2006320：02李若0DD1现代艺术论11/10/2005Z/1G/200834K02李唇0034物理论12/7/20063/7/2006（自动吟说明：该表详细纪录了图书的借阅情况。上述所做的各表都是围绕图书借阅系统而做的，所以

22、做好这个方面信息表是本系统成功的关键环节之一。12 / 493系统总体设计3.1 图书管理系统简介当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这 正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利 用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率, 而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行 信息管理及信息管理系统的开发密切相关，系统的开发是系统管理的前 提。本系统就是为了管理好图书馆信息而设计的。图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含 很多的信息数据的管理，现今，有很多的图书馆都

23、是初步开始使用，甚至 尚未使用计算机进行信息管理。根据调查得知，他们以前对信息管理的主 要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借 书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的 人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄 进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且 不易查找。总的来说，缺乏系统，规范的信息管理手段。尽管有的图书馆 有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突 出，这就是管理信息系统的开发的基本环境。数据处理手工操作，工作量 大，出错率高，出错后不易更改。图书馆采取手工方式对

24、图书借阅情况进 行人工管理，由于信息比较多，图书借阅信息的管理工作混乱而又复杂； 一般借阅情况是记录在借书证上，图书的数目和内容记录在文件中，图书 馆的工作人员和管理员也只是当时对它比较清楚，时间一长，如再要进行 查询，就得在众多的资料中翻阅、查找了，造成查询费时、费力。如要对 很长时间以前的图书进行更改就更加困难了。基于这此问题，我认为有必要建立一个图书管理系统，使图书管理工 作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速 度和准确性，能够及时、准确、有效的查询和修改图书情况。-#-/493.2 系统功能描述1.图书管理功能为了方便图书的借阅管理，需要对图书的类别和信息加于

25、管理。图书管理模 块可实现以下功能： 添加图书类别 修改图书类别 删除图书类别添加图书信本系统的主要功能如下： 息 修改图书信息 删除图书信息 查询图书信息2 .读者管理功能为了方便对读者的管理，需要对读者的类别和信息加予管理。读者管理模块 可实现以下功能： 添加读者类别 修改读者类别 删除读者类别 添加读者信息 修改读者信息 删除读者信息 查询读者信息3 .图书借阅管理功能图书借阅模块功能实现如下： 添加借书信息 查询借书信息 添加还书信息4 .系统管理功能系统管理模块功能实现如下： 添加管理员 修改管理员密码 注销5 .系统维护管理功能系统维护主要是对系统的数据加予管理，其实现的功能如下：

26、 数据备份 数据恢复 数据压缩 数据清理3.3系统模块划分根据上一小节介绍的功能，可以设计出系统的总体功能模块。如下图示。图书馆管理系统图书馆管理系统功能模块示意图在本系统中，系统管理模块功能比较简单。在系统初始化时，有一默认的“系统 管理员”用户admin,由程序设计人员手动地添加到数据库中。Admin用户可以 创建用户、修改用户信息以及删除用户；普通用户则只能修改自己的用户名和密 码。系统用户管理模块的关系如下图:L 1m ： 尸I创建 修改和删除看通用户信修改自后的用户名和。四系统管理功能模块关系图3. 4系统流程分析本节将对实例进行流程分析，所谓系统流程就是用户在使用系统是的工作 过程

27、。对于多类型用户的管理系统来说，每一类用户的工作流程都是不相同的。 多用户系统的工作流程都从用户登陆模块开始的，对多用户的身份进行认证。身 份认证可以分为以下两个过程：（1）确认用户是否是有效的系统用户。（2）确定用户的类型。第1决定用户能否进入系统。第2个过程根据用户的类型决定用户的操作权限, 从而决定用户的工作界面。本系统的流程分析如图如下：进入系统后，不同类型的用户所能进行的操作也不同。这些操作可以笼统的 分为系统管理和图书借阅管理模块。3. 5 开发工具简介(Visual Basic6. 0)VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系 统和办公软件的垄断地位，

28、VB在短短的儿年内风靡全球。VB是极有和功能强大 的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软 件开发周期，较易维护的生成代码。VB程序语言具有许多优秀的特性，用其设计 应用程序时有两个基本特点：可视化设计和事件驱动编程。可视化设计。同其他的一些可视化程序开发工具一样,VB具有可视化设计的特点，微软的 Word在刚刚进入市场时，同WPS竞争的一个重要的功能祛码就是所见即所得的 字处理功能,VB在设计应用程序界面时也可以说是所见即所得.在设计时，头脑 中所想象的应用程序界面，完全可以通过键盘鼠标以及徒手画出来，而不是编制 大量的代码然后再编译生成,如果需要修改,也是利用

29、键盘鼠标和手画，而底层的 一些程序代码由VB自动生成或修改。VB为用户提供大量的界面元素(在VB中称 为控件对象)，这些控件对象对于熟悉Windows应用程序的用户而言是一点也不 陌生，如窗体、菜单、命令按钮、工具按钮、检查框等等，用户只需要 利用鼠标、键盘把这些控件对象拖动到适当的位置，设置它们的大小、形状、属 性等,就可以设计出所需的应用程序界面。事件驱动编程。Windows操作系统出现以来，图形化的用户界面和多任务多进程的应用程序要 求程序设计不能是单一性的,在使用VB设计应用程序时，必须首先确定应用程序 如何同用户进行交互.例如发生鼠标单击、键盘输入等事件时，由用户编写的代码 控制这些

30、事件的响应,这就是所谓的事件驱动编程。Vb6.0有三种版本，各自满足不同的开发需要：(1) u Visual Basic学习版”使编程人员轻松开发Windows 95/98和windows NT的应用程序。该版本包括所有的内部控件连同grid, tab和data-bound控件。 学习版提供的文档有“程序员指南”、联机帮助及Visual Basic “联机手册”。(2) “专业版”为专业编程人员提供了一整套进行开发的功能完备的工具。该 版本包括学习版的全部功能连同ActiveX控件,还包括Internet控件和Crystal Report Writero专业版提供的文挡有“程序员指南”、联机帮

31、助和“部件工具指 南”(3) “企业版”使得专业编程人员能够开发功能强大的组内分布式应用程序。 该版本包括专业版的全部功能连同自动化管理器、部件管理器、数据库管理工具、 Microsoft Visual Sourcesafe面向工程版的控制系统等。企业版提供的文挡包 括专业版的所有文挡，还有“客户/服务器应用程序开发指南”和“Sourcesafe 用户指南”。本系统正是采用Visual Basic企业版所开发的管理系统。3. 6系统详细设计根据系统分析、系统设计的结果，采用VB作为开发工具，实现图书管理系统 各模块的功能。3. 6.1启动界面设计系统启动首先出现如下对话框:e 图书管理系统vi

32、. o实电:本第我只佳为坐业会计之用，不用于任小用I苗I业同.碇萌9/化天吠茶井迂俨津天间XI.I变I该界面显示了有关的系统信息。3.6.2登陆界面设计单击启动界面确定将出现如下对话框：该界面为用户登陆界面，用户输入自己的用户名和密码就能成功登陆本系统, 如果密码连续3次输错，用户身份没有被确认，系统讲自动关闭。该设计有助于 维护系统的安全，防止非法登陆。3.6.3主界面设计用户登陆成功将进入如下系统主界面:在主界面中将显示本系统的所有功能菜单，单击任一菜单将进入相应的功能窗 口。3. 6.4其他功能模块设计图书管理模块的实现要实现图书管理模块应首先点击图书管理主菜单如下:图书管理图书类别管理

33、图书信息管理卜添别图书信息修改图书信息删除囱书信息查询图书信息然后单击添加图书信息，其窗体如下:36 / 49该窗口的功能是为用户添加图书信息而设计的，用户可以通过本窗口把图书 的详细资料添加到图书信息库中。读者信息管理模块的实现点击读者管理主菜单如下:然后单击添加读者信息，其窗口如下:添阑读者信息臼叵区I本窗口实现读者信息的添加，通过本窗口把读者的详细信息添加到读者信息 库中，方便对读者的管理。图书借阅管理模块的实现要实现图书借阅管理模块应首先点击图书借阅管理主菜单如下：然后单击还书管理，其窗体如下:本窗口的功能是为实现还书管理而设计的，用户通过该界面可以有效的管理 图书的归还情况。系统管理

34、模块的实现实现系统管理功能，点击系统管理主菜单如下：单击添加管理员，其窗口如下:。回冈W添加用户新用户可以通过本窗口实现注册和添加。系统维护模块的实现系统维护模块主菜单如下:单击数据备份按钮，其实现窗口如下:总结经过三个月的设计和开发，图书馆管理系统基本开发完毕。其功能基本符合 用户的需求，能够完成用户的图书信息管理，图书借阅管理，读者信息管理，系 统维护等方面的功能，以及各种相关功能的扩展。但是由于毕业设计时间较短加 上知识的有限，该系统还有许多不足的地方，源程序调试方面的问题还有好多， 出错处理不够等方面问题。这些都有待于今后进一步的改善。在设计过程中，通 过学习了解了数据库系统的开发原理

35、和应用，基本掌握了开发工具Visual Basic6. 0和Microsoft Access2003的使用，为今后的学习和开发打下了坚实的 基础。参考文献1孙越编著.Visual Basic数据库开发教程国.人民邮电出版社,2002.2启明工作室.Visual Basic +Access数据库应用系统开发M.人民邮电出版 社，2004.3黄志球，李清等.数据库应用技术基础M.机械工业出版社,2003.4刘韬.Visual Basic6. 0数据库系统开发导航M.人民邮电出版社，2003.5恒扬科导.Visual Basic6. 0程序设计学及用教程M.机械工业出社,2003.6刘瑞新，张二峰等

36、.Visual Basic管理信息系统开发M.机械工业出版社，2005.在本次毕业设计中，我从指导老师那学到了好多东西。老师认真负责的工作态度, 严谨的治学精神和深厚的理论水平都使我受益非浅。在系统设计开发过程中王前 莉老师给予了很大的帮助，帮助解决了很多难题，使得系统能及时开发完成，还 有在我设计过程中许多同学给予了大力的支持，在这里一致表示感谢。附录（系统原程序）力系统开始界面程序：Option ExplicitReg Key Security Options.Const READ_CONTROL = &H20000Const KEY_QUERY_VALUE = &H1Co

37、nst KEY_SET_VALUE = &H2Const KEY_CREATE_SUB_KEY = &H4Const KEY_ENUMERATE_SUB_KEYS = &H8Const KEY_NOTIFY = &H10Const KEY_CREATE_LINK = &H20Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_C0N

38、TR0L'Reg Key ROOT Types.Const HKEY_LOCAL_MACHINE = &H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 stringConst REG_DW0RD = 4Unicode nul terminated32-bit numberConst gREGKEYSYSINFOLOC = z，SOFTWAREMicrosoftShared Tools Location"Const gREGVALSYSINFOLOC = "MSINFO"Const gREGKEYSY

39、SINFO =，zSOFTWAREMicrosoftShared ToolsMSINFO"Const gREGVALSYSINFO = "PATH"Private Declare Function RegOpenKeyEx Lib advapi32 Alias “RegOpenKeyExA” (ByVai hKey As Long, ByVai IpSubKey As String, By Vai ulOptions As Long, ByVai samDesired As Long, ByRef phkResult As Long) As LongPrivate

40、 Declare Function RegQueryValueEx Lib “advapi32 Alias ，RegQueryValueExA，/ (ByVai hKey As Long, ByVai IpValueName As String, By Vai IpReserved As Long, ByRef IpType As Long, ByVai IpData As String, ByRef IpcbData As Long) As LongPrivate Declare Function RegCloseKey Lib advapi32 (ByVai hKey As Long) A

41、s LongPrivate Sub cmdSysInfo-Click()Call StartSysInfoEnd SubPrivate Sub cmdOK_Click ()Unload Me frmLogin. Show End SubPublic Sub StartSysInfo()On Error GoTo SysInfoErrDim rc As LongDim SysInfoPath As StringTry To Get System Info Program PathName From Registry.If GetKeyValue(HKEY_LOCAL_MACHINE, gREGK

42、EYSYSINFO, gREGVALSYSINFO, SysInfoPath) ThenTry To Get System Info Program Path Only From Registry.Elself GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) ThenValidate Existance Of Known 32 BitIf (Dir(SysInfoPath & MSINF032.EXE) <> ) Then SysInfoPath = Sys

43、InfoPath & MSINF032. EXEError - Not Be Found.ElseGoTo SysInfoErrEnd IfError - Registry Entry Can Not Be Found.ElseGoTo SysInfoErrEnd IfCall Shell (SysInfoPath, vbNormalFocus)Exit SubSysInfoErr:MsgBox "System Information Is Unavailable At This Time”, vbOKOnlyEnd SubPublic Function GetKeyValu

44、e(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As BooleanDim i As Long' LoopCounterDim rc As Long' ReturnCodeDim hKey As Long' HandleTo An Open Registry KeyDim hDepth As LongDim KeyValType As Long' DataType Of A Registry KeyDim tmpVal As StringTemp

45、ery Storage For A Registry Key ValueDim KeyValSize As Long' SizeOf Registry Key Variable'Open RegKey Under KeyRoot HKEY_LOCAL_MACHINE. . . rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey)' Open Registry KeyIf (rc <> ERROR_SUCCESS) Then GoTo GetKeyError' HandleAlloca

46、te'MarktmpVal = String?(1024, 0)Variable SpaceKeyValSize = 1024Variable SizeRetrieve Registry Key Value.rc 二 RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize)Get/Create Key ValueIf (rc <> ERROR_SUCCESS) Then GoTo GetKeyError' HandleErrorsIf (Asc(Mid(tmpVal, KeyValSi

47、ze, 1) = 0) Then' Win95Adds Null Terminated String.tmpVal = Left(tmpVal, KeyValSize - 1)' NullFound, Extract From StringElse'WinNT Does NOT Null Terminate String.tmpVal = Left(tmpVal, KeyValSize)' NullNot Found, Extract String Only End IfDetermine Key Value Type For Conversion.Select

48、 Case KeyValTypeSearch Data Types.Case REG_SZ'String Registry Key Data TypeKeyVal = tmpVal' CopyString Value Case REG_DW0RD'Double Word Registry Key Data TypeFor i = Len (tmpVal) To 1 Step -1' ConvertEach BitKeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1)' BuildValue Char. By Char.Ne

49、xtKeyVal = Format?(&h + KeyVal)'Convert Double Word To StringEnd SelectGetKeyValue = True'Return Success rc 二 RegCloseKey(hKey)' CloseRegistry Key Exit Function' ExitGetKeyError:' Cleanup After An Error Has Occured.KeyVal = ' SetReturn Vai To Empty StringGetKeyValue = Fal

50、se'Return Failure rc 二 RegCloseKey (hKey)' CloseRegistry Key End Function Private Sub Form_Load()End Sub#系统登陆界面程序：sql = "select * from 用户表 where user_ID=' & Trim(textl. Text) & ' rs_login. Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login. EOF = True ThenMsgBox

51、 没有这个用户,请重新输入！ “，vbOKOnly + vbExclamation, textl. Text 二 textl. SetFocusElse username = textl. Text If Trim(rs_login. Fields(1)= Trim(text2. Text) ThenUnload Me frmMain. Show ElseMsgBox 密码不正确，请重新输入！ "，vbOKOnly + vbExclamation, text2. SetFocustext2. Text 二End IfEnd If End If ent = ent + 1If ent

52、= 3 ThenUnload MeEnd IfEnd SubPrivate Sub Form-Load()ent 二 0End Sub#图书管理界面程序：Option ExplicitDim panduan As StringPrivate Sub Commandl-Click()Dim rs_findbook As New ADODB. RecordsetDim conn As New ADODB.ConnectionDim sql As StringIf Checkl.Value = vbChecked Thensql = 书名二' & Trim(Textl.Text &a

53、mp; )& 'End IfIf Check2.Value = vbChecked ThenIf Trim(sql) = "" Thensql = 类别二' & Trim(Combol.Text & )& 'Elsesql = sql & "and 类别二' & Trim(Combol. Text & )& ' End IfEnd IfIf Check3. Value = vbChecked ThenIf Trim(sql) = " Thensql =

54、 作者=' & Trim(Text2. Text & " )&Elsesql = sql & "and 作者二' & Trim(Text2. Text & )& ' End IfEnd IfIf Check4. Value = vbChecked ThenIf Trim(sql) = " Thensql = 图书编号二' & Trim(Text3. Text & )& ' Elsesql = sql & 图书编号二' &

55、Trim(Text3. Text & ")& End IfEnd IfIf Check5. Value = vbChecked ThenIf Trim(sql)= Thensql = 出版社=' & Trim(Text4.Text & )& 'Elsesql = sql & "and 出版社二' & Trim(Text4. Text & )&End IfEnd Ifconn. Open"provider=Microsoft。 Jet. OLEDB. 4. 0;data

56、source= &App. Path & "database.mdb”If Trim(sql) = ThenMsgBox 请选择查询方式！ ，vbOKOnly + vbExclamationExit SubEnd Ifsql = "select * from 书籍信息 where & sqlrs_findbook. CursorLocation = adUseClientrs_findbook. Open sql, conn, adOpenKeyset, adLockPessimisticDataGridl. AllowAddNew 二 FalseDataGridl. AllowDelete =