Click事件：鼠标单击控件时发生。
DragDrop事件：在一个完整的拖放动作完成或使用Drag方法，并将其Action参数设置为2时发生。
DragOver事件：在拖放操作正在进行时发生。
GotFocus事件：在对象获的焦点时发生。，
OLECompleteDrag事件：当源部件被放到目标时发生，并通知源部件拖放操作被执行或取消。
OLEDragDrag事件：当源部件决定放操作能发生，却源部件被放到目标部件时，此事件发生。
框架类的控件：
1) List属性：列表框控件的表项是使用数组的方式保存,数组的每一个元素存储列表控件的一个表项
Listcount属性:控件列表部分项目的个数。
Mutselect属性:可以设置列表框为单选或允许多选属性.
Selectd属性:标示一个数组,数组各元素为:
Selected(0),selected(1)…
滚动条类的控件：
Value属性：滚动条上滑块所在位置由value值所决定。
Max和min属性：对value值的最大,最小进行限制。
Largechange属性：用户点击滚动条与键头之间的区域时,value的改变量。
4) OnClick事件：用来添加按钮的单击事件所执行的程序代码。
定时器类类的控件：
Interval属性：表示定时的时间间隔,以毫秒为单位。
Enable属性:为true时(缺省值),激活定时器开始计时;为false时处于休眠状态.
数据库连接方式选择
Visual basic6.0连接数据库的主要方式以下几种方式：一是：用data控件进行数据库链接 ，二是利用adodc（ADO Data Control)进行数据库链接 。三是: 利用DataEnvironment进行数据库链接.四是利用ADO(ActiveX Data Objects)进行编程
:现在我们来大致对这几种技术应用介绍：
用data控件进行数据库链接.
第一步：给窗体添加一个Data控件。第二步：用Access建立一个名为Pad的数据库，在库中建立一个表Myset，给表添加四个字段：backcolor（数据），forecolor(文本），fontname(文本）,fontsize（文本）。注意：请将库文件存入程序所在目录。 如果你的机器没安装有Access，可通过VB建库。
利用adodc（ADO Data Control)进行数据库链接：
使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作.
利用DAO对数据库进行操纵:
在visual basic 中提供了两种与jet数据引擎接口的方法:data控件与数据访问对象(DAO)DAO是database object的英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的支持.DAO模型是设计关系数据库系统结构的对象类的集合.他们提供了管理关系型数据库系统所需要的全部操作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等.
关系数据库介绍:
关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。在数据库发展的历史上，最重要的成就就是关系模型。 关系数据库系统与非关系数据库系统的区别是：关系系统只有“表“这一种数据结构；而非关系数据库系统还有其他数据结构，对这些数据结构有其他的操作。
结构化查询语言SQL（Structured Query Language）是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言
Microsoft Access介绍:
使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。 如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。 如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。
系统的分析
系统的分析
系统开发的目标和思想
本系统开发目标是服务于高速公路收费管理人员,方便工作人员,对过往车辆收费,发放收费票据记录,对信息的分类管理等.
同时力求做到界面人性化,功能齐全,数据存储安全.
系统的可行性分析
技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于高速公路收费管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大司机朋友,以及乘客.所以具有社会可行性.
系统的设计
系统的功能结构设计
3．2 系统的数据库设计
1:数据表:
2:sfyinfo表设计:
3:用户信息表:
界面设计与代码设计
1:登陆界面设计:
代码分析:
Dim flagpassword As String
Dim flagadmin As String
Option Explicit
Private Sub cmdcancel_Click()
Me.Hide
End Sub
Private Sub cmdok_Click()
Dim conlogin As New ADODB.Connection
Dim rstlogin As New ADODB.Recordset
If Len(Trim(txtgonghao.Text)) = 0 Then
MsgBox "工号为空，请重新输入！！", vbOKOnly