【正文】 ab 文件（ .cab 文件是一種壓縮文件），對(duì)于某些類型的軟件包，還必須為其創(chuàng)建安裝程序。 將應(yīng)用程序進(jìn)行編譯后， Visual Basic 將工程中的所有文件進(jìn)行組織并將這些工程文件轉(zhuǎn)化成一個(gè)可執(zhí)行的文件 .exe。 = sqlStudent End If Call grdScan_Change End Sub 31 Private Sub grdScan_Change() If 0 Then Call RefreshScore((0).CellText()) End If End Sub Private Sub grdScan_DblClick() = 1 End Sub Private Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 39。從 class 中讀取數(shù)據(jù)，填充到 cboClass 復(fù)合框中 If = adStateClosed Then 全部 While Not rsClass(Name) Wend = 0 = True If gnUserType = 0 Then 39。 End If sTemp = select * from student where amp。 %39。顯示查找窗口 Load frmFind 29 39。 cboClass amp。 39。 where studentid=39。將當(dāng)前所定位的課程信息寫入到 frmAddCourse 的 dcbSerial 和 dcbName 控件中 . = (0).CellText() . = . 39。 39。刷新整個(gè)網(wǎng)格控件 Call RefreshScore((0).CellText()) Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() On Error GoTo errHandler If MsgBox( 確實(shí)要?jiǎng)h除此成績(jī)記錄？ , 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。 . amp。如果用戶沒(méi)有點(diǎn)擊確認(rèn)按鈕，則退出處理過(guò)程 If Not .mbAdded Then Unload frmAddCourse Exit Sub End If 39。39。 str, , adOpenStatic If Not Then = FormatNumber(rs(sum_score), 2) = FormatNumber(rs(avg_score), 2) End If 23 End Sub 39。39。39。 圖 “按學(xué)生進(jìn)行管理”學(xué)生信息功能界面 教師用戶用鼠標(biāo)雙擊學(xué)生信息后，系統(tǒng)會(huì)顯示出該學(xué)生的成績(jī)信息。登錄失敗 MsgBox 對(duì)不起，無(wú)此用戶或者密碼不正確！請(qǐng)重新輸入??！, vbCritical, 錯(cuò)誤 = 0 = Len(txtUser) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您無(wú)權(quán)操作本系統(tǒng) !再見！ , vbCritical, 無(wú)權(quán)限 Unload Me End If Else 39。 amp。 pwd amp。39。 與 Data 控件類似，為了實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)， ADO 數(shù)據(jù)控件提供了幾個(gè)屬性，這些屬性定義了怎樣連接數(shù)據(jù)庫(kù)以及同什么樣的數(shù)據(jù)庫(kù)相連接。在 ADO 對(duì)象模型中還有其他幾個(gè)對(duì)象，例如 Field、 Property、 Error和 Parameter，它們是作為前面 3 個(gè)對(duì)象的子對(duì)象進(jìn)行訪問(wèn)的。ADO(ActiveX Data Object)是微軟提出的數(shù)據(jù)訪問(wèn)接口，它實(shí)現(xiàn)了 RDO 的絕大多數(shù)功能，另外還增加了一些用戶以前沒(méi)有接觸到的特征。學(xué)生成績(jī)管理系統(tǒng)數(shù)據(jù)流程圖如圖 所示。 模塊是用 Visual Basic for Applications(VBA) 編寫的過(guò)程， VBA 是Access 的基礎(chǔ)程序設(shè)計(jì)語(yǔ)言。 目前的 Access 2021 是 Microsoft 強(qiáng)大的桌面數(shù)據(jù)庫(kù)平臺(tái)的第六代產(chǎn)品，是 3 2 位 Access 的第三個(gè)版本。 DBMS 通常由數(shù)據(jù)字典，數(shù)據(jù)描述語(yǔ)言及其編譯程序，數(shù)據(jù)操縱（查詢）語(yǔ)言及其編譯程序，數(shù)據(jù)庫(kù)管理例行 程序等部分組成。 可維護(hù)性和適應(yīng)性。學(xué)生可以打印成績(jī)報(bào)表。 （ 2）按照學(xué)生角度進(jìn)行管理 按學(xué)生角度管理教師可以看到學(xué)生信息和成績(jī)信息。 教師對(duì)成績(jī)的管理功能 教師對(duì)成績(jī)的管理可以從兩個(gè)角度管理：按照課程角度進(jìn)行管理和按照學(xué)生角度進(jìn)行管理。該學(xué)生成績(jī)管理系統(tǒng)的主要功能為： 掌握每個(gè)學(xué)生每一門課的成績(jī)信息，并記錄在數(shù)據(jù)庫(kù)中以便其他管理信息系統(tǒng)的使用； 分權(quán)限的管理。系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng) 的運(yùn)行，這時(shí)就需要不斷地完善系統(tǒng)，以提高系統(tǒng)運(yùn)行的效率與服務(wù)水平，這就需要從始至終地進(jìn)行系統(tǒng)的維護(hù)工作。 在系統(tǒng)實(shí)施階段要成立系統(tǒng)實(shí)施工作量到小組，組織各專業(yè)小組組長(zhǎng)和有關(guān)部門的領(lǐng)導(dǎo)共同編制新系統(tǒng)實(shí)施計(jì)劃。 因?yàn)樾孪到y(tǒng)模型是建立在對(duì)現(xiàn)行系統(tǒng)的分析及要求的基礎(chǔ)上的，所以系統(tǒng)調(diào)查工作要進(jìn)行得深入、細(xì)致、全面。 (4)報(bào)表、數(shù)據(jù)處理：了解各種統(tǒng)計(jì)報(bào)表、數(shù)據(jù)的格式、內(nèi)容、處理時(shí)間及上報(bào)時(shí)間、頻率、規(guī)律，存在的問(wèn)題，對(duì)新系統(tǒng)的要求、希望等并收集各種報(bào)表。根據(jù)開發(fā)系統(tǒng)的大小、復(fù)雜、投入、方式、方法等因素的不問(wèn)，各步驟的要求和內(nèi)容也不同，用戶需要根據(jù)實(shí)際情況進(jìn)行取舍和計(jì)劃。缺點(diǎn)是費(fèi)用高、系統(tǒng)維護(hù)需要開發(fā)單位的長(zhǎng)期支持。不論哪種開放方式都需要有單位的領(lǐng)導(dǎo)和業(yè)務(wù)人員參加，并在管理信息系統(tǒng)的整個(gè)開發(fā)過(guò)程中培養(yǎng)、鍛煉、壯大該系統(tǒng)的維護(hù)隊(duì)伍。使用方便 多數(shù) MIS 軟件的數(shù)據(jù)輸入量較大。 （ 2） .界面必須始終一致 統(tǒng)一的人機(jī)界面不至于會(huì)增加用戶的負(fù)擔(dān)，讓用戶始終用同一種方式思考與操作。 管理信息系統(tǒng)的界面特點(diǎn) 在計(jì)算機(jī)軟件技術(shù)中，人機(jī)界面已經(jīng)發(fā)展成為一個(gè)重要的分支。 人是指企業(yè)領(lǐng)導(dǎo)者、管理人員、技術(shù)人員，以及 MIS 建設(shè)的領(lǐng)導(dǎo)機(jī)構(gòu)和實(shí)施機(jī)構(gòu)，他們?cè)谙到y(tǒng)中起主導(dǎo)作用。 本文研究路線 本文的研究路線如下圖 所示。 第一章簡(jiǎn)要介紹了本系統(tǒng)的設(shè)計(jì)總體線路。第二章概述了管理信息系統(tǒng)的相關(guān)理論，第三章對(duì)本系統(tǒng)進(jìn)行了系統(tǒng)分析和設(shè)計(jì)，包括功能需求描述、數(shù)據(jù)庫(kù)設(shè)計(jì)等內(nèi)容。 圖 本文的研究路線 資料查詢 熟悉開發(fā)環(huán)境 定 題 調(diào)查研究 系統(tǒng)分析與設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì) 功能實(shí)現(xiàn) 打包發(fā)布 2 第二章 管理信息系統(tǒng)研究概述 管理信息系統(tǒng)的發(fā)展歷史 信息作為生產(chǎn)力中最活躍的因素，很早就在人類經(jīng)濟(jì)生活中發(fā)揮著不可替代的作用，但把信息納入企業(yè)經(jīng)營(yíng)管理系統(tǒng)中高效處理和應(yīng)用是在計(jì)算機(jī)發(fā)明以后的 50 年代末。 MIS 是一項(xiàng)系統(tǒng)工程，不是只靠一些計(jì)算機(jī)開發(fā)人員就可以完成的，必須有企業(yè)管理人員，尤其是企業(yè)領(lǐng)導(dǎo)的積極參與。 MIS人機(jī)界面設(shè)計(jì)一般遵循以下一些基本原則： （ 1）以通信功能作為界面設(shè)計(jì)的核心 人機(jī)界面設(shè)計(jì)的關(guān)鍵是使人與計(jì)算機(jī)之間能夠準(zhǔn)確地交流信息。最忌諱的是每換一個(gè)屏幕用戶就要換一套操作命令與操作方法。對(duì)于一些相對(duì)固定的數(shù)據(jù)，不應(yīng)讓用戶頻頻輸入 (特別是漢字 )，而應(yīng)讓用戶用鼠標(biāo)輕松選擇。 獨(dú)立開發(fā)適合于有較強(qiáng)的管理信息系統(tǒng)分析與設(shè)計(jì)隊(duì)伍和程序設(shè)計(jì)人員、系統(tǒng)維護(hù)使用隊(duì)伍的組織和單位，如大學(xué)、研究所、計(jì)算機(jī)公司、高科技公司等單位。此種開發(fā)方式需要使用單位的業(yè)務(wù)骨 干參與系統(tǒng)的論證工作，開發(fā)過(guò)程中需要開發(fā)單位和使用單位雙方及時(shí)溝通，進(jìn)行協(xié)調(diào)和檢查。 系統(tǒng)開發(fā)準(zhǔn)備 系統(tǒng)開發(fā)準(zhǔn)備工作主要包括提出系統(tǒng)開發(fā)要求、成立系統(tǒng)開發(fā)小組、制訂系統(tǒng)開發(fā)計(jì)劃等工 作。 (5)問(wèn)題：現(xiàn)行系統(tǒng)中存在的主要問(wèn)題和薄弱環(huán)節(jié)，可以按照嚴(yán)重程度分成不同的等級(jí)。用戶可以對(duì)新系統(tǒng)的邏輯模型提出意見，雙方經(jīng)過(guò)討論、修改，最后達(dá)成共識(shí)，并完成系統(tǒng)分析報(bào)告 (系統(tǒng)邏輯設(shè)計(jì)說(shuō)明書 )，經(jīng)有關(guān)領(lǐng)導(dǎo)審批通過(guò)之后，轉(zhuǎn)入系統(tǒng)設(shè)計(jì) (又稱系統(tǒng)物理設(shè)計(jì) )階段。可以應(yīng)用各種項(xiàng)目管理的軟件和方法進(jìn)行管理，實(shí)行項(xiàng)目經(jīng)理負(fù)責(zé)制，保證系統(tǒng)實(shí)施工作的順利進(jìn)行和成功。 系統(tǒng)評(píng)價(jià)主要是指系統(tǒng)建成后，經(jīng)過(guò)一段時(shí)間的運(yùn)行后，要對(duì)系統(tǒng)目標(biāo)與功能的實(shí)現(xiàn)情況進(jìn)行檢查，并與系統(tǒng)開發(fā)中設(shè)立的系統(tǒng)預(yù)期目標(biāo)進(jìn)行對(duì)比，及時(shí)寫出系統(tǒng)評(píng)價(jià)報(bào)告。在成績(jī)管理中，教師可以對(duì)任何一個(gè)學(xué)生的成績(jī)進(jìn)行查詢和管理；但是對(duì)學(xué)生類用戶，它只能對(duì)自己的成績(jī)進(jìn)行查看，而且不能對(duì)其進(jìn)行更改。教師登陸該系統(tǒng)以后，可以對(duì)這兩種方式進(jìn)行選擇。學(xué)生信息包括學(xué)號(hào)、姓名、班級(jí)、生日、性別、地址、電話和簡(jiǎn)歷。 學(xué)生成績(jī)管理系統(tǒng)功能模塊圖如圖 所示。系統(tǒng)應(yīng)易于修改、易于擴(kuò)充、易于維護(hù)，能夠適應(yīng)業(yè)務(wù)不 斷發(fā)展變化的需要。 關(guān)系數(shù)據(jù)庫(kù)是以關(guān)系模型為基礎(chǔ)的數(shù)據(jù)庫(kù)，是根據(jù)表、記錄和字段之間的關(guān)系進(jìn)行組織和訪問(wèn)的一種數(shù)據(jù)庫(kù)，它通過(guò)若干個(gè)表（ Table） 來(lái)存取數(shù)據(jù)，并且通過(guò)關(guān)系（ Relation） 將這些表聯(lián)系在一起，關(guān)系數(shù)據(jù)庫(kù)提供了成為機(jī)構(gòu)化查詢語(yǔ)言（ SQL） 標(biāo)準(zhǔn)接口，該接口允許使用多種數(shù)據(jù)庫(kù)工具和產(chǎn)品，關(guān)系數(shù)據(jù)庫(kù)是目前最廣泛應(yīng)用的數(shù)據(jù)庫(kù)。 Access 有以下一些基本定義： 查詢是一個(gè) Access 對(duì)象，它詢問(wèn)數(shù)據(jù)庫(kù)中有關(guān)數(shù)據(jù)的問(wèn)題。報(bào)表是一個(gè) Access 對(duì)象，設(shè)計(jì)來(lái)顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。利用 VBA 可以編寫程序代碼來(lái)完成 Access宏所不能完成的特定任務(wù)。 13 圖 學(xué)生成績(jī)管理系統(tǒng)數(shù)據(jù)流程圖 針對(duì)一般學(xué)生成績(jī) 管理信息系統(tǒng)的需求，通過(guò)對(duì)成績(jī)管理過(guò)程的內(nèi)容和數(shù)據(jù)流程分析，可以設(shè)計(jì)出該系統(tǒng)的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： “學(xué)生信息”的數(shù)據(jù)項(xiàng)有：學(xué)號(hào)、姓名、班級(jí)、生日、性別、地址、電話和簡(jiǎn)歷等； “課程信息”的數(shù)據(jù)項(xiàng)有：課程編號(hào)、課程名稱、學(xué)時(shí)和課程類型等 “學(xué)生成績(jī)信息”的數(shù)據(jù)項(xiàng)有：學(xué)號(hào)、姓名、班級(jí)、選修課程、考試成績(jī)等。 Visual Basic 可以很好地支持 ADO 和 OLE DB 數(shù)據(jù)訪問(wèn)模式。 ADO 數(shù)據(jù)控件的功能 ADO data 控件使用 ActiveX 數(shù)據(jù)對(duì)象（ ADO）來(lái)快速建立數(shù)據(jù)約束控件和數(shù)據(jù)提供者之間的連接，并快速創(chuàng)建記錄集，然后將數(shù)據(jù)通過(guò)數(shù)據(jù)約束控件提供給用戶，其中數(shù)據(jù)約束控件可以是任何具有“數(shù)據(jù)源”屬性的控件，而數(shù)據(jù)提供者可以是符合 OLE DB 規(guī)范的數(shù)據(jù)源。 Connection String 屬性：是一個(gè)字符串，可以包含進(jìn)行一個(gè)連接所需的所有設(shè)置值，在該字符串中所傳遞的參數(shù)是與驅(qū)動(dòng)程序相關(guān)的。根據(jù)不同的身份，選擇不同的表用以查詢 Dim r As New Dim strSQL As String Select Case gnUserType Case 0: 39。 39。 pwd amp。39。如圖 所示。39。39。39。根 據(jù) 的記錄狀態(tài)，來(lái)改變管理 grdScore 的各個(gè)按鈕的狀態(tài) If .BOF And .EOF Then = True = False = False = False Else = True = True = True = True End If End With = oneSc