计算机系本科论文完整版获奖影视作品信息管理系统的设计与实现

《计算机系本科论文完整版获奖影视作品信息管理系统的设计与实现》由会员分享，可在线阅读，更多相关《计算机系本科论文完整版获奖影视作品信息管理系统的设计与实现（45页珍藏版）》请在装配图网上搜索。

1、 学科分类号：520.6070湖南人文科技学院本科生毕业论文论文题目：获奖影视作品信息管理系统的设计与实现（英文）：Design and Realization of Information ManagementSystem for the Prize-winning Films and Television Programs学生姓名：学号系 部：计算机科学技术系专业年级：指导教师：职 称：教 授湖南人文科技学院教务处制湖南人文科技学院本科毕业论文诚信声明本人郑重声明：所呈交的本科毕业论文，是本人在指导老师的指导下，独立进行研究工作所取得的成果，成果不存在知识产权争议，除文中已经注明引用的内容

2、外，本论文不含任何其他个人或集体已经发表或撰写过的作品成果。对本文的研究做出重要贡献的个人和集体均已在文中以明确方式标明。本人完全意识到本声明的法律结果由本人承担。 作者签名：（手写） 二 年 月 日（手写）40目 录摘 要I关键词IAbstractIIKey WordsII第一章 绪 论21.1 课题背景21.2 获奖影视作品管理的现状21.3 开发工具的及平台的选择21.3.1开发平台及相关技术21.3.2 系统开发环境7第二章 系统需求分析及可行性92.1 需求分析92.2可行性分析92.2.1 技术可行性92.2.2 操作可行性92.2.3 经济可行性9第三章 获奖影片作品信息管理系统

3、总体设计103.1 总体设计思想103.1.1数据库关系113.1.2 数据库设计133.2 功能模块设计163.2.1 管理员功能模块设计163.2.2 添加功能模块设计173.2.3 借阅功能模块设计173.2.4 统计打印功能模块设计18第四章 获奖影视作品信息管理系统详细设计与实现194.1 数据库的连接194.1.1 VB连接数据库介绍194.1.2 数据库连接的实现194.2 系统界面设计214.3 主要面设计214.3.1 登录界面设计214.3.2 主界面234.4各功能模块的设计与实现254.4.1 增加删除用户254.4.2 管理员密码修改274.4.3 影片信息管理294

4、.4.4 新增用户资料334.6设计小结34第五章 系统测试355.1 软件测试概要355.1.1 测试目标355.1.2 测试方法355.2 软件功能测试365.2.1登录模块365.2.2 主界面365.2.3 增加删除模块365.2.4 管理员密码修改375.2.5 影片信息管理375.3 运行和维护38参考文献39致 谢40获奖影视作品信息管理系统的设计与实现摘 要：随着互联网的快速发展和计算机的迅速普及，网民们对互联网上娱乐水准的要求越来越高，其中对影视作品的需求尤为突出。很多人都在为找到一部好的影视作品而四处寻找，特别是对获得大奖的更是苦苦搜寻。于此同时，对这大量的获奖影视作品的管

5、理也成了一大难题。因此，开发一个能让大众方便、快捷的管理历年获奖影视作品系统就更显必要。本系统是一款用VB和Access以方便、实用为前提统开发的获奖影视信息管理软件，一改原来杂乱的管理方式，方便、实用、快捷、系统的达到管理功能。本系统主要有用户登录、信息查询、管理、统计以及打印。关键词：VB；Access；管理；获奖影视作品；Design and Realization of Information Managemetn System for the Prize-wining Films and Television ProgramsAbstract：With the rapid devel

6、opment of Internet and the rapid popularization of computers, Internet users have entertainment on the Internet have become increasingly demanding standards, which works on the demand for film and television in particular. Many people are to find a good while looking for the film and television work

7、, especially on the award-winning search is hard. Meanwhile, a large number of award-winning film and television works this administration has become a major problem. Therefore, allow the public to Design and Realization of Information ManagementSystem for the Prize-winning Films and Television Prog

8、rams over the years the system is even more necessary. This system is a development with VB and Access Management Software Prize-winning Films and Television Programs, a convenient, practical system for the prerequisite. This system changed the original clutter management, convenient, practical, eff

