SQL學生成績管理系統(tǒng)1

1、指導教師：霍戌文、郭奕億應(yīng)用軟件實踐課程設(shè)計（2012/2013-2 分散）班級:*學號：*姓名：*浙江理工大學科技與藝術(shù)學院2013年3月應(yīng)用軟件實踐課程設(shè)計報告目 錄1. 題目32. 目的與要求33需求分析34.數(shù)據(jù)建模與分析45數(shù)據(jù)庫建立56. 數(shù)據(jù)庫應(yīng)用開發(fā)與運行 86.1登錄程序代碼、界面圖、詳細功能說明 86.2選擇界面程序代碼、界面圖、詳細功能說明.106.3繳費信息界面程序代碼、界面圖、詳細功能說明.116.4繳費信息修改界面程序代碼、界面圖、詳細功能說明176.5學分信息界面程序代碼、界面圖、詳細功能說明.196.6學分信息修改界面程序代碼、界面圖、詳細功能說明.206.7

2、基本信息界面程序代碼、界面圖、詳細功能說明.216.8 基本信息修改界面程序代碼、界面圖、詳細功能說明.227. 結(jié)果分析、結(jié)論與體會 238. 參考文獻及資料 24、題目學生基本信息管理系統(tǒng)二、目的和要求：1. 設(shè)計目的：1 讓學生按照軟件工程的規(guī)范掌握一般應(yīng)用軟件開發(fā)的基本過程、基本技術(shù)，為以 后的畢業(yè)設(shè)計奠定基礎(chǔ)。2掌握關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的編程技術(shù)，并能獨立完成一般小系統(tǒng)的程序設(shè)計、 調(diào)試運行等工作。3. 培養(yǎng)把所學知識運用到具體對象，理解面向?qū)ο缶幊汤碚摚⒛芮蟪鼋鉀Q方案的 能力。2. 任務(wù)要求1、學生基本信息設(shè)置：包括專業(yè)、班級、姓名、學號等；2、學生學分信息及繳費信息錄入：包括已

3、獲學分、還需選修學分，繳費信息等；3、學生基本信息和學分、繳費信息的查詢及增刪改；4、學分及繳費信息的統(tǒng)計(此項可選)。三、需求分析：SQL是一種結(jié)構(gòu)化數(shù)據(jù)庫查詢語言，其發(fā)音為“ sequel ”或“S -Q-L”。盡管MICROSOFT 以其特有的方式加入了所有權(quán)聲明，但它在大多數(shù)據(jù)庫應(yīng)用中近乎成為一種標準。簡言之， 它是一種使用你選擇的標準從數(shù)據(jù)庫記錄中選擇某些記錄的方法。就象SQL的名字一樣，我們可以通過容易理解的查詢語言，來和數(shù)據(jù)庫打交道，從數(shù) 據(jù)庫中得到我們想要的數(shù)據(jù)。對于 SQL語言，有兩個組成部分：DML(data manipulation Ianguage):它們是 SELEC

4、T UPDATE INSERT DELETE就象它的名字一樣，這4條命令是用來對數(shù)據(jù)庫里的數(shù)據(jù)進行操作的語言。(1) 登錄管理：實現(xiàn)系統(tǒng)加密功能(2) 學籍管理：主要功能用來對學生的學籍進行管理和記錄。(3) 收費管理：對學生收費進行管理。包括總費用，已繳費用，還需退款，繳費統(tǒng)計 等修改。(4) 修改管理：管路員對學生的基本信息，學分信息，繳費信息的修改，刪除，添加 等功能(5) 學分管理：對學生的學分進行管理，包括學分標準，學分統(tǒng)計，已修學分等學分 信息修改。(6) 查詢管理：學生對自己基本信息，學分信息，繳費信息的查詢。四：數(shù)據(jù)分析與建模學分信息表登錄表繳費信息表學生基本信息表圖4.1數(shù)據(jù)

