VB课程设计（论文）毕业生信息管理系统.doc

《VB课程设计（论文）毕业生信息管理系统.doc》由会员分享，可在线阅读，更多相关《VB课程设计（论文）毕业生信息管理系统.doc（34页珍藏版）》请在三一办公上搜索。

1、目录一引言1二系统设计的目标及思想2三系统开发环境31.Visual Basic语言的概述32.工程33.窗体34.标准模块55.数据视图5四数据库的设计91.数据库的简介及设计注意事项92.新建一个数据库103.外键约束124.E-R模型及到关系模型的转化13五数据库的连接（ODBC）141.ODBC的概述及应用142.ODBC的组成153.数据库与数据远远的连接16六存在的问题及心的21七参考文献22附录231.各实体间E-R关系图232.代码24一引言 随着经济化，管理现代化到来，人们迫切利用计算机对大量数据的组织，存储，维护和查询，为了更好有效的管理各类数据，数据库技术应用而安生，结合

2、Visual Basic或者Java编程设计的数据管理系统更是现在企业，单位办公多不可缺少的。尽管目前大部分高校都根据滋生学校的情况和特点建立了相关的学籍管理或是学生管理系统，但随着学校的规模不断扩大，毕业生数量的增加，有关学生信息量也成倍的增加，面对庞大的信息量，这样的管理难免会有些不足，对于信息的改动，查询都有一定的困难，所以，需要有学生信息管理系统来提高学生管理工作的效率。此次设计，运用Visual Basic 语言编程结合数据库技术设计了一个毕业生信息管理系统，总体任务是实现学生信息关系的系统化，规范化和自动化，其主要人物使用计算机对毕业生信息进行日常的管理，此系统可以记录保存毕业生的

3、基本信息，就业情况，及招聘企事业单位的相关信息，并能实现添加，删除，改动，查询等功能，将大批量的学生信息数据分类管理，方便了管理者的管理。并且通过这次设计，提高了我们对Visual Basic语言的认识及编写和能力，更深一步熟悉掌握了数据库，培养学生综合运用所学知识与生产实践经验，分析和解决工程技术问题的能力。在高校，计算机已非常普遍，用计算机来管理学生信息是必需的，毕业生管理信息系统主要提高能够方便高效的管理功能及信息查阅平台，管理员可以管理所有信息，本系统的主要功能有：1 学生管理功能：为了方便学生信息的增加，删除，修改，查询。2 企业信息管理的功能：管理员可以通过填写表格来更新招聘单位的

4、信息。3 招聘信息的管理：用来添加最新的招聘信息，便于毕业生查看。4 就业信息的管理功能：记录毕业生的就业情况。可以分析就业形势及就业去向。二系统设计的目标及思想高校教务系统是一项非常繁杂但有是非重要的工作，毕业设计信息管理又是高校教务管理中的重要部分，这个系统的设计，可以使管理员轻松地完成对毕业生信息，单位信息，招聘信息，就业信息等系统的管理工作，可以方便的查询，修改，增加，删除信息。系统的主界面主要有学生信息，企业信息，招聘信息，就业信息等四大类类构成，点击不同的按钮可进入不同的服务界面，（如图1所示） 图1 系统主界面其中学生信息，学生就业信息是很重要的部分。三系统开发环境1.Visua

5、l Basic语言的概述运用Visual Basic 语言编写程序，并通过ODBC桥的链接，实现系统的应用。Visual Basic（VB）是一种由 微软 公司开发的包含 协助开发环境 的 事件驱动 编程语言。它源自于 BASIC 编程语言。VB拥有 图形用户界面 （ GUI ）和 快速应用程序开发 （ RAD ）系统，可以轻易的使用 DAO 、 RDO 、 ADO 连接 数据库 ，或者轻松的创建 ActiveX 控件 。程序员可以轻松的使用VB提供的组仠快速建立一个 应用程序 。 VB中心思想就是要便于 程序员 使用，无论是新手或者专家。VB使用亠可以简单建立应用程序的 GUI 系统，但是又