9、icient, system to management. This system has the user login information query, management, statistics and printing.Key Words：VB; Access; Management; Award-wining film and television第一章 绪 论1.1 课题背景随着互联网的快速发展和计算机的迅速普及，网民们对互联网上娱乐水准的要求越来越高，其中对影视作品的需求尤为突出。很多人都在为找到一部好的影视作品而四处寻找，特别是对获得大奖的更是苦苦搜寻。于此同时，对这大量的

10、获奖影视作品的管理也成了一大难题。因此，对开发一个能让大众方便、快捷的管理历年获奖影视作品系统的需求更为突出。也正是鉴于这个原因我选定了获奖影视作品信息管理系统作为研究对象。1.2 获奖影视作品管理的现状当前我国对影视作品的管理主要集中在保护版权和分级管理两个方面上。其中在版权管理体系中，数据库的维护有着举重轻重的作用。在互联网背景下，随着电影作品传播路径从印刷机到互联网的根本嬗变，版权制度也从传统的“以复制权为基础”走向了当代的“以传播权为核心”，因此从电影版权应当从传统的“制片商单体经营”走向当代的“著作权集体管理”。由于个人自己管理极不方便，特别关乎个人的海外权利，而集体管理组织在管理和

11、执法方面又显示出规模经济性。获奖影视作品信息管理系统这个选题，有AllMyMovies类似的软件，对中文的支持不够完善，并且数据库也没完全是针对个人的，没在对用户个人兴趣很好支持，不适合统一管理。本系统会对这一方面进行改进，会定时更新数据库。虽然也只是影视作品管理做定的研究，开发目标是开发一个简单、快捷、实用的管理系统。通过对大量影片信息进行整理与分类，初步解决以上提到的几方面的研究内容。1.3 开发工具的及平台的选择1.3.1开发平台及相关技术本系统所使用的开发工具是Microsoft Visual Basic 6.0，数据库用的是Microsoft office Access 2003。1

12、、Visual Basic的特点Visual Basic是Microsoft公司推出的用于开发Windows应用程序的开发工具，是基于DOS平台下 Basic编程语言的可视化的程序设计语言。它继承了 Basic所具有的程序设计语言简单易用的特点，同时在其编程系统中采用了面向对象、事件驱动的编程机制，开创了可视化编程的一代先河。 Visual是可视化的意思，Visual Basic的命名就表示它是一套可视化的程序开发工具。在设计过程中，可以用可视化的方法编排一个窗口程序在执行时的外观，同时也可以采用易学易懂的Basic语言，并且把界面操作的细节部分事先封装起来，使得初学程序设计的人也可以轻而易举

13、的编写出想象的程序。Virual Basic简单易学，是一种可视化的语言，被众多软件开发这所青睐，有如下特点：（1）可视化编程传统程序设计语言是利用程序代码来编写用户界面，设计的过程中不能看到显示结果，编译后才可以看到编出的界面。如果对设计的界面不满意，需要回到程序中改动。而可视化编程把一些复杂的程序代码封装起来，构成对象，设计过程中在主窗口中设计的对象布局就是运行后的界面，所见即所得。这样编程人员不必为设计界面而在运行与编译中来回调试，大大提高了程序的设计效率。（2）面向对象的程序设计Visual Basic是面向对象的程序设计语言。面向对象的程序设计方法，是指把程序和数据封装作为一个实体，

14、程序的设计针对这些对象进行，不必重复编写大量的代码。（3）结构化程序设计语言Visual Basic是高级程序设计语言，接近于人类的逻辑思维方式。在编译过程中可以利用编译器进行高级语言到机器语言的翻译过程。在整个程序设计之后，可以编译生成可执行文件，这种文件可以脱离Visual Basic环境直接在windows下运行。（4）事件驱动编程机制Visual Basic程序设计中对对象的操作要通过事件来完成，一个对象可对应多个事件，一个事件要通过一段程序来执行。（5）访问数据库Visual Basic系统有很强的数据库管理能力。利用数据库控件和数据库管理窗口，可以直接建立或处理Access格式的数