5、庫關(guān)系表圖4.1是以登錄表信息為約束條件，又以各表的學號為主鍵形成的約束關(guān)系。學生基本信息管理系統(tǒng)登錄信息管理學 生 信 息 添 加學 生 信 息 添 加基本信息管理學 生 信 息 修 改學 生 信 息 刪 除學 分 信 息 添 加學分信息管理學 分 信 息 修 改學 分 信 息 刪 除繳費信息管理繳繳學1學費費分分信信信信息息息息添訂修1統(tǒng)1統(tǒng)加改計計學 分 信 息 統(tǒng) 計圖4.2系統(tǒng)功能模塊圖4.2是學生基本信息管理系統(tǒng)的幾大功能模塊以及其子模塊五、數(shù)據(jù)庫建立:圖5.1圖5.1誦爲L表徑本電息”，位置皇“學生営“匚三亙基本信息表包含了學生的學號，姓名等的基本結(jié)構(gòu)。猶 設(shè)計義“學分信剪徒置星

6、"學生皆” 亙 亙 亙分片分學學 號名業(yè)學陰需 學姓?？傄堰€長soO-OO-OJ1*alJ* M圖5.2圖5.2學分信息表包含了學生的總學分，已修學分等的基本結(jié)構(gòu)。筋設(shè)計表，登錄“.橙題 悻生昔理垂“ 亙亙衛(wèi)列名數(shù)搖類型長廈*?nvearch-ar50char10nv ar ch ar50圖5.3圖5.3登錄信息表包含了學生的學號，密碼等的基本結(jié)構(gòu)。榆設(shè)計表圳歸歙,鎚是"學生管理琢"中、-locair上圖5.4繳費信息表包含了學生的總繳費，已繳費用等的基本結(jié)構(gòu)。f暢表“基本信息"中的舷，包置星轡生苣理至鼎 中* "(local)-上專業(yè)年齡學號

7、=. 回 卻男女女女女文女女女女男262T27272727272Txbl06etE01 Kbl0580202 xblO6SC2O3 jcblO&SOSOA xblO6SC2O5 xbl06S0206 xbl06S020T xbl06B020e ：bl06S0209 KblO&SD210 嶺10680211堵慮諾玫唯貞薇解酢融辭穎 fe王白李湯陸趙黃江李周W通信工程 通信工程 通信工程 通信工程 通信工程 通信工程 通信工程 謹信工程 通信工程 通信工程 通信工程一| 亠亠一亠.一 一 一 一 F I- 一 I二二- 二亠一亠亠一亠 一 一 F 一圖5.5圖5.5基本信息表包含了

8、學生的學號，姓名基本內(nèi)容冷表"學分信息"中倔臨位置是"學生苣理彩T中* "(local)"上學呂姓屯專業(yè)xbl06SD201 xbl0630202 sbl068D203 xbl0680204 xbl06e02U5Kbl06S0206 xbl06B020TKbl06S0205xbl068020S sb10680211通信工程12310通信工程123120通信工瑕123120通信工程123120淒信工程123120通信工程123120潼信工程123120通信工程123120通信工程1231211231230圖5.6圖5.6學分信息表包含了學生的總學