6、可以开发相当复杂的程堏。VB的程序是一种基于 窗体 的可视化组件安排的联合，并且增加码来指定组建的属性和方法。因为默认方法已经有一部分定义在了块件内，所以程序员不用写多少代码就尧以完成一个简单的程序。过去的版本颂面VB程序的性能问题一直被放在了桌靠上，但是随着 计算机 速度的飞速增加，关于性能的争论已砏越来越少。 窗体控件的增加和改变叠以用 拖放 技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按頮。每个控件都有自己的 属性 和 事件 。默认的属性值会在控件创建的时候栐供，但是程序员也可以进行更改。下面结合系统界面将VB的一些功能及属性加以介绍。2.工程 工程文件的扩展名为vb

7、p，每个工程对应一个工程文件。用“文件”菜单中的“新建工程”命令可以建立一个新的工程。用“打开工程”命令可以打开一个已有的工程，而用“添加工程”命令可以添加一个工程，在工程中添加窗体，进行界面的设计。3.窗体应用程序运行过程中， 用户可用作定制应用程序界面的窗口，或用作从用户处收集信息的对话框叫做窗体。窗体是一种对象，是Visual Basic应用程序的基本构造模块，它有自己的属性，方法和事件，可通过属性来定义窗体的外观，通过方法来定义窗体的行为，通过事件来定义窗体与用户的交互。窗体的属性大多用于设置窗体的外观和尺寸，而且大都可以直接在属性窗口中直接设置，操作方便，简洁。窗体文件的扩展名为fr

8、m，每个窗体对应一个窗体文件，窗体及其空间的属性和其他信息都存放在该窗体文件中。一个应用程序可以有多个窗体，因此就可以有多个以frm为扩展名的窗体文件。执行“工程”菜单中的“添加窗体”命令或单击工具栏中的“添加窗体”按钮可以增加一个窗体而执行“工程”菜单中的“移除按钮”命令可以删除当前的窗体。每建立一个窗体，工程资源管理器窗口就增加一个窗体文件。将各个窗体之间用代码连接起来，就可以做成一个系统的窗体运行该界面，例如，本系统中的登录窗体（图2） 图2 主登录界面双击确定控件，可出现代码窗口，在此窗口中输入代码，就可以与下一个窗口相连接，代码如下： Private Sub Command1_Cli

9、ck() Dim Msg Dim frm1 As New Form2 If Text1.Text = 刘小芳 And Text2.Text = 00868 Then Me.Hide frm1.Show Else MsgBox 账号或密码不正确,请重新输入 End If End SubPrivate Sub Form_Load()End Sub4.标准模块标准模块（文件扩展名为 .BAS）是应用程序内其它模块访问的过程和声明的容器。它们可以包含变量、常数、类型、外部过程和全局过程的全局（在整个应用程序范围内有效的）声明或模块级声明。写入标准模块的代码不必绑在特定的应用程序上；如果不小心用名称引用

10、窗体和控件，则在许多不同的应用程序中可以重用标准模块。它是一个纯代码性质的文件，不属于任何一个窗体，主要在大型应用程序中使用，它可以被不同的窗体所调用，在此系统中，表中模块被调用，来显示数据库中的数据。（如图3所示）图3 模块图5.数据视图视图的定义从放在数据库中，与此定义相关的数据并没有再存一份于数据库中，通过视图看到的数据存放在基表中。视图看上去非常像数据库的物理表，对它的操作同任何其他表一样，当通过视图修改数据时，实际上是在改变基表中的数据；相反的，基表数据的改变也会自动反映在由基表产生的视图中，点击VB菜单栏里的“数据视图窗口”会出现一个界面，（如图4所示）图4 数据窗体向导-介绍单击

11、【下一步】按钮，进（如图5所示）的界面图5数据窗体向导-数据库类型我是用ODBC来连接数据库的，所以这里选择ODBC，然后点击【下一徐】按钮（图6）图6数据窗体向导-连接信息在DSN（D）栏内选定自己所建的数据库名称，在【数据库】栏内再次填入数据库名称，以保证与数据库下相连，点击【下一步】按钮，如（图7）显示：图7数据窗体向导-from在窗体布局中选择所需的窗体布局，再选中单选钮中的类，点击【下一步】如（图8）图8数据窗体向导-控件选择在可用控件框中将添加按钮，编辑按钮，删除按钮，刷新按钮，关闭按钮都选中，这样在生成的表中就可以进行相应的操作，完成后点击【下一步】进入下一界面（如图9 ）图9数

