第十二章数据库编程技术.pptVIP

;学习重点; 12.1 数据库的基本知识 12.2 SQL语言 12.3 可视化数据管理器 12.4 Data控件 12.5 应 用 举 例 ;12.1 数据库的基本知识;1．数据（Data） ;12.1.3 关系数据库 ;SQL语言由命令、子句、运算和函数等组成。 ;分 类; 完整的SQL语句在不同的命令后面还要加上相应的子句，用运算符实现表达式的连接（包括算术运算符、比较运算符和逻辑运算符），对于常用的运算还可以利用统计函数进行操作。SQL语言中的统计函数包括SUM（求和）、AVG（求平均值）、MAX（求最大值）、MIN（求最小值）、COUNT（求记录个数）等。 ;CREATE TABLE表名 (列名 数据类型 （长度） [，列名 数据类型 （长度）…] ) ;2．修改基本表 ;3．删除基本表 ;12.2.3 DML ;2．插入;3．删除 ;4．修改 ;12.3 可视化数据管理器 ;3．建立数据表;12.3.2 建立查询 ;12.4.1 Data控件的属性;;例12-8 ;12.4.2 Data控件的事件 ;12.4.3 Data控件的方法 ;1．记录的定位 ;2．记录的添加和删除 ;3．记录的查找 ;（2）Find方法组是针对记录集的查找，包括4种方法。 ① FindFisrt方法：查找满足条件的第1条记录。 ② FindLast方法：查找满足条件的最后一条记录。 ③ FindPrevious方法：从当前记录开始查找满足条件的上一条记录。 ④ FindNext方法：从当前记录开始查找满足条件的下一条记录。 ;Data1.Recordset.. FindFirst 所在学院=’01’ If Data1.Recordset.NoMatch MsgBox “没找到” EndIf 若找到符合条件的记录，则定位在所在学院为“01”的第1条记录上 ;12.5 应 用 举 例 ;标 题 ;（1）班级信息窗体界面及代码参考例12-8。 （2）学院信息窗体中用命令按钮实现记录的无条件定位 。部分核心代码如下。;Private Sub Commandp_Click() ”前一个“按钮 If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录！ Else If Data1.Recordset.BOF Then MsgBox “这是第一条记录！”：Data1.Recordset.MoveFirst Else Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst：MsgBox 这是第一条记录！ End If End If End If End Sub ;Private Sub Commandn_Click() ”后一个“按钮 If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录！ Else If Data1.Recordset.EOF Then MsgBox “这是最后一条记录！”：Data1.Recordset.MoveLast Else Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast：MsgBox 这是最后一条记录！ End If End If End If End Sub ;Private Sub Commandl_Click() ”最后一个“按钮 If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录！ Else Data1.Recordset.MoveLast End If End Sub ;Private Sub CommandAdd_Click() ”添加“按钮 If CommandAdd.Caption = 添加 Then Commandf.Enabled = False： Command