VB结合SQL开发学校教务管理系统

1、某某学院计算机科学与技术系课程设计报告课 程 名 数据库应用 设计题目 学校教务管理系统 班 级 08本科1班 专 业 计算机科学与技术 姓 名 某某某 指导教师 孙海霞 2010年8月制设计任务1.为系统创建存储过程并设置相应的属性2.创建5个存储过程3.对所创建的存储过程进行调用完成任务的思路、方法与算法： 学会怎样创建存储过程，掌握变量和字符类型的运用，以及怎样调用存储过程，在存储过程中可以按商店编号来查询、按职工编号查询、按会员编号查询、按会员编号和职工编号查询、按商店编号和职工编号查询，为了方便起见过程名要做到见名知意，以便阅读。程序框图：学校教务管理系统功能结构图：学校教务管理系统

2、e-r图核心程序（对主要的语句要加注释）登陆界面截图：登陆界面vb代码：public stu_flag as integerpublic cls_flag as integerpublic course_flag as integerpublic serverstr as stringpublic ueserstr as stringpublic passstr as stringpublic function conn() as adodb.connectionon error goto 1set conn = new adodb.connectionconn.open provider=s

3、qloledb.1;integrated security=sspi;persist security info=false;initial catalog=教学成绩管理数据库;data source=7mzzqcr4hi4idqvexit function1: msgbox err.description endend functionprivate sub command1_click()if trim(text1.text) and trim(text2.text) thendim rs as new recordsetrs.open select username from tb_us

4、er where username = & me.text1 & and password = & me.text2 & , conn, adopenkeyset, adlockoptimisticif not rs.eof thenunload me 关闭frm_main.showelse msgbox 用户名或密码不正确, vbcritical end if rs.close set rs = nothing else msgbox 请输入用户名和密码, vbcritical end ifend subprivate sub command2_click() 退出登录界面unload me

5、end submdi主题窗口截图：mdi主题窗口代码：private sub 删除成绩信息_click(index as integer)add_resultinfo.showend subprivate sub 删除教师信息_click(index as integer)add_teinfo.showend subprivate sub 删除课程信息_click(index as integer)add_courseinfo.showend subprivate sub 删除学生信息_click(index as integer)add_stuinfo.showend subprivate

6、sub 添加成绩信息_click(index as integer)add_resultinfo.showend subprivate sub 添加教师信息_click(index as integer)add_teinfo.showend subprivate sub 添加课程信息_click(index as integer)add_courseinfo.showend subprivate sub 添加学生信息_click(index as integer)add_stuinfo.showend subprivate sub 退出_click(index as integer)unloa

7、d meend subprivate sub 信息查询_click(index as integer)info.showend subprivate sub 修改查询成绩信息_click(index as integer)add_resultinfo.showend subprivate sub 修改查询教师信息_click(index as integer)add_teinfo.showend subprivate sub 修改查询课程信息_click(index as integer)add_courseinfo.showend subprivate sub 修改查询学生信息_click(

8、index as integer)add_stuinfo.showend sub学生信息管理界面：学生信息管理代码：dim rs as new adodb.recordsetdim con as new adodb.connectionprivate sub command1_click()rs.addnewrs.fields(学号) = text1.textrs.fields(姓名) = text2.textrs.fields(性别) = text3.textrs.fields(班级编号) = text4.textrs.fields(民族) = text5.textrs.updateset

9、mshflexgrid1.datasource = rsend subprivate sub command2_click()rs.closers.open select * from 学生信息表 where 学号 = + text1.text + , con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub command3_click()rs.updaters.fields(姓名) = text2.textrs.fields(性别) =

10、text3.textrs.fields(班级编号) = text4.textrs.fields(民族) = text5.textrs.updateset mshflexgrid1.datasource = rsend subprivate sub command4_click()rs.closers.open delete from 学生信息表 where 学号= + text1.text + , con, 1, 3, adcmdtextrs.open select * from 学生信息表, con, adopenkeyset, adlockoptimistic, adcmdtextrs.u

11、pdateset mshflexgrid1.datasource = rsend subprivate sub form_load()con.open provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=教学成绩管理数据库;data source=7mzzqcr4hi4idqvrs.open select * from 学生信息表, con, adopenkeyset, adlockoptimistic, adcmdtextset mshflexgrid1.dataso