12、据窗体向导-已完成点击【完成】按钮，则完成了用数据视图功能将数据库中的数据导入VB界面中的操作，此时运行界面就会有数据产生，并可以进行相关的操作，（如10所示）图10 数据视图四数据库的设计1.数据库的简介及设计注意事项SQL Server2000 是Microsoft 公司推出的SQL Server 数据库管理系统，该版本继承了SQL Server 7.0 版本的优点，同时又比它增加了许多更先进的功能。具有使用方便可伸缩性好与相关软件集成程度高等优点，可跨越从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2000 的大型多处理器的服务器等

13、多种平台使用。数据库（Database）是按照数据结构来组织、存储和管理数据的仓库，它产生于距今五十年前，随着信息技术和市场的发展，特别是二十世纪九十年代以后，数据管理不再仅仅是存储和管理数据，而转变成用户所需要的各种数据管理的方存储式。数据库有很多种类型，从最简单的存储有各种数据的表格到能够进行海量数据存储的大型数据库系统都在各个方面得到了广泛的应用。它是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。是一个长期存储在计算机内的、有组织的、有共享的、统一管理的数据集合。它是一个按数据结构来存储和管理数据的计算机软件系统。数据库的概念实际包括

14、两层意思： （1）数据库是一个实体，它是能够合理保管数据的“仓库”，用户在该“仓库”中存放要管理的事务数据，“数据”和“库”两个概念结合成为数据库。（2）数据库是数据管理的新方法和技术，他能更合适的组织数据、更方便的维护数据、更严密的控制数据和更有效的利用数据。2.新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。数据库的设计以降低数据冗余，保真数据完整新及一致性和提高数据并发行为原则，主要做到数据库个关系子模式符合第三范式，消除数据冗余，利用事物级操作，保真数据的一致性和完整新，通过触发器机制保证数据应用的

15、完整性，各表之间通过外键相连，根据具体情况保留一定的冗余，以提高访问速度。本系统所用全部数据仅存放在GIM数据库中，该数据库中有五张表，介绍分别如下表：a 学生信息表该表主要记录了毕业生本身的一些性质，有学号，姓名，性别，出生年月，专业，英语，学历等信息在组成。（如图11所示） 图11 学生信息图b. 企业信息表 记录来我校招聘的一些企业的信息，由企业编号，企业名称，企业本质，企业成立时间，企业总人数等组成，此信息表的建立方便于管理员对毕业生就业去向的的分析，记录，管理。其信息（如图12所示）。图12 企业信息图c.招聘信息表这张表主要用来显示用人单位的招聘信息，为毕业生就业，找工作提供帮助。

16、同时也为单位招聘人才的信息起到一定的宣传作用，主要由企业编号，企业名称，所需职位，工资，所招人员的专业要求等组成，其详细设计（如图13所示）图13 招聘信息表c.就业信息表 此信息表记录了毕业生的毕业情况，便于管理员的管理。主要由企业编号，企业名称，所招学生的学好，姓名，就业职位，入职时间等组成，详细信息见（图14）图14 招聘信息表d.管理员信息表 主要记录一些管理员的信息，具体见（图15）图15 管理员信息图3.外键约束数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同

17、表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系，总金额就需要外键的约束。外键是用于建立和加强两个表数据之间的链接的一列或多列。通过将保存表中主键值的一列或多列添加到另一个表中，可创建两个表之间的链接。这个列就成为第二个表的外键。主键约束是指一个表通常可以通过一列和多列组合的数据来唯一标识表中的每一列，这些列和列组合就被称为表上的主键，它可以用来强制实体完整性。当一个表指

