VB数据库开发

5. 有效(Enabled)检查框
6. 可见(Visible)检查框
弹出菜单(快捷菜单)
表示弹出的位置 显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。 和触发的键
PopupMenu方法建立弹出菜单。
形式： [对象.]PopupMenu 菜单名, 标志, x, y 位 置 性 能
0：X 位置确定弹出菜单的左边界 4：弹出菜单以X为中心 8：X 位置确定弹出菜单的右边界

Private Sub Command1_Click() Ad1.RecordSource = "team": Ad1.Refresh Ad1.Recordset.MoveFirst Ad1.Recordset.find "姓名='" + Text1.Text + "'" If Ad1.Recordset.EOF Then x = MsgBox("没有该用户，重新输入吗？", vbYesNo, "错误！") If x = vbYes Then Exit Sub Else End End If If Ad1.Recordset.Fields(1) = Text2.Text Then Unload Form1: Form2.Show: Exit Sub x = MsgBox("密码错误，重新输入吗？", vbYesNo, "错误！") If x = vbYes Then Exit Sub Else End End Sub
程序代码

Case "find" Unload Me frmex27_frm2.Show
Case "exit" MsgBox "欢迎使用VB数据库应用程序，感谢各位用户的 支持和厚爱！" old = MsgBox("要退出该用于程序吗？", vbYesNo) If old = vbYes Then End End If End Select End Sub
2.在窗体上布置一个ADODC控件，在ADODC上， 单击鼠标右键，在快捷菜单中选取“ADODC属性” 命令设置其属性。
3.ADODC控件属性设置：在“属性页”设置通用 选项（数据链接属性） 。再在“属性页”设置记 录源选项
选取
数据链接属性对话框
OLE DB提供者
选取
数据链接属性对话框
链接
选择或输入数据库名称
一、在ImageList控件中添加图象
ImageList控件不单独使用，专门为其它控件提供图像库.
索引（Index）、
关键字（Key） 在ToolBar中引用 图象文件的扩展名 为： .ico、.bmp、. gif、.jpg等
二、在ToolBar控件中添加按钮
1.为工具栏连接图象
ToolBar与 ImageList的连接
基本参数：provider和Data Source Provider：制定存取数据库所使用的OLE DB 驱动程序。 Data Source：指定数据库文件的完整路径和文件名。

进一步完善系统主界面

建立菜单的步骤:



建立窗体,添加控件; 启动菜单编辑器(“工具”/“菜单编辑器”); 设置各菜单项; 为相应的菜单项添加编写事件过程.
菜单上的 说明文字 Caption
属性设置
控件名称
简单的编 辑按钮 将子菜单 向上或下 移一级
菜单编辑器
菜单显示区
回到ADODC属性页，选取“记录源”选项， 设置“命令类型”并选择具体的数据表。


在窗体上布置DataGrid控件，然后将它的 DataSource属性设置为“Adodc1”(这是ADODC控 件的名称)。 按F5执行程序
ADODC的属性及参数

ConnectionString(连接字符串)属性
DataGrid控件的属性


DataSource（数据源）属性 此控件不能直接存取数据库中的数据，因此需将 此属性设置成某一个ADODC控件，才能够具备存 取数据库的能力。 AllowAddNew（允许新增）属性 AllowDelete（允许删除）属性 AllowUpdate（允许更新）属性
程序代码



Case "last" Adodc1.Recordset.MoveLast Case "add" Adodc1.Recordset.AddNew Toolbar1.Buttons("delete").Enabled = False Text1.SetFocus
程序代码
创建主窗体
创建工具栏
首先添加ToolBar和ImageList控件到工具箱； 步骤： 1.工程/部件选“Microsoft Windows Common Control 6.0” 2. ToolBar控件包含用来创建工具栏的按钮对象集合； ToolBar可以拥有文本和相关联的ImageList提供的图 像； 3.ImageList控件的属性创中选择图像标签； 4.设置按钮属性：索引(1)，标题(第一个)，关键字(First)， 样式(0-tbrDefault)，工具提示文本(单击此按钮查看第 一个记录)，图像(1)。 5.根据题意添加8个按钮
VB数据库开发-案例
数据库应用系统结构
数据库 服务器
SQL Server
应用 界面
VB应用程序
数据库访问接口 VB数据库访问控件
主要内容

案例-一个教务管理系统的开发 附录：

数据库连接控件 数据显示控件
案例—教务管理系统的开发

