SQL學(xué)生成績(jī)管理系統(tǒng)1

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

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

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

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

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

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

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

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

9、分，已修學(xué)分基本內(nèi)容r冷表口號(hào)諛據(jù)，垃晝B “學(xué)=E1S3學(xué)號(hào)xblD6802Ol0201Kbl063020202QExbl06302030203xbl06S02040204xllOBBOZOS0205xbl06B02050206xbioGaosor0207xbl06802030206品 06602090209nbl0630210021Qxbioeao2i10211xbl06302120212賤臺(tái) 明民敏偉 小百玫唯貞薇曉智周志賴燥 王白李湯陸趙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登錄信息表包含了學(xué)生的總學(xué)分，已修學(xué)分基本內(nèi)容竝表"匏M譴"中卷逛，檢置星"學(xué)主苣理累府中、'(localr上學(xué)號(hào)圖5.8圖5.8登錄信息表包含了學(xué)生的總繳費(fèi)，已繳費(fèi)用基本內(nèi)容乂Jk1CL?.Tm嶺我圖5.9圖5.9為各表間的關(guān)系圖。六、數(shù)據(jù)庫(kù)應(yīng)用開發(fā)與運(yùn)行：（程序代碼、界面圖、詳細(xì)功能說(shuō)明）6.1登錄程序代碼、界面圖、詳細(xì)功能說(shuō)明a. 登錄界面程序代碼：(1) 登錄鍵Private Sub Comma nd1_Click()Static cou

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

13、XT1獲得焦點(diǎn)Text2.Text =""ElseAdodc1.RecordSource = "select *from sqlstr = Adodc1.Recordset.Fields(" sqlstr = Trim(sqlstr)If Text2.Text = sqlstr The nLoad Form1: Form1.ShowUn load meElseMsgBox "密碼錯(cuò)誤，請(qǐng)重新輸入!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.登錄界面詳細(xì)功能說(shuō)明登錄界面退出鍵退出輸入密碼重輸密碼輸入超過(guò)三次顯示選擇界面正確退出圖6.2

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

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

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

18、eAdodc1 .RecordSource = "select *from登錄 where 學(xué)號(hào)='"& Text1 & "”'Adodc1. RefreshIf Adodc1. Recordset.BOF The n '諾沒(méi)有找到用戶MsgBox " 學(xué)號(hào)錯(cuò)誤，請(qǐng)重新輸入！ ", vbExclamation,"檢查學(xué)號(hào)"Text1.Text =""Text1.SetFocus 'TEXT1獲得焦點(diǎn)、繳費(fèi)信息"登錄 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 "姓名錯(cuò)誤，請(qǐng)重新輸入！”, vbExclamatio n,

20、"Text2.Text =""Text2.SetFocus 'TEXT2獲得焦點(diǎn)Adodc1.RecordSource = "select *from繳費(fèi)信息"Adodcl. RefreshExit SubElse繳費(fèi)信息"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 學(xué)號(hào)")=Textl.Text 姓名")=Text2.Text 專業(yè)")=Text3.Text 總繳費(fèi)")=Text4.Text 已繳費(fèi)用")=Text5.Text 還需繳費(fèi)")=Text6.Text繳費(fèi)信息"Adodcl. RefreshM

22、sgBox ("添加成功!")End IfEnd Sub(2) 還需繳費(fèi)鍵Private Sub Comma nd3_Click()If Val(Text4.Text) < Val(Text5.Text) ThenText6.Text = 0a = Abs(Val(Text4.Text) - Val(Text5.Text) MsgBox ("該學(xué)生還有退款"& 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 ("該學(xué)生還需繳費(fèi)"& a & "元!")End IfEnd Sub(3) 刪除鍵Private Sub Cmddelete_Click()Dim myval As Stri ngmyval = MsgBox("是否要?jiǎng)h除該記錄？", 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 繳費(fèi)信息" 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)計(jì)鍵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還需繳費(fèi)")<> 0 Then已繳費(fèi)用")>=100000 Then已繳費(fèi)用")> 100000 Then登錄 where 學(xué)號(hào)='"& Text7 & "”，諾沒(méi)有找到用戶", vbExclamatio n," 警告&

27、quot;繳費(fèi)信息"繳費(fèi)信息where學(xué)號(hào)='"& 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 "學(xué)號(hào)錯(cuò)誤，請(qǐng)重新輸入！Text7.Text =""Text7.SetFoc

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

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

30、計(jì)鍵流程圖，統(tǒng)計(jì)鍵的流程看似簡(jiǎn)單，但其中包含了許多知識(shí)，但我們主要圍繞判斷大小而展開分析。6.4繳費(fèi)信息修改界面程序代碼、界面圖、詳細(xì)功能說(shuō)明a.繳費(fèi)信息修改界面程序代碼(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總繳費(fèi)")=b已繳費(fèi)用")=c 還需繳費(fèi)")=d 還需退款")=eAdodc1.RefreshEnd Sub(2)顯示鍵Private Sub Comma nd1_Click()Adodc1.RecordSource = "select *from繳費(fèi)信息where學(xué)號(hào)='"& Text5 & "”'Adodc1. RefreshIf Adodc

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

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