第12章 数据库编程技术.ppt

第第12章章 数据库编程技术数据库编程技术 学习重点学习重点l数据库的基本理论。数据库的基本理论。lSQL语言。语言。l数据库的建立和记录的操作。数据库的建立和记录的操作。l Data控件的使用。控件的使用。n12.1 数据库的基本知识数据库的基本知识 n12.2 SQL语言语言 n12.3 可视化数据管理器可视化数据管理器 n12.4 Data控件控件 n12.5 应应 用用 举举 例例 本章内容本章内容12.1 数据库的基本知识数据库的基本知识12.1.1 数据库的发展历史数据库的发展历史 网网状状和和层层次次数据库系统数据库系统 关关系系数数据据库系统库系统 面面向向对对象象数数据据库系统库系统 关系模型使用最广泛。1数据（数据（Data）12.1.2 数据库的基本概念数据库的基本概念 2 2数据库（简称数据库（简称DBDB）3 3数据库管理系统（简称数据库管理系统（简称DBMSDBMS）4 4数据库系统（简称数据库系统（简称DBSDBS）例如，（王华，男，例如，（王华，男，1987，计算机专业，江苏），计算机专业，江苏），这个学生记录就是数据。这个学生记录就是数据。12.1 数据库的基本知识数据库的基本知识12.1.3 关系数据库关系数据库 关系数据库是目前各类数据库中最重要、关系数据库是目前各类数据库中最重要、最流行的数据库，它用数学方法来处理数据最流行的数据库，它用数学方法来处理数据库中的数据。库中的数据。12.1 数据库的基本知识数据库的基本知识SQL语言由命令、子句、运算和函数等组成。语言由命令、子句、运算和函数等组成。12.2.1 SQL语言的组成语言的组成 12.2 SQL语言语言 分 类命 令功 能 说 明DDLCREATE建立新的基本表、视图、索引ALERT修改数据结构DROP删除数据结构常用常用SQL命令命令 分 类命 令功 能 说 明DMLINSERT添加记录UPDATE修改记录DELETE删除记录SELECT查找满足特定条件的记录常用常用SQL命令命令 12.2 SQL语言语言 完完整整的的SQL语语句句在在不不同同的的命命令令后后面面还还要要加加上上相相应应的的子子句句，用用运运算算符符实实现现表表达达式式的的连连接接（包包括括算算术术运运算算符符、比比较较运运算算符符和和逻逻辑辑运运算算符符），对对于于常常用用的的运运算算还还可可以以利利用用统统计计函函数数进进行行操操作作。SQL语语言言中中的的统统计计函函数数包包括括SUM（求求和和）、AVG（求求平平均均值值）、MAX（求求最最大大值值）、MIN（求求最最小小值值）、COUNT（求求记记录录个个数）等。数）等。12.2 SQL语言语言 CREATE TABLE(数数据据类类型型（长长度度），数数据据类类型型（长长度度）)12.2.2 DDL 1定义基本表定义基本表 例例12-1 bj表表有有3个个字字段段，分分别别是是bjbh（班班级级编编号号，Text(2)），bjmc（班班级级名名称称，Text(50)），rs（人人数数，Integer）。）。语句为：语句为：CREATE TABLE bj(bjbh Text(2),bjmc Text(50),rs Integer)是所要定义的是所要定义的基本表的名字，可以有基本表的名字，可以有一个或多个属性组成。一个或多个属性组成。12.2 SQL语言语言 2修改基本表修改基本表 ALERT TABLE ADD COLUMN 数据类型数据类型（长度）（长度）|DROP COLUMN 例例12-2 在在bj表中删除字段表中删除字段rs，语句如下：语句如下：ALERT TABLE bj DROP COLUMN rsADD子句用于增加字段，DROP子句用于删除指定的完整性约束条件。12.2 SQL语言语言 3 3删除基本表删除基本表 DROP TABLE 例例12-3 删除删除bj表，语句如下：表，语句如下：DROP TABLE bj 12.2 SQL语言语言 12.2.3 DML 1 1查询查询 SELECT ALL|DISTINCT，FROM ，WHERE GROUP BY HAVING ORDER BY ASC|DESC 例例12-4 现现在在要要查查询询班班级级人人数数在在30人人以以上上的的班班级级编号和班级名称，语句如下：编号和班级名称，语句如下：SELECT bjbh,bjmc FROM bj WHERE rs30 2 2插入插入INSERT INTO，VALUES（，）例例12-5 在在bj表表中中添添加加一一条条记记录录（”08”，”数数字字媒媒体体0701”，30），语句如下：），语句如下：INSERT INTO bj(bjbh,bjmc,rs)VALUES(“08”,”数字媒体数字媒体0701”,30)12.2 SQL语言语言 3 3删除删除 DELETE FROM WHERE例例12-6 删删除除bj表表中中学学生生人人数数少少于于20人人的班级，语句如下：的班级，语句如下：DELETE FROM bj WHERE rs20 12.2 SQL语言语言 4 4修改修改 UPDATE SET=,=WHERE例例12-7 把把bj表中所有班级人数增加一人，语句如下：表中所有班级人数增加一人，语句如下：UPDATE bj SET rs=rs+1 12.2 SQL语言语言 12.3 可视化数据管理器可视化数据管理器 12.3.1 建立数据库建立数据库 1 1可视化数据管理器的启动可视化数据管理器的启动 选择选择“外接程序外接程序”菜单菜单“可视化数据管理器可视化数据管理器”菜单菜单项项 2 2建立数据库建立数据库 选择选择“文件文件”菜单菜单“新建新建”“Microsoft Access”“Version 7.0 MDB”，出现创建数据库对话框。出现创建数据库对话框。3建立数据表建立数据表具体步骤如下：具体步骤如下：（1）打开已经建立的）打开已经建立的Access数据库。数据库。（2）在在数数据据库库窗窗口口中中，单单击击鼠鼠标标右右键键，在在弹弹出出的的快快捷捷菜菜单单中中选选择择“新新建建表表”，利利用用表表结结构构对对话话框框可可以以建建立立数数据表的结构。据表的结构。（3）单单击击“添添加加字字段段”和和“删删除除字字段段”按按钮钮可可以以进进行行字段的添加和删除。字段的添加和删除。（4）单击）单击“添加索引添加索引”按钮可以添加索引表达式。按钮可以添加索引表达式。12.3 可视化数据管理器可视化数据管理器 12.3.2 建立查询建立查询 查询操作可以通过查询操作可以通过“查询生成器查询生成器”来完成。来完成。12.3 可视化数据管理器可视化数据管理器 12.4.1 Data控件的属性控件的属性12.4 Data控件控件 属 性 名功 能 说 明Connect确定Data控件所连接的数据库类型。DatabaseName确定选择要访问的数据库文件RecordSource确定要访问的数据源RecordsetType确定Recordset对象的类型Exclusive确定是否按照独享方式打开数据库Options决定记录集的特征BOFAction/EOFAction决定当该控件位于光标开始或末尾时的行为Private Sub Form_Load()Data1.Connect=Access Data1.DatabaseName=App.Path+class.mdb Data1.RecordSource=“班级表”End Sub 例如例如例例12-8 图中，图中，Data1已经和已经和class.mdb数据库数据库中的班级表实现了连接，中的班级表实现了连接，5个文本框和班级个文本框和班级表中的表中的5个字段实现了绑定个字段实现了绑定。12.4.2 Data控件的事件控件的事件 事 件 名功 能 说 明Reposition当某一记录成为当前记录之后触发Validate当某一记录成为当前记录之前触发ErrorData控件产生执行错误时触发12.4 Data控件控件 12.4.3 Data控件的方法控件的方法 方法名功 能 说 明方 法 名功 能 说 明AddNew添加新记录Refresh更新数据内容Delete删除当前记录UpdateControls恢复原值Edit编辑当前记录Close关闭记录集Update保存记录内容到DBMove组记录定位Seek查找符合条件的记录Find组查找记录12.4 Data控件控件 1记录的定位记录的定位 Move方法组方法组：（1）MoveFirst方法：指针定位到第一条记录。方法：指针定位到第一条记录。（2）MoveLast方法：指针定位到最后一条记录。方法：指针定位到最后一条记录。（3）MovePrevious方法：指针定位到前面一条记录。方法：指针定位到前面一条记录。（4）MoveNext方法：指针定位到后面一条记录。方法：指针定位到后面一条记录。12.4 Data控件控件 2记录的添加和删除记录的添加和删除（1）记录的添加，代码如下。）记录的添加，代码如下。Private Sub CommandAdd_Click()Data1.Recordset.AddNew Data1.Recordset.Update Data1.Recordset.MoveLast End Sub（2）记录的删除，代码如下。）记录的删除，代码如下。Private Sub CommandDelete_Click()Data1.Recordset.DeleteData1.Recordset.MoveLastEnd Sub3 3记录的查找记录的查找 （1）Seek方法是基于索引的查找方法是基于索引的查找 例例如如，当当索索引引字字段段为为“班班级级编编号号”时时，查查找找“001”班级的记录。班级的记录。Data1.Recordset.Seek=,001 Recordset.Seek 比较运算符，关键字比较运算符，关键字1，关键字，关键字212.4 Data控件控件（2）Find方法组是针对记录集的查找，包括方法组是针对记录集的查找，包括4种方法。种方法。FindFisrt方法：查找满足条件的第方法：查找满足条件的第1条记录。条记录。FindLast方法：查找满足条件的最后一条记录。方法：查找满足条件的最后一条记录。FindPrevious方方法法：从从当当前前记记录录开开始始查查找找满满足足条条件件的的上上一一条记录。条记录。FindNext方方法法：从从当当前前记记录录开开始始查查找找满满足足条条件件的的下下一一条条记记录。录。12.4 Data控件控件 Data1.Recordset.FindFirst 所在学院=01If Data1.Recordset.NoMatch MsgBox“没找到”EndIf 若找到符合条件的记录，则定位在所在学院为“01”的第1条记录上 例如例如12.5 应应 用用 举举 例例 例例12-9 利用利用Visual Basic中的中的Data控件制作一个简单的党控件制作一个简单的党员信息管理系统，要求能够实现基本信息的编辑和查询功能。员信息管理系统，要求能够实现基本信息的编辑和查询功能。班级表表结构：班级表表结构：编编号号 Text(3)，班班级级名名称称 Text(50)，人人数数 Integer，党党员员人人数数 Integer，所在学院所在学院 Text(2)学院表表结构：学院表表结构：编号编号 Text(2)，学院名称学院名称 Text(50)其中，班级表中的其中，班级表中的“所在学院所在学院”字段就是学院表中的字段就是学院表中的“编号编号”字段。字段。班班级级表表中中“班班级级名名称称”和和“所所在在学学院院”字字段段建建立立了了索索引引，学学院院表表中中“编编号号”字段建立了索引。字段建立了索引。标 题名 称标 题名 称信息管理(&M)message班级查询clsq班级信息clsm学院查询depq学院信息depm帮助(&H)help信息查询(&Q)query退出系统(&E)exit本例中有一个本例中有一个MDI窗体和若干个窗体和若干个MDI子窗体，子窗体，MDI窗体上建有菜单，菜单结构如下。窗体上建有菜单，菜单结构如下。（1）班级信息窗体界面及代码参考例）班级信息窗体界面及代码参考例12-8。（2）学学院院信信息息窗窗体体中中用用命命令令按按钮钮实实现现记记录录的的无无条条件件定位定位。部分核心代码如下。部分核心代码如下。Private Sub Commandf_Click()”第一个“按钮 If Data1.Recordset.RecordCount=0 Then MsgBox 没有记录！Else Data1.Recordset.MoveFirst End IfEnd Sub 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 IfEnd 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 IfEnd Sub Private Sub Commandl_Click()”最后一个“按钮 If Data1.Recordset.RecordCount=0 Then MsgBox 没有记录！Else Data1.Recordset.MoveLast End IfEnd Sub Private Sub CommandAdd_Click()”添加“按钮 If CommandAdd.Caption=添加 Then Commandf.Enabled=False：Commandp.Enabled=False Commandn.Enabled=False：Commandl.Enabled=FalseCommandAdd.Caption=“确定”：CommandDelete.Caption=放弃 If Data1.Recordset.RecordCount 0 Then _Data1.Recordset.MoveLast Data1.Recordset.AddNew：Text1.SetFocus Else Commandf.Enabled=True：Commandp.Enabled=True Commandn.Enabled=True：Commandl.Enabled=True CommandAdd.Caption=“添加”：CommandDelete.Caption=删除 Data1.Recordset.Update End IfEnd SubPrivate Sub CommandDelete_Click()”删除“按钮 If CommandDelete.Caption=放弃 ThenCommandf.Enabled=True:Commandp.Enabled=TrueCommandn.Enabled=True:Commandl.Enabled=True CommandAdd.Caption=添加 CommandDelete.Caption=删除 Text1.Text=“:Text2.Text=Else If Data1.Recordset.RecordCount=0 Then MsgBox“没有记录！”:Exit Sub Else:Data1.Recordset.Delete:Data1.Refresh End If End IfEnd Sub（3）班级查询可以根据班级名称查询该班级的详细信息。）班级查询可以根据班级名称查询该班级的详细信息。Dim db As Database,db1 As DatabaseDim rs As Recordset,rs1 As RecordsetPrivate Sub Form_Load()Set db=OpenDatabase(App.Path+class.mdb)打开数据库class.mdb Set rs=db.OpenRecordset(班级表)创建Recordset对象变量End SubPrivate Sub Command1_Click()bjmc=Text2.Text:rs.Index=“班级名称”:rs.Seek=,bjmc If Not rs.NoMatch Then Text1.Text=rs.Fields(“编号”):Text3.Text=rs.Fields(人数)Text4.Text=rs.Fields(“党员人数”):bh=rs.Fields(所在学院)Set db1=OpenDatabase(App.Path+class.mdb)Set rs1=db.OpenRecordset(学院表)rs1.Index=“编号”:rs1.Seek=,bh If Not rs1.NoMatch Then Text5.Text=rs1.Fields(学院名称)Else:MsgBox(没有这个学院！)End If Else:MsgBox(没有这个班级！)End If:rs.Close:rs1.CloseEnd Sub（4）学院查询界面如图所示，代码可参考班级查询模块。）学院查询界面如图所示，代码可参考班级查询模块。（5）帮助窗体功能很简单，只是用标签显示了该系统的版）帮助窗体功能很简单，只是用标签显示了该系统的版本说明。本说明。