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

1、PAGE 某某学院计算机科学与技术系课程设计报告课 程 名 数据库应用 设计题目 学校教务管理系统 班 级 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 Provi

3、der=SQLOLEDB.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

4、tb_user 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() 退出登录界面Unlo

5、ad MeEnd 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 SubPri

6、vate 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)

7、Unload 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 修改查询学生信息_C

8、lick(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.Updat

9、eSet 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, adCmdTex

11、trs.UpdateSet 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.D

12、ataSource = 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 MSHFlexG

13、rid1.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.Te

14、xtrs.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.UpdateSe

15、t 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.DataSource =

16、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.DataSo

17、urce = 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.Fi

18、elds(类别) = 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

19、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.UpdateEnd Sub成绩管理信息界面：成绩管理信息代

20、码：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.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open sel

21、ect * 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

22、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 SubPrivate Sub Form_Load()con.Open Provider=SQLOLEDB.1;Integrated Se

23、curity=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

24、Sub Command1_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