15、据库；同时，Visual Basic还能编译和访问外部数据库，如 FoxPro、dBase等；Visual Basic还提供开放式数据链接（ODBC）功能，通过它也可以访问和链接后台大型数据库，如SQL Server、Oracle等。2、Visual Basic应用程序的构成应用程序是一个指令集，用来指挥计算机完成指定的操作。应用程序结构指的是组织指令的方法，即指令存放的位置和指令的执行顺序。对于只有一行代码的程序来说程序的组织结构并不重要。应用程序越复杂，对组织或结构的要求也越高。除了控制应用程序的执行外，对于在应用程序中查找特定的指令，结构也有很重要的作用。Visual Basic的源代码

16、是由模块组成的。模块可以分为三类：窗体模块、标准模块和类模块。（1）窗体模块Visual Basic应用程序是基于对象的，应用程序的代码结构就是该程序在屏幕上物理表示的模型。根据定义，对象由数据和代码组成。在屏幕上看到的窗体是由其属性规定的，这些属性定义了窗体的外观和内在的特性。在Visual Basic中，一个应用程序包含一个或多个窗体模块（其文件扩展名为.frm），每个窗体模块分为两部分，一部分是作为用户界面的窗体，另一部分是执行具体操作的代码。每个窗体模块都包含事件过程，即代码部分，这些代码是为响应特定事件而执行的指令。在窗体上可以含有控件，窗体上的每个控件都有一个相对应的事件过程集。除

17、事件过程外，窗体模块还可以含有通用过程，它可以被窗体模块中的任何事件过程调用。（2）标准模块标准模块完全由代码组成，其文件扩展名为.bas，这些代码不与具体的窗体或控件相关联。在标准模块中，可以声明全局变量，也可以定义函数过程或子程序过程。标准模块中的全局变量可以被工程中的任何模块引用，而通用过程可以被窗体模块 中的任何事件调用。（3）类模块可以把类模块看作是没有物理表示的控件，其文件扩展名为.cls，标准模块只包含代码，而类模块既包含代码又包含数据。每个类模块定义了一个类，可以在窗体模块中定义类的对象，调用类模块中的过程。3、Visual Basic 6.0的编程环境Visual Basic

18、 6.0采用可视化的编程环境，它好学易用，运行Visual Basic 6.0后，会出现如下图所示的窗口。下面一起来看看VB的编程环境，虽然看起来复杂，但可以把它分为几个部分，每个部分都有自己特定的功能，这样我们就清楚多了。其实VB这是通过这样一个界面把相近或同类的功能组合在一起的，它使我们在设计程序时能方便的控制程序的方方面面。主界面如图1-1所示：图1-1 主界面窗体的最上层是“Visual Basic 6.0的菜单”和“便捷工具按钮”，菜单中包含了所有的VB提供的功能的选项，而其中一些常用的功能或操作选项则被提取出来放在了“便捷工具按钮”中，通过点击这些快捷按钮可以加快程序开发的速度。工

19、具菜单栏如图1-2所示：、图1-2 工具菜单栏Visual Basic提供了方便的窗体设计区域，它位于整个编程窗口的中间。我们可以在这个区域中搭建出美观实用的程序界面，试着从“Visual Basic的组件面板”中找到“按钮CommandButton”,点击选中后，再到“窗体设计区域”的窗体上点一下，这时，窗体上会出现一个按钮，这样我们就把按钮添加到我们程序的界面中了。是“Visual Basic的组件面板”就是最左边的那一条包含许多看起来眼熟的小东西的区域， Visual Basic提供了标准的编程组件(控件)，它把程序设计中常常用到的诸如按钮、图片框、列表框等等东西作好了放在那里，如果要使

20、用只须添加到窗体中即可。屏幕的右边有三个从上到下排列的小窗口。窗体设计区域如图1-3所示：图1-3 窗体设计区域“VB工程管理器”：用来管理开发一个VB程序所需要的各种类型的窗体和模块，窗体是一个程序表现在外面的界面、模块是程序内部使用的代码。点击“添加窗体”便捷工具按钮后，左图的“VB工程管理器”中就会显示出新添加的窗体，这也就是“VB工程管理器”的功能，能从总体上把握程序开发的各个部分。图1-4 属性窗口“组件属性窗口”：用来显示组件的属性，并允许我们修改，设定这些属性的值，我们在窗体设计区域的窗体上选中一个组件，以按钮为例，则在“属性窗口”中会列出它的属性，我们可以看到常用的“Name”

