SQL Server数据库管理与开发教程与实训（第2版）第11章 教学成绩管理系统的VB实现.pptVIP

第11章 教学管理系统的VB实现 第11章 教学管理系统的VB实现 第11章 教学管理系统的VB实 1 数据库实现 1.1 创建数据库 1.1 创建数据库 1.2 创建数据表(1) 1.2 创建数据表(2) 1.2 创建数据表(3) 1.3 创建触发器(1) 1.3 创建触发器(2) 1.3 创建触发器(3) create trigger T删除学院信息表编号 on 学院信息表 for delete as begin set nocount off declare @编号 char(2) select @编号=编号 from deleted if exists(select * from 系部信息表 where @编号=left(编号,2)) begin RAisERROR ( 系部编号正在使用, 不可删除!, 16, 1) ROLLBACK TRANSACTIon end end go 1.3 创建触发器(4) -- 修改[学院信息表]编号 -- 修改[学院信息表][编号]的同时修改相关[系部信息表]、[教研室信息表]的[编号]的前两位；[专业信息表]、[课程信息表]的[院系编号]的前两位；[教师信息表]的[教研室编号] 的前两位；如果是则报出错误信息，然后回滚到删除前的状态。 create trigger T学院信息表编号 on 学院信息表 after update as if update(编号) Begin set nocount off declare @编号 char(2), @编号_ char(2) select @编号=编号 from deleted select @编号_=编号 from inserted 1.3 创建触发器(5) 系部信息表 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 教研室编号=@编号_+substring(编号,3,4) where @编号=left(教研室编号,2) end go 1.4 创建视图 [教研室信息表视图]的建立代码： create view 教研室信息表视图 as select 教研室信息表.编号, 系部信息表视图.名称 as 系部, 系部信息表视图.学院简称 as 学院, 教研室信息表.名称, 教研室信息表.主任 from 教研室信息表 inner join 系部信息表视图 on left(教研室信息表.编号,4)=系部信息表视图.编号 2 主窗体创建 2.1 Visual Basic设置(1) ADO设置 2.1 Visual Basic设置(2) Cell32设置 注册：把cell32.ocx复制\windows\system32(WinXP，Win2000是在\winnt\system32)目录中，然后 在[开始][运行]输入：regsrv32 cell32.ocx，单击[确定]。 设置：在Visual Basic中单击菜单[工程]、[部件]，如图所示。单击[浏览]选择cell32.ocx，单击[打开] 。 2.2 创建主窗体 主窗体界面主要有菜单栏、工具栏、界面图片、状态栏。 2.3 模块设计与主窗体菜单 2.3 模块设计与主窗体菜单 2.3 模块设计与主窗体菜单 2.3 模块设计与主窗体菜单 2.3模块设计与主窗体菜单 2.4 全局变量 本系统在模块module1的通用声明部分定义了10个全局变量，变量及意义如下: Public HostName As String 连接主机(服务器名) Public UserType As String 用户类型：学生, 教师, 学校领导, 班主任, 教务管理员 Public UserName As String 用户名 Public UserId As String 用户号（学号、教师编号） Public LoginUserName As String 登录名 Public ConnectUserName As String 连