VB結(jié)合SQL開(kāi)發(fā)學(xué)校教務(wù)管理系統(tǒng)

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

2、務(wù)管理系統(tǒng)E-R圖核心程序（對(duì)主要的語(yǔ)句要加注釋?zhuān)┑顷懡缑娼貓D：登陸界面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=教學(xué)成績(jī)管理數(shù)據(jù)庫(kù);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 關(guān)閉frm_main.ShowElse MsgBox 用戶(hù)名或密碼不正確, vbCritical End If rs.Close Set rs = Nothing Else MsgBox 請(qǐng)輸入用戶(hù)名和密碼, vbCritical End IfEnd SubPrivate Sub Command2_Click() 退出登錄界面Unlo

5、ad MeEnd SubMDI主題窗口截圖：MDI主題窗口代碼：Private Sub 刪除成績(jī)信息_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 刪除學(xué)生信息_Click(Index As Integer)add_stuinfo.ShowEnd SubPri

6、vate Sub 添加成績(jī)信息_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 添加學(xué)生信息_Click(Index As Integer)add_stuinfo.ShowEnd SubPrivate Sub 退出_Click(Index As Integer)

7、Unload MeEnd SubPrivate Sub 信息查詢(xún)_Click(Index As Integer)info.ShowEnd SubPrivate Sub 修改查詢(xún)成績(jī)信息_Click(Index As Integer)add_resultinfo.ShowEnd SubPrivate Sub 修改查詢(xún)教師信息_Click(Index As Integer)add_teinfo.ShowEnd SubPrivate Sub 修改查詢(xún)課程信息_Click(Index As Integer)add_courseinfo.ShowEnd SubPrivate Sub 修改查詢(xún)學(xué)生信息_C

8、lick(Index As Integer)add_stuinfo.ShowEnd Sub學(xué)生信息管理界面：學(xué)生信息管理代碼：Dim rs As New ADODB.RecordsetDim con As New ADODB.ConnectionPrivate Sub Command1_Click()rs.AddNewrs.Fields(學(xué)號(hào)) = Text1.Textrs.Fields(姓名) = Text2.Textrs.Fields(性別) = Text3.Textrs.Fields(班級(jí)編號(hào)) = Text4.Textrs.Fields(民族) = Text5.Textrs.Updat

9、eSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open select * from 學(xué)生信息表 where 學(xué)號(hào) = + Text1.Text + , con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command3_Click()rs.Updaters.Fields(姓名) = Text2.Textrs.Fields(性

10、別) = Text3.Textrs.Fields(班級(jí)編號(hào)) = Text4.Textrs.Fields(民族) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command4_Click()rs.Closers.Open delete from 學(xué)生信息表 where 學(xué)號(hào)= + Text1.Text + , con, 1, 3, adCmdTextrs.Open select * from 學(xué)生信息表, 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=教學(xué)成績(jī)管理數(shù)據(jù)庫(kù);Data Source=7MZZQCR4HI4IDQVrs.Open select * from 學(xué)生信息表, 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(教師號(hào)) = 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 教師號(hào)= + 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 教師號(hào)= + 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=教學(xué)成績(jī)管理數(shù)據(jù)庫(kù);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(課程號(hào)) = Text1.Textrs.Fields(課程名稱(chēng)) = Text2.Textrs.Fields(院系編號(hào)) = Text3.Textrs.Fields(學(xué)時(shí)) = Text4.Textrs.Fields(類(lèi)別) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSo

17、urce = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open select * from 課程信息表 where 課程名稱(chēng)= + Text1.Text + , con, 1, 3, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command3_Click()rs.Updaters.Fields(課程號(hào)) = Text2.Textrs.Fields(院系編號(hào)) = Text3.Textrs.Fields(學(xué)時(shí)) = Text4.Textrs.Fi

18、elds(類(lèi)別) = Text5.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command4_Click()rs.Closers.Open delete from 課程信息表 where 課程名稱(chēng)= + 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=教學(xué)成績(jī)管理數(shù)據(jù)庫(kù);Data Source=7MZZQCR4HI4IDQVrs.Open select * from 課程信息表, con, adOpenKeyset, adLockOptimistic, adCmdTextSet MSHFlexGrid1.DataSource = rsrs.UpdateEnd Sub成績(jī)管理信息界面：成績(jī)管理信息代

20、碼：Dim rs As New ADODB.RecordsetDim con As New ADODB.ConnectionPrivate Sub Command1_Click()rs.AddNewrs.Fields(學(xué)號(hào)) = Text1.Textrs.Fields(課程號(hào)) = Text2.Textrs.Fields(教師號(hào)) = Text3.Textrs.Fields(分?jǐn)?shù)) = Text4.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open sel

21、ect * from 教學(xué)成績(jī)表 where 學(xué)號(hào)= + Text1.Text + , con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command3_Click()rs.Updaters.Fields(課程號(hào)) = Text2.Textrs.Fields(教師號(hào)) = Text3.Textrs.Fields(分?jǐn)?shù)) = Text4.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd

22、SubPrivate Sub Command4_Click()rs.Closers.Open delete from 教學(xué)成績(jī)表 where 學(xué)號(hào)= + Text1.Text + , con, 1, 3, adCmdTextrs.Open select * from 教學(xué)成績(jī)表, 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=教學(xué)成績(jī)管理數(shù)據(jù)庫(kù);Data Source=7MZZQCR4HI4IDQVrs.Open select * from 教學(xué)成績(jī)表, con, adOpenKeyset, adLockOptimistic, adCmdTextSet MSHFlexGrid1.DataSource = rsrs.UpdateEnd Sub信息查詢(xún)界面：信息查詢(xún)界面代碼：Dim rs As New ADODB.RecordsetDim con As New ADODB.ConnectionPrivate

24、Sub Command1_Click()rs.Closers.Open select * from 課程信息表 where 課程號(hào) in (select 課程號(hào) from 教學(xué)成績(jī)表 where 教師號(hào) in (select 教師號(hào) from 教師信息表 where 姓名= + Text1.Text + ) , con, adOpenKeyset, adLockOptimistic, adCmdTextrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open select * from 教師信息表 where 教師號(hào) in (select 教師號(hào) from 教學(xué)成績(jī)表 where 課程號(hào) in (select 課程號(hào) from 課程信息表 where 課程名稱(chēng)= + Text2.Text