21、、“Capition”、“Font”等等属性，试着把“Capition”属性改为“这是一个按钮”，然后看看“窗体设计区域”的按钮上显示的文字是不是改变了。图1-5 布局属性窗口“窗体布局窗口”：调整程序运行时，程序窗体在屏幕中的初始位置，把鼠标移到左图屏幕中的窗体上，这时鼠标会变成移动形状，拖动窗体，就设置好了运行时此窗体的位置。4、Access的优点 （1）存储方式单一Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。(2)面向对象Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能

22、对象化，将 数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户 还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。（3）界面友好、易操作Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要 使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得 操作简便，容易使

23、用和掌握。 （4）集成环境、处理多种数据信息Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。（5）Access支持ODBC（开发数据库互 连，OpenDataBaseConnectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以 在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数

24、据库访问网页对象生成HTML文件，轻松构建Internet/Intranet的应用。1.3.2 系统开发环境随着众多软件的推广和应用，系统的开发环境对于大多数软件已经不是那么重要，然而现阶段大多数用户所用的系统环境基本上是一样的，因此我们还是必须在通用性的基础上考虑到大多数用户的系统环境开发环境。 首先，操作系统的选定。操作系统是计算机的操作平台，是计算机的灵魂所在，因此必须先要决定软件开发所应用的操作系统。操作系统种类繁多，如微软公司的Dos、Windows、Vista操作系统，还有在网络服务器上广泛应用的Unix操作系统，还有红极一时的中国人的操作系统Linux等等。根据应用的广泛性、普遍

25、性和实用性，系统决定选用Microsoft Windows XP操作系统作为软件的操作系统。第二章 系统需求分析及可行性2.1 需求分析当今社会随着互联网的快速发展和计算机的迅速普及，网民们对互联网上娱乐水准的要求越来越高，其中对影视作品的需求尤为突出。很多人都在为找到一部好的影视作品而四处寻找，特别是对获得大奖的更是苦苦搜寻。于此同时，对这大量的获奖影视作品的管理也成了一大难题。因此，对开发一个能让大众方便、快捷的管理历年获奖影视作品系统的需求更为突出。也正是鉴于这个原因我选定了获奖影视作品信息管理系统作为研究对象。2.2可行性分析可行性研究也称为可行性分析，可行性分析的目的就是用最小的代价

26、在尽可能短的时间内确定问题是否能解决。本基金交易管理系统的可行性分析将从技术可行性、操作可行性、经济可行性三个方面进行说明。2.2.1 技术可行性能够熟练的使用Microsoft Visual Basic 6.0 中文版进行系统开发，熟悉Access 2003的应用，并且能够随时向指导老师咨询，还可以求助各位同学，或是到互联网上去寻求帮助。2.2.2 操作可行性现在所有课程已经学完，工作之作也会有大量的时间，可以进行系统的开发，并且有很多资料可以阅读，还有许多的老师、朋友可以请教。2.2.3 经济可行性所使用的Microsoft Visual Basic 6.0 中文版是免费版，Microso

27、ft office 2003 也是免费试用版。不用担心费用问题，只是做毕业设计也不会有其它的开发成本，本次开发也只是一个学习过程，也不会造成其它什么经济负担。第三章 获奖影片作品信息管理系统总体设计3.1 总体设计思想系统功能设计本着从用户角度出发的原则，要求实用，且符合用户提出的合理需求。系统设计在不违反系统整体性的基础上，可根据用户的需求进行二次开发，不断完善系统功能，便于系统的不断升级。现如今PC机已经大量普及，人们在繁忙的工作之余很需要好好的休息、休闲一下，于是观看影片就成了不可匮缺的重要一部分，可是对各种影视资源，特别是要对大量获奖影视作品的进行管理方面进更苦于没有一个合适高效的管理

28、工具，在此上花费了大量的精力与时间，与此同时对大量获奖影片的各种信息进行存储时又成了一大难题。网络上虽然有不少影片管理系统，比如AllMyMovie和iMovieCollection等，可是还没有一款是不公合适个人使用，又适合对获奖影片管理系统。有很多身边、网上的朋友都一直在寻找一款能够按照自己喜好对获奖影片进行管理的软件，常常会在各种论坛网页上看到寻找有什么新的影片，有什么获奖影片，经典影片的帖子，自己也常常会加入他们的大军中。所以说对一款针对个人喜好而开发的获奖影片信息管理系统的需求是很高的,并且要是能够对借阅影片进行管理统计方便使用。设计开发一个管理系统，系统具有以下主要功能：1. 数据

