《SQL_Server数据库管理与开发教程与实训(第2版)第11章 教学成绩管理系统的VB实现.ppt》由会员分享,可在线阅读,更多相关《SQL_Server数据库管理与开发教程与实训(第2版)第11章 教学成绩管理系统的VB实现.ppt(61页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)第11章 教学管理系统的VB实现教学提示教学提示:通过通过教学成绩管理系统教学成绩管理系统案例,讨论以案例,讨论以SQL Server 2000SQL Server 2000为后台数据库、为后台数据库、VBVB为前台开发语为前台开发语言进行应用系统开发的技能。本教材提供了案例言进行应用系统开发的技能。本教材提供了案例全部源代码及设计
2、文档,请同学们下载并进行阅全部源代码及设计文档,请同学们下载并进行阅读、研究,重点在理解数据库应用程序的总体结读、研究,重点在理解数据库应用程序的总体结构、编程技巧。构、编程技巧。技能目标技能目标:通过上机模仿本案例编程,应:通过上机模仿本案例编程,应掌握:掌握:SQL Server SQL Server 数据库设计与实现的技能数据库设计与实现的技能VBVB中中SQL ServerSQL Server数据库连接和数据访问数据库连接和数据访问VBVB编程技能编程技能 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出
3、版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)11.1 数据库实现11.2 主窗体的创建创建数据库创建数据表创建触发器创建视图Visual Basic设置创建主窗体模块设计与主窗体菜单全局变量程序代码程序启动顺序第11章 教学管理系统的VB实现 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1
4、1.3 数据访问机制11.4 登录界面与权限11.5 信息查询模块11.6 数据维护模块11.7 数据备份还原与系统帮助模块ADO对象结构 ADO模型编程 SQL执行函数系统登录界面 权限设置CELL主要属性学生档案查询第11章 教学管理系统的VB实数据备份 数据还原帮助文件制作 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1 数据库实现1.1 创建数据库1.2 创建数据表1.
5、3 创建触发器1.4 创建视图 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)在查询分析器中运行建库代码:在查询分析器中运行建库代码:use master if exi
6、sts(select*from dbo.sysdatabases where name=教学成绩管理数据库教学成绩管理数据库)drop database 教学成绩管理数据库教学成绩管理数据库 go 如果存在如果存在(教学成绩管理数据库教学成绩管理数据库),删除数,删除数据库:教学成绩管理数据库据库:教学成绩管理数据库1.1 创建数据库 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管
7、理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)create database 教学成绩管理数据库教学成绩管理数据库gouse 教学成绩管理数据库教学成绩管理数据库go-禁止触发器嵌套禁止触发器嵌套sp_configure nested triggers,0reconfigurego1.1 创建数据库 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面
8、界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1.2 创建数据表(1)-函数:函数:is中文字符串中文字符串-功能:判断自变量是否纯中文字符串,返回:是功能:判断自变量是否纯中文字符串,返回:是/否否create function is中文字符串中文字符串(字符串字符串char(255)retu
9、rns nchar(1)as begin declare I tinyint,J tinyint set I=len(字符串字符串),J=1 while(J=I)begin if(unicode(substring(字符串字符串,J,1)256)return 否否 set J=J+1 end return 是是 endgo 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与
10、开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1.2 创建数据表(2)-学院信息表学院信息表-代码:编号代码:编号 2 位位create table 学院信息表学院信息表(编号编号 char(2)primary key,名称名称 nchar(20)unique check(dbo.is中文字中文字符串符串(名称名称)=是是),简称简称 nchar(10)unique check(dbo.is中文字中文字符串符串(简称简称)=是是),院长院
11、长 nchar(4)null,书记书记 nchar(4)null)go 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1.2 创建数据表(3)-创建创建 系部信息表系部
12、信息表-函数:函数:is学院信息表编号学院信息表编号-功能:判断自变量是否学院信息表编号,返回:是功能:判断自变量是否学院信息表编号,返回:是/否否create function is学院信息表编号学院信息表编号(字符串字符串 char(4)returns nchar(1)as begin if exists(select*from 学院信息表学院信息表 where 编编号号=left(字符串字符串,2)return 是是 return 否否 end 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查
13、询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1.3 创建触发器(1)-系部信息表系部信息表-代码:编号代码:编号 前两位为所在学院的编号前两位为所在学院的编号create table 系部信息表系部信息表(编编号号 char(4)primary key check(dbo.is学学院院信息表编号信息表编号(编
14、号编号)=是是),名名称称 nchar(20)check(dbo.is中中文文字字符符串串(名名称称)=是是)unique,主任主任 nchar(4)null,书记书记 nchar(4)null)go 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.
15、1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)-删除学院信息表编号删除学院信息表编号-需要指出的是这里不能用外键级联删除,需要指出的是这里不能用外键级联删除,因为因为学院信息表学院信息表.编号编号是是2位,位,-系部信息表系部信息表.编号编号是是4位,系部编号的位,系部编号的前两位是系部所在学院的编号。前两位是系部所在学院的编号。-检验即将被删除的检验即将被删除的编号编号是否是否系部信息表系部信息表的的编号编号的前两位正在引用,的前两位正在引用,-如果是则报出错误信息,然后回滚到删除如果是则报出错误信息,然后回滚到删除前的状态。前的状态。1.3 创建触发器(2
16、)创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1.3 创建触发器(3)create trigger T删除学院信息表编号删除学院信息表编号on 学院信息表学院信息表f
17、or deleteasbegin set nocount off declare 编号编号 char(2)select 编号编号=编号编号 from deleted if exists(select*from 系部信息表系部信息表 where 编号编号=left(编号编号,2)begin RAisERROR(系部编号正在使用系部编号正在使用,不可删除不可删除!,16,1)ROLLBACK TRANSACTIon endendgo 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本
18、章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1.3 创建触发器(4)-修改修改学院信息表学院信息表编号编号-修修改改学学院院信信息息表表编编号号的的同同时时修修改改相相关关系系部部信信息息表表、教教研研室室信信息息表表的的编编号号的的前前两两位位;专专业业信信息息表表、课课程程信信息息表表的的院院系系编编号号的的前前两两位位;教教
19、师师信信息息表表的的教教研研室室编编号号 的的前前两两位位;如如果果是是则则报报出出错错误误信信息息,然然后回滚到删除前的状态。后回滚到删除前的状态。create trigger T学院信息表编号学院信息表编号on 学院信息表学院信息表after updateasif update(编号编号)Beginset nocount off declare 编号编号 char(2),编号编号_ char(2)select 编号编号=编号编号 from deleted select 编号编号_=编号编号 from inserted 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器
20、器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1.3 创建触发器(5)系部信息表系部信息表 set 编号编号=编号编号_+substring(编号编号,3,2)where 编号编号=left(编号编号,2)update 专业信息表专业信息表
21、 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 教研室编号教研室编号=编号编号_+substring(编号编号,3,4)where 编号
22、编号=left(教研室编号教研室编号,2)endgo 创建数据建数据库2主窗体主窗体创建建 创建数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)1.4 创建视图教研室信息表视图教研室信息表视图的建立代码:的建立代
23、码:create view 教研室信息表视图教研室信息表视图asselect 教研室信息表教研室信息表.编号编号,系部信息表视图系部信息表视图.名称名称 as 系部系部,系部信息表视图系部信息表视图.学院简称学院简称 as 学院学院,教研室信息表教研室信息表.名称名称,教研室信息表教研室信息表.主任主任from 教研室信息表教研室信息表 inner join 系部信息表视图系部信息表视图 on left(教研室信息表教研室信息表.编号编号,4)=系部信息表视图系部信息表视图.编号编号 在本案例中需要建立11个视图,下面只介绍教研室信息表视图的建立代码:创建数据建数据库2主窗体主窗体创建建 创建
24、数据表建数据表 创建触建触发器器 创建建视图3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2 主窗体创建Visual Basic设置创建主窗体模块设计与主窗体菜单全局变量程序代码程序启动顺序 VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜
25、单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.1 Visual Basic设置(1)ADO设置设置 VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数
26、据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.1 Visual Basic设置(2)Cell32设置设置注册注册:把cell32.ocx复制windowssystem32(WinXP,Win2000是在winntsystem32)目录
27、中,然后在开始运行输入:regsrv32cell32.ocx,单击确定。设置设置:在VisualBasic中单击菜单工程、部件,如图所示。单击浏览选择cell32.ocx,单击打开。VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2
28、006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.2 创建主窗体主窗体界面主要有菜单栏、工具栏、界面图片、状态栏。主窗体界面主要有菜单栏、工具栏、界面图片、状态栏。VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-3
29、01-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.3 模块设计与主窗体菜单菜单菜单模块名模块名功能描述功能描述教学成绩管理系统Frm欢迎界面、frmMain主控界面系统设置系统设置登录FrmLogin登录修改密码Frm修改密码修改本人密码设置密码Frm设置密码设置他人密码用户信息维护Frm用户信息表维护维护用户信息系统参数设置Frm系统设置系统参数设置数据备份Frm数据恢复数据备份数据恢复Frm数据备份数据恢复退出 VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登
30、登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)公共信息公共信息学院信息表维护Frm学院信息表录入维护学院信息表系部信息表维护Frm系部信息表录入维护专业信息表专业信息表维护Frm专业信息表录入维护专业信息表教研室信息表维护Frm教研室信息表录入维护教研室
31、信息表课程信息表维护Frm课程信息表录入维护课程信息表班级信息表维护Frm班级信息表录入维护班级信息表学院信息表查询Frm学院信息表查询查询学院信息表系部信息表查询Frm系部信息表查询查询系部信息表专业信息表查询Frm专业信息表查询查询专业信息表教研室信息表查询Frm教研室信息查询查询教研室信息表课程信息表查询Frm课程信息表查询查询课程信息表2.3 模块设计与主窗体菜单 VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建
32、建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.3 模块设计与主窗体菜单班级信息表查询Frm班级信息表查询查询班级信息表师资管理师资管理教师档案录入修改Frm教师信息表录入维护教师档案表教师档案表查询Frm教师信息表查询查询教师档案表学籍管理学籍管理学生信息录入Frm学生信息表录入维护学生档案表按学号查询Frm查询学生_按学号查询学生档案表:按学号按姓名查询F
33、rm查询学生_按姓名查询学生档案表:按姓名按班级查询Frm查询学生_按班级查询学生档案表:按班级组合查询Frm查询学生_组合查询学生档案表:组合查询 VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 9
34、78-7-301-15533-2/2009.8(第2版)2.3 模块设计与主窗体菜单课程设置课程设置班级课程表录入与修改 Frm班级课程设置表录入 维护班级课程设置表班级课程设置查询Frm班级课程设置表查询 查询班级课程设置表教师教学工作量查询Frm查询教师教学工作量 查询教师教学工作量成绩管理成绩管理成绩录入Frm成绩信息录入维护学生档案表按学号查询Frm查询成绩_按学号查询学生成绩:按学号按姓名查询Frm查询成绩_按姓名查询学生成绩:按姓名 VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本
35、章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.3模块设计与主窗体菜单按课程查询 Frm查询成绩_按课程 查询学生成绩:按班级按班级查询 Frm查询成绩_按班级 查询学生成绩:组合查询帮助帮助帮助内容调用help.chm帮助文件关于FrmAbout关于 VB设置置 程序代程序代码 创建主
36、窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.4 全局变量本系统在模块本系统在模块module1的通用声明部分定义了的通用声明部分定义了10个全局变量,变个全局变量,变量
37、及意义如下量及意义如下: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 Connec
38、tPassWord As String 连接用户口令连接用户口令Public txtSQL As String SQL查询语句查询语句Public msg_Sql As String SQL查查询询返返回回信信息息,返返回回结结果果:RecordsetPublic CurrentRow As Long cell表格中的当前行号表格中的当前行号 VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLSer
39、verSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.5 程序代码()主模块装载过程主模块装载过程Form_Load()Private Sub Form_Load()Image1.Left=45 定义定义Image1的位置和大小的位置和大小 Image1.Top=600 Image1.Width=Me.Width-90 Image1.Height=Me.Height-700 Me.Enabled
40、=False 主界面无效主界面无效 Load frmLogin 装装 载载 登登 录录 模模 块块:frmLogin frmLogin.Show 显显 示示 登登 录录 模模 块块:frmLoginEnd Sub VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN
41、 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.5 程序代码()单击工具栏过程单击工具栏过程Private Sub Tb工工具具_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 单单击击工工具具栏栏学学号号查查询询学学生生情情况况按按钮钮 frm查询学生查询学生_按学号按学号.Show vbModal 显显示示相相应应的的界界面面:frm查查询询学学生生_按按学学号号 Case 2 frm查询学生查询学生_按姓
42、名按姓名.Show vbModal Case 3 frm查询学生查询学生_按班级按班级.Show vbModal Case 4 frm查询学生查询学生_组合组合.Show vbModal Case 6 frm查询成绩查询成绩_按学号按学号.Show vbModal Case 7 frm查询成绩查询成绩_按姓名按姓名.Show vbModal VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServ
43、erSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.5 程序代码()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 VB设置
44、置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.5 程序代码()单击菜单过程单击菜单过程(1)单击单击帮助帮助下下帮助帮助菜单模块菜单模块Priv
45、ate Sub menu帮助内容帮助内容_Click()通过通过hh.exe访问访问help.chm帮助文件帮助文件Shell hh.exe&App.Path,help.chm,vbNormalFocus End Sub VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序(2)单击单击系统设置系统设置下下登录登录菜单模块菜单模块Private Sub menu登录登录_Click()If MsgBox(您确
46、实要注销本次登录吗?您确实要注销本次登录吗?,vbYesNo,系统信息系统信息)=vbYes Then Form_Load 重新调用主界面的装重新调用主界面的装载模块:载模块:form_load()来调用:来调用:frmLogin End IfEnd Sub SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.5 程序代码(4)(3)单击其他菜单项模块单击其他菜单项模块主控界面中的
47、其他菜单项的单击模块都类似下列单击学院信息表查询,显示相应的界面。Private Sub menu学院信息表查询学院信息表查询_Click()frm学院信息表查询学院信息表查询.Show vbModalEnd Sub VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 IS
48、BN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.6 程序启动顺序()Main()在在教教学学成成绩绩管管理理工工程程属属性性的的通通用用选选项项卡卡,设设置置启动对象:启动对象:Sub Main()。Sub Main()HostName=(local)frm欢迎界面欢迎界面.Show 显示:显示:frm欢迎界面欢迎界面End Subfrm欢欢迎迎界界面面 在在该该模模块块中中只只有有4个个过过程程:Form_Click、Form_KeyPress、Image1_Click、Timer1_Timer,其其代码相同,只
49、有下列两句代码相同,只有下列两句。Private Sub Unload Me Load frmMain 装载主界面装载主界面End SubfrmMain(主界面主界面):Private Sub Form_Load()Me.Enabled=False 主界面无效主界面无效 Load frmLogin 装载登录模块:装载登录模块:frmLogin frmLogin.Show 显示登录模块:显示登录模块:frmLoginEnd Sub VB设置置 程序代程序代码 创建主窗体建主窗体 模模块与菜与菜单 全局全局变量量3数据数据访问1数据数据库实现4登登录界面界面5信息信息查询8本章小本章小结9本章本章
50、习题6数据数据维护7备份份还原帮助原帮助2主窗体主窗体创建建 启启动顺序序 SQLServerSQLServer数据数据库管理与开管理与开发第第1111章章 教学管理系教学管理系统的的VBVB实现北京大学出版社 ISBN 7-301-10173-2/2006.1(第1版)ISBN 978-7-301-15533-2/2009.8(第2版)2.6 程序启动顺序(2)frmLogin(登登录录界界面面):在该模块中只有2个出口,即确定和取消按钮。其中:确定在判断用户合法后返回主控界面,取消则退出模块。Private Sub Cmd确认确认_Click()合法用户合法用户 UserType=Cmb用