18、定了主键约束时，SQL SERVER通过为主键列上建立唯一索引来强制。数据的唯一性。唯一性索引在主键被用于查询时可以对数据进行快速访问外键也是由一列或多列构成的，它用来建立和强制两个表间的关联。这种关联是通过将一个表中的组成主键的列或组合列加入到另一个表中形成的，这个列或组合列就成了第二个表中的外键，此为外键约束。 一个外键约束并不一定要求必须与另一个表上的主键约束相关联，它还 可以被定义为对另一个列中的UNIQUE约束的一个引用。外键约束可以允许空值，但是形成外键的列或组合列中出现空值时将跳过对外键约束的验证。当向表中添加新数据行或修改已有的数据行时，在外键中的定义的列或组合列必须在其他表的

19、主键中存在或是为空，否则将会出错。需注意：外键约束可以对同一个数据库中的其他表上的列或组合列进行引用，也可以是对自身表中其他列或组合列的引用(自引用表) 尽管外键的主要作用是用来限制可以输入到外键表中的数据，但是还可以限制对主键表中数据的修改，外键约束也可以被用作索引，这是因为.对外键约束的修改或被在其他表中的外键约束所检查。外键列或组合列也常常被用于查询中，对于在具有外键约束的表和其他有主键或唯一键的表间进行查询时，可以在连接准则中使用外键列或组合。外键约束防止这种情况的发生。如果主键表中数据的更改使之与外键表中数据的链接失效，则这种更改是不能实现的，从而确保了引用完整性。如果试图删除主键表

20、中的行或更改主键值，而该主键值与另一个表的外键约束值相关，则该操作不可实现。若要成功更改或删除外键约束的行，可以先在外键表中删除外键数据或更改外键数据，然后将外键链接到不同的主键数据上去。在GIM数据库中通过设置外键约束，通过关系生成了（如图15）约束关系图15 各实体关系图4.E-R模型及到关系模型的转化实体-联系图(Entity Relationship Diagram)，提供了表示实体类型、属性和联系的方法，用来描述现实世界的概念模型。E-R方法是“实体-联系方法”（Entity-Relationship Approach）的简称。它是描述现实世界概念结构模型的有效方法。构成E-R图的基

21、本要素是实体型、属性和联系，其表示方法为： 实体型(Entity)：具有相同属性的实体具有相同的特征和性质，用实体名及其属性名集合来抽象和刻画同类实体;在E-R图中用矩形表示，矩形框内写明实体名；比如学生张三丰、学生李寻欢都是实体。如果是弱实体的话，在矩形外面再套实线矩形。 属性(Attribute)：实体所具有的某一特性，一个实体可由若干个属性来刻画。在E-R图中用椭圆形表示，并用无向边将其与相应的实体连接起来；比如学生的姓名、学号、性别、都是属性。如果是多值属性的话，再椭圆形外面再套实线椭圆。如果是派生属性则用虚线椭圆表示。 联系(Relationship)：联系也称关系，信息世界中反映实

22、体内部或实体之间的联系。实体内部的联系通常是指组成实体的各属性之间的联系；实体之间的联系通常是指不同实体集之间的联系。在E-R图中用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型（1 : 1，1 : n或m : n）。 比如老师给学生授课存在授课关系，学生选课存在选课关系。如果是弱实体的联系则在菱形外面再套菱形E-R Mapping是将数据库内独立的字段属性与软件架构里的对象联系起来的图，简明些说就是将对象持久化的一种手段，对象里有属性，属性通过ER图对应联系到数据库中的表和字段。E-R图能更形象，更直接，更明确的表现需求分析人员意图。同时也是需求

23、分析人员对自己理解客户需求的再检查。五数据库的连接（ODBC）1.ODBC的概述及应用开放数据库互连（ODBC)是Microsoft引进的一种早期数据库接口技术。它实际上是我们要在本章后面加以讨论的ADO的前身。Microsoft引进这种技术的一个主要原因是，以非语言专用的方式，提供给程序员一种访问数据库内容的简单方法。换句话说，访问DBF文件或Access Basic以得到MDB文件中的数据时，无需懂得Xbase程序设计语言。事实上，Visual C+就是这样一个程序设计平台，即Microsoft最初是以ODBC为目标的。ODBC本身也提供了对SQL语言的支持，用户可以直接将SQL语句送给O