29、录入功能：能输入获奖影视作品及相关人员有关基本信息；2. 修改和删除功能：能对各种信息进行修改和删除；3. 查询功能：即能对有关信息进行查询；4. 统计功能：即能对某些出品单位或有关人员获奖次数进行统计；5. 打印功能：能对所需要内容进行打印；6. 借阅功能：对不同用户可以有不同的借阅权限；7. 借阅管理：能够对借阅用户进行管理并计费。本系统的层次方块图，如图3-1所示：图3-1 系统功能层次模块图3.1.1数据库关系系统的数据库分析是系统开发周期中的一个重要环节，也是工作量比较大的一项活动，其质量对整个系统的影响很大。在本系统的设计中，首先完成系统的E-R分析，然后完成数据库建模。数据流图，

30、如图3-2所示：图3-2数据流图3.1.2 E-R模型关系模型把世界看作是由实体（Entity）和联系（Relationship）构成的。所谓实体就是指现实世界中具有区分与其它事物的特征或属性并与其它实体有联系的对象。在关系模型中实体通常是以表的形式来表现的。表的每一行描述实体的一个实例，表的每一列描述实体的一个特征或属性。所谓联系就是批实体之间的关系，即实体之间的对应关系。联系可分为三种：（1）一对一的联系。如：一个人只有一个性别。（2）一对多的联系。如：相同性别的人有许多个。（3）多对一的联系。如：很多人有同一个性别。通过联系就可以用一个实体信息来查找另一个实体的信息。关系模型把所有的数据

31、组织到表中。表是由行和列组成的，行表示数据的记录，列表示记录中的域。表反映了现实世界中的事实与值。画E-R图通常采用自底向上的设计方法，首先对局部视图进行设计，然后再实现视图集成。所使用的数据库包括：管理员表：用来存放管理员详细信息，包括用户名、密码等；用户表：用来存放所有用户的详细信息，包括用户编号、姓名、类型等；影片表：用来存放影片的所有相关信息，包括编号、名称、分类、位置、主角、导演、影片参数、等等内容；分类表：用来存放对影片的分类信息，包括编号、分类等；注销表：用来存放的是影片注销的信息，包括编号、数量、日期；用户权限表；用来标注用户的权限，包括类别、可借数量、天数、绪借次数、逾期时间

32、等；罚款表：用来存放对某用户借阅的影片因逾期罚款的详细信息，包括影片编号、用户编号、应罚金额、实收金额、罚款原因等；借阅表：用来存放影片的借阅情况，包括影片编号，用户编号、借阅天数、数量、应还日期、续借次数等归还表：用来存放影片的归还情况，包括影片编号、用户编号、罚款金额、实收金额、借阅天数等内容；系统的E-R图如图3-3所示。 图3-3 系统E-R3.1.2 数据库设计用户表（yhtbl），本表用于存储所有用户的信息。如表3-1所示：表3-1 用户表名称数据类型长度是否为空用户编号int20否用户姓名varchar20否用户性别char10否用户类别int2否出生日期date20是办证日期d

33、ate20否用户状态char2是已借数量int20否证件号码int40否备注char200是操作员char10否影片信息表（yptbl），本表用于存储影片详细信息。如表3-2所示：表3-2 影片信息表名称数据类型长度是否为空影片编号int20否影片名称char40否类别编号char20否类别名称char36否影片位置char40否主角char40否导演char40否获奖类别char30否获奖时间date40否影片大小int15否影片价格char15否现存量char20否库存总量char20否借阅次数char20否是否注销int2否入库时间date40否内容简介char200否用户权限表（yhq

34、xtbl），本表用于存储用户权限详细信息。如表3-3所示：表3-3用户权限表名称数据类型长度是否为空用户类别char20否可借数量int20否可借天数int20否可绪借次数int20否逾期后缓冲天数int20否逾期后每天罚款金额long20否借阅表（jytbl），本表用于存储基借阅详细信息。如表3-4所示：表3-4借阅表名称数据类型长度是否为空影片编号int20否影片名称char20否用户编号int20否用户姓名char40否借阅数量int20否借阅天数int20否应还日期int10否续借次数int10否操作员char20否归还表（ghtbl），本表用于存储基影片归还情况详细信息。如表3-5所

