第12章 数据库功能Word文档格式.docx

1、02018程国庆820.001150.00技术03028方芳668.00998.0002003冯文清生产01011冯玉霞258.00300.00100.001101030705.0004058韩进军05012李明华492.00822.002录与字段 记录（Record）：表中的每一行。 字段（Field）：表中的每一列。3关键字候选关键字：若表中某字段值能唯一确定一个记录，称该字段 为候选关键字。如，“编号”，“姓名”组合关键字：“编号”+“姓名”主关键字：对表中的每个记录，主关键字必须具有唯一的值， 并且不能为空值。4索引索引：对表按照某种特定的顺序进行保存或排列。作用：快速查找。1212

2、数据访问对象模型 ADOActiveX数据对象; RDO远程数据对象; DAO数据访问对象。1213 结构化查询语言SQL1214 数据库的分类 Jet数据库 由Jet引擎直接生成和操作，灵活速度快，Access和VB使用相同的Jet数据库引擎； ISAM数据库 索引顺序访问方法数据库，如: Dbase、FoxPro、Paradox等，VB可生成和操作这些数据库；ODBC数据库 客户/服务器数据库，如: Microsoft SQL Server、Oracle、Sybase等, VB可使用任何支持ODBC标准的数据库。122 数据管理器的使用 VB提供一个非常实用的可视化数据管理器（Visual

3、 Data Manager）1221 建立一个数据库1. 启动数据管理器（1） 外接程序 可视化数据管理器（2）直接执行VisData.exe程序2. 建立Access 数据库（1） 文件 新建 Microsoft Access Version 7.0 MDB （2） 输入数据库名：RSGL.MDB，保存文件夹：LZY-VB（3） 单击 保存 按钮，出现“数据库窗口”和“SQL语句”两个子窗口。单击“数据库窗口”中的“+”号，列出新建数据库的常用属性。 .MDB文件是Access 数据库文件，它可包含多个二维关系的数据表, 每个数据表不是以文件方式存于磁盘, 而是包含在数据库文件中。3. 打开

4、数据库 打开数据库 rsgl.mdb 打开 （2） 在资源管理器中，找到要打开的文件，双击之1222 添加数据表1 建立数据表结构 职工工资结构表 字段名称类型字段长度索 引Text4编号8主索引姓名Integer2Single2数据表的建立步骤： （1） 文件 Microsoft Access rsgl.mdb 右单击数据库窗口, 选择“新建表”, 弹出“表结构”对话框； （2）在表名称栏输入：职工工资； （3）单击添加字段按钮, 弹出“添加字段”对话框, 输入字段的名 称、类型、大小等，一个字段完成后按确定，所有字段完成 后按关闭，返回“表结构”对话框； （4）单击添加索引按钮, 弹出“添

5、加索引”对话框, 输入索引名 等, 完成后按关闭，返回“表结构”对话框； （5）在“表结构”对话框中, 单击生成表 关闭。3改数据表结构 （1）打开修改表所在的数据库, 右单击修改表的表名, 选择“设计” （2）在“表结构”对话框中, 完成有关修改后, 按关闭。1223 数据的增、删、改1 工具栏（1）记录集类型按钮 表类型记录集：直接对记录进行增、删、改 动态集类型记录集：先内存进行增、删、改，速度快 快照类型记录集：只读不写，适于查询（2）数据显示按钮 使用Data控件、不使用Data控件、使用DBGrid控件 （3）事务方式按钮（打开数据表时有效, 否则出错） 开始事务：开始将数据写入内

6、存数据表中 回滚当前事务：取消由“开始事务”的写入操作 提交当前事务：确认数据写入的操作，数据表更新，不能恢复2 记录的输入、修改与删除在数据库窗口中，双击或右单击要操作的数据表，选择打开1224 查询1225 数据窗体设计器（1） 新建一个标准EXE工程；（2） 在可视化数据管理器中 实用程序 数据窗体设计器;（3） 单击生成窗体, 自动前置frm;（4） 运行前, 移除Form1, 设置frm。1226 数据控件与数据感知控件1数据控件的常用属性、方法和事件2据绑定控件3示例分析【例12-1】通过手工方式建立一个简单的工资管理系统，如下所示。分析：建立Data1，其Align属性为2-Al

