SQL Server数据库管理与开发教程与实训第14章 教学成绩管理系统的VB实现.ppt

《SQL Server数据库管理与开发教程与实训第14章 教学成绩管理系统的VB实现.ppt》由会员分享，可在线阅读，更多相关《SQL Server数据库管理与开发教程与实训第14章 教学成绩管理系统的VB实现.ppt（107页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10 SQL Server 数据库管理与开发第第1414章章 教学管理系统的教学管理系统的VBVB实现实现教学提示教学提示：通过教学成绩管理系统案例，讨通过教学成绩管理系统案例，讨论以论以SQL Server 2000SQL Server 2000为后台数据库、为后台数据库、VBVB为前为前台开发语言进行应用系统开发的技能。本教台开发语言进行应用系统开发的技能。本教材提供了案例全部源代码及设计文档，请同材提供了案例全部源代码及设计文档，请同学们下载并进行阅读、研究，重点在理解数学们下载并进行阅读、研究，重点在理解数据

2、库应用程序的总体结构、编程技巧。据库应用程序的总体结构、编程技巧。教学要求教学要求：应掌握：应掌握：SQL Server SQL Server 数据库设计与实现的技能数据库设计与实现的技能VBVB中中SQL ServerSQL Server数据库连接和数据访问数据库连接和数据访问VBVB编程技能编程技能 北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10 SQL Server 数据库管理与开发14.1 数据库实现14.2 主窗体的创建创建数据库创建数据表创建触发器创建视图Visual Basic设置创建主窗体模块设计与主窗体菜单全局变量程序代码程序启动顺序第第1

3、414章章 教学管理系统的教学管理系统的VBVB实现实现北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10 SQL Server 数据库管理与开发14.3 数据访问机制14.4 登录界面与权限14.5 信息查询模块14.6 数据维护模块14.7 数据备份还原与系统帮助模块ADO对象结构 ADO模型编程 SQL执行函数系统登录界面 权限设置CELL主要属性学生档案查询第第1414章章 教学管理系统的教学管理系统的VBVB实实数据备份 数据还原帮助文件制作 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 20

4、05.10第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助1 1 数据库实现数据库实现1.1 创建数据库1.2 创建数据表1.3 创建触发器1.4 创建视图 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10第第1414章章 教学管理系统的教学管理系统的VBVB实现实现在查询分析器中运行建库代码：在查询分析器中运行建库代码：use masterif exists(select*from d

5、bo.sysdatabases where name=教学成绩管理数据库)drop database 教学成绩管理数据库 go 如果存在(教学成绩管理数据库)，删除数据库：教学成绩管理数据库 1.1 1.1 创建数据库创建数据库1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10create database 教学成绩管理数据库gouse 教学成绩管理数据库go-禁止触发器嵌套sp_configure

6、nested triggers,0reconfigurego 1.1 1.1 创建数据库创建数据库1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助第第1414章章 教学管理系统的教学管理系统的VBVB实现实现 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1.2 1.2 创建数据表创建数据表(1)(1)-函数：函数：is中文字符串中文字符串-功能：判断自变量是否纯中文字符串，返回：是功