35、示：表3-5归还表名称数据类型长度是否为空影片编号int20否影片名称char20否用户编号char40否用户姓名char40否借阅数量int10否借阅天数int10否应还日期int40否实还日期int40否过期天数int10否超期罚金int40否是否交款char2否操作员char20否管理员表（gltbl），本表用于存储管理员信息。如表3-6所示：表3-6管理员息表名称数据类型长度是否为空用户名char20否密码char20否罚款表（fktbl），本表用于存储用户罚款信息。如表3-7所示：表3-7罚款表名称数据类型长度是否为空影片编号char20否影片名称char20否用户编号char20用

36、户姓名char20否影片价格int20否影片数量int20否应罚金额int20否实收金额int20否罚款日期date20否罚款原因char20否操作员char20否注销表（zxtbl），本表用于存储影片注销信息。如表3-8所示：表3-8注销表名称数据类型长度是否为空影片编号char20否注销数量int20否注销日期date40否分类表（fltbl），本表用于存储管理员信息。如表3-9所示：表3-9分类表名称数据类型长度是否为空分类编号char20否分类char20否3.2 功能模块设计系统的功能模块分为管理员功能模块，添加更新功能模块，借阅模块、打印信息模块，数量统计模块。3.2.1 管理员功

37、能模块设计管理员拥有的功能如图3-1所示：图3-2 管理员功能图管理员功能说明：（1）管理员登录系统后就拥有管理权限；（2）管理用户，管理员能够按要求管理用户，包括增加、修改、删除用户，并可以设置用户借阅权限；（3）管理影片，管理员能够按实际需要管理影片影片，包括增加、修改、删除影片；（4）借阅管理，管理员能够按实际管理借阅，可是对借阅的管理借阅用户的收费、状态、归还进行管理。3.2.2 添加功能模块设计添加功能说明：指的是管理员添加操作，包括添加影片、用户、管理员，同时也包含了更新的内容，可是修改影片信息、用户信息、管理员信息。添加功能如图3-3所示：图3-3 添加功能模块3.2.3 借阅功

38、能模块设计借阅功能说明：用户在登录后能够浏览电影的各种信息，并能够根据自己的需要对进行借阅,因为是免费借阅,在不使其的情况下是不收费的,只有没有如期归还的才会收取一定费用。借阅功能模块如图3-4所示：图3-4 借阅功能图3.2.4 统计打印功能模块设计统计功能是对各人员下的数量进行统计，某导演所导演的影片总数，主角主演的总数，某分类下包括哪些影片以及其详细信息等。打印功能模块能够按要求对信息进行打印输出，对统计结果以EXCEL方式打印输出等。统计打印功能模块如图3-5所示：第四章 获奖影视作品信息管理系统详细设计与实现4.1 数据库的连接数据库是顾名思义就是存放数据的仓库，如果数据只是存放在数

39、据库里却没有拿来使用，那么这些数据只是一堆没有任何用处的东西，因此，为了不使数据库里的数据变成没有用处的东西，对数据库的连接就显得十分重要了。因为程序没有与数据库进行连接，程序是无法使用数据库里的数据的。下面介绍VB中连接数据库的方法。4.1.1 VB连接数据库介绍在VB中，用数据库引擎和数据访问对象DAO可以创建功能强大的客户/服务器应用程序。对远程数据库的访问是开发这类应用程序的关键，本文将介绍在VB中用DAO通过数据库引擎访问远程数据库的方法。用DAO访问远程数据库可以通过三步来实现，即数据连接、数据处理和断开连接。下面主要介绍数据连接和数据处理的具体操作。DAO通过链接远程表的方式来进

40、行数据连接。这样，数据虽然驻留在远程数据源上，但在本地的数据库中可以存储与远程数据的永久性连接，同时缓存 链接的表结构信息，从而在下一次访问该表时， 不用再次从服务器中检索这些结构信息，加快了连接速度。一旦链接了一个表，该链接便会保留在各会话期间，直到连接断开。4.1.2 数据库连接的实现利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL Server等种数据库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间System.Data.OleDb类库下的OleDbConnectio