7、ign Bottom；增加标签控件数组Label1（0） Label1（9）；增加文本控件数组Text1（0） Text1（9）；增加命令控件数组Command1（0） Command1 （2）。程序：Private Sub Command1_Click（Index As Integer） If Index = 0 Then Data1.Recordset.AddNew 添加 If Index = 1 Then Data1.Recordset.Delete: Data1.Recordset.MoveNext If Index = 2 Then Unload Me 关闭End SubPrivat

8、e Sub Data1_Reposition（） 显示记录次序 On Error Resume Next 发生错误时转下一语句 Data1.Caption = 记录： & （Data1.Recordset.AbsolutePosition + 1）Private Sub Text1_Validate（Index As Integer, Cancel As Boolean） 计算 Dim A（3 To 8） As Single Select Case Index Case 3 To 8 For I = 3 To 8: A（I） = Val（Text1（I）.Text）: Next I Text1

9、（9）.Text = A（3） + A（4） + A（5） + A（6） - A（7） - A（8）计算实发工资 End Select123 ADO数据对象访问技术VB 6.0出的ADO（Active Data Object）, 是Microsoft未来的数据访问策略,将逐步代替远程数据对象（RDO）和数据访问对象（DAO）, 而成为主要的数据访问接口。 VB 6.0供了Access/jet、ODBC、ORACEL、SQL Server等OLE DB数据源，ADO访问数据是通过OLE DB来实现的，它是连接应用程序和OLE DB数据源之间的桥梁。1231 ADO编程模型简介1连接（Connec

10、tion）对象2命令（Command）对象3记录集（Recordset）对象1232 使用ADO命令【例12-2】使用ADO Data命令建立的工资管理数据窗体。 Dim cnn As ADODB.Connection 声明连接对象变量Dim rst As ADODB.Recordset 声明记录对象变量Private Sub Form_Load（） S=”Provider = Microsoft.jet.OLEDB.3.51;Persist Security Info = False;” & “Data Source = d:VB61xrsgl.mdb” Cnn.CursorLocaton

11、= adUseClient Cnn.open s Rst.Open ”职工工资”,cnn.adopenStartic.adLockOptimistic For Each aa In text1Set aa. DataSource = rst 绑定所有文本框到记录源 next Combo1.AddItem 全体 组合框初始化保卫:财务技术生产 Combo1.Text = Combo1.List（0） Case 0 rst.MoveFirst Case 1 rst.MovePrevious If rst.BOF（） Then rst.MoveFirst Case 2 rst.MoveNext If

12、 rst.BOF（） Then rst.MoveLast Case 3 rst.MoveLastPrivate Sub Combo1_Click（） t = Combo1.Text If t = Then rst.Filter = Else rst.Filter = 部门 = t & Rst.Resync AdAffectAllChapters End Sub1233 使用ADO控件1添加ADO Data控件工程 部件 选Microsoft ADO Data Control 6.0（OLEDB） 确定2ADO Data控件的属性（1）单击ADO Data控件，选择“ADODC属性”；（2）单选

13、“使用连接字符串” 生成 提供者 Microsoft Jec 3.51 OLE DB Provider 下一步 所选数据库路径和名字 测试连接 测试连接成功 确定 “属性页”（3）设置CommandType、RecordSource在“属性页” 记录源 命令类型: “2-adCmTable” 表名称: “职工工资” 3ADO Data控件对数据的操作 ADO Data控件对数据的操作主要由Recordset对象的属性与方法来实现, 参见表12-16。4使用ADO Data控件【例12-3】使用ADO Data控件建立的工资管理数据窗体。（1） ADO Data控件建立Adodc1，其 Alig

