案例：教学成绩管理系统课件

《案例：教学成绩管理系统课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1数据库实现2主窗体的创建创建数据库创建数据表创建触发器创建视图VisualBasic设置创建主窗体模块设计与主窗体菜单全局变量程序代码程序启动顺序案例：教学管理系统3数据访问机制4登录界面与权限5信息查询模块6数据维护模块7数据备份还原与系统帮助模块ADO对象结构ADO模型编程SQL执行函数系统登录界面权限设置CELL主要属性学生档案查询第14章教学管理系统的VB实数据备份数据还原帮助文件制作1数据库实现创建数据库创建数据表创建触发器创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助1数据库实现1.1创建数据库1.2创建数据表

2、1.3创建触发器1.4创建视图在查询分析器中运行建库代码：usemasterifexists(select*fromdbo.sysdatabaseswherename='教学成绩管理数据库')dropdatabase教学成绩管理数据库go‘如果存在(教学成绩管理数据库)，删除数据库：教学成绩管理数据库1.1创建数据库1数据库实现创建数据库创建数据表创建触发器创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助createdatabase教学成绩管理数据库gouse教学成绩管理数据库go--禁止触发器嵌套sp_configure'n

3、estedtriggers',0reconfigurego1.1创建数据库1数据库实现创建数据库创建数据表创建触发器创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助1.2创建数据表(1)--函数：is中文字符串--功能：判断自变量是否纯中文字符串，返回：是/否createfunctionis中文字符串(@字符串char(255))returnsnchar(1)asbegindeclare@Itinyint,@Jtinyintset@I=len(@字符串),@J=1while(@J<=@I)beginif(unicode(sub

4、string(@字符串,@J,1))<256)return'否'set@J=@J+1endreturn'是'endgo1数据库实现创建数据库创建数据表创建触发器创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助1.2创建数据表(2)--学院信息表--代码：编号2位createtable学院信息表(编号char(2)primarykey,名称nchar(20)uniquecheck(dbo.is中文字符串(名称)='是'),简称nchar(10)uniquecheck(dbo.is中文字符串(简称)='是'),院长nchar(4)

5、null,书记nchar(4)null)go1数据库实现创建数据库创建数据表创建触发器创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助1.2创建数据表(3)--创建系部信息表--函数：is学院信息表编号--功能：判断自变量是否学院信息表编号，返回：是/否createfunctionis学院信息表编号(@字符串char(4))returnsnchar(1)asbeginifexists(select*from学院信息表where编号=left(@字符串,2))return'是'return'否'end1数据库实现创建数据库创建数

6、据表创建触发器创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助1.3创建触发器(1)1数据库实现创建数据库创建数据表创建触发器创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助--系部信息表--代码：编号前两位为所在学院的编号createtable系部信息表(编号char(4)primarykeycheck(dbo.is学院信息表编号(编号)='是'),名称nchar(20)check(dbo.is中文字符串(名称)='是')unique,主任nchar(4)null,书记nchar(4)null)go

7、--删除学院信息表编号--需要指出的是这里不能用外键级联删除，因为[学院信息表].[编号]是2位，--[系部信息表].[编号]是4位，系部编号的前两位是系部所在学院的编号。--检验即将被删除的[编号]是否[系部信息表]的[编号]的前两位正在引用，--如果是则报出错误信息，然后回滚到删除前的状态。1.3创建触发器(1)1数据库实现创建数据库创建数据表创建触发器创建视图2主窗体创建3数据访问4登录界面5信息查询6数据维护7备份还原帮助1.3创建触发器(2)createtriggerT删除学院信息表编号on学院信息表fordeleteasbeginsetno

8、countoffdeclare@编号char(2)select@编号=编号fromdelete