【正文】 得到日期 txtItem(4).Text = End Sub Private Sub CmdExit_Click() 39。移動(dòng)控件可用 For Index = 0 To 3 CmdMove(Index).Enabled = True Next Index = True: = True: = True = False: = False If flag = Add Then MsgBox (成功添加數(shù)據(jù) !) Else MsgBox (成功更新數(shù)據(jù) !) End If Call LoadData 39。按鈕可用性處理 = True: = False: = True = False: = False MsgBox (成功刪除的數(shù)據(jù) !) End If Else MsgBox (沒有可刪除的數(shù)據(jù) !) End If Exit Sub ErrMsg: MsgBox , vbExclamation, 出錯(cuò) End Sub Private Sub cmdCancel_Click() 39。文本框可用 ,院代碼不可以修改 For Index = 1 To 6 txtItem(Index).Enabled = True Next Index txtItem(0).Enabled = False 第 28 頁 共 37 頁 39。按鈕可用性 = True: = True: = True = False: = False Else 39。時(shí)間控件 End If End If End Sub Private Sub LoadData() 39。 院名稱為空； End If If Not msgt = Then MsgBox (msgt) 第 26 頁 共 37 頁 CheckData = False Exit Function End If 39。調(diào)入重新登錄 Case 16: Unload Me End Select End Sub [機(jī)構(gòu)設(shè)置 ]下的“ 院設(shè)置 ”菜單，出現(xiàn)如圖 所示界面。設(shè)置權(quán)限 機(jī)構(gòu)設(shè)置 .Enabled = InStr(rights, 機(jī)構(gòu)設(shè)置 ) 學(xué)籍管理 .Enabled = InStr(rights, 學(xué)籍管理 ) 課程管理 .Enabled = InStr(rights, 課程管理 ) 成績管理 .Enabled = InStr(rights, 成績管理 ) 獎(jiǎng)懲管理 .Enabled = InStr(rights, 獎(jiǎng)懲管理 ) 系統(tǒng)管理 .Enabled = InStr(rights, 系統(tǒng)管理 ) (2).Text = 當(dāng)前操作員： amp。用戶登錄標(biāo)志 Public UserID As String 39。 ADO 數(shù)據(jù)控件的屬性 ADO 數(shù)據(jù)控件與 Visual Basic 的內(nèi)部數(shù)據(jù)控件 (Data)和遠(yuǎn)程數(shù)據(jù)控件 (RDC)很相似，它允許使用 ADO 快速地創(chuàng)建與數(shù)據(jù)庫的連接。程序開發(fā)人員可以創(chuàng)建這些對象并且使用這些 對象訪問數(shù)據(jù)庫。 圖書管理系統(tǒng)通過 ADO 這個(gè)數(shù)據(jù)控件來訪問數(shù)據(jù)庫，首先，安裝 ADO 控件要在簡體中文 VISUAL 企業(yè)版中注冊后才能使用。 學(xué)生檔案 管理系統(tǒng)數(shù)據(jù)流程圖如圖 所示。 模塊是用 Visual Basic for Applications(VBA) 編寫的過程， VBA是 SQL SERVER 的基礎(chǔ)程序設(shè)計(jì)語言。 目前的 SQL SERVER 2020 是 Microsoft 強(qiáng)大的數(shù)據(jù) 庫平臺(tái)的第六代產(chǎn)品，是 3 2 位 SQL SERVER 的第三個(gè)版本。 DBMS 通常由數(shù)據(jù)字典，數(shù)據(jù)描述語言及其編譯程序，數(shù)據(jù)操縱（查詢）語言及其編譯程序，數(shù)據(jù)庫管理例行程序等部分組成。 可維護(hù)性和適應(yīng)性。 6 系統(tǒng)管理 系統(tǒng)管理模塊主要負(fù)責(zé)擁護(hù)的權(quán)限，包括用戶管理、密碼維護(hù)和權(quán)限設(shè)置。 （ 3）家庭成員信息：家庭成員信息模塊負(fù)責(zé)維護(hù)學(xué)生的家庭成員信息，主要應(yīng)具有增加、增加、修改、刪除和查詢功能。 圖 32 學(xué)籍管理 學(xué)籍管理主要用來管理學(xué)生注冊學(xué)生基本信息和家庭成員信息、學(xué)籍異動(dòng)以及學(xué)籍報(bào)告等。 第 9 頁 共 37 頁 圖 31 功能需求描述 機(jī)構(gòu)設(shè)置 “機(jī)構(gòu)設(shè)置”模塊用來管理學(xué)生所屬的 院系以及所在的班級(jí)，其功能包括院、系、班的增加、修改、刪除和查詢功能。本系統(tǒng)主要針對四年制的本科院校，學(xué)校的組織機(jī)構(gòu)主要分為學(xué)院、系和班級(jí)。 系統(tǒng)維護(hù)與評價(jià)階段是系統(tǒng)生命周期中的最后一個(gè)階段，也是時(shí)間最長的一個(gè)重要階段。 硬件的購置和安裝包括計(jì)算機(jī)硬件、外設(shè)、網(wǎng)絡(luò)、電源、機(jī)房、環(huán)境等有關(guān)設(shè)備的購買、驗(yàn)收、安裝與調(diào)試工作等，這些工作主要由專業(yè)技術(shù)人員完成。 系統(tǒng)設(shè)計(jì) 系統(tǒng)設(shè)計(jì)又稱系統(tǒng)物理設(shè)計(jì)。新系統(tǒng)的建立應(yīng)能解決大部分問題，并改善薄弱環(huán)節(jié)。 系統(tǒng)調(diào)查 新系統(tǒng)的系統(tǒng)分析與系統(tǒng)設(shè)計(jì)工作都要建立在對現(xiàn)行系統(tǒng)調(diào)查的基礎(chǔ)上，即必須調(diào)查現(xiàn)行系統(tǒng)的運(yùn)行情況、問題等，明確用戶的需求，特別是合作開發(fā)和委托開發(fā)方式。 合作開發(fā)方式適合于使用單位有一定的管理信息系統(tǒng)分析、設(shè)計(jì)及軟件開發(fā)人員，但開發(fā)隊(duì)伍力量較弱，希望通過管理信息系統(tǒng)的開發(fā)建立完善和提高自己的技術(shù)隊(duì)伍，便于系統(tǒng)維護(hù)工作的單位。獨(dú)立開發(fā)的優(yōu)點(diǎn)是開發(fā)費(fèi)用少，實(shí)現(xiàn)開發(fā)后的系統(tǒng)能夠適應(yīng)本單位的需求且滿意度較高，最為方便的是系統(tǒng)維護(hù)工作。例如，人事管理系統(tǒng)中的“文化程度”是相對固定的數(shù)據(jù)，其值一般取“小學(xué)”、“初中”、“高中”、“ 大?！?、“大本”、“碩研”、“博研”等。 例如在整個(gè)系統(tǒng)可以以問號(hào)圖標(biāo)表示幫助，以磁盤圖標(biāo)表示存盤，以打印機(jī)圖標(biāo)表示打印等。一方面，人向計(jì)算機(jī)輸入信息時(shí)應(yīng)當(dāng)盡量采取自然的方式：另一方面，計(jì)算機(jī)向人傳遞的信息必須準(zhǔn)確，不致引起誤解或混亂。 計(jì)算機(jī)技術(shù)是 MIS（管理信息系統(tǒng)）得以實(shí)施的主要技術(shù)。 本文研究路線 本文的研究路線如下圖 所示。 圖 本文的研究路線 資料查詢 熟悉開發(fā)環(huán)境 定 題 調(diào)查研究 系統(tǒng)分析與設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì) 功能實(shí)現(xiàn) 打包發(fā)布 第 2 頁 共 37 頁 第二章 管理信息系統(tǒng)研究概述 管理信息系統(tǒng)的發(fā)展歷史 信息作為生產(chǎn)力中最活躍的因素，很早就在人類經(jīng)濟(jì)生活中發(fā)揮著不可替代的作用，但把信息納入企業(yè)經(jīng)營管理系統(tǒng)中高效處理和應(yīng)用是在計(jì)算機(jī)發(fā)明以后的 50 年代末。在這些技術(shù)中，軟件開發(fā)是 MIS 開發(fā)的重點(diǎn)。另外，不要把內(nèi)部的處理、加工與人機(jī)界面混在一起 (人機(jī)界面程序只是通信 )，以免互相干擾，影響速度。 （ 3） .界面必須使用戶隨時(shí)掌握任務(wù)的進(jìn)展情況 人機(jī)界面應(yīng)該能夠告訴用戶軟件運(yùn)行的進(jìn)度。錄入這類數(shù)據(jù)之前， MIS 軟件應(yīng)在相應(yīng)位置彈出一個(gè)列表框，待用戶以鼠標(biāo)點(diǎn)擊，而不應(yīng)讓用戶每次都輸入這些漢字。缺點(diǎn)是由于不是專業(yè)開發(fā)隊(duì)伍，容易受業(yè)務(wù)工作的限制，系統(tǒng)優(yōu)化不夠，開發(fā)水平較低，且由于開發(fā)人員是臨時(shí)從所 屬各單位抽調(diào)出來進(jìn)行管理信息系統(tǒng)的開發(fā)工作，這些人員在其原部門還有其他工作，所以精力有限，容易造成系統(tǒng)開發(fā)時(shí)間長，開發(fā)人員調(diào)動(dòng)后，系統(tǒng)維護(hù)工作沒有保證的情況。雙方共享開發(fā)成果，實(shí)際上是一種半委托性質(zhì)的開發(fā)工作。 調(diào)查的主要內(nèi)容有： (1)現(xiàn)行系統(tǒng)概況：該組織的發(fā)展歷史、目前組織的規(guī)模、工作狀況、管理水平、與外界的主要聯(lián)系等。 (6)新系統(tǒng)的功能和目標(biāo)：了解各級(jí)領(lǐng)導(dǎo)和各類業(yè)務(wù)工作人員對新系統(tǒng)功能的要求， 系統(tǒng)分析 (又稱邏輯設(shè)計(jì) )是管理信息系統(tǒng)開發(fā)的關(guān)鍵環(huán)節(jié)，要求在系統(tǒng)調(diào)查的基礎(chǔ)上，對新系統(tǒng)的功能進(jìn)行細(xì)致的分析，并建立一個(gè)新系統(tǒng)的邏輯模型。系統(tǒng)設(shè)計(jì)要根據(jù)系統(tǒng)分析報(bào)告中的系統(tǒng)邏輯模型綜合考慮各種約束，利用一切可利用的技術(shù)手段和方法進(jìn)行各種具體設(shè)計(jì)，確定新系統(tǒng)的實(shí)施方案，解決“系統(tǒng)怎么做”的問題。 數(shù)據(jù)準(zhǔn)備與錄入工作主要是指由手工操作轉(zhuǎn)入計(jì)算機(jī)處理所需的各種數(shù)據(jù)的整理、錄入及計(jì)算機(jī)系統(tǒng)中為新系統(tǒng)所用數(shù)據(jù)的轉(zhuǎn)換工作。 第 8 頁 共 37 頁 第三章 學(xué)生檔案管理 系統(tǒng)分析與設(shè)計(jì) 學(xué)生檔案管理 系統(tǒng)功能需求簡介 學(xué)生檔案管理系統(tǒng)對學(xué)校加強(qiáng)學(xué)生檔案管理有著極其重要的作用。學(xué)生檔案管理系統(tǒng)是學(xué)校 機(jī)構(gòu)設(shè)置 ： 主要負(fù)責(zé)院、系和班級(jí)的設(shè)置，如增、刪、改、查詢 院、系和班級(jí)的信息等。 如圖 32。 如圖 33。家庭成員信息主要包括成員 ID、學(xué)號(hào)，成員姓名，關(guān)系，職務(wù)，所在單位，等聯(lián)系方式。 目標(biāo)系統(tǒng)要求 學(xué)生檔案管理系統(tǒng)是一個(gè)現(xiàn)代化軟件系統(tǒng)，它通過集中式的信息數(shù)據(jù)庫將各種檔案管理功能結(jié)合起來，達(dá)到共享數(shù)據(jù)、降低成本、提高效率、改進(jìn)服務(wù)等目的。系統(tǒng)應(yīng)易于 修改、易于擴(kuò)充、易于維護(hù)，能夠適應(yīng)業(yè)務(wù)不斷發(fā)展變化的需要。 關(guān)系數(shù)據(jù)庫是以關(guān)系模型為基礎(chǔ)的數(shù)據(jù)庫，是根據(jù)表、記錄和字段之間的關(guān)系進(jìn)行組織和訪問的一種數(shù)據(jù)庫，它通過若干個(gè)表（ Table）第 13 頁 共 37 頁 來存取數(shù)據(jù)，并且通過關(guān)系（ Relation） 將這些表聯(lián)系在一起，關(guān)系數(shù)據(jù)庫提供了成為機(jī)構(gòu)化查詢語言（ SQL） 標(biāo)準(zhǔn)接口，該接口允許使用多種數(shù)據(jù)庫工具和產(chǎn)品，關(guān)系數(shù)據(jù)庫是目前最廣泛應(yīng)用的數(shù)據(jù)庫。SQL SERVER 有以下一些基本定義： 查詢是一個(gè) SQL SERVER 對象，它詢問數(shù)據(jù)庫中有關(guān)數(shù)據(jù)的問題。報(bào)表是一個(gè) SQL SERVER 對象，設(shè)計(jì)來顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。利用 VBA 可以編寫程序代碼來完成 SQL SERVER 宏所不能完 成的特定任務(wù)。 圖 學(xué)生檔案 管理系統(tǒng)數(shù)據(jù)流程圖 針對一般 學(xué)生檔案 管理信息系統(tǒng)的需求，通過對 學(xué)生檔案 管理過程的內(nèi)容和數(shù)據(jù)流程分析，可以設(shè)計(jì)出該系統(tǒng)的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu) 。 ADO(ActiveX Data Object)是微軟提出的數(shù)據(jù)訪問接口，它實(shí)現(xiàn)了 RDO 的絕大多數(shù)功能，另外還增加了一些用戶以前沒有接觸到的特征。在 ADO 對象模型中還有其他幾個(gè)對象，例如Field、 Property、 Error 和 Parameter，它們是作為前面 3 個(gè)對象的子對象進(jìn)行訪問的。 與 Data 控件類似，為了實(shí)現(xiàn)對數(shù)據(jù)庫的訪問， ADO 數(shù)據(jù)控件提供了幾個(gè)屬性，這些屬性定義了怎樣連接數(shù)據(jù)庫以及同什么樣的數(shù)據(jù)庫相連接。用戶 ID Public ConnectionString As String 39。 UserID (3).Text = Now End Sub Private Sub 院設(shè)置 _Click() A 院設(shè)置 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 系設(shè)置 _Click() A 系設(shè)置 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 班級(jí)設(shè)置 _Click() A 班級(jí)設(shè)置 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 學(xué)生注冊 _Click() MenuIndex = 0 B 學(xué)期注冊 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 基本信息 _Click() MenuIndex = 2 B 基本信息 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 家庭成員信息 _Click() MenuIndex = 3 第 23 頁 共 37 頁 B 家庭成員信息 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 學(xué)籍異動(dòng) _Click() MenuIndex = 4 B 學(xué)籍異動(dòng) .Show 學(xué)生檔案管理 .Enabled = False End Sub Private S