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

某某学院计算机科学与技术系课程设计报告课 程 名 数据库应用 设计题目 学校教务管理系统 班 级 08 本科 1 班 专 业 计算机科学与技术 姓 名 某某某 指导老师 孙海霞 2024 年 8 月制设计任务1.为系统创建存储过程并设置相应的属性2.创建 5 个存储过程3.对所创建的存储过程进行调用完成任务的思路、方法与算法： 学会怎样创建存储过程，掌握变量和字符类型的运用，以及怎样调用存储过程，在存储过程中可以按商店编号来查询、按职工编号查询、按会员编号查询、按会员编号和职工编号查询、按商店编号和职工编号查询，为了方便起见过程名要做到见名知意，以便阅读。程序框图：学校教务管理系统功能结构图：下载后可任意编辑‘学校教务管理系统 E-R 图核心程序（对主要的语句要加注释）登陆界面截图：1下载后可任意编辑登陆界面 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=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=教学成绩管理数据库;Data Source=7MZZQCR4HI4IDQV"Exit 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_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.Close2下载后可任意编辑 Set rs = Nothing Else MsgBox "请输入用户名和密码", vbCritical End IfEnd SubPrivate Sub Command2_Click() '退出登录界面Unload MeEnd SubMDI 主题窗口截图：MDI 主题窗口代码：Private Sub 删除成绩信息_Click(Index As Integer)add_resultinfo.ShowEnd SubPrivate Sub 删除老师信息_Click(Index As Integer)add_teinfo.ShowEnd SubPrivate Sub 删除课程信息_Click(Ind...