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

2、務(wù)管理系統(tǒng)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=教學(xué)成績管理數(shù)據(jù)庫;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 用戶名或密碼不正確, 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 刪除學(xué)生信息_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 添加學(xué)生信息_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 修改查詢學(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é)號) = 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 學(xué)生信息表 where 學(xué)號 = + 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 學(xué)生信息表 where 學(xué)號= + 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é)成績管理數(shù)據(jù)庫;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(教師號) = 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=教學(xué)成績管理數(shù)據(jù)庫;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(學(xué)時) = 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(學(xué)時) = 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=教學(xué)成績管理數(shù)據(jù)庫;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(學(xué)號) = Text1.Textrs.Fields(課程號) = Text2.Textrs.Fields(教師號) = Text3.Textrs.Fields(分?jǐn)?shù)) = Text4.Textrs.UpdateSet MSHFlexGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()rs.Closers.Open sel

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

22、SubPrivate Sub Command4_Click()rs.Closers.Open delete from 教學(xué)成績表 where 學(xué)號= + Text1.Text + , con, 1, 3, adCmdTextrs.Open select * from 教學(xué)成績表, 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é)成績管理數(shù)據(jù)庫;Data Source=7MZZQCR4HI4IDQVrs.Open select * from 教學(xué)成績表, 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 教學(xué)成績表 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 教學(xué)成績表 where 課程號 in (select 課程號 from 課程信息表 where 課程名稱= + Text2.Text