12、urce = rsrs.updateend sub教师信息管理界面：教师信息管理界代码：dim rs as new adodb.recordsetdim con as new adodb.connectionprivate sub command1_click()rs.addnewrs.fields(教师号) = text1.textrs.fields(姓名) = text2.textrs.fields(性别) = text3.textrs.fields(所在系) = text4.textrs.fields(登录名) = text5.textrs.updateset mshflexgrid1.

13、datasource = rsend subprivate sub command2_click()rs.closers.open select * from 教师信息表 where 教师号= + text1.text + , con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub command3_click()rs.updaters.fields(姓名) = text2.textrs.fields(性别) = text3.textrs.

14、fields(所在系) = text4.textrs.fields(登录名) = text5.textrs.updateset mshflexgrid1.datasource = rsend subprivate sub command4_click()rs.closers.open delete from 教师信息表 where 教师号= + text1.text + , con, 1, 3, adcmdtextrs.open select * from 教师信息表, con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset msh

15、flexgrid1.datasource = rsend subprivate sub form_load()con.open provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=教学成绩管理数据库;data source=7mzzqcr4hi4idqvrs.open select * from 教师信息表, con, adopenkeyset, adlockoptimistic, adcmdtextset mshflexgrid1.datasource = rsrs.

16、updateend sub课程信息管理界面：课程信息管理代码：dim rs as new adodb.recordsetdim con as new adodb.connectionprivate sub command1_click()rs.addnewrs.fields(课程号) = text1.textrs.fields(课程名称) = text2.textrs.fields(院系编号) = text3.textrs.fields(学时) = text4.textrs.fields(类别) = text5.textrs.updateset mshflexgrid1.datasource

17、= rsend subprivate sub command2_click()rs.closers.open select * from 课程信息表 where 课程名称= + text1.text + , con, 1, 3, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub command3_click()rs.updaters.fields(课程号) = text2.textrs.fields(院系编号) = text3.textrs.fields(学时) = text4.textrs.fields(

18、类别) = text5.textrs.updateset mshflexgrid1.datasource = rsend subprivate sub command4_click()rs.closers.open delete from 课程信息表 where 课程名称= + text1.text + , con, 1, 3, adcmdtextrs.open select * from 课程信息表, con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subpr

19、ivate sub form_load()con.open provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=教学成绩管理数据库;data source=7mzzqcr4hi4idqvrs.open select * from 课程信息表, con, adopenkeyset, adlockoptimistic, adcmdtextset mshflexgrid1.datasource = rsrs.updateend sub成绩管理信息界面：成绩管理信息代码：dim

20、 rs as new adodb.recordsetdim con as new adodb.connectionprivate sub command1_click()rs.addnewrs.fields(学号) = text1.textrs.fields(课程号) = text2.textrs.fields(教师号) = text3.textrs.fields(分数) = text4.textrs.updateset mshflexgrid1.datasource = rsend subprivate sub command2_click()rs.closers.open select *

21、 from 教学成绩表 where 学号= + text1.text + , con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub command3_click()rs.updaters.fields(课程号) = text2.textrs.fields(教师号) = text3.textrs.fields(分数) = text4.textrs.updateset mshflexgrid1.datasource = rsend subpr

22、ivate sub command4_click()rs.closers.open delete from 教学成绩表 where 学号= + text1.text + , con, 1, 3, adcmdtextrs.open select * from 教学成绩表, con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub form_load()con.open provider=sqloledb.1;integrated securit

23、y=sspi;persist security info=false;initial catalog=教学成绩管理数据库;data source=7mzzqcr4hi4idqvrs.open select * from 教学成绩表, con, adopenkeyset, adlockoptimistic, adcmdtextset mshflexgrid1.datasource = rsrs.updateend sub信息查询界面：信息查询界面代码：dim rs as new adodb.recordsetdim con as new adodb.connectionprivate sub c

24、ommand1_click()rs.closers.open select * from 课程信息表 where 课程号 in (select 课程号 from 教学成绩表 where 教师号 in (select 教师号 from 教师信息表 where 姓名= + text1.text + ) , con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub command2_click()rs.closers.open select * from 教师信息表 where 教师号 in (select 教师号 from 教学成绩表 where 课程号 in (select 课程号 from 课程信息表 where 课程名称= + text2.text +