9、分，已修學分基本內(nèi)容r冷表口號諛據(jù)，垃晝B “學=E1S3學號xblD6802Ol0201Kbl063020202QExbl06302030203xbl06S02040204xllOBBOZOS0205xbl06B02050206xbioGaosor0207xbl06802030206品 06602090209nbl0630210021Qxbioeao2i10211xbl06302120212賤臺 明民敏偉 小百玫唯貞薇曉智周志賴燥 王白李湯陸趙S江李周亶曹已繳妾用xbirea(J20&3：b 1068020?Lb10680208Kb10680209xbl0680210xb106802

10、01 xblO6atE0£vb1068Q203xB10600204xb10600205小百玫唯貞薇曉智周志 王白李湯陸趙黃工李周100000100000通信工程 通信工程 適信工程 通官工程 通信工程 通信工程 僅潔工程 通信工程 通信工程100000100000100000100000100W0100:00100000LOOQOO100000800008COOO800001600001EOOOD180000180000leoooo0<W±>921 ID<mnx>20000<NULL>20000200000<wx>0<N

11、ULL>0<W1±>0<ML>0<WULL>圖5.7圖5.7登錄信息表包含了學生的總學分，已修學分基本內(nèi)容竝表"匏M譴"中卷逛，檢置星"學主苣理累府中、'(localr上學號圖5.8圖5.8登錄信息表包含了學生的總繳費，已繳費用基本內(nèi)容乂Jk1CL?.Tm嶺我圖5.9圖5.9為各表間的關(guān)系圖。六、數(shù)據(jù)庫應(yīng)用開發(fā)與運行：（程序代碼、界面圖、詳細功能說明）6.1登錄程序代碼、界面圖、詳細功能說明a. 登錄界面程序代碼：(1) 登錄鍵Private Sub Comma nd1_Click()Static cou

12、 nt As In teger '靜態(tài)變量，其值會保留Dim sqlstr As Stri ng '創(chuàng)建一個字符串Adodc1.RecordSource = "select *from登錄 where 學號=”'& Text1 & "”'示表登錄上的所有字段Adodc1. Refresh ' 更新If Adodc1.Recordset.BOF The n '若沒有找到用戶MsgBox "用戶名錯誤，請重新輸入！Text1.Text =""Text1.SetFocus 'TE

13、XT1獲得焦點Text2.Text =""ElseAdodc1.RecordSource = "select *from sqlstr = Adodc1.Recordset.Fields(" sqlstr = Trim(sqlstr)If Text2.Text = sqlstr The nLoad Form1: Form1.ShowUn load meElseMsgBox "密碼錯誤，請重新輸入!Text2.Text =""Text2.SetFocusEnd Ifcount = 0End Ifcount = count +

14、1If count = 3 ThenUn load MeEnd IfEnd Sub(2) 取消鍵Private Sub Comma nd2_Click()Hide MeEnd Sub", vbExclamati on,"敬+ H警告登錄where密碼='"& Text2 & "”'密碼"）", vbExclamati on,"敬+ H警告b. 登錄界面圖:圖6.1圖6.1為登錄界面圖包含登錄內(nèi)容。C.登錄界面詳細功能說明登錄界面退出鍵退出輸入密碼重輸密碼輸入超過三次顯示選擇界面正確退出圖6.2

15、圖6.2為登錄詳細的功能實現(xiàn)流程，與實現(xiàn)的功能。6.2選擇界面程序代碼、界面圖、詳細功能說明a. 選擇界面程序代碼：(1) 退出鍵Private Sub Comma nd1_Click() den gluxit on g.ShowUn load MeEnd Sub(2) 學生基本信息鍵Private Sub 學生基本信息 _Click(lndex As Integer) jibe nxin xi.ShowUn load MeEnd Sub(3) 學分信息鍵Private Sub 學分信息 _Click(I ndex As In teger) xuefe nxin xi.ShowUn load

16、MeEnd Sub(4) 學生繳費信息鍵Private Sub 學生繳費信息 _Click(lndex As Integer) jiaofeix in xi.ShowUn load MeEnd Subb. 選擇界面圖：圖6.3圖6.3為選擇界面圖，包含多種功能選項。C.選擇界面詳細功能說明選擇界面學生基本信息鍵學生繳費信息鍵學分信息鍵退出鍵學生基本信息界面學生繳費信息界面學分信息界面登錄界面圖6.4圖6.4為選擇界面的實現(xiàn)選擇的詳細流程及其包含的詳細功能。6.3繳費信息界面程序代碼、界面圖、詳細功能說明a.繳費信息界面程序代碼(1) 添加鍵Private Sub Cmdadd1_Click()

17、Dim sqlstr As Stri ngAdodc1.RecordSource = "select *from繳費信息 where 學號='"& Text1 & "”'Adodc1.RefreshIf Adodc1.Recordset.EOF = False The n '判斷學號是否重復(fù)MsgBox (" 學號重復(fù)錯誤!"), vbExclamation,"檢查學號"Text1 =""Text1.SetFocusAdodc1.RefreshExit SubEls

18、eAdodc1 .RecordSource = "select *from登錄 where 學號='"& Text1 & "”'Adodc1. RefreshIf Adodc1. Recordset.BOF The n '諾沒有找到用戶MsgBox " 學號錯誤，請重新輸入！ ", vbExclamation,"檢查學號"Text1.Text =""Text1.SetFocus 'TEXT1獲得焦點、繳費信息"登錄 where 姓名='&q

19、uot;& Text2 & "”' 姓名")Adodc1.RecordSource = "select *from Adodc1. RefreshExit SubEnd IfEnd IfAdodc1.RecordSource = "select *from sqlstr = Adodc1.Recordset.Fields(" sqlstr = Trim(sqlstr)If Text2.Text <> sqlstr Then警告MsgBox "姓名錯誤，請重新輸入！”, vbExclamatio n,

20、"Text2.Text =""Text2.SetFocus 'TEXT2獲得焦點Adodc1.RecordSource = "select *from繳費信息"Adodcl. RefreshExit SubElse繳費信息"Adodcl.RecordSource = "select *fromAdodcl.RefreshAdodcl.RecordSource = "select *fromAdodc1.Recordset.Fields("Adodc1.Recordset.Fields("

21、Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("AdodcI.Recordset.Update 學號")=Textl.Text 姓名")=Text2.Text 專業(yè)")=Text3.Text 總繳費")=Text4.Text 已繳費用")=Text5.Text 還需繳費")=Text6.Text繳費信息"Adodcl. RefreshM

