【正文】 業(yè)小組組長和有關(guān)部門的領(lǐng)導(dǎo)共同編制新系統(tǒng)實施計劃。 硬件的購置和安裝包括計算機硬件、外設(shè)、網(wǎng)絡(luò)、電源、機房、環(huán)境等有關(guān)設(shè)備的購買、驗收、安裝與調(diào)試工作等，這些工作主要由專業(yè)技術(shù)人員完成。數(shù)據(jù)準備與錄入工作要注意數(shù)據(jù)的準確性，在整理、錄入、校驗等各個環(huán)節(jié)把好關(guān)，為系統(tǒng)的順利轉(zhuǎn)換打好基礎(chǔ)。使所有人員了解新系統(tǒng)的基本功能、新系統(tǒng)對使用人員的要求、建立管理信息系統(tǒng)的目的、管理信息系統(tǒng)的建設(shè)可以為組織和個人帶來的幫助和便利、個人在新系統(tǒng)中應(yīng)該承擔(dān)的工作等，是用戶 關(guān)心、支持新系統(tǒng)的實現(xiàn)。系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng) 的運行，這時就需要不斷地完善系統(tǒng)，以提高系統(tǒng)運行的效率與服務(wù)水平，這就需要從始至終地進行系統(tǒng)的維護工作。 系統(tǒng)維護與評價階段是系統(tǒng)生命周期中的最后一個階段，也是時間最長的一個重要階段。由于各個大學(xué)都在持續(xù)擴招，學(xué)生的數(shù)量日益龐大，傳統(tǒng)的手工成績管理不僅工作量大，而且容易出現(xiàn)問題。就一所學(xué)生數(shù)量較大的學(xué)校來說，它的設(shè)計內(nèi)容非常復(fù)雜而且繁多，比如擁有成績錄入管理、教師權(quán)限管理、學(xué)生成績的查詢和修改等等，而且設(shè)計的模塊也很多，比如信息統(tǒng)計模塊，報表設(shè)計模塊，打印輸出模塊，模糊查詢模 塊等等。該學(xué)生成績管理系統(tǒng)的主要功能為： 掌握每個學(xué)生每一門課的成績信息，并記錄在數(shù)據(jù)庫中以便其他管理信息系統(tǒng)的使用； 分權(quán)限的管理。 教師類用戶可以對成績按照課程進行管理，可以對每一門課所修的學(xué)生進行添加、刪除和修改； 教師類用戶可 以對成績按照學(xué)生進行管理，可以對每一門課所修的學(xué)生進行添加、刪除和修改； 可以針對某一門課的學(xué)生列表及其成績生成報表，并打?。? 可以針對某一個學(xué)生所選課程及其對應(yīng)的成績生成報表，并打印。不論是教師用戶，還是學(xué)生用戶 9 都需要通過用戶名和口令進行登錄。學(xué)生用戶只能看到自己的學(xué)習(xí)成績，并且不能修改。 教師對成績的管理功能 教師對成績的管理可以從兩個角度管理：按照課程角度進行管理和按照學(xué)生角度進行管理。 （ 1）按照課程角度進行管理 按課程角度管理教師可以看到課程信息和成績信息。當(dāng)教師用鼠標雙擊某一課程時，可以自動顯示出該課程的所有學(xué)生的成績信息，成績信息包括選修這門課的學(xué)生的學(xué)號、姓名、班級和考試成績。在成績信息中，教師可以對學(xué)習(xí)成績 進行增加、修改和刪除。 （ 2）按照學(xué)生角度進行管理 按學(xué)生角度管理教師可以看到學(xué)生信息和成績信息。當(dāng)教師用鼠標雙擊某一學(xué)生信息時，可以自動顯示出該課程的這個學(xué)生所有課程的學(xué)習(xí)成績，并同時自動計算出這個學(xué)生的總分和平均分。并能夠打印報表。學(xué)生信息包括學(xué)號、姓名、班級、生日、性別、地址、電話和簡歷。學(xué)生可以打印成績報表。 10 圖 學(xué)生成績管理系統(tǒng)功能模塊圖 目標系統(tǒng)要求 目標系統(tǒng)應(yīng)該達到以下要求： 時間經(jīng)濟性。 可靠性。 可理解性。 可維護性和適應(yīng)性。 可用性。 安全保密性。 系統(tǒng)平臺選擇 選擇微軟平臺作為主導(dǎo)，一方面考慮目前微軟的飛速發(fā)展，越來越多的企業(yè)在規(guī)劃內(nèi)部網(wǎng)絡(luò)時，將微軟平臺作為首選方案；另一方面從技術(shù)角度來講，微軟平臺上的應(yīng)用無論是在開發(fā)上，還是在軟件的部署上都非常容易，而且性能優(yōu)越。 DBMS 通常由數(shù)據(jù)字典，數(shù)據(jù)描述語言及其編譯程序，數(shù)據(jù)操縱（查詢）語言及其編譯程序，數(shù)據(jù)庫管理例行 程序等部分組成。 在 Visual Basic 中，關(guān)系型數(shù)據(jù)庫一般可以分為兩類：一類是桌面數(shù)據(jù)庫，例如 Access、 Paradox、 FoxPro、 Dbase,另一類就是客戶 /服務(wù)器數(shù)據(jù)庫，例如 SQL Server、 Oracle 和 Sybase 等。也是初學(xué)者常用的數(shù)據(jù)庫類型。它主要用于小型的、單機的、單用戶的數(shù)據(jù)庫管理系統(tǒng)。目前的 Access 2021 是 Microsoft 強大的桌面數(shù)據(jù)庫平臺的第六代產(chǎn)品，是 3 2 位 Access 的第三個版本。數(shù)據(jù)庫是一個包含各種 Access “對象” (表、查詢、窗體、報表、宏和模塊 )的文件， Access 中所有工作都是建立在此基礎(chǔ)之上的。表是存放數(shù)據(jù)的容器，被設(shè)計成行和列的格式，就像電子表中的那樣。每一行稱為一個“記錄”，包含與單個實體有關(guān)的所有信息，如某個員工的姓名、性別、所在部門、學(xué)歷等。 根據(jù)設(shè)計方法的不同，查詢能夠在數(shù)據(jù)庫中檢索 并組合來自不同表的數(shù)據(jù)。查詢還可以對一組數(shù)據(jù)執(zhí)行操作，如更新或刪除某組記錄。窗體是一個窗口，它提供一種很方便的途徑來查看數(shù)據(jù)庫中已有記錄或向數(shù)據(jù)庫中增添新記錄。 可自動執(zhí)行一些日常的任務(wù)，以便簡化在 Access 中的工作。 模塊是用 Visual Basic for Applications(VBA) 編寫的過程， VBA 是Access 的基礎(chǔ)程序設(shè)計語言。 數(shù)據(jù)庫需求分析 數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。同時，合理的數(shù)據(jù)庫結(jié)構(gòu)也將有利于程序的實現(xiàn)。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，可以為后面的具體設(shè)計和開發(fā)打下堅實的基礎(chǔ)。學(xué)生成績管理系統(tǒng)數(shù)據(jù)流程圖如圖 所示。 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的數(shù)據(jù)字典設(shè)計打下基礎(chǔ)。各個實體具有的描述 ER 圖如 至圖 所示。 ? 是一個本地和遠程數(shù)據(jù)訪問、遠程和斷開連接的記錄集、用戶可以訪問的數(shù)據(jù)綁定接口以及層次化的記錄集的通用接口。ADO(ActiveX Data Object)是微軟提出的數(shù)據(jù)訪問接口，它實現(xiàn)了 RDO 的絕大多數(shù)功能，另外還增加了一些用戶以前沒有接觸到的特征。 在 中包含了數(shù)據(jù)綁定、可視化設(shè)計工具以及 OLE DB 數(shù)據(jù)源書寫模板等新的內(nèi)容。 User Connection 對象只支持 ODBC 數(shù)據(jù)源，而 Data Environment 對象可以連接所有的 OLE DB 數(shù)據(jù)源 o ADO 對象模型定義了一個可編程的分層的對象集合，它支持部件對象模型 (COM)和 OLE DB 數(shù)據(jù)源。 ADO 對象模型中包含了 3 個一般用途的對象： Connection、 Command和 Recordset。在 ADO 對象模型中還有其他幾個對象，例如 Field、 Property、 Error和 Parameter，它們是作為前面 3 個對象的子對象進行訪問的。使用 Visual Basic的類模塊也可以很方便的創(chuàng)建子集的數(shù)據(jù)提供者。 ? 打開一個指定的數(shù)據(jù)庫表，或定義一個基于結(jié)構(gòu)化查詢語言 (SQL)的查詢、存儲過程或者是該數(shù)據(jù)庫中表的視圖的記錄集合。 ? 添加新的記錄，或者根據(jù)對顯示在綁定的控件中的數(shù)據(jù)的任何更改來更新一個數(shù)據(jù)庫。 與 Data 控件類似，為了實現(xiàn)對數(shù)據(jù)庫的訪問， ADO 數(shù)據(jù)控件提供了幾個屬性，這些屬性定義了怎樣連接數(shù)據(jù)庫以及同什么樣的數(shù)據(jù)庫相連接。例如，ODBC 驅(qū)動程序允許該字符串包含驅(qū)動程序、提供者、默認的數(shù)據(jù)庫、服務(wù)器、用戶名稱以及密碼等。這四個參數(shù)的屬性如下表 所示： 表 Connection String 屬性的 4 個參數(shù) 參數(shù) 描述 Provider 指定數(shù)據(jù)源的名稱 File Name 指定基于數(shù)據(jù)源的文件名稱 Remote Server 指定在打開一個客戶端連接時使用的數(shù)據(jù)源名稱 Remote Server 指定打開客戶端連接時使用的服務(wù)器的路徑與名稱 18 第四章 學(xué)生成績管理系統(tǒng)的功能實現(xiàn) 下面給出系統(tǒng)開發(fā)出來的詳細界面以闡述學(xué)生成績管理系統(tǒng)的具體功能。39。39。選擇身份為教師 strSQL = select * from teacher where name=39。 user amp。 and serial=39。 pwd amp。 Case 1: 39。 amp。 39。 amp。 39。打開記錄集 r strSQL, , adOpenStatic 39。用戶密碼錯誤的次數(shù)，如果錯誤次數(shù)超過 3 次，則退出系統(tǒng) Static nTryCount As Integer If Then 39。登錄失敗 MsgBox 對不起，無此用戶或者密碼不正確！請重新輸入??！, vbCritical, 錯誤 = 0 = Len(txtUser) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您無權(quán)操作本系統(tǒng) !再見！ , vbCritical, 無權(quán)限 Unload Me End If Else 39。登陸成功 39。顯示 MDI 窗體 , 并將用戶類型和用戶名傳到 MDI 窗體中 gnUserType = gsUserName = txtPwd 20 39。注意調(diào)用順序 Unload Me End If End Sub Private Sub Form_Load() = 0 End Sub 教師管理界面編碼設(shè)計 本節(jié)以按學(xué)生角度進行管理為例，介紹教師管理的編碼設(shè)計。 圖 “按學(xué)生進行管理”學(xué)生信息功能界面 教師用戶用鼠標雙擊學(xué)生信息后，系統(tǒng)會顯示出該學(xué)生的成績信息。 21 圖 “按學(xué)生進行管理”成績信息功能界面 Option Explicit 39。39。39。39。用以在瀏覽時，根據(jù)當(dāng)前記錄所出的位置不同，來改變個瀏覽按鈕的狀態(tài) Sub ChangeBrowseState() With 39。如果沒有任何記錄，則清空顯示目錄；并且使瀏覽部分和管理部分的按鈕無效 22 If .State = adStateClosed Then .Open 39。39。39。假如處于記錄的尾部 If .EOF Then If Not .BOF Then = False = False Else = True = True End If End With End Sub 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。 sSerial amp。 str, , adOpenStatic If Not Then = FormatNumber(rs(sum_score), 2) = FormatNumber(rs(avg_score), 2) End If 23 End Sub 39。刷新學(xué)生號為 sSerial 的成績的網(wǎng)格控件 grdScore Sub RefreshScore(sSerial As String) With If .State adStateClosed Then .Close Dim str If sSerial = Then str = select course.*, from score, course where = Else str = select course.*, from score, course where = amp。 amp。 39。39。 (0).CellText() amp。 24 (1).CellText() 39。計算該學(xué)生的總成績和平均成績 Call Calculate((0).CellText()) End Sub Private Sub cmdAdd_Click() On Error GoTo errHandler With frmAddCourse Load frmAddCourse .Caption = 添加成績信息 .Show vbModal 39。如果用戶沒有點擊確認按鈕，則退出處理過程 If Not .mbAdded Then Unload frmAddCourse