vb结合sql开发学校教务管理系统

《vb结合sql开发学校教务管理系统》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、学校教务管理系统E-R图12核心程序（对主要的语句要加注释）登陆界面截图：登陆界面vb代码：Publicstu_flagAsIntegerPubliccls_flagAsIntegerPubliccourse_flagAsIntegerPublicserverstrAsStringPublicueserstrAsStringPublicpassstrAsStringPublicFunctionconn()AsADODB.ConnectionOnErrorGoTo1Setconn=NewADODB.Connectionconn.Open"Provid

3、er=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=教学成绩管理数据库;DataSource=7MZZQCR4HI4IDQV"ExitFunction1:MsgBoxErr.DescriptionEndEndFunctionPrivateSubCommand1_Click()IfTrim(Text1.Text)<>""AndTrim(Text2.Text)<>""ThenDimrsAsNewRecordsetrs.Open"selectuser

4、namefromtb_userwhereusername='"&Me.Text1&"'andpassword='"&Me.Text2&"'",conn,adOpenKeyset,adLockOptimisticIfNotrs.EOFThenUnloadMe'关闭frm_main.ShowElseMsgBox"用户名或密码不正确",vbCriticalEndIf12rs.CloseSetrs=NothingElseMsgBox"请输入用户名和密码",vbCriticalEndIfEndSubPrivateSubCommand2_Click()'退出登

5、录界面UnloadMeEndSubMDI主题窗口截图：MDI主题窗口代码：PrivateSub删除成绩信息_Click(IndexAsInteger)add_resultinfo.ShowEndSubPrivateSub删除教师信息_Click(IndexAsInteger)add_teinfo.ShowEndSubPrivateSub删除课程信息_Click(IndexAsInteger)add_courseinfo.ShowEndSubPrivateSub删除学生信息_Click(IndexAsInteger)add_stuinfo.ShowE

6、ndSubPrivateSub添加成绩信息_Click(IndexAsInteger)add_resultinfo.ShowEndSub12PrivateSub添加教师信息_Click(IndexAsInteger)add_teinfo.ShowEndSubPrivateSub添加课程信息_Click(IndexAsInteger)add_courseinfo.ShowEndSubPrivateSub添加学生信息_Click(IndexAsInteger)add_stuinfo.ShowEndSubPrivateSub退出_Click(IndexA

7、sInteger)UnloadMeEndSubPrivateSub信息查询_Click(IndexAsInteger)info.ShowEndSubPrivateSub修改查询成绩信息_Click(IndexAsInteger)add_resultinfo.ShowEndSubPrivateSub修改查询教师信息_Click(IndexAsInteger)add_teinfo.ShowEndSubPrivateSub修改查询课程信息_Click(IndexAsInteger)add_courseinfo.ShowEndSubPrivateSub修改

8、查询学生信息_Click(IndexAsInteger)add_stuinfo.ShowEndSub学生信息管理界面：12