***理工大学
课 程 设 计
题 目： 会议记录管理系统
院、 系：计算机科学与技术学院 网络工程系 班 级： 网络**班
学 号： 0 8 0 4 0 2**** 姓 名： *****
同组成员： *****
指导教师： ***** 成 绩：
20**年0*月15 1
目录
第一章 绪论…………………………………………………4
1.1选题的目的意义和目的?????????????4
1.2题目开发背景?????????????????4
第二章 相关知识简介………………………………………5
2.1前台开发环境简介Visual Basic 6.0???????5
2.1.1. Visual Basic 6.0的安装与启动…………………………5 2.2.22. Visual Basic 6.0的特点………………………………5
2.2 MySQL数据库简介???????????????6
2.2.1数据库的发展及特点………………………………………6 2.2.2 数据库基本操作……………………………………………7
2.2.3 MySQL 数据类型和数据表……………………………10
第三章 系统数据库设计需求分析………………………14 3.1需求分析???????????????????14 2
3.2 可行性分析?????????????????14
3.3 er图????????????????????15
3.4 表结构??????????????????????16
3.5 系统结构功能图???????????????????17
第四章 系统详细设计…………………………………17
4.1窗体设计…………………………………………………………17
4.2数据库的创建……………………………………………………20
第五章 结 论…………………………………………23
5.1 总结………………………………………………………………23
5.2 遇到的问题………………………………………………………23 附 录………………………………………………………26 附录A 核心程序代码………………………………………………26
3
第一章 绪论
1.1 选题目的和意义
会议对企业即时通讯上下来说都不陌生，特别是中小企业，人员配备并不像大企业那样齐全，非常需要进行大规模的头脑风暴。这样的会议往往注重效率，强调一种活跃开放的气氛，而且确实容易得到不少有利于产品和企业的点子。现在很多从小作坊发展成为大企业的公司，都经历过频繁开会的阶段。
对比开会受重视的程度，会议记录就不一定了。相当一部分企业并不重视会议记录的保存甚至开会不做记录，认为只要有结果即可，或者觉得大家都在现场，知道细节。这样的做法，虽然当时确实能解决问题，但时间稍久，就会出现无法回溯的问题。如果有人错会了当时会议的要点，并且过分执着于自己的判断，要说服他很困难。出现这样的情况，已经足以让管理者和员工头疼，更不要说需要资料和关键讨论内容时找不到备份所带来的经济和时间方面的损失。
也有企业并非不重视会议记录，而是没有很好的办法进行管理。纸质资料不易保管和共享，邮件、即时通讯虽然可以方便的传阅，却很难体系化和保存，往往依靠得到会议记录的人自我控制和安排，难以在企业内部全面铺开。
本选题正是希望用计算机来解决以上问题。
1.2 题目开发背景
会议记录是由会议组织者指定专人，如实、准确地记录会议的组织情况和会议内容的一种机关应用性文书。会议记录一般用于比较重要的会议或正式的会议，它要求真实、全面地反映会议的本来面貌。它忠实地记录了会议的全貌。会议精神、会议形成的决定和决议、会议对重大问题作出的安排，如果在会议后期需要形成文件，要以会议记录为依据；如果不形成文件，与会者在会后传达贯彻会议精神和决定是否准确，也要以会议记录为依据进行检验。会议进行过程中连续编发的会议简报，以及会议后期制作的会议纪要，都要以会议记录为重要素材。会议简报和会议纪要可以对会议记录进行一定的综合、提要，但不得对会议记录所确认的内容进行歪曲和纂改。
可以说，会议记录是形成会议简报和会议纪要的基础。会议记录可以作用会议情况和会议内容的原始凭证。时过境迁，有关会议的内容和情况可能无法在记忆中复现了，甚至当时作出的重要决定可能也记不清了，这时就不妨查查会议记录。会议记录还可以成为一个部门和单位的历史资料，若干年后，通过大量会议记录可以了解这个单位的历史进程和发展状况。 4
第二章 相关知识简介
2.1前台开发环境简介Visual Basic 6.0
2.1.1. Visual Basic 6.0的安装与启动
Microsoft发布的Visual Basic 6.0有3个版本，而功能最全的是企业版，本书使用的是Visual Basic 6.0简体中文企业版。在使用Visual Basic 6.0之前，需要先对其进行安装。
2.1.2. Visual Basic 6.0的特点
鉴于Visual Basic 6.0的成熟稳定，并且可以让企业快速建立多层系统，可以开发Web应用程序等优点，Visual Basic 6.0是当前最为流行的一种Visual Basic版本。本书所有后续内容使用的版本均为Visual Basic 6.0。
Visual Basic 6.0的主要特点：
易学易用的集成开发环境：Visual Basic 6.0为用户设计界面、编写代码、调试程序、编译程序、制作应用程序安装盘等提供了友好的集成开发环境。
可视化的设计平台：在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。
事件驱动的编程机制：面向过程的程序是由一个主程序和若干个子程序及函数组成的。程序运行时总是先从主程序开始，由主程序调用子程序和函数，开发人员在编程时必须事先确定整个程序的执行顺序。而Visual Basic 6.0事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。
结构化的程序设计语言：Visual Basic 6.0具有丰富的数据类型和众多的内部函数。其采用模块化和结构化程序设计语言，结构清晰，语法简单，容易学习。
强大的数据库功能：Visual Basic 6.0利用数据控件可以访问Access、FoxPro等多种数据库系统，也可以访问Excel、Lotus等多种电子表格。
5
ActiveX技术：ActiveX发展了原有的OLE技术，使开发人员摆脱了特定语言的束缚，方便地使用其他应用程序提供的功能，使Visual Basic 6.0能够开发集声音、图像、动画、字处理、电子表格、Web等对象于一体的应用程序。
网络功能：Visual Basic 6.0提供的DHTML（动态HTML）设计工具可以使开发者动态地创建和编辑Web页面，使用户能开发出多功能的网络应用软件。
2.2 MySQL数据库简介
2.2.1数据库的发展及特点
数据库从最初的数据文件的简单集合发展到今天的大型数据库管理系统已经成为我们日常生活中不可缺少的组成部分。如果不借助数据库的帮助，许多简单的工作将变得冗长乏味，甚至难以实现。尤其是象银行、院校和图书馆这样的大型组织更加依靠数据库系统实现其正常的运作。再看互联网上，从搜索引擎到在线商场，从网上聊天到邮件列表，都离不开数据库。
目前，市面上的数据库产品多种多样，从大型企业的解决方案到中小企业或个人用户的小型应用系统，可以满足用户的多样化需求。这里，我们所要向大家介绍的MySQL数据库是众多的关系型数据库产品中的一个，相比较其它系统而言，MySQL数据库可以称得上是目前运行速度最快的SQL语言数据库。除了具有许多其它数据库所不具备的功能和选择之外，MySQL数据库是一种完全免费的产品，用户可以直接从网上下载数据库，用于个人或商业用途，而不必支付任何费用（推荐下载站点）。
总体来说，MySQL数据库具有以下主要特点：
1. 同时访问数据库的用户数量不受限制；
2. 可以保存超过50,000,000条记录；
3. 是目前市场上现有产品中运行速度最快的数据库系统；
4. 用户权限设置简单、有效。
如今，包括Siemens和Silicon Graphics这样的国际知名公司也开始把MySQL作为其数据库管理系统，这就更加证明了MySQL数据库的优越性能和广阔的市场发展前景。 MySQL是最受欢迎的开源SQL数据库管理系统，它由MySQL AB开发、发布和支持。MySQL AB是一家基于MySQL开发人员的商业公司，它是一家使用了一种成功的商业模式来结合开源价值和方法论的第二代开源公司。MySQL是MySQL AB的注册商标。
MySQL是一个快速的、多线程、多用户和健壮的SQL数据库服务器。MySQL服务器支持关键任务、重负载生产系统的使用，也可以将它嵌入到一个大配置(mass-deployed)的软件 6
中去。 MySQL网站()提供了关于MySQL和MySQL AB的最新的消息。
MySQL是一个数据库管理系统
一个数据库是一个结构化的数据集合。它可以是从一个简单的销售表到一个美术馆、或者一个社团网络的庞大的信息集合。如果要添加、访问和处理存储在一个计算机数据库中的数据，你就需要一个像MySQL这样的数据库管理系统。从计算机可以很好的处理大量的数据以来，数据库管理系统就在计算机处理中和独立应用程序或其他部分应用程序一样扮演着一个重要的角色。
MySQL是一个关系数据库管理系统
关系数据库把数据存放在分立的表格中，这比把所有数据存放在一个大仓库中要好得多，这样做将增加你的速度和灵活性。“MySQL”中的SQL代表“Structured Query Language”（结构化查询语言）。SQL是用于访问数据库的最通用的标准语言，它是由ANSI/ISO定义的SQL标准。SQL标准发展自19xx年以来，已经存在多个版本：SQL-86，SQL-92，SQL:1999，SQL:2003，其中SQL:2003是该标准的当前版本。
MySQL是开源的
开源意味着任何人都可以使用和修改该软件，任何人都可以从Internet上下载和使用MySQL而不需要支付任何费用。如果你愿意，你可以研究其源代码，并根据你的需要修改它。MySQL使用GPL(GNU General Public License，通用公共许可)，在hpt:///licenses中定义了你在不同的场合对软件可以或不可以做什么。如果你觉得GPL不爽或者想把MySQL的源代码集成到一个商业应用中去，你可以向MySQL AB购买一个商业许可版本。
MySQL服务器是一个快的、可靠的和易于使用的数据库服务器
如果这是你正在寻找的，你可以试一试。MySQL服务器还包含一个由用户紧密合作开发的实用特性集。你可以在MySQL AB的/it-resources/benchmarks/上找到MySQL服务器和其他数据库管理系统的性能比较。
MySQL服务器原本就是开发比已存在的数据库更快的用于处理大的数据库的解决方案，并且已经成功用于高苛刻生产环境多年。尽管MySQL仍在开发中，但它已经提供一个丰富和极其有用的功能集。它的连接性、速度和安全性使MySQL非常适合访问在Internet上的数据库。
MySQL服务器工作在客户/服务器或嵌入系统中。
MySQL数据库服务器是一个客户/服务器系统，它由多线程SQL服务器组成，支持不同的后端、多个不同的客户程序和库、管理工具和广泛的应用程序接口(APIs)。
MySQL也可以是一个嵌入的多线程库，你可以把它连接到你的应用中而得到一个小、快且易于管理的产品。
有大量的MySQL软件可以使用
7
幸运的是，你可以找到你所喜爱的已经支持MySQL数据库服务器的软件和语言。
MySQL的官方发音是“My Ess Que Ell”，而不是“My sequel”。但是你也可以使用“My sequel”和其他的方言。
2.2.2 数据库基本操作
1.进入数据库系统
现在介绍MySQL数据库的一些基本操作，包括如何与数据库建立连接，如果设置数据库，以及如何执行基本的命令等。希望能够对读者学习和掌握MySQL数据库有所助益。 入门。 一般来说，我们访问MySQL数据库时，首先需要使用telnet远程登录安装数据库系统的服务器，然后再进入MySQL数据库。MySQL数据库的连接命令如下：
mysql -h hostname -u username -p[password]
或者：
mysql -h hostname -u username --password=password
其中，hostname为装有MySQL数据库的服务器名称，username和password分别是用户的登录名称和口令。
如果MySQL数据库安装和配置正确的话，用户在输入上述命令之后会得到如下系统反馈信息：
Welcome to the MySQL monitor. Commands end with ; or \g.
Your MySQL connection id is 49 to server version: 3.21.23-beta-log
Type 'help' for help.
mysql＞
这样，用户就成功进入了MySQL数据库系统，可以在mysql＞命令提示符之后输入各种命令。下面，我们列出一些MySQL数据库的主要管理命令供读者参考，用户也可以通过在命令符之后输入help，\h或？得到以下命令的简单说明。
mysql＞ help
help (\h) 显示命令帮助
? (\h) 作用同上
clear (\c) 清除屏幕内容
connect (\r) 重新连接服务器，可选参数为 db（数据库）和 host（服务器）
exit (\) 退出mysql数据库，作用与quit命令相同
go (\g) 将命令传送至mysql数据库
print (\p) 打印当前命令
quit (\q) 退出mysql数据库
status (\s) 显示服务器当前信息
use (\u) 打开数据库，以数据库名称作为命令参数
上述命令主要用于MySQL数据库的系统管理，如果用户需要对某个具体的数据库进行操作，可以使用use命令进入该数据库，格式如下：
8
mysql＞ use dbname;
这里需要提醒读者注意的一点就是MySQL数据库要求使用者在所有命令的结尾处使用“；”作为命令结束符。
2..数据操作：
对MySQL数据库中数据的操作可以划分为四种不同的类型，分别是添加、删除、修改和查询，我们将会在本节中对此进行介绍。但是，首先我们需要强调的一点就是MySQL数据库所采用的SQL语言同其它绝大多数计算机编程语言一样，对命令的语法格式有严格的规定。任何语法格式上的错误，例如不正确的使用括号、逗号或分号等都可能导致命令执行过程中的错误。因此，建议用户在学习时一定要多留心语法格式的使用。
（1）.添加记录
用户可以使用INSERT命令向数据库中添加新的记录。
例如：
mysql＞ INSERT INTO test VALUES
mysql＞ ('John', 'carrots@mail.com',
mysql＞ 5554321, NULL);
上述命令正确执行后会返回以下信息：
Query OK, 1 row affected (0.02 sec)
mysql＞
对上述命令有几点我们需要说明。首先，所有的字符类型数据都必须使用单引号括起来。其次，NULL关键字与AUTO_INCREMENT限制条件相结合可以为字段自动赋值。最后，也是最重要的一点就是新记录的字段值必须与数据表中的原字段相对应，如果原数据表中有4个字段，而用户所添加的记录包含3个或5个字段的话都会导致错误出现。
MySQL数据库的一个非常显著的优势就是可以对整数、字符串和日期数据进行自动转换。因此，用户在添加新记录时就不必担心因为数据类型不相符而出现错误。
（2）.查询数据
如果我们无法从数据库中查找和读取数据的话，数据库就丧失了其存在和使用的价值。 9
在MySql数据库中，用户可以使用SELECT命令进行数据的查询。
（3）删除数据
用户除了可以向数据表中添加新的记录之外，还可以删除数据表中的已有记录。删除记录可以使用DELETE命令。
例如：
mysql＞ DELETE FROM test
mysql＞ WHERE (name = "");
该命令将会删除test数据表中name字段的值为John的记录。同样，
mysql＞ DELETE FROM test
mysql＞ WHERE (phone_number = 5554321);
将会从数据表中删除phone_number字段值为5554321的记录。
（4）修改数据
MySQL数据库还支持用户对已经输入到数据表中的数据进行修改。修改记录可以使用UPDATE命令。
例如：
mysql＞ UPDATE test SET name = 'Mary'
mysql＞ WHERE name = "John";
2.2.3 MySQL 数据类型和数据表
从本质上说，数据库就是一种不断增长的复杂的数据组织结构。在MySQL数据库中，用于保存数据记录的结构被称为数据表。而每一条数据记录则是由更小的数据对象，即数据类型组成。因此，总体来说，一个或多个数据类型组成一条数据记录，一条或多条数据记录组成一个数据表，一个或多个数据表组成一个数据库。我们可以把上述结构理解为如下形式： Database ＜ Table ＜ Record ＜ Datatype
数据类型分为不同的格式和大小，可以方便数据库的设计人员创建最理想的数据结构。能否正确的选择恰当的数据类型对最终数据库的性能具有重要的影响，因此，我们有必要首先对数据类型的有关概念进行较为详细的介绍。
10
MySQL 数据库提供了多种数据类型，其中较为常用的几种如下：
1.CHAR (M)
CHAR数据类型用于表示固定长度的字符串，可以包含最多达255个字符。其中M代表字符串的长度。
举例如下：
car_model CHAR(10);
2.VARCHAR (M)
VARCHAR是一种比CHAR更加灵活的数据类型，同样用于表示字符数据，但是VARCHAR可以保存可变长度的字符串。其中M代表该数据类型所允许保存的字符串的最大长度，只要长度小于该最大值的字符串都可以被保存在该数据类型中。因此，对于那些难以估计确切长度的数据对象来说，使用VARCHAR数据类型更加明智。VARCHAR数据类型所支持的最大长度也是255个字符。
这里需要提醒注意的一点是，虽然VARCHAR使用起来较为灵活，但是从整个系统的性能角度来说，CHAR数据类型的处理速度更快，有时甚至可以超出VARCHAR处理速度的50%。因此，用户在设计数据库时应当综合考虑各方面的因素，以求达到最佳的平衡。 举例如下：
car_model VARCHAR(10);
3.INT (M) [Unsigned]
INT数据类型用于保存从- 2147483647 到2147483648范围之内的任意整数数据。如果用户使用Unsigned选项，则有效数据范围调整为0-4294967295。举例如下：
light_years INT;
按照上述数据类型的设置，-24567为有效数据，而3000000000则因为超出了有效数据范围成为无效数据。
再例如：
light_years INT unsigned;
这时，3000000000成为有效数据，而-24567则成为无效数据。
4.FLOAT [(M,D)]
FLOAT数据类型用于表示数值较小的浮点数据，可以提供更加准确的数据精度。其中，M代表浮点数据的长度（即小数点左右数据长度的总和），D表示浮点数据位于小数点右边的数值位数。
举例如下：
rainfall FLOAT (4,2);
按照上述数据类型的设置，42.35为有效数据，而324.45和3.542则因为超过数据长度限制或者小数点右边位数大于规定值2成为无效数据。
5.DATE
DATE数据类型用于保存日期数据，默认格式为YYYY-MM-DD。MySQL提供了许多功能强大的日期格式化和操作命令，本文无法在此一一进行介绍，感兴趣的读者可以参看 11
MySQL的技术文档。
DATE数据类型举例如下：
the_date DATE;
6.TEXT / BLOB
TEXT和BLOB数据类型可以用来保存255 到65535个字符，如果用户需要把大段文本保存到数据库内的话，可以选用TEXT或BLOB数据类型。TEXT和BLOB这两种数据类型基本相同，唯一的区别在于TEXT不区分大小写，而BLOB对字符的大小写敏感。
7.SET
SET数据类型是多个数据值的组合，任何部分或全部数据值都是该数据类型的有效数据。SET数据类型最大可以包含64个指定数据值。
举例如下：
transport SET ("truck", "wagon") NOT NULL;
根据上述数据类型的设置，truck、wagon、以及truck,wagon都可以成为transport的有效值。
8.ENUM
ENUM数据类型和SET基本相同，唯一的区别在于ENUM只允许选择一个有效数据值。例如：
transport ENUM ("truck", "wagon") NOT NULL;
根据上述设置，truck或wagon将成为transport的有效数据值。
以上，我们只是对用户使用MySQL数据库的过程中经常用到的数据类型进行了简单介绍，有兴趣的读者，可以参看MySQL技术文档的详细说明。
数据记录：
一组经过声明的数据类型就可以组成一条记录。记录小到可以只包含一个数据变量，大到可以满足用户的各种复杂需求。多条记录组合在一起就构成了数据表的基本结构。
数据表：
在我们执行各种数据库命令之前，首先需要创建用来保存信息的数据表。我们可以通过以下方式在MySQL数据库中创建新的数据表：
mysql＞ CREATE TABLE test (
＞ name VARCHAR (15),
12
＞ email VARCHAR (25),
＞ phone_number INT,
＞ ID INT NOT NULL AUTO_INCREMENT,
＞ PRIMARY KEY (ID));
系统反馈信息为：
Query OK, 0 rows affected (0.10 sec)
mysql＞
这样，我们就在数据库中创建了一个新的数据表。注意，同一个数据库中不能存在两个名称相同的数据表。
这里，我们使用CREATE TABLE命令创建的test数据表中包含name，email，phone_number和ID四个字段。MySQL数据库允许字段名中包含字符或数字，最大长度可以达到64个字符。
下面，我们来看一看创建数据表时所用到的几个主要的参数选项。
1.Primary Key
具有Primary Key限制条件的字段用于区分同一个数据表中的不同记录。因为同一个数据表中不会存在两个具有相同值的Primary Key字段，所以对于那些需要严格区分不同记录的数据表来说，Primary Key具有相当重要的作用。
2.Auto_Increment
具有Auto_Increment限制条件的字段值从1开始，每增加一条新记录，值就会相应地增加1。一般来说，我们可以把Auto_Increment字段作为数据表中每一条记录的标识字段。
3.NOT NULL
NOT NULL限制条件规定用户不得在该字段中插入空值。
其它数据表命令
除了创建新的数据表之外，MySQL数据库还提供了其它许多非常实用的以数据表作为操作对象的命令。
显示数据表命令
mysql＞ show tables;
该命令将会列出当前数据库下的所有数据表。
显示字段命令
mysql＞ show columns from tablename;
该命令将会返回指定数据表的所有字段和字段相关信息。这次的数据库用的是MySQL Administrator.
13
第三章 系统数据库设计需求分析 3.1需求分析 通过市场调查，要求本系统具有以下的功能：
?
?
?
?
?
?
? 统一友好的操作界面，能保证系统的易用性。 规范、完善的基础信息设置。 能够完成对企业会议的有效管理。 通过系统日志，详细记录修改记录的操作，提供追查的有力依据。 完善的权限管理，增强系统的安全性。 强大的数据备份及恢复功能，保证系统数据的安全性。 可在不退出系统的同时更换操作员。
3.1 可行性分析
传统的会议记录管理工作可以说是千头万绪，纷繁复杂，工作人员面临着大量琐碎繁重的工作，会议记录管理系统从企业的实际需求出发，简单易用，系统界面友好美观，自定义功能强，权限管理可根据用户的角色来设置，实施简单快速，操作简单明了。基本适用于中小型企业的会议办公管理。
3.2 er图
3.3表结构：
会议记录数据表
15
3.4结构功能图
16
第四章 系统详细设计
会议记录管理系统
会议记录管理主要是记录公司举行重大会议的内容、时间等信息。在会议记录窗体中可以通过工具栏中的【添加】、【删除】、【修改】和【保存】按钮维护会议记录信息，还可以通过单击数据网格中的数据记录，在窗体上浏览已经记录过的会议记录信息，如果会议记录被修改过，则在浏览数据记录信息时，在窗体的下面还将显示记录修改的日期和修改人姓名。
4.1窗体设计
（1）在工程中新建1个窗体，将窗体的名称设置为“frm_hyjl”，BorderStyle属性设置为“0-None”，MaxButton的属性设置为“False”。
（2）在窗体上添加1个Toolbar控件和1个ImageList控件。
（3）为窗体制作如图7所示的工具栏。
（4）在窗体上添加1个文本框控件数组，数组中包含有8个文本框控件。
（5）在窗体上添加1个DTPicker控件，名称命名为DT1，用于输入或显示会议进行的时间。由于DTPicker控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。添加方法如下：
在“工程”/“部件”对话框中勾选“Microsoft Windows Common Controls2.6”列表项，单击【确定】按钮之后即可将DTPicker控件添加到工具箱当中。
（6）在窗体上添加1个CommandButton控件，并将其名称修改为“Cmd_Select”，Caption属性修改为“<<”，如图7所示。
（7）在窗体上添加1个Ado控件和1个DataGrid控件，将DataGrid控件的BackColor属性值设置为“&H80000018&”，DataSource属性设置为“Adodc1”，AllowUpdate属性设置为“False”。
（8）在窗体上添加2个Line控件，并将其BorderColor属性值设置为“&H00008000&”，同时将这2个控件按照如图11所示的样式放置。
（9）在窗体上添加2个文本框控件，分别命名为“Txt_Date”和“Txt_xgr”，用于显示修改记录的时间和记录修改人的姓名。
17
会议记录窗体的设计结果如图所示。
会议记录窗体设计结果
创建的最初窗口如下：
18
4.2数据库的创建
MySQL 有许多图形化的管理工具，我们在此介绍二个官方的工具「MySQL Administrator」及「MySQL Query Browser」。MySQL Administrator 是用来管理 MySQL Server 用的，您可以查看目前系统状态、新增使用者等。而 MySQL Query Browser 可以用来查看数据库内容。
我们可以在一台 Windows 的机器上使用图形化的管理工具，或者是在本机的 XWindow 中执行也可以。如果要从另一台计算机联机到 MySQL，则在使用这些工具连到 MySQL 之前，您必须先新增具有权限从远方联机到 MySQL 的使用者。
19
MySQL Administrator
请先到 MySQL 网站下载 MySQL Administrator，并执行安装，安装后请执行 MySQL Administrator。执行后，您会看到下列画面：
请在 Server Host 字段中输入 MySQL Server 的 IP，并输入使用者名称及密码。登入后的第一页，您可以看到目前 MySQL 的状态。如果您的 Server 和 MySQL Administrator 是在同一台机器上，则可以对 MySQL 进行更多的控制，例如停用 MySQL 等。
在 MySQL Query Browser 中，我们可以建立删除数据库、数据表、查询数据库中的数据。如果您要建立一个新的数据库，请对着下图中 1 的位置按鼠标右键，再点选「Create New Schema」，最后输入数据库名称即可。建库图如下：
20
建立了数据库后，我们可以再建资料表。请对着我们刚建立的数据库按鼠标右键，再点选「Create New Table」即出现下列窗口：
21
22
第五章 结 论
5.1 总结
课程设计是培养学生综合运用所学知识 ,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对我们的实际工作能力的具体训练和考察过程. 回顾起此次课程设计，至今我们仍感慨颇多，的确，自从拿到题目到完成整个编程，从理论到实践，在整整半个月的日子里，可以学到很多很多的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我们懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这毕竟第一次做的，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对一些前面学过的知识理解得不够深刻，掌握得不够牢固，通过这次课程设计之后，我们把前面所学过的知识又重新温故了一遍。
在这次课程设计过程中，收获知识，提高能力的同时，我也学到了很多人生的哲理，懂得怎么样去制定计划，怎么样去实现这个计划，并掌握了在执行过程中怎么样去克服心理上的不良情绪。因此在以后的生活和学习的过程中，我一定会把课程设计的精神带到生活中，不畏艰难，勇往直前！
5.2 遇到的问题
我的调试环境是xp，mysql版本是mysql4.0.23
1.安装Mysql的ODBC驱动
从上下载驱动程序
地址：/downloads/connector/odbc/3.51.html#win32 我是下载的Windows ZIP/Setup.EXE
下载到本机之后从zip包中解压出setup.exe文件，双击安装，没什么可说的，完全的傻瓜式安装
2.设置ODBC数据源
配置MySQL的ODBC数据源有两种方法
23
第一种：手工设置
比较麻烦，但是确是比较安全的办法。
步骤如下：
开始 -> 控制面板 -> 管理工具 -> 数据源 (ODBC)，双击数据源(ODBC)之后会出来如下的界面
点击右上角的"添加"按钮之后会出现如下的界面
24
可以看到，我们刚才安装的驱动程序已经出现在列表中了，选中它，然后单击完成，此时会出来下面的界面
按上图所示，填写好各项连接所需要的信息点击“Test”可以进行测试，如果出现sucessful字样就表示成功了
我解释一下填写的信息：
25
Data Source Name:缩写就是DSN，中文翻译过来就是数据源名称，就是给数据源取个名，为了安全还是取英文名吧，省得出现意外。
Description:描述，可填可不填，我比较懒，就没填，想填也行，就是描述一下这个数据源是哪家的，干啥用的等等，随便吧
Server:服务器，不能省，我填的是localhost，如果你有远程主机，不妨试试填上远程主机的IP地址，我没试过，不清楚
User:用户名，我本地数据库用的是root，你们如果有别的就根据自己的情况填吧
Password:密码，我没设置密码，有则填之，没有就留空
Database:数据库，这是一个listbox，可以自己填，也可以从下拉列表中选，如果你前面的Server，User，Password都正确的话，下拉列表中会出来可选的数据库，这个就是我们要连接的数据库资源。
解释完毕，点了OK之后，我们就算设置完成了。
附 录
附录A 核心程序代码
Dim i As Integer
Dim c
Private Sub Dgr_Sjll_Click()
On Error Resume Next
If Adodc1.Recordset.RecordCount > 0 Then
Text(0).Text = Adodc1.Recordset.Fields(0)
Text(1).Text = Adodc1.Recordset.Fields(1)
Text(2).Text = Adodc1.Recordset.Fields(3)
Text(3).Text = Adodc1.Recordset.Fields(4)
DT1.Value = Adodc1.Recordset.Fields(2)
Text(4).Text = Adodc1.Recordset.Fields(5)
Text(5).Text = Adodc1.Recordset.Fields(6)
26
Text(6).Text = Adodc1.Recordset.Fields(7)
Text(7).Text = Adodc1.Recordset.Fields(8)
Txt_Date.Text = Adodc1.Recordset.Fields(9)
Txt_lxr.Text = Adodc1.Recordset.Fields(10)
End If
For i = 0 To 7
Text(i).Locked = False
Next i
End Sub
Private Sub DT1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text(2).SetFocus
End If
End Sub
Private Sub Form_Load()
DT1.Value = Date '使日期控件中显示当前系统的日期时间
Call LoadFile '调用事件过程，在窗体文本框中显示数据
For i = 1 To 7
Text(i).Locked = True
Next i
Adodc1.ConnectionString = PublicStr '连接数据库
Adodc1.RecordSource = "huiyijilu"
Dgr_Sjll.Refresh
Call DBGCon
End Sub
Private Sub Tbr_xxcz_ButtonClick(ByVal Button As MSComctlLib.Button) 27
Select Case Button.Key
Case "Add"
Call Tbr_cortrol(Tbr_xxcz, False)
For i = 0 To 7
Text(i).Locked = False
Text(i).Text = ""
Text(0).SetFocus
Next i
AdoRs.Open "select * from huiyijilu order by 编号", Cnn, adOpenKeyset
AdoRs.MoveLast
StrNum
Len(AdoRs.Fields("编号"))) = Mid(AdoRs.Fields("编号"), 2,
Call Con_PublicNum '调用位数转换函数 Text(0).Text = "C" & StrIn
AdoRs.Close
DT1.Value = Date
Case "Del" '删除信息
Call Deletes
Call DBGCon
Case "Edit" '修改信息
Call Edits
Call DBGCon
Case "Save" '保存信息
Call Saves
Call DBGCon
Case "Cancel"
Call Tbr_cortrol(Tbr_xxcz, True)
For i = 1 To 3
Text(i).Text = ""
Text(1).SetFocus
Text(i).Locked = True
Next i
28
Adodc1.RecordSource = "select * from huiyijilu order by 编号" Call DBGCon
Case "Exit"
Unload Me
End Select
End Sub
Private Sub text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
If Index = 1 Then
DT1.SetFocus
Exit Sub
Exit Sub
End If
End If
If Index < 8 And KeyCode = 38 Then Text(Index - 1).SetFocus
If Index >= 0 And KeyCode = 40 Then Text(Index + 1).SetFocus
If Index >= 0 And KeyCode = 13 Then Text(Index + 1).SetFocus
If Index = 7 And KeyCode = 13 Then
Call Saves
End If
End Sub
Private Sub Saves() '保存信息的事件过程
If Text(0).Text = "" Or Text(1).Text = "" Or Text(4).Text = "" Or Text(5).Text = "" Then
MsgBox "重要信息不能为空值", 48, "提示信息"
Else
AdoRs.Open "select * from huiyijilu where 会议主题='" + Text(1).Text + "'", Cnn, adOpenKeyset
29
If AdoRs.RecordCount > 0 Then
MsgBox "该信息已经存在", 48, "提示信息"
AdoRs.Close
Else
AdoRs.Close
c = MsgBox("确认保存信息吗?", 33, "提示信息")
If c = vbOK Then
Set AdoRs = Cnn.Execute("insert into huiyijilu values('" & Text(0) _
& "','" & Text(1) & "','" & Str(Format(DT1.Value, "yyyymmdd")) & "','" & Text(2) & "','" _
& Text(3) & "','" & Text(4) & "','" & Text(5) & "','" & Text(6) & "','" & Text(7) & "',' ',' ')")
MsgBox "数据保存成功", 64, "提示信息"
Adodc1.RecordSource = "select * from huiyijilu order by 编号"
Else
End If
End If
Call Tbr_cortrol(Tbr_xxcz, True)
End If
End Sub
Private Sub Edits() '修改信息的事件过程
c = MsgBox("确认修改信息吗?", 33, "提示信息")
If c = vbOK Then
Set AdoRs = Cnn.Execute("UPDATE huiyijilu SET 编号='" + Text(0) + "',会议主题='" + Text(1) + "',时间='" + Str(DT1.Value) + "',地点='" _
+ Text(2) + "',主持人='" + Text(3) + "',记录人='" + Text(4) + "',会议记录='" + Text(5) + "',主题词='" + Text(6) + "',备注='" + Text(7) _
+ "',记录修改日期='" + Str(Date) + "',记录修改人='" + Name1 + "' where 编号='" + Text(0).Text + "'")
MsgBox "数据修改成功", 64, "提示信息"
30
Adodc1.RecordSource = "select * from huiyijilu order by 编号" 'Adodc1.Refresh
StrId = Text(0).Text
StrTitle = Text(1).Text
Call DBGCon
Else
End If
End Sub
Private Sub LoadFile()
On Error Resume Next
AdoRs.Open "select * from huiyijilu", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
Text(0).Text = AdoRs.Fields(0)
Text(1).Text = AdoRs.Fields(1)
Text(2).Text = AdoRs.Fields(3)
Text(3).Text = AdoRs.Fields(4)
DT1.Value = AdoRs.Fields(2)
Text(4).Text = AdoRs.Fields(5)
Text(5).Text = AdoRs.Fields(6)
Text(6).Text = AdoRs.Fields(7)
Text(7).Text = AdoRs.Fields(8)
Txt_Date.Text = AdoRs.Fields(9)
Txt_lxr.Text = AdoRs.Fields(10)
End If
AdoRs.Close
End Sub
Private Sub Deletes() '删除信息
c = MsgBox("确认删除该信息吗?", 17, "提示信息")
If c = vbOK Then
Set AdoRs = Cnn.Execute("Delete huiyijilu from huiyijilu where 编号='" + Text(0).Text + "'")
Adodc1.RecordSource = "select * from huiyijilu order by 编号" 31
End If
For i = 0 To 7
Text(i).Text = ""
Next i
End Sub
Private Sub DBGCon()
Dgr_Sjll.Columns(0).Caption = "编号"
Dgr_Sjll.Columns(1).Caption = "会议主题" Dgr_Sjll.Columns(2).Caption = "时间" Dgr_Sjll.Columns(3).Caption = "地点" Dgr_Sjll.Columns(4).Caption = "主持人" Dgr_Sjll.Columns(5).Caption = "记录人" Dgr_Sjll.Columns(6).Caption = "会议记录" Dgr_Sjll.Columns(7).Caption = "主题词" Dgr_Sjll.Columns(8).Caption = "备注"
Dgr_Sjll.Columns(9).Caption = "记录修改时间" Dgr_Sjll.Columns(10).Caption = "记录修改人" End Sub
32