22、sgBox ("添加成功!")End IfEnd Sub(2) 還需繳費鍵Private Sub Comma nd3_Click()If Val(Text4.Text) < Val(Text5.Text) ThenText6.Text = 0a = Abs(Val(Text4.Text) - Val(Text5.Text) MsgBox ("該學生還有退款"& a & "元!") End IfIf Val(Text4.Text) = Val(Text5.Text) Then a = Val(Text4.Text)

23、 - Val(Text5.Text) Text6.Text = aEnd IfIf Val(Text4.Text) > Val(Text5.Text) The na = Val(Text4.Text) - Val(Text5.Text)Text6.Text = aMsgBox ("該學生還需繳費"& a & "元!")End IfEnd Sub(3) 刪除鍵Private Sub Cmddelete_Click()Dim myval As Stri ngmyval = MsgBox("是否要刪除該記錄？", vb

24、YesNo)If myval = vbYes ThenMsgBox (" 刪除成功!")End IfEnd Sub(4) 修改鍵Private Sub Cmdmodify_Click()jiaofeix in xixiugai.ShowEnd Sub(5) 刷新鍵Private Sub Comma nd1_Click()Adodc1.RecordSource = "select * from 繳費信息" Adodcl.RefreshEnd Sub(5) 返回選擇界面鍵Private Sub Cmdexit_Click()Forml.ShowUn load

25、 MeEnd Sub(6) 重新登錄鍵Private Sub Comma nd2_Click()den gluxit on g.ShowUn load MeEnd Sub(7) 統(tǒng)計鍵Private Sub Comma nd5_Click()Sum = 0For i = 0 To Adodcl .Recordset.RecordCount - 1DataGridl.Row = iIf Trim(Adodc1.Recordset.Fields("suml = suml + 1Elsesuml = suml + 0End IfIf Trim(Adodc1.Recordset.Fields

26、("sum2 = sum2 + 1Elsesum2 = sum2 + 0End IfIf Trim(Adodc1.Recordset.Fields("sum3 = sum3 + 1Elsesum3 = sum3 + 0End IfNext i還需繳費")<> 0 Then已繳費用")>=100000 Then已繳費用")> 100000 Then登錄 where 學號='"& Text7 & "”，諾沒有找到用戶", vbExclamatio n," 警告&

27、quot;繳費信息"繳費信息where學號='"& Text7 &Text8.Text = sumlText9.Text = sum2TextIO.Text = sum3End Sub(8) 查詢鍵Private Sub Comma nd4_Click()AdodcI.RecordSource = "select *fromAdodc1. RefreshIf Adodc1.Recordset.BOF The n 'MsgBox "學號錯誤，請重新輸入！Text7.Text =""Text7.SetFoc

28、us 'TEXT1 獲得焦點Adodc1.RecordSource = "select * fromAdodcl. RefreshExit SubElseAdodcI.RecordSource = "select * fromIHHAdodcl.RefreshEnd IfEnd Subb.繳費信息界面圖：圖6.5圖6.5為繳費信息的界面圖，以及其包含的選項C.繳費信息界面詳細功能說明(1)總布局圖繳費信息界面1 1 1刪除鍵修改鍵重新登錄鍵J統(tǒng)計鍵添加鍵計算鍵返回選擇界面鍵查詢鍵圖6.6圖6.6為繳費信息界面的各個將實現(xiàn)的詳細功能，其中有些功能實現(xiàn)簡單，像刪除鍵，返

29、回鍵等等。但有些功能實現(xiàn)較為復(fù)雜。將復(fù)雜的過程簡單，將以圖6.7，圖6.8，圖6.9簡單明了的介紹其流程。(2)計算鍵流程圖計算鍵總繳費 <已繳費總繳費=已繳費總繳費 > 已繳費顯示需繳費情況或需退款情款圖6.7圖6.7為計算鍵流程圖，有這樣的流程圖，思路清晰，會使編程過程簡單化(3) 添加鍵流程圖添加鍵學號重復(fù)學號無重復(fù)沒有找到用戶找到用戶重新輸入學號，直至找到用戶輸入姓名姓名正確姓名錯誤重新輸入姓名直至正確圖6.8為添加鍵流程圖，添加的過程十分的復(fù)雜。但畫出流程圖之后會是編程的過程少走 很多彎路。(4) 統(tǒng)計鍵流程圖統(tǒng)計鍵I判斷還需繳費與總繳費的大小顯示結(jié)果圖6.9圖6.9為統(tǒng)

30、計鍵流程圖，統(tǒng)計鍵的流程看似簡單，但其中包含了許多知識，但我們主要圍繞判斷大小而展開分析。6.4繳費信息修改界面程序代碼、界面圖、詳細功能說明a.繳費信息修改界面程序代碼(1)修改鍵Private Sub Comma nd2_Click()Dim a As Stri ngDim b As Stri ngDim c As Stri ngDim d As Stri ngDim e As Stri nga = Text1.Textb = Text2.Textc = Text3.Textd = Text4.Texte = Text6.Text(”(”Adodc1.Recordset.Fields(&q

31、uot;Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("專業(yè)")=a總繳費")=b已繳費用")=c 還需繳費")=d 還需退款")=eAdodc1.RefreshEnd Sub(2)顯示鍵Private Sub Comma nd1_Click()Adodc1.RecordSource = "select *from繳費信息where學號='"& Text5 & "”'Adodc1. RefreshIf Adodc

32、1.Recordset.BOF Then '諾沒有找到用戶MsgBox "學號錯誤，請重新輸入!II,vbExclamati on,"警告IIText5.Text =""Text5.SetFocus 'TEXT1獲得焦點Adodc1.RecordSource = "select * from繳費信息IIAdodcl. RefreshExit SubElse專業(yè)")Textl.Text = Adodc1.Recordset.Fields("Text2.Text = (”總繳費")Text3.Text

33、= Adodc1.Recordset.Fields("已繳費用")Text4.Text = Adodc1.Recordset.Fields("還需繳費")End IfEnd Sub(3)其他鍵與繳費信息界面里也要實現(xiàn)的控件的大致相同,詳情見6.3ab.繳費信息修改界面圖圖 6.10圖6.10為繳費信息修改圖，其中包含了它的信息，及要實現(xiàn)功能的控件c. 繳費信息修改界面詳細功能說明(1)總流程圖r1繳費信息修改界面I顯示該學生原始信息鍵0_J修改鍵LJF1退出鍵L計算鍵圖 6.11圖6.11為繳費信息修改的詳細流程圖，及其將要實現(xiàn)的詳細功能6.5學分信息界面程序代碼、界面圖、詳細功能說明a. 學分信息界面程序代碼代碼詳情可見6.3a里的繳費信息代碼，各個鍵將要實現(xiàn)的功能大致相同b. 學分信息界面圖圖 6.12圖