24、DBC。一个基于ODBC的应用程序对数据库的操作不依赖任何DBMS，不直接与DBMS打交道，所有的数据库操作由对应的DBMS的ODBC驱动程序完成。也就是说，不论是FoxPro、Access还是Oracle数据库，均可用ODBC API进行访问。它本身就是为了是数据库的使用者不必考虑使用的是何种数据库而只需要相同的操作而设计的。它是由Microsoft 公司于1991 年提出的一个用于访问数据库的统一界面标准，是应用程序和数据库系统之间的中间件。它通过使用相应应用平台上和所需数据库对应的驱动程序与应用程序的交互来实现对数据库的操作，避免了在应用程序中直接调用与数据库相关的操作，从而提供了数据库

25、的独立性。应用程序要访问一个数据库，首先必须用ODBC管理器注册一个数据源，数据源。数据源包含了数据库位置和数据库类型等信息，实际上是一种数据连接的抽象。管理器根据数据源提供的数据库位置、数据库类型及ODBC驱动程序等信息，建立起ODBC与具体数据库的联系。这样，只要应用程序将数据源名提供给ODBC，ODBC就能建立起与相应数据库的连接。在ODBC中，ODBC API不能直接访问数据库，必须通过驱动程序管理器与数据库交换信息。驱动程序管理器负责将应用程序对ODBC API的调用传递给正确的驱动程序，而驱动程序在执行完相应的操作后，将结果通过驱动程序管理器返回给应用程序。 2.ODBC的组成OD

26、BC 主要由驱动程序和驱动程序管理器组成。驱动程序是一个用以支持ODBC 函数调用的模块，每个驱动程序对应于相应的数据库，当应用程序从基于一个数据库系统移植到另一个时，只需更改应用程序中由ODBC 管理程序设定的与相应数据库系统对应的别名即可。应用程序 ODBC管理器，该程序位于Windows 95控制面板(Control Panel)的32位ODBC内，其主要任务是管理安装的ODBC驱动程序和管理数据源。 驱动程序管理器(Driver Manager)。驱动程序管理器包含在ODBC32.DLL中，对用户是透明的。其任务是管理ODBC驱动程序，是ODBC中最重要的部件。驱动程序管理器可链接到所

27、有ODBC 应用程序中，它负责管理应用程序中ODBC 函数与DLL 中函数的绑定。ODBC 驱动程序。是一些DLL，提供了ODBC和数据库之间的接口。在访问ODBC数据源时需要ODBC驱动程序的支持。 ODBC 使用层次的方法来管理数据库，在数据库通信结构的每一层，对可能出现依赖数据库产品自身特性的地方，ODBC 都引入一个公共接口以解决潜在的不一致性，从而很好地解决了基于数据库系统应用程序的相对独立性。 3.数据库与数据远远的连接（1）双击【控制面板】中的32位ODBC小程序（如果当前系统上未安装16位驱动程序，那么一些版本的Windows使用简单的ODBC小程序）。你会看到ODBCData

28、SourceAdministrator（ODBC数据源管理员）对话框，如下图所DSN（用户数据源名）选项卡。对系统级数据库来说，使用SystemDSN（系统数据源名）选项卡。（如图17所示） 图17 ODBC数据源管理源对本地数据库来说，通常要在UserDSN（用户DSN）选项卡上创建一个项；对远程数据库，则在SystemDSN（系统DSN）选项卡上创建。任何情况下，都不能在UserDSN（用户DSN）和SystemDSN（系统DSN）选项卡上创建同名的项。通常会出现的问题是，你试图访问远程数据库，但从Web。（2）.单击【添加】按钮。会看到（创建新的数据源）对话框，（如图18） 图18创建新

