【正文】 名稱：身份證號 別名： 數(shù)據(jù)項值： 類型：文本型 長度：17個字節(jié) 取值范圍：簡述：每位高校學(xué)生都有身份證號，所以用身份證號也可以唯一標(biāo)識一名學(xué)生。 根據(jù)前面的分析與評價結(jié)果，提出新系統(tǒng)邏輯模型如圖2－9所示。由于各個大學(xué)都在持續(xù)擴(kuò)招，學(xué)生的數(shù)量日益龐大，傳統(tǒng)的手工成績管理不僅工作量大，而且容易出現(xiàn)問題。學(xué)生用戶只能看到自己的學(xué)習(xí)成績，并且不能修改。（1）按照課程角度進(jìn)行管理按課程角度管理教師可以看到課程信息和成績信息。在成績信息中，教師可以對學(xué)習(xí)成績進(jìn)行增加、修改和刪除。當(dāng)教師用鼠標(biāo)雙擊某一學(xué)生信息時，可以自動顯示出該課程的這個學(xué)生所有課程的學(xué)習(xí)成績，并同時自動計算出這個學(xué)生的總分和平均分。學(xué)生信息包括學(xué)號、姓名、班級、生日、性別、地址、電話和簡歷。學(xué)生成績管理系統(tǒng)學(xué)生用戶打印報表查詢自己的考試成績教師用戶打印報表對學(xué)生進(jìn)行增刪改對課程進(jìn)行增刪改管理員用戶對教師、院系專業(yè)等進(jìn)行增刪改對學(xué)生成績進(jìn)行增刪改 學(xué)生成績管理系統(tǒng)功能模塊圖目標(biāo)系統(tǒng)應(yīng)該達(dá)到以下要求： 時間經(jīng)濟(jì)性?？衫斫庑?。可用性。選擇微軟平臺作為主導(dǎo)，一方面考慮目前微軟的飛速發(fā)展，越來越多的企業(yè)在規(guī)劃內(nèi)部網(wǎng)絡(luò)時，將微軟平臺作為首選方案；另一方面從技術(shù)角度來講，微軟平臺上的應(yīng)用無論是在開發(fā)上，還是在軟件的部署上都非常容易，而且性能優(yōu)越。用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入?！霸合敌畔ⅰ钡臄?shù)據(jù)項有：編號，名稱，簡述。根據(jù)上面的設(shè)計可以規(guī)劃出的實(shí)體有：學(xué)生實(shí)體、課程實(shí)體和學(xué)生成績、班級、院系、教師、管理員、專業(yè)這些實(shí)體。教師信息：｛編號，姓名，性別，生日，所在院系，電話，家庭住址，簡歷，登錄系統(tǒng)密碼｝管理員信息：｛名稱，密碼｝。(2) 若實(shí)體間聯(lián)系為1:n，則在n端實(shí)體轉(zhuǎn)換成的關(guān)系中加入1端實(shí)體轉(zhuǎn)換成的關(guān)系碼。這雖然有悖于傳統(tǒng)的關(guān)系數(shù)據(jù)庫理論，但是考慮到選擇的機(jī)器型號和檔次等因素，如果增加的冗余不會明顯增加存儲空間和降低處理效率，并且對編程實(shí)現(xiàn)有很大幫助，往往可以采用這種方法。所以數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計應(yīng)保證數(shù)據(jù)的相對穩(wěn)定，這樣才能考慮在新的數(shù)據(jù)結(jié)構(gòu)下的業(yè)務(wù)處理方式。字段名稱內(nèi) 容類 型長 度備注Serial學(xué)號文本7主關(guān)鍵字Name姓名文本10Class所屬班級文本5Birthday生日日期時間Sex性別文本2Pass身份證號文本17Pwd登錄密碼文本15course：課程信息表字段名稱內(nèi) 容類 型長 度備注Serial課程編號文 本50主關(guān)鍵字Name課程名稱文 本50Period學(xué)時數(shù)數(shù) 字長整型Score分?jǐn)?shù)數(shù)字表示此科目的滿分值 Typename課程類型文本50字段名稱內(nèi) 容類 型長 度備注Id序號文 本6主關(guān)鍵字Name類型名稱文 本10coursetype表department表字段名稱內(nèi) 容類 型長 度備注Depar_Id院系序號文 本6主關(guān)鍵字Name名稱文 本10teacher表字段名稱內(nèi) 容類 型長 度備注Serial院系序號文 本6主關(guān)鍵字Name姓名文 本10sex性別文 本2Birthday出生年月日期8Dept_name所在院系文 本16Tel電話文 本12Address住址文 本12Resume簡歷Memopwd登錄密碼文 本12 admin表字段名稱內(nèi) 容類 型長 度備注Admin管理員文 本12主關(guān)鍵字Pwd密碼文 本12profession表字段名稱內(nèi) 容類 型長 度備注Id序 號文 本12主關(guān)鍵字Name專業(yè)名稱文 本12Dept_name所在院系（4）、各個表之間的關(guān)系如下： 圖313 系統(tǒng)各表之間的關(guān)系第四章 學(xué)生成績管理系統(tǒng)的實(shí)現(xiàn)下面給出系統(tǒng)開發(fā)出來的詳細(xì)界面以闡述學(xué)生成績管理系統(tǒng)的具體功能。data source=。 amp。 amp。教師msql = select *from teacher where =39。 and =39。Case 2: 39。 39。 39。學(xué)生 MsgBox 『 同 學(xué) 』你好！歡迎使用本學(xué)生成績管理系統(tǒng)！, vbOKOnly, 『 同 學(xué) 』登陸成功！ = True = False = False = False = False = False = True = False = True = FalseUnload LoginEnd SelectUnload MeEnd IfEnd SubPrivate Sub Command1_Click()Dim Conn As New Dim mlink As Stringmlink = provider=。管理員msql = select *from admin where =39。 and =39。Case 1: 39。 39。 39。 amp。 amp。教師 MsgBox 〖 老 師〗您好！歡迎您使用本學(xué)生成績管理系統(tǒng)！, vbOKOnly, 〖 老 師 〗登陸成功！ = True = False = True = True = True = True = True = False = True = TrueUnload Login Case 2: 39。教師用戶進(jìn)入“成績管理”中的“按學(xué)生進(jìn)行管理”功能。39。39。如果沒有任何記錄，則清空顯示目錄；并且使瀏覽部分和管理部分的按鈕無效 If .State = adStateClosed Then .Open 39。39。通過當(dāng)前學(xué)生的成績，來得到該學(xué)生的總成績和平均成績Sub Calculate(sSerial As String) Dim rs As New Dim str str = select avg(score) as avg_score, sum(score) as sum_score from score where studentid=39。 str, , adOpenStatic If Not Then = FormatNumber(rs(sum_score), 2) = FormatNumber(rs(avg_score), 2) End IfEnd Sub39。 amp。39。 (1).CellText() 39。如果用戶沒有點(diǎn)擊確認(rèn)按鈕，則退出處理過程 If Not .mbAdded Then Unload frmAddCourse Exit Sub End If 39。 (0).CellText() amp。 . amp。 . str = str amp。刷新整個網(wǎng)格控件 Call RefreshScore((0).CellText()) Exit Sub errHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdDelete_Click() On Error GoTo errHandler If MsgBox(確實(shí)要刪除此成績記錄？, vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn)) = vbYes Then Dim sSerial sSerial = (0).CellText() Dim stuSerial stuSerial = (0).CellText() Dim str str = delete from score where studentid = 39。 and courseid=39。 39。刷新grdScore控件 = OneScore Call Calculate((0).CellText()) End If Exit SuberrHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub cmdEdit_Click() 39。將當(dāng)前所定位的課程信息寫入到frmAddCourse的dcbSerial和dcbName控件中 . = (0).CellText() . = . 39。如果用戶沒有點(diǎn)擊確認(rèn)按鈕，則退出處理過程 If Not .mbAdded Then Unload frmAddCourse Exit Sub End If 39。 where studentid=39。 str = str amp。 39。 On Error Resume Next 39。 cboClass amp。39。顯示查找窗口 Load frmFind 39。 .msFindOp amp。 %39。 39。 End If sTemp = select * from student where amp。查找數(shù)據(jù)，并刷新用以導(dǎo)航的網(wǎng)格控件 sTemp Call RefreshGrid Exit Sub errHandler: MsgBox 沒有符合條件的紀(jì)錄！, vbExclamation, 確認(rèn)End SubPrivate Sub Form_Load()39。從class中讀取數(shù)據(jù)，填充到cboClass復(fù)合框中 If = adStateClosed Then 全部 While Not rsClass(Name) Wend = 0 = True If gnUserType = 0 Then 39。學(xué)生身份登錄 = False = False = False If = adStateOpen Then select * from student where serial =39。 = sqlStudent End If Call grdScan_ChangeEnd SubPrivate Sub grdScan_Change() If 0 Then Call RefreshScore((0).CellText()) End IfEnd SubPrivate Sub grdScan_DblClick() = 1End SubPrivate Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 39。在發(fā)布學(xué)生成績管理應(yīng)用程序之前，首先應(yīng)該使用測試和調(diào)試工具對改應(yīng)用程序進(jìn)行前面測試，在排除了所有可能的錯誤后，才可以開始對應(yīng)用程序進(jìn)行編譯。 給發(fā)布應(yīng)用程序作準(zhǔn)備。Visual Basic提供APP對象來存儲應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。Visual ：P代碼和本地代碼。部署必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢?，以便用戶來安裝應(yīng)用程序。 Visual Basic安裝軟件提供的安裝工具包。工程編譯完成后，向?qū)г儐栂胫谱魇裁搭愋偷陌覀冞@里使用向?qū)е谱靼惭b程序。我們項目已進(jìn)行到了系統(tǒng)測試階段。②質(zhì)量：檢查每模塊的功能、性能、要求是否符合相關(guān)文檔的技術(shù)要求，不合格者，糾正錯誤，保證質(zhì)量。二、測試結(jié)果：（略）三、軟件功能結(jié)果：我按照前一階段編制的“學(xué)生成績管理系統(tǒng)模塊功能表”，對系統(tǒng)每個模塊功能，用白盒法與黑盒法進(jìn)行了系統(tǒng)的測試，并沒有發(fā)現(xiàn)錯誤，說明了我的軟件預(yù)期功能全部