VB結合SQL開發(fā)學校教務管理系統(tǒng)

1、某某學院計算機科學與技術系課程設計報告課 程 名 數(shù)據庫應用 設計題目 學校教務管理系統(tǒng) 班 級 08本科1班 專 業(yè) 計算機科學與技術 姓 名 某某某 指導教師 孫海霞 2010年8月制設計任務1.為系統(tǒng)創(chuàng)建存儲過程并設置相應的屬性2.創(chuàng)建5個存儲過程3.對所創(chuàng)建的存儲過程進行調用完成任務的思路、方法與算法： 學會怎樣創(chuàng)建存儲過程，掌握變量和字符類型的運用，以及怎樣調用存儲過程，在存儲過程中可以按商店編號來查詢、按職工編號查詢、按會員編號查詢、按會員編號和職工編號查詢、按商店編號和職工編號查詢，為了方便起見過程名要做到見名知意，以便閱讀。程序框圖：學校教務管理系統(tǒng)功能結構圖：學校教務管理系統(tǒng)

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 "prov

3、ider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=教學成績管理數(shù)據庫;data source=7mzzqcr4hi4idqv"exit function1: msgbox err.description endend functionprivate sub command1_click()if trim(text1.text) <> "" and trim(text2.text) <> "" thend

4、im 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 "用戶名或密

5、碼不正確", vbcritical end if rs.close 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

6、)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)add_resultinfo.showend subprivate sub 添加教師信息_click(index as integer)add_teinfo.showend subprivate sub

7、添加課程信息_click(index as integer)add_courseinfo.showend subprivate sub 添加學生信息_click(index as integer)add_stuinfo.showend subprivate sub 退出_click(index as integer)unload meend subprivate sub 信息查詢_click(index as integer)info.showend subprivate sub 修改查詢成績信息_click(index as integer)add_resultinfo.showend su

8、bprivate 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 sub學生信息管理界面：學生信息管理代碼：dim rs as new adodb.recordsetdim con as new adodb.connectionprivate sub comman

9、d1_click()rs.addnewrs.fields("學號") = text1.textrs.fields("姓名") = text2.textrs.fields("性別") = text3.textrs.fields("班級編號") = text4.textrs.fields("民族") = text5.textrs.updateset mshflexgrid1.datasource = rsend subprivate sub command2_click()rs.closers.op

10、en "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.field

11、s("班級編號") = 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 學生信息表"

12、, con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub form_load()con.open "provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=教學成績管理數(shù)據庫;data source=7mzzqcr4hi4idqv"rs.open "select * from 學生信息表&

13、quot;, con, adopenkeyset, adlockoptimistic, adcmdtextset mshflexgrid1.datasource = 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.fie

14、lds("性別") = text3.textrs.fields("所在系") = text4.textrs.fields("登錄名") = text5.textrs.updateset mshflexgrid1.datasource = rsend subprivate sub command2_click()rs.closers.open "select * from 教師信息表 where 教師號='" + text1.text + "'", con, adopenkeyse

15、t, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub command3_click()rs.updaters.fields("姓名") = text2.textrs.fields("性別") = text3.textrs.fields("所在系") = text4.textrs.fields("登錄名") = text5.textrs.updateset mshflexgrid1.datas

16、ource = 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 subpriv

17、ate sub form_load()con.open "provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=教學成績管理數(shù)據庫;data source=7mzzqcr4hi4idqv"rs.open "select * from 教師信息表", con, adopenkeyset, adlockoptimistic, adcmdtextset mshflexgrid1.datasource = rsrs.updateend su

18、b課程信息管理界面：課程信息管理代碼：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("類別") =

19、 text5.textrs.updateset mshflexgrid1.datasource = 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

20、("課程號") = text2.textrs.fields("院系編號") = text3.textrs.fields("學時") = text4.textrs.fields("類別") = text5.textrs.updateset mshflexgrid1.datasource = rsend subprivate sub command4_click()rs.closers.open "delete from 課程信息表 where 課程名稱='" + text1.text +

21、"'", 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 security=sspi;persist security info=false;initial catalog

22、=教學成績管理數(shù)據庫;data source=7mzzqcr4hi4idqv"rs.open "select * from 課程信息表", con, adopenkeyset, adlockoptimistic, adcmdtextset mshflexgrid1.datasource = rsrs.updateend sub成績管理信息界面：成績管理信息代碼：dim rs as new adodb.recordsetdim con as new adodb.connectionprivate sub command1_click()rs.addnewrs.fie

23、lds("學號") = text1.textrs.fields("課程號") = text2.textrs.fields("教師號") = text3.textrs.fields("分數(shù)") = text4.textrs.updateset mshflexgrid1.datasource = rsend subprivate sub command2_click()rs.closers.open "select * from 教學成績表 where 學號='" + text1.text

24、+ "'", con, adopenkeyset, adlockoptimistic, adcmdtextrs.updateset mshflexgrid1.datasource = rsend subprivate sub command3_click()rs.updaters.fields("課程號") = text2.textrs.fields("教師號") = text3.textrs.fields("分數(shù)") = text4.textrs.updateset mshflexgrid1.dataso

25、urce = 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 subprivat

26、e sub form_load()con.open "provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=教學成績管理數(shù)據庫;data source=7mzzqcr4hi4idqv"rs.open "select * from 教學成績表", con, adopenkeyset, adlockoptimistic, adcmdtextset mshflexgrid1.datasource = rsrs.updateend sub信

27、息查詢界面：信息查詢界面代碼：dim rs as new adodb.recordsetdim con as new adodb.connectionprivate 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 課程信息表 whe