41、n类来连接这三种不同类型的数据库的。因此系统要统一连接数据库，所以添加模块来连接数据库添加的模块Modulel与Access的连接：Public iflag As Integer 数据库是否打开标志Public user As String 存取当前登录的用户Public Style As String 存放借阅方式 Public Declare Function HtmlHelp Lib hhctrl.ocx Alias HtmlHelpA _(ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long,

42、 ByVal dwData As Long) As Long背景图程序Public Sub fullpic(w As Object, pic As PictureBox) Dim i As Integer, j As Integer Dim X As Integer w.AutoRedraw = True frmbg_1.jpg pic.Picture = LoadPicture(App.Path & frmbg_1.jpg) w.Icon = LoadPicture(App.Path & varios.ico) 平铺图形,利用循环 For j = 0 To w.Height Step pic

43、.ScaleHeight For i = 0 To w.Width Step pic.ScaleWidth w.PaintPicture pic.Picture, i, j, pic.ScaleWidth, pic.ScaleHeight, 0, 0, pic.ScaleWidth, pic.ScaleHeight Next i Next jEnd Sub执行sql语句的函数Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset Dim cont As ADODB.Connection Dim rs As ADOD

44、B.Recordset Dim strConnection As String Dim strArray() As String Set cont = New ADODB.Connection 创建连接 Set rs = New ADODB.Recordset On Error GoTo transactsql_error strConnection = Provider = Microsoft.jet.oledb.4.0; data source= & App.Path & movie.mdb; strConnection = strConnection & Persist Security