29、的数据源ODBC技巧检查ODBC数据源管理员对话框的About选项卡，可以确定你正在使用的ODBC驱动程序的最新版本。（3）.选择一个数据源。对本练习来说，我选择了SQLSERVER数据源。单击【完成】，会看到某种类型的配置对话框，（如图19） 图19 创建到SOL Server的新数据源ODBC注释如果你选择的数据源和我在本实例中选择的不同，那么所需的配置步骤也和这里说明的不同ODBC驱动程序都要求不同类型的配置。（4）.在DataSourceName（数据源名）域内输入数据源名称。一定要选择意义明确但又不过于冗长的名称。我选择GIM（毕业生信息管理系统），因为我最终要创建一个与毕业生信息管

30、理有关的数据库的链接。（5）.在Description（描述）域内输入一段说明性文字。可以让这个项比上一个项稍长一些，因为它描述数据库的用途。对本练习，我选择不输入。（6）.单击【下一步】按钮。你会看到一个创建到SOL Server的新数据源对话框，（如图20所示） 图20创建到SOL Server的新数据源因为我安装数据库是没有设置sa密码，所以我选择使用网络登录的ID的Windows NT 验证。其它选项都不改变，然后单击【下一步】。会出现(如图6所示)对话框，选择更【改默认的数据库为(D)】选项，然后在下拉菜单中选择前面创建的“GIM”系统(。 图21创建到SOL Server的新数据源

31、（7）单击【下一步】按钮，打开（如图22所示）的对话框，保持默认设置。 图22 建到SOL Server的新数据源（8）.直接单击【完成】按钮，打开（如图23，24所示）的对话框，在该对话框中提示了数据源连接的各种配置，其中【测试数据源】按钮可以对掐面的配置进行测试。组后单击【确定】按钮完成配置，便完成了数据库与数据源的连接。 图23 ODBC Mircrosoft SOL Server 安装图24 SOL Server ODBC数据源测试六存在的问题及心的随着信息技术和市场的发展，人们发现关系型数据库系统虽然技术很成熟，但其局限性也是显而易见的：它能很好地处理所谓的“表格型数据”，却对技术界

32、出现的越来越多的复杂类型的数据无能为力。九十年代以后，技术界一直在研究和寻求新型数据库系统。但在什么是新型数据库系统的发展方向的问题上，产业界一度是相当困惑的。数年的发展表明，面向对象的关系型数据库系统产品的市场发展的情况并不理想。理论上的完美性并没有带来市场的热烈反应。其不成功的主要原因在于，这种数据库产品的主要设计思想是企图用新型数据库系统来取代现有的数据库系统。这对许多已经运用数据库系统多年并积累了大量工作数据的客户，尤其是大客户来说，是无法承受新旧数据间的转换而带来的巨大工作量及巨额开支的。另外，面向对象的关系型数据库系统使查询语言变得极其复杂，从而使数据库的开发从在这一些无法排出的干

33、扰。但是，这次设计也提高了我们对Visual Basic语言的认识及编写和能力，更深一步熟悉掌握了数据库，培养了我们综合运用所学知识与生产实践经验，分析和解决工程技术问题的能力，在遇到技术困难的时候，想尽一切办法将这个问题解决，培养了认真对待，永不放弃的学习态度，并且将理论运用于实践，是一次真正的实践过程，学到了好多东西，为以后更好的运用数据库知识奠定了很好的基础。七参考文献1周星，魏应彬，动态网页与VB数据库，北京大学出版社， 20012 俞波，周皓峰，一种基于VB的学生信息管理系统， 计算机与现代化，2000年第2期， 55603 王华，VB开发信息服务系统示例， 太原科技，2003年 第

34、4期 ，52 4 李世杰Active Server Pages 2.0设计手册，清华大学出版社，2000.15 闫华文，SQL Server 2000 与VB 数据库编程技术，北京大学出版社，2001.46 康博，VB应用程序开发新技术，人民邮电出版社，1999.7附录1. 各实体间E-R关系图2.代码（1）.主界面余个窗口连接的代码Private Sub Command1_Click(Index As Integer) Dim Form2 As New frmStudent Form2.Show End SubPrivate Sub Command2_Click(Index As Integ

35、er)Dim frmStudent As New frmEterprise frmEterprise.ShowEnd SubPrivate Sub Command3_Click(Index As Integer)Dim frmEterprise As New frmZpxx frmZpxx.ShowEnd SubPrivate Sub Command4_Click(Index As Integer)Dim frmZpxx As New frmJyxx frmJyxx.ShowEnd Sub（2）主模块代码Public Function ConnectString() As StringConn

36、ectString = Provider=SQLOLEDB.1;Initial Catalog=GIM;Data SourseEnd FunctionPublic Function ExecuteSQL(ByVal SQL As String, MagString As String) As ADODB.RecordsetDim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As StringOn Error GoTo ExecuteSQL_ErrorsTokens = Split(SQL)Set cnn = Ne

37、w ADODB.Connectioncnn.Open ConnectStringIf InStr(INSERT,DELETE,UPDATE,EXECUTE, UCase$(sTokens(0) Then cnn.Execute (SQL) MagString = sTokens(0) & query successfulElseSet rst = New ADODB.Recordsetrst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimisticSet ExecuteSQL = rst MagString = 查询到 & rst.RecordC

38、ount & 条记录 End If ExecuteSQL_Error MagString = 查询错误; & Err.Description Resume ExecuteSQL_Exit End Function Sub main() register.Show End Sub（3）各模块产生及运行的代码Private WithEvents PrimaryCLS As clsEterpriseDim mbChangedByCode As BooleanDim mvBookMark As VariantDim mbEditFlag As BooleanDim mbAddNewFlag As Bo

39、oleanDim mbDataChanged As BooleanPrivate Sub Form_Load() Set PrimaryCLS = New clsEterprise Dim oText As TextBox 绑定文本框到数据提供者 For Each oText In Me.txtFields oText.DataMember = Primary Set oText.DataSource = PrimaryCLS NextEnd SubPrivate Sub Form_Resize() On Error Resume Next lblStatus.Width = Me.Width

40、 - 1500 cmdNext.Left = lblStatus.Width + 700 cmdLast.Left = cmdNext.Left + 340End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If mbEditFlag Or mbAddNewFlag Then Exit Sub Select Case KeyCode Case vbKeyEscape cmdClose_Click Case vbKeyEnd cmdLast_Click Case vbKeyHome cmdFirst_Clic

41、k Case vbKeyUp, vbKeyPageUp If Shift = vbCtrlMask Then cmdFirst_Click Else cmdPrevious_Click End If Case vbKeyDown, vbKeyPageDown If Shift = vbCtrlMask Then cmdLast_Click Else cmdNext_Click End If End SelectEnd SubPrivate Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPriva

42、te Sub PrimaryCLS_MoveComplete() 为这个 recordset 显示当前记录位置 lblStatus.Caption = Record: & CStr(PrimaryCLS.AbsolutePosition)End SubPrivate Sub cmdAdd_Click() On Error GoTo AddErr PrimaryCLS.AddNew lblStatus.Caption = 添加记录 mbAddNewFlag = True SetButtons False Exit SubAddErr: MsgBox Err.DescriptionEnd SubP

43、rivate Sub cmdDelete_Click() On Error GoTo DeleteErr PrimaryCLS.Delete Exit SubDeleteErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click() 只有多用户应用程序需要 On Error GoTo RefreshErr PrimaryCLS.Requery Exit SubRefreshErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdEdit_Click() On Error GoTo Edi

44、tErr lblStatus.Caption = 编辑记录 mbEditFlag = True SetButtons False Exit SubEditErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdCancel_Click() On Error Resume Next PrimaryCLS.Cancel SetButtons TrueEnd SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr PrimaryCLS.Update SetButtons True Exit SubUp

45、dateErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdFirst_Click() On Error GoTo GoFirstError PrimaryCLS.MoveFirst mbDataChanged = False Exit SubGoFirstError: MsgBox Err.DescriptionEnd SubPrivate Sub cmdLast_Click() On Error GoTo GoLastError PrimaryCLS.MoveLast mbDataChanged = False Exit SubGoLastError: MsgBox Err.DescriptionEnd SubPrivate Sub cmdNext_Click() On Error GoTo GoNextError PrimaryCLS.MoveNext Exit SubGoNextError: MsgBox Err.DescriptionEnd SubPrivate Sub cmdPrevious_Click