14、n属性：2-vbAlign Bottom；ConnectionString属性：rsgl.mdb；CommandType属性：2-adCmTable；RecordSource属性：职工工资。（2）增加标签控件数组Label1（0） Label1（9）；（3）Text1（）的DataSource属性: Adodc1; Text1（）的DataField属性: 依次为部门、编号、姓名等。 Case 0 添加/确定 If Command1（0）.Caption = 添加（&A） Then Command1（0）.Caption = 确定（&O） Command1（1）.Caption = 取消（&C

15、） Adodc1.Recordset.AddNew aa （False） 按钮3、4隐藏 Else编辑（&E） Adodc1.Recordset.UpdateBatch adAffectAll aa （True） 按钮3、4显示 End If Case 1 编辑/取消 If Command1（1）.Caption = Adodc1.Recordset.CancelUpdate Adodc1.Refresh Case 2 删除 Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Case 3 关闭 Unload MePrivate Sub aa（I

16、 As Boolean） 按钮显示和文本加锁切换 Dim oTxt As TextBox For Each oTxt In Text1 oTxt.Locked = I Next Command1（2）.Visible = I Command1（3）.Visible = IPrivate Sub Text1_Validate（Index As Integer, Cancel As Boolean）Private Sub Adodc1_MoveComplete（ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error,

17、 adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset） Adodc1.Caption = （Adodc1.Recordset.AbsolutePosition）End Sub 显示记录信息1234 使用数据环境设计器除了使用ADO Data控件外，还可用数据环境设计器（Data Environ-ment）建立ADO数据访问的数据源。方法如下：1向工程添加数据环境 更多ActiveX设计器 Data Environment 2创建连接对象 右单击Connection1 选“属性” Microsoft Jet

18、 3.351 经OLE DB Provider 选择所所需的数据库路径和名字 测试成功 3创建命令对象右单击Connection1 选添加命令 选中Command1对象, 单击工具栏中的属性 数据库对象选“表” 对象名称选 “职工工资” 4使用数据环境【例12-4】在例12-2的数据查看中使用数据环境。（1）建立用户界面（同例12-2）；（2）按上所述，添加数据环境DataEnvironment1，创建Connec-tion1和Command1对象；（3）设置Text1（08）的DataSource属性为DataEnvironment1,Dada- Member属性为Command1, Dat

19、aField属性为编号、姓名等。 DataEnvironment1.rsCommand1.MoveFirst DataEnvironment1.rsCommand1.MovePrevious If DataEnvironment1.rsCommand1.BOF（） Then DataEnvironment1.rsCommand1.MoveFirst DataEnvironment1.rsCommand1.MoveNext If DataEnvironment1.rsCommand1.BOF（） Then DataEnvironment1.rsCommand1.MoveLast DataEnvi

20、ronment1.rsCommand1.MoveLast Then DataEnvironment1.rsCommand1.Filter = Else DataEnvironment1.rsCommand1.Filter = 1235 创建数据报表数据环境的另一重要应用是为“数据报表设计器”提供数据源是，数据报表（DataReport）设计器是VB 6.0新增的功能，与数据环境设计器配套使用，可以完成大多数类型报表的设计，是一种简单实用、高效快捷、功能齐全的报表设计工具。 【例12-5】在例12-4中用数据报表设计器，设计工资报表。1设计数据环境 在12-4的基础上，再作如下设计：、2添加DataReport 3设计报表中介面：、4编写代码5运行报表综合练习1 功能模块图：本章考核要求：1识记数据库、表等基本概念、ADO数据对象等基本概念；2领会掌握“可视化数据管理器”的使用方法；3简单应用：掌握例1的编程方法；4综合应用：掌握例3的编程方法。课后作业：习题9-7、习题9-8、习题9-9、习题9-10