45、 Info=False;Jet OLEDB:Database Password=txm strArray = Split(sql) Split() 返回一个下标从零开始的一维数组 cont.Open strConnection 打开连接 If StrComp(UCase$(strArray(0), select, vbTextCompare) = 0 Then rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic Set TransactSQL = rs iflag = 1 Else cont.Execute sql iflag =

46、1 End Iftransactsql_exit: Set rs = Nothing Set cont = Nothing Exit Functiontransactsql_error: MsgBox 查询错误： & Err.Description iflag = 2 Resume transactsql_exitEnd Function用 OpenDatabase 方法打开将要包含该链接的本地数据库，用 CreateTableDef 方法在该数据库中创建一个新的TableDef对象，将 TableDef 对象的 Connect 属性设置为一个合法的连接字符串，标识要访问的远程数据库类型、数据

47、文件的路径以及用户名和远程数据源密码等。将 TableDef 对象的 SourceTableName 属性设置为远程数据库中要访问的表的名称。 添加 TableDef 对象到 TableDefs 集合中。4.2 系统界面设计VB拥有相当庞大的组件、控件功能，可以快速、方便的进行界面设计，Windows窗体组件可以轻松搭建Windows环境下的应用窗口，利用系统提供的各种控件比如OLE、数据、图像、复选框、文本框、滚动条、时钟、标签等等，可以快速设计美观、实用的用户界面，在这些控件的使用中又可以对每个控件指定相关事件，让其相应的实现各种功能，比如：鼠标单击、双击，加载，响应回车，Tab空格等按键

48、操作，鼠标停留显示内容等功能。并且一个事件模型允许任何事件处理程序都可以处理来自多个控件的事件，这就允许创建属于不同类型但共享相同事件的控件组。形成所的谓控件集合，即指包含在一个容器中的所有控件的总和，能够创建控件集合的容器有：Form、Panel、GropBox等。程序运行时，可以通过访问容器的Control属性来得到该容器中的所有控件。4.3 主要面设计4.3.1 登录界面设计输入用户名及相对应的密码，系统对用户选择的登录类型已经输入的用户名和密码进行验证，用户名及相应的密码不一致，则转到错误页面：用户名或密码错误，会提示并清空密码，重新填写，当达到三次错误时就会自动退出系统。若通过验证，

49、则跳转到系统的主界面。功能实现代码如下：Dim cnt As IntegerOption Explicit Private Sub cmdexit_Click()If MsgBox(确定退出系统吗？, vbQuestion + vbYesNo, 退出系统) = vbYes Then Unload MeEnd IfEnd SubPrivate Sub cmdok_Click()Dim rs As New ADODB.RecordsetDim sql As String If Screen.Width 15360 Then MsgBox 请设高系统的分辨率,最好在1024*768下运行该系统，才能

50、进入系统。, vbCritical + vbOKOnly, 屏幕分辨率 Unload MeEnd IfIf Trim(cmbo用户名.Text) = Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, 登陆错误 cmbo用户名.SetFocusElseIf Trim(txt密码.Text) = Then MsgBox 密码不能为空, vbOKOnly + vbExclamation, 登陆错误 txt密码.SetFocusElse cnt = cnt + 1 sql = select * from gltbl where 用户名= & cmbo用户名.T

51、ext & yhtbl用户信息表 Set rs = TransactSQL(sql) If Trim(rs.Fields(1) = Trim(txt密码.Text) Then验证密码 user = cmbo用户名.Text rs.Close Unload Me frmabout.Show ElseIf cnt = 3 Then MsgBox 密码三次不正确，退出系统！, vbOKOnly + vbInformation, 信息 Unload Me Else MsgBox 密码不正确, vbOKOnly + vbExclamation, 错误 txt密码.Text = txt密码.SetFocu

52、s End If End If End SubPrivate Sub Form_Load()cnt = 0Me.Picture = LoadPicture(App.Path & login.jpg)Dim rs As New ADODB.RecordsetDim sql As Stringsql = select 用户名 from gltblSet rs = TransactSQL(sql)While Not rs.EOF cmbo用户名.AddItem rs(0) rs.MoveNextWendEnd Sub登录界面如图4-1所示：图4-1登录界面错误提示如图4-3所示：图4-2密码错误提示

53、4.3.2 主界面管理员登录后的主界面可是连接到其它各功能：管理员管理、用户管理、影片管理等。功能实现代码如下：Dim delData As Boolean 为true 时表示系统初始化要删除数据Private Sub MDIForm_Load() Toolbar1.ImageList = ImageList1(0) 略 StatusBar2.Panels(1).Text = 登录时间： & Format(Now) StatusBar2.Panels(2).Text = 用 户： & user StatusBar2.Panels(3).Text = 版权所有： 湖南人文科技学院计算机科学技术系

54、网络工程一班-陈春亮 StatusBar2.Panels(3).Width = Me.Width - StatusBar2.Panels(1).Width - StatusBar2.Panels(2).WidthEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(确定退出系统吗？, vbQuestion + vbYesNo, 退出系统) = vbYes And delData = False Then For Each Form In Forms 遍历窗体集 Unl

55、oad Form Next Form ElseIf delData = False Then Cancel = True End IfEnd SubPrivate Sub submnuAbout_Click() 关于按钮 On Error Resume Next 错误代码处理 Unload frmabout frmabout.Show frmabout.Timer2 = TrueEnd Sub说明各功能按钮在主界面中都是一个显示连接，此处并没一一贴出代码Private Sub submnuExit_Click()退出按钮 Unload MeEnd SubPrivate Sub sysinit_

56、Click() delData = True Dim regmex As String regmex = MsgBox(初始系统：清除数据库中所有的数据。 & Chr(13) & _ 一旦删除就不能恢复，操作员可以先备份一份数据库，再进行删除。 & Chr(13) & _ 现在真的要清除数据库吗？, vbExclamation + vbDefaultButton2 + vbYesNo, 系统初始化) If regmex = vbYes Then For Each Form In Forms 遍历窗体集 Unload Me Next Form TransactSQL (delete from y

57、hxxb where 用户名Admin and 用户名System) TransactSQL (update yhxxb set 密码=123456 where 用户名=Admin or 用户名=System) frmlogin.Show End If delData = FalseEnd Sub运行效果如图4-5所示图4-5 主界面4.4各功能模块的设计与实现4.4.1 增加删除用户增加删除用户功能实现的是对于已经存在的管理员的增加删除功能，并能够对已经存在的管理员的用户名和密码进行修改，点击“增加删除用户“后进入到增加删除用户的页面，有两种方式，点击图标或是从菜单中选择。功能实现代码如下：Private Sub cmdadd_Click()Dim name As StringDim rs As New ADODB.RecordsetDim sql, sql2 As Stringname = LCase(Trim(txt用户名.T