7、能：判断自变量是否纯中文字符串，返回：是/否否createfunctionis中文字符串(字符串char(255)returnsnchar(1)asbegindeclareItinyint,JtinyintsetI=len(字符串),J=1while(J=I)beginif(unicode(substring(字符串,J,1)256)return否setJ=J+1endreturn是endgo1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10

8、173-2/TP.0842 2005.10第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1.2 1.2 创建数据表创建数据表(2)(2)-学院信息表学院信息表-代码：编号代码：编号 2 位位createtable学院信息表(编号char(2)primarykey,名称nchar(20)uniquecheck(dbo.is中文字符串(名称)=是),简称nchar(10)uniquecheck(dbo.is中文字符串(简称)=是),院长nchar(4)null,书记nchar(4)null)go1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界

9、面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1.2 1.2 创建数据表创建数据表(3)(3)-创建创建 系部信息表系部信息表-函数：函数：is学院信息表编号学院信息表编号-功能：判断自变量是否学院信息表编号，返回：是功能：判断自变量是否学院信息表编号，返回：是/否否createfunctionis学院信息表编号(字符串char(4)returnsnchar(1)asbeginifexists(select*from学院信

10、息表where编号=left(字符串,2)return是return否end1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1.3 1.3 创建触发器创建触发器(1)(1)1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助-系部信息表系部信息表-代码：编号代码：编号

11、 前两位为所在学院的编号前两位为所在学院的编号createtable系部信息表(编号char(4)primarykeycheck(dbo.is学院信息表编号(编号)=是),名称 nchar(20)check(dbo.is中文字符串(名称)=是)unique,主任nchar(4)null,书记nchar(4)null)go SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10-删除学院信息表编号删除学院信息表编号-需要指出的是这里不能用外键级联删除，因为学院信息表.编号是2位，-系部信息表.编号是4位，系部编号的前两位是系部所在

12、学院的编号。-检验即将被删除的编号是否系部信息表的编号的前两位正在引用，-如果是则报出错误信息，然后回滚到删除前的状态。1.3 1.3 创建触发器创建触发器(1)(1)1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助第第1414章章 教学管理系统的教学管理系统的VBVB实现实现 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.101.3 1.3 创建触发器创建触发器(2)(2)create trigger T删除学院信息表编号on 学院信息表for d

13、eleteasbegin set nocount off declare 编号 char(2)select 编号=编号 from deleted if exists(select*from 系部信息表 where 编号=left(编号,2)begin RAisERROR(系部编号正在使用,不可删除!,16,1)ROLLBACK TRANSACTIon endendgo 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北

14、京大学出版社ISBN 7-301-10173-2/TP.0842 2005.101.3 1.3 创建触发器创建触发器(3)(3)-修改修改 学院信息表学院信息表 编号编号-修修改改 学学院院信信息息表表 编编号号 的的同同时时修修改改相相关关 系系部部信信息息表表、教教研研室室信信息息表表 的的 编编号号 的的前前两两位位；专专业业信信息息表表、课课程程信信息息表表 的的 院院系系编编号号 的的前前两两位位；教教师师信信息息表表 的的 教教研研室室编编号号 的的前前两两位位；如果是则报出错误信息，然后回滚到删除前的状态。如果是则报出错误信息，然后回滚到删除前的状态。create trigger

15、 T学院信息表编号on 学院信息表after updateasif update(编号)Beginset nocount off declare 编号 char(2),编号_ char(2)select 编号=编号 from deleted select 编号_=编号 from inserted 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005

16、.101.3 1.3 创建触发器创建触发器(4)(4)系部信息表 set 编号=编号_+substring(编号,3,2)where 编号=left(编号,2)update 专业信息表 set 院系编号=编号_+substring(院系编号,3,2)where 编号=left(院系编号,2)update 课程信息表 set 院系编号=编号_+substring(院系编号,3,2)where 编号=left(院系编号,2)update 教研室信息表 set 编号=编号_+substring(编号,3,4)where 编号=left(编号,2)update 教师信息表 set 教研室编号=编号_+

17、substring(编号,3,4)where 编号=left(教研室编号,2)endgo 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.101.4 1.4 创建视图创建视图 教研室信息表视图教研室信息表视图 的建立代码：的建立代码：create view 教研室信息表视图asselect 教研室信息表.编号,系部信息表视图.名称 as 系部

18、,系部信息表视图.学院简称 as 学院,教研室信息表.名称,教研室信息表.主任from 教研室信息表 inner join 系部信息表视图 on left(教研室信息表.编号,4)=系部信息表视图.编号 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现 创建数据库 创建数据表 创建触发器 创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助在本案例中需要建立11个视图，下面只介绍教研室信息表视图的建立代码：SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102 2 主窗体创建主窗

19、体创建第第1414章章 教学管理系统的教学管理系统的VBVB实现实现Visual Basic设置创建主窗体模块设计与主窗体菜单全局变量程序代码程序启动顺序1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.1 Visual Basic2.1 Visual Basic设置（设置（1 1）ADOADO设置设置第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现

20、2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.1 Visual Basic2.1 Visual Basic设置设置(2)(2)Cell32Cell32设置设置注册注册：把cell32.ocx复制windowssystem32(WinXP，Win2000是在winntsystem32)目录中，然后 在开始运行输入：regsrv32 cell32.ocx，单击确定。设置设置：在Visua

21、l Basic中单击菜单工程、部件，如图所示。单击浏览选择cell32.ocx，单击打开。第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.2 2.2 创建主窗体创建主窗体主窗体界面主要有菜单栏、工具栏、界面图片、状态栏。主窗体界面主要有菜单栏、工具栏、界面图片、状态栏。第第1414章章 教学管理系统的教学管理系统的

22、VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.32.3模块设计与主窗体菜单模块设计与主窗体菜单第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助菜单菜单模块名模块名功能描述功能描述教学成绩管理系统Fr

23、m欢迎界面、frmMain主控界面系统设置系统设置登录FrmLogin登录修改密码Frm修改密码修改本人密码设置密码Frm设置密码设置他人密码用户信息维护Frm用户信息表维护维护用户信息系统参数设置Frm系统设置系统参数设置数据备份Frm数据恢复数据备份数据恢复Frm数据备份数据恢复退出 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.10公共信息公共信息学院信息表维护Frm学院信息表录入维护学院信息表系部信息表维护Frm系部信息表录入维护专业信息表专业信息表维护Frm专业信息表录入维护专业信息表教研室信息表维护Frm教研室信

24、息表录入维护教研室信息表课程信息表维护Frm课程信息表录入维护课程信息表班级信息表维护Frm班级信息表录入维护班级信息表学院信息表查询Frm学院信息表查询查询学院信息表系部信息表查询Frm系部信息表查询查询系部信息表专业信息表查询Frm专业信息表查询查询专业信息表教研室信息表查询Frm教研室信息查询查询教研室信息表课程信息表查询Frm课程信息表查询查询课程信息表2.32.3模块设计与主窗体菜单模块设计与主窗体菜单1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助第第1414章章 教学管理系统的教学管

25、理系统的VBVB实现实现 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.32.3模块设计与主窗体菜单模块设计与主窗体菜单1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助班级信息表查询Frm班级信息表查询查询班级信息表师资管理师资管理教师档案录入修改Frm教师信息表录入维护教师档案表教师档案表查询Frm教师信息表查询查询教师档案表学籍管理学籍管理学生信息录入Frm学生信息表录入维护学生档案表按学号查询Frm查询学生_按学号

26、查询学生档案表：按学号按姓名查询Frm查询学生_按姓名查询学生档案表：按姓名按班级查询Frm查询学生_按班级查询学生档案表：按班级组合查询Frm查询学生_组合查询学生档案表：组合查询第第1414章章 教学管理系统的教学管理系统的VBVB实现实现 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.32.3模块设计与主窗体菜单模块设计与主窗体菜单1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助课程设置课程设置班级课程表录入与修改

27、Frm班级课程设置表录入维护班级课程设置表班级课程设置查询Frm班级课程设置表查询查询班级课程设置表教师教学工作量查询Frm查询教师教学工作量查询教师教学工作量成绩管理成绩管理成绩录入Frm成绩信息录入维护学生档案表按学号查询Frm查询成绩_按学号查询学生成绩：按学号按姓名查询Frm查询成绩_按姓名查询学生成绩：按姓名第第1414章章 教学管理系统的教学管理系统的VBVB实现实现 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.32.3模块设计与主窗体菜单模块设计与主窗体菜单1数据库实现2主窗体创建VB设置 创建主窗体

28、 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助按课程查询Frm查询成绩_按课程查询学生成绩：按班级按班级查询Frm查询成绩_按班级查询学生成绩：组合查询帮助帮助帮助内容调用help.chm帮助文件关于FrmAbout关于第第1414章章 教学管理系统的教学管理系统的VBVB实现实现 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.4 2.4 全局变量全局变量本系统在模块本系统在模块module1module1的通用声明部分定义了的通用声明部分定义了1010个全局变量

29、，变量个全局变量，变量及意义如下及意义如下:Public HostName As String 连接主机(服务器名)Public UserType As String 用户类型：学生,教师,学校领导,班主任,教务管理员Public UserName As String 用户名Public UserId As String 用户号（学号、教师编号）Public LoginUserName As String 登录名Public ConnectUserName As String 连接用户名Public ConnectPassWord As String 连接用户口令Public txtSQL A

30、s String SQL查询语句Public msg_Sql As String SQL查询返回信息，返回结果：RecordsetPublic CurrentRow As Long cell表格中的当前行号第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.5 2.5 程序代码程序代码()主模块装载过程主模块装载过程

31、Form_LoadForm_Load()()Private Sub Form_Load()Image1.Left=45 定义Image1的位置和大小 Image1.Top=600 Image1.Width=Me.Width-90 Image1.Height=Me.Height-700 Me.Enabled=False 主界面无效 Load frmLogin 装载登录模块：frmLogin frmLogin.Show 显示登录模块：frmLoginEnd Sub第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量

32、程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.5 2.5 程序代码程序代码()单击工具栏过程单击工具栏过程Private Sub Tb工 具 _ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 单击工具栏学号查询学生情况按钮 frm查询学生_按学号.Show vbModal 显示相应的界面：frm查询学生_按学号 Case 2 frm查询

33、学生_按姓名.Show vbModal Case 3 frm查询学生_按班级.Show vbModal Case 4 frm查询学生_组合.Show vbModal Case 6 frm查询成绩_按学号.Show vbModal Case 7第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.5 2.5 程序代码程序

34、代码()frm查询成绩_按姓名.Show vbModal Case 8 frm查询成绩_按课程.Show vbModal Case 9 frm查询成绩_按班级.Show vbModal Case 11 Shell hh.exe&App.Path&help.chm,vbNormalFocus Case 12 End End SelectEnd Sub 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发

35、北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.5 2.5 程序代码程序代码()单击菜单过程单击菜单过程(1)单击帮助下帮助菜单模块Private Private Sub Sub menumenu帮帮助助内内容容_Click()_Click()通通过过hh.exehh.exe访访问问help.chmhelp.chm帮助文件帮助文件Shell Shell hh.exehh.exe&App.Path,&App.Path,help.chmhelp.chm,vbNormalFocusvbNormalFocus End SubEnd Sub(2)(2)单击单击 系统

36、设置系统设置 下下 登录登录 菜单模块菜单模块Private Sub menu登录_Click()If MsgBox(您确实要注销本次登录吗？,vbYesNo,系统信息)=vbYes Then Form_Load 重新调用主界面的装载模块：form_load()来调用：frmLogin End IfEnd Sub 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-

37、10173-2/TP.0842 2005.102.5 2.5 程序代码程序代码(4)(4)(3)(3)单击其他菜单项模块单击其他菜单项模块主控界面中的其他菜单项的单击模块都类似下列单击学院信息表查询,显示相应的界面。Private Sub menuPrivate Sub menu学院信息表查询学院信息表查询_Click()_Click()frmfrm学院信息表查询学院信息表查询.Show.Show vbModalvbModalEnd SubEnd Sub 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序

38、代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.6 2.6 程序启动顺序程序启动顺序()Main()Main()在教学成绩管理工程属性的通用选项卡，设置启动对象：Sub Main()。Sub Main()HostName=(local)frm欢迎界面.Show 显示：frm欢迎界面End Sub frmfrm欢迎界面欢迎界面在 该 模 块 中 只 有 4个 过 程：Form_Click、Form_KeyPress、Image1_Click、Timer

39、1_Timer，其代码相同，只有下列两句。Private Sub Unload Me Load frmMain 装载主界面End Sub 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.6 2.6 程序启动顺序程序启动顺序()frmMainfrmMain(主界面主界面)：form_loadform_load()(

40、)Private Sub Form_Load()Me.Enabled=False 主界面无效 Load frmLogin 装载登录模块：frmLogin frmLogin.Show 显示登录模块：frmLoginEnd Sub 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.102.6 2.6 程序启动顺序程序启动顺序(

41、)frmLoginfrmLogin(登录界面登录界面)：form_loadform_load()()在该模块中只有2个出口，即确定和取消按钮。其中：确定在判断用户合法后返回主控界面，取消则退出模块。Private Sub Cmd确认_Click()合法用户 UserType=Cmb用户类型.Text LoginUserName=Trim(Txt用户名称.Text)Unload frmLogin 关闭登录窗口 frmMain.Enabled=True 使主窗口可用 frmMain.Visible=True 主窗口可见，返回主控界面:frmMainEnd SubPrivate Sub Cmd取消_

42、Click()Unload frmLogin End 退出，停机End Sub 第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建 VB设置 创建主窗体 模块设计与菜单 全局变量 程序代码 启动顺序3数据访问4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.103 3 数据访问机制第第1414章章 教学管理系统的教学管理系统的VBVB实现实现3.1 ADO对象结构 3.2 ADO模型编程 3.3 SQL执行函数1数据库实现2主窗体创建3数据访问 A

43、DO对象结构 ADO模型编程 SQL执行函数4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.103.1 ADO3.1 ADO对象结构对象结构()Connection 建立数据源和ADO程序之间的连接，它代表与一个数据源的惟一对话。包含了有关连接的信息。例如：游标类型、连接字符串、查询超时、连接超时和默认数据库。Recordset 查询得到的一组记录组成的记录集。Field包含记录集中的某一个记录字段的信息。字段包含在一个字段集合中。字段的信息包括数据类型、精确度和数据范围等。Com

44、mand包含了一个命令的相关信息，如查询字符串、参数定义等。可以不定义一个命令对象而直接在一个查询语句中打开一个记录集对象。第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建3数据访问 ADO对象结构 ADO模型编程 SQL执行函数4登录界面5信息查询6数据维护7备份还原帮助ADO对象定义了一个可编程的分层的对象集合。对象定义了一个可编程的分层的对象集合。SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.103.1 ADO3.1 ADO对象结构对象结构()Parameter与命令对象相关的参数

45、。命令对象的所有参数都包含在它的参数集合中，可以通过对数据库进行查询来自动创建ADO参数对象。Property ADO对象的属性。ADO对象有两种类型的属性：内置属性和动态生成的属性。内置属性是指在ADO对象里面的那些属性，任何ADO对象都有这些内置属性；动态属性由底层数据源定义，并且每个ADO对象都有对应的属性集合。Error包含了由数据源产生的Errors集合中的扩展的错误信息。由于一个单独的语句会产生一个或多个错误，因此Errors集合可以同时包括一个或多个Error对象第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建3数据访问 ADO对象结构 AD

46、O模型编程 SQL执行函数4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.103.1 ADO3.1 ADO对象结构对象结构()ADO对象结构关系图：对象结构关系图：第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建3数据访问 ADO对象结构 ADO模型编程 SQL执行函数4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.103.2 AD

47、O3.2 ADO编程模型编程模型ADO通过以下步骤来完成对数据库的操作：通过以下步骤来完成对数据库的操作：(1)首先创建一个到数据源的连接(Connection)对象，连接到数据库；或者开始一个事务(Transaction)。(2)创建一个代表SQL命令行(Command)，包括变量、参数、可选项等)的对象。(3)执行命令行。(4)如果返回以表格形式组织的数据，则将它们保存在缓存中，产生相应的数据集对象(Recordset)，这样便于查找、操作数据。(5)通过数据集对象进行各种操作。包括修改、增加、删除等。(6)更新数据源。如果使用事务，确认是否接受事务期间发生的数据变化。(7)结束连接和事务

48、。第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建3数据访问 ADO对象结构 ADO模型编程 SQL执行函数4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.103.3 SQL3.3 SQL执行函数执行函数()连接连接SQL Server连接串函数：连接串函数：ConnectStringPublicFunctionConnectString()AsString集中定义：驱动程序、服务器名、数据库名、登录用户名和登录密码等数据库访问参数Connec

49、tString=driver=SQLServer;SERVER=&HostName&_;DATABASE=教 学 成 绩 管 理 数 据 库;UID=&ConnectUserName&;PWD=&_ConnectPassWordEndFunction第第1414章章 教学管理系统的教学管理系统的VBVB实现实现1数据库实现2主窗体创建3数据访问 ADO对象结构 ADO模型编程 SQL执行函数4登录界面5信息查询6数据维护7备份还原帮助 SQL Server 数据库管理与开发北京大学出版社ISBN 7-301-10173-2/TP.0842 2005.103.3 SQL3.3 SQL执行函数执行

50、函数()SQL语句执行函数：语句执行函数：ExecuteSQLPublic Function ExecuteSQL(ByVal SQL As String,MsgStringAsString)AsADODB.Recordset传递参数：SQL传递查询语句，MsgString传递查询信息，返回执行结果：RecordsetDimcnnAsADODB.Connection定义连接DimrstAsADODB.Recordset定义记录集DimsTokens()AsString定义字符串数组OnErrorGoToExecuteSQL_Error出错处理sTokens=Split(SQL)以空格分割SQL