【正文】 的方式管理文件檔案、統(tǒng)計(jì)和查詢數(shù)據(jù)，這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,人工的大量浪費(fèi)；另外時(shí)間一長(zhǎng) ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少困難。 作為計(jì)算機(jī)應(yīng)用的一部分 ,使用計(jì)算機(jī)對(duì)學(xué)校的各類信息進(jìn)行管理 ,具有手工管理所無(wú)法比擬的優(yōu)點(diǎn) .例如 :檢索迅速、查詢方便、效率高、可靠性好、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等 。 因此，開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情 ，我通過(guò)自己的知識(shí)和大量書(shū)籍的翻閱、網(wǎng)站的查閱，和同學(xué)一起合作開(kāi)發(fā)了一個(gè)學(xué)校管理系統(tǒng)?？梢?jiàn)，學(xué)校管理系統(tǒng)首先必須具有強(qiáng)大的電子數(shù)據(jù)處理功能，能大大提高學(xué)校管理人員的工作效率，減輕勞動(dòng)強(qiáng)度，同時(shí)，該系統(tǒng)應(yīng)當(dāng)采 用管理模型，將仿真、優(yōu)化等現(xiàn)代決策手段結(jié)合起來(lái)，為學(xué)校管理層的決策提供有效信息。 普通用戶：只能查看數(shù)據(jù)，不得修改刪除數(shù)據(jù)?；痉蠈W(xué)校管理的需求。 Visual Basic 是一種可視化、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言，可用于開(kāi)發(fā) Windows 環(huán)境下的各類應(yīng)用程序。在 Visual Basic 環(huán) 境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用 Windows 內(nèi)部的應(yīng)用程序接口（ API）函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)（ DLL）、動(dòng)態(tài)數(shù)據(jù)交換（ DDE）、對(duì)象的鏈接與嵌入（ OLE）、開(kāi)放式數(shù)據(jù)連接（ ODBC）等技術(shù)，可以高效、快速地開(kāi)發(fā)出 Windows 環(huán)境功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。在 Windows9x、 WindowsNT 或 Windows2020 環(huán)境下，用 Visual Basic 的編譯器可以自動(dòng)生成 32 位應(yīng)用程序。 選用 Access 作為后臺(tái)數(shù)據(jù)庫(kù) Access2020 就是關(guān)系數(shù)據(jù)庫(kù)管理工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù) 據(jù)庫(kù)文件把數(shù)據(jù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。如上所述， Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。Microsoft ActiveX Data Objects (ADO) 主要優(yōu)點(diǎn)是易于使用、高速度、低內(nèi)存支出和占用磁盤(pán)空間較少。在 VB 中，可以使用開(kāi)發(fā)環(huán)境提供的 ADO 控件，數(shù)據(jù)庫(kù)訪問(wèn)方法，對(duì) ACCESS 中建立的關(guān)系數(shù)據(jù)庫(kù)簡(jiǎn)單快捷的進(jìn)行訪問(wèn)。 ADO 是微軟公司最新推出的數(shù)據(jù)訪問(wèn)技術(shù)，他特別設(shè)計(jì)用來(lái)訪問(wèn) OLE DB PRIVDER 一起協(xié)同工作，以提供通用數(shù)據(jù)訪問(wèn)（ UNIVERSAL DATA ACCESS）， OLEDB 是底層的數(shù)據(jù)訪問(wèn)接口 ， ADO 控件使用數(shù)據(jù)對(duì)象來(lái)快速建立數(shù)據(jù)綁定的控件和數(shù)據(jù)提供者之間的連接。 ADO 主要包括 Connection,Recordset 和 Command 三個(gè)對(duì)象 , 它們的主要功能如下： Recordset 對(duì)象：存取數(shù)據(jù)庫(kù)的內(nèi)容； 比較而言： ODBC – （ Open Database Connectivity） 是第一個(gè)使用 SQL 訪問(wèn)不同關(guān)系數(shù)據(jù)庫(kù)的數(shù)據(jù)訪問(wèn)技術(shù)。 DAO （ Data Access Objects） 不像 ODBC 那樣是面向 C/C++程 序員的，它 是微軟提供給 Visual Basic 開(kāi)發(fā)人員的一種簡(jiǎn)單的數(shù)據(jù)訪問(wèn)方法，用于操縱Access 數(shù)據(jù)庫(kù)。 OLE DB – 隨著越來(lái)越多的數(shù)據(jù)以非關(guān)系型格式存儲(chǔ)，需要一種新的架構(gòu)來(lái)提供這種應(yīng)用和數(shù)據(jù)源之間的無(wú)縫連接，基于 COM（ Component Object Model）的 OLE DB 應(yīng)運(yùn)而 生了。所以我采用 ADO 的方法來(lái)綁定數(shù)據(jù)庫(kù)，能夠達(dá)到功能的要求。 a. 學(xué)生信息： 基本信息：學(xué)號(hào)、班級(jí)、宿舍等 檔案：姓名、住址、電話等 體檢信息：入學(xué)體檢、畢業(yè)體檢 獎(jiǎng)懲信息 b. 員工信息：基本信息：姓名、教授課程、部門(mén)等 檔案：姓名、住址、電話等 ： a. 學(xué)生成績(jī)管理：成績(jī)錄入、查詢、不及格名單、學(xué)生總分名次、綜合測(cè)評(píng)表、畢業(yè)設(shè)計(jì)、實(shí)習(xí)管理、班級(jí)查詢、設(shè)置年級(jí)課程等 b. 員工培訓(xùn)管理： 我主要負(fù)責(zé)學(xué)生信息系統(tǒng)即學(xué)籍管理， 使用 VB 和數(shù)據(jù)庫(kù)的連接實(shí)現(xiàn)對(duì)系統(tǒng)的管理，在 VB 界面下實(shí)現(xiàn)各種功能。 系統(tǒng)的總體結(jié)構(gòu) 如圖所示： 界面接口 登陸接口 MDI 主接口 創(chuàng)建用戶 學(xué)生信息管理 員工信息管理 班級(jí) 信息管理 基本信息 體檢信息 基本信息 培訓(xùn)信息 班級(jí)查詢 班級(jí)瀏覽 課程信息管理 學(xué)?；菊n程 成績(jī)信息管理 學(xué)生成績(jī)信息 綜合測(cè)評(píng) 綜合測(cè)評(píng)信息 畢業(yè)管理 畢業(yè)設(shè)計(jì) 實(shí)習(xí)管理 圖 系統(tǒng)的總體結(jié)構(gòu) 此系統(tǒng)主要由四個(gè)部分組成，分別是用戶添加及登陸部分， 學(xué)生信息管理部分，員工信息管理部分，班級(jí)信息管理部分，課程信息管理部分，成績(jī)信息管理部分，綜合測(cè)評(píng)部分，畢業(yè)管理部分以及圖書(shū)館部分。 員工信息管理部分分為基本信息和培訓(xùn)信息兩部分。 班級(jí)信息管理部分分為班級(jí)查詢和班級(jí)瀏覽兩部分。班級(jí)瀏覽部分支持資料的修改和刪除以及班級(jí)資料的報(bào)表打印。學(xué)校基本課程設(shè)置部分提供所有課程的設(shè)置，可以查詢、添加、刪除、篩選。 成績(jī)信息管理部分分為學(xué)生成績(jī)信息、補(bǔ)考、重修、積考成績(jī)輸入和學(xué)生成績(jī)查詢?nèi)糠?。補(bǔ)考、重修、積考成績(jī)輸入部分可以添加 /修改補(bǔ)考、重修、積考成績(jī)。 綜合測(cè)評(píng)部分分為綜合測(cè)評(píng)信息和綜 合測(cè)評(píng)圖示兩部分。綜合測(cè)評(píng)圖示部分能依 每個(gè)人的成績(jī)顯示不同的二維圖。畢業(yè)設(shè)計(jì)部分能瀏覽所有學(xué)生的畢業(yè)設(shè)計(jì)資料，并能進(jìn)行資料的添加 /修改。 圖書(shū)館管理部分。 Private Sub Timer1_Timer() If = Then 39。停止時(shí)鐘 End If = + 39。timer 屬性中設(shè)定每 秒 觸發(fā)一次，因此展示窗體顯示時(shí)間移動(dòng)為 2 秒 End Sub 用戶登陸窗體（用戶登陸 .frm） 圖 用戶登陸窗體 這是個(gè)用戶登陸的窗體，用 DataCombo 來(lái)設(shè)置了連接數(shù)據(jù)庫(kù)的所有組名稱，用于方便選擇。 Option Explicit Dim rstS As Private Sub Command2_Click() If = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 39。防止空密碼 Do If = rstS(0) And = rstS(2) And = rstS(3) Then If rstS(0) = 管理員 Then admin = 1 Else admin = 0 End If Unload Me Exit Do End If 39。用戶名或者密碼不相符或者不存在，都出現(xiàn)提示密碼錯(cuò)誤的對(duì)話框，跳出循環(huán) Loop 39。 班級(jí)表 .Filter = 年級(jí) like 39。 amp。 39。039。取消過(guò)濾，實(shí)際是根據(jù) cancel 項(xiàng)進(jìn)行過(guò)濾，此項(xiàng)是數(shù)據(jù)型，默認(rèn)為 0 學(xué)生成績(jī)查詢窗體（學(xué)生成績(jī) .frm） 圖 學(xué)生成績(jī)查詢窗體 這是學(xué)生成績(jī)查詢窗體，在控件中增加了 SSTab 來(lái)定義同類風(fēng)格，是四個(gè)查詢、四張表都能集中在一個(gè)窗體中，簡(jiǎn)單清晰。數(shù)據(jù)報(bào)表可以綜觀所有相關(guān)報(bào)表信息，輸入按扭可以實(shí)現(xiàn)對(duì)學(xué)生成績(jī)的錄入。刷新記錄 End Sub 學(xué)?；菊n程 圖 學(xué)校基本課程 這是學(xué)?；菊n程窗體，整頁(yè)綜合了多項(xiàng)控件，但并不顯得雜反而很有條理。 Private Sub Command8_Click() If = True Then = 課程代號(hào) End If If = True Then = 課程名 desc ElseIf = True Then = 學(xué)分 desc,課程代號(hào) End If End Sub Private Sub Command9_Click() If = True Then (教學(xué)要求 like 39。 amp。) End If If = True Then (學(xué)分 like 39。 amp。) ElseIf = True Then (學(xué)期 like 39。 amp。) End If If Then MsgBox 未找到 ! End If End Sub 畢業(yè)設(shè)計(jì)窗體（畢業(yè)設(shè)計(jì) .frm） 圖 畢業(yè)設(shè)計(jì)窗體 這是畢業(yè)設(shè)計(jì)窗體，這頁(yè)的特點(diǎn)在于利用了特效。 Private Sub Timer1_Timer() Dim i As Integer For i = 1 To 255 = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1)) = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1)) Next End Sub Private Sub Timer2_Timer() = Time = Date End Sub Private Sub Timer3_Timer() If = True Then = True = False ElseIf = True Then = True = False End If End Sub 綜合測(cè)評(píng)窗體（綜合測(cè)評(píng) .frm） 圖 綜合測(cè)評(píng)窗體 這是綜合測(cè)評(píng)窗體，在這里增加了控件 MSChart，利用 Adodc 調(diào)用數(shù)據(jù)的變化而時(shí)圖表呈現(xiàn)變化狀態(tài)，成為又一新亮點(diǎn)。合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。數(shù)據(jù)庫(kù)設(shè)計(jì)一般包括如下幾個(gè)步驟： ? 數(shù)據(jù)庫(kù)需求分析。 數(shù)據(jù)庫(kù)需求分析 這個(gè)系統(tǒng)使用的數(shù)據(jù)庫(kù)是微軟 Access2020 數(shù)據(jù)庫(kù)。而其中的數(shù)據(jù)庫(kù) .mdb是由我完成，總共有 19 張資料表。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。所以，在后期合并時(shí)期，我們找到了原因，是 因?yàn)樵谠O(shè)計(jì)初期，把數(shù)據(jù)庫(kù)的文件單獨(dú)放在一個(gè)文件夾里，我們修改了相對(duì)路徑，避免了一系列的修改的麻煩，在此我們要感謝指導(dǎo)老師的細(xì)心和負(fù)責(zé)。 權(quán)限設(shè)置 權(quán)限設(shè)置的設(shè)計(jì)思想：比如添加、刪除、修改操作如果一般用戶對(duì)這些信息都可以設(shè)置，就造成了管理上的混亂和沖突，所以，在功能實(shí)現(xiàn)中就對(duì)一般用戶在權(quán)限上做了限制，當(dāng)?shù)顷懻邽橐压芾韱T身份登陸那就只能瀏覽信息而不能進(jìn)行任何操作，若以管理員的身份登陸系統(tǒng)，那么就可以對(duì)信息窗體進(jìn)行設(shè)置。 Declare Function CreateSolidBrush Lib GDI (ByVal crColor As Integer) As Integer Declare Function FillRect Lib USER (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As Integer Declare Function DeleteObject Lib GDI (ByVal hObject As Integer) As Integer Type RECT left As Integer top As Integer right As Integer bottom As Integer End Type Public admin As Integer39。 軟件配置： Windows 95/98/2020/xp 操作系統(tǒng)， Visual Basic 數(shù)據(jù)庫(kù)管理系統(tǒng)。初次運(yùn)行時(shí)，須對(duì)某些文件進(jìn)行重定向。 (2)登陸系統(tǒng) 輸入用戶名和準(zhǔn)確的 密碼，進(jìn)入父窗體，即可進(jìn)入相應(yīng)的子系統(tǒng)，選擇“退出“按鈕可以退出系統(tǒng)。（管理員權(quán)限） 添加：輸入用戶編號(hào)，用戶名字，用戶密碼以及密碼確認(rèn)，就可以添加為公司管理系統(tǒng)用戶。 本系統(tǒng)是針對(duì)學(xué)校開(kāi)發(fā)的信息、學(xué)籍、圖書(shū)館管理軟件，實(shí)現(xiàn)對(duì)學(xué)校 現(xiàn)代化信息管理。 系統(tǒng)總體結(jié)構(gòu)：系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化。 該系統(tǒng)只要包括：信息管理系統(tǒng)、學(xué)籍管理系統(tǒng)、圖書(shū)館管理系統(tǒng)，這些管理系統(tǒng)將建立在一個(gè)規(guī)范標(biāo)準(zhǔn)的界面之上，大大提高了學(xué)校的管理水平。另一方面，能大大簡(jiǎn)化借閱手續(xù)，提高圖書(shū)利用率和圖書(shū)管理工作