实例目标
首先创建一个名为“教务”的数据库，然后使 用Vb程序浏览和访问数据库。
启动菜单编辑器：
1、工具／菜单编辑器(CTRL+E) 2、窗体上快显菜单／菜单编辑器
常用属性：
菜单项属性 操作按钮 菜单列 表框 1. 标题(Caption) 热键：前面加&
2. 名称(Name)文本框 分隔符也应有名称。
3. 快捷键(Shortcut) 菜单名没有快捷键 4. 复选(Checked)检查框 TRUE 有
进一步完善登陆窗口
Private Sub cmdOK_Click() '测试密码是否正确 If txtPassword.Text = "" Then OK = True Me.Hide Else MsgBox "密码错误，再试一次！", , "登录" txtPassword.SetFocus txtPassword.SelStart = 0
ADODC控件（可以连接所有数据库）
设置参数：Connection—选择数据库驱动程序和数据库 名 RecordSource—连接的数据源类型
ADODC数据控件的使用步骤:
1.引用数据库控件引擎 选取VB菜单的“工程/部件” 命令，待出现“部件”对 话框时，选取其中的 Microsoft ADO Data Control 6.0(OLEDB)和 Microsoft DataGrid Control6.0(OLEDB)选项。
txtPassword.SelLength = Len(txtPassword.Text)
End If End Sub
附录：
数据连接控件 数据显示控件

数据库连接控件
Data控件（不能连接SQLServer）
设置参数：Connect—数据库类型（如Access或Excel） DatabaseName—数据库的逻辑路径 RecordSource—连接的数据库中的表名
加入数据连接控件
1、数据连接控件（ADODC） ADODC控件（可以连接所有数据库）
设置参数：Connection—选择数据库驱动程序和 数据库名 RecordSource—连接的数据源类型
加入数据显示控件
1、添加标签控件Label，说明显示内容； 2、添加文本控件Text,先是数据库中的内容； 3、根据数据库中表的属性内容，分别添加10个 Label和9个Text。其中性别使用Checkbox控件。 4、分别设置Text的Datasource(数据源属性)为 Data或ADODC，DataField（数据域）为相应 的表属性名。 5、数据表格显示控件DataGrid
通过ToolBar、ImageList组合使用建立工具栏，步骤： 1. “Microsoft Windows Common Controls 6.0”将控件添加到工具箱 2.在ImageList控件中添加所需的图象 3.在ToolBar控件中创建Button对象。 4.在ButtonClick事件中用Select Case语句对各按钮进行相应的编程。
程序代码

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Dim news, old Select Case Button.Key Case "First" Adodc1.Recordset.MoveFirst Case "previous" Data1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End If Case "next" Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End If

技术要点
静态查询和SQL语言的使用； 使用ToolBar和ImageList控件制作工具栏。
实现步骤


创建数据库 创建主窗体 添加工具栏按钮控件：ToolBar和ImageList控件 添加数据库连接控件 添加数据显示控件 编写代码
建立教务数据库
创建登陆模块

0：只能用鼠标左键触发弹出菜单； 2：能用鼠标左、右键键触发弹出菜单；
位置与性能是加的关系。
Private Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditPop, 8, 200, 200 End If End Sub
工具栏样式
2.为工具栏增加按钮
索引（Index）、关键字（Key）每个按钮 的编号、标识,ButtonClick事件中引用；
样式(Style)，共6种
图象(Image) ImageList对象中的 图象值可以是Key或Index
除菜单按钮(5)外的5种样式
Style=0
Style=3
Style=4
Style=1
Style=2
三、 响应ToolBar控件事件
Байду номын сангаасToolBar控件常用的事件有两个：ButtonClick和ButtonMenuClick。前者对 按钮样式为0-2，后者对样式为5的菜单按钮。 （1）用索引Index确定按钮 (2)用关键字Key确定按钮
Private Sub Toolbar1_ButtonClick(Byval Button As ComctlLib.Button) Select Case Button.Key Select Case Button.Index Case 1 Case "TNew" FileNewProc FileNewProc Case 2 Case "TOpen" FileOpenProc FileOpenProc …… ..... End Select End Sub 注意：第1个按钮的Index值为1。用Index还是用Key比较，Key 可读 性好，可维护性好。


Case "delete" '设置一个错误陷阱 On Error Resume Next news = MsgBox("一定要删除该记录吗？", vbYesNo) If news = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If