vb學(xué)生成績管理系統(tǒng)實驗報告

1、綜 合 性 實 驗實 驗 名 稱:學(xué)生成績管理系統(tǒng)實驗報告專 業(yè) 班 級:金融1202學(xué) 生 姓 名：于淇 學(xué) 號： 2012180227 指 導(dǎo) 教 師：劉素華 一、系統(tǒng)的理論與技術(shù)基礎(chǔ)1.1管理信息系統(tǒng)基礎(chǔ)管理信息系統(tǒng)就是我們常說的MIS (Management Information System),是集成了計算機(jī)網(wǎng)絡(luò)技術(shù)、信息處理技術(shù)，對信息進(jìn)行收集處理、傳輸及存儲，進(jìn)行事務(wù)管理的一種人機(jī)交互的智能化計算機(jī)系統(tǒng)。1.2軟件工程理論對本系統(tǒng)的指導(dǎo)學(xué)生成績管理系統(tǒng)的設(shè)計和開發(fā)是一個較為龐大的系統(tǒng)工程，應(yīng)以軟件工程的思想和方法為指導(dǎo)，進(jìn)行設(shè)計和開發(fā)。軟件工程理論對本系統(tǒng)的指導(dǎo)，主要表現(xiàn)在：幫

2、助我們理清思路，建立較為科學(xué)的結(jié)構(gòu)和開發(fā)制作流程方面。上述的各種理論，對我們設(shè)計和開發(fā)學(xué)生成績管理系統(tǒng)提供了重要的理論基礎(chǔ)，同時也為我們?nèi)绾芜M(jìn)行具體的設(shè)計和開發(fā)工作，提供了必要的思路和方法。二、系統(tǒng)的分析2.1背景分析當(dāng)今時代是飛速發(fā)展的信息時代，在各行各業(yè)中離不開信息管理處理，這正是計算機(jī)被廣泛應(yīng)用于管理系統(tǒng)的原因。計算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計算機(jī)進(jìn)行管理控制，不僅提高了工作效率，而且大大的提高了其安全性，尤其對于復(fù)雜的管理，計算機(jī)能夠充分發(fā)揮它的優(yōu)越性。管理系統(tǒng)是進(jìn)行信息的采集、存儲、加工、維護(hù)和使用的系統(tǒng)，它是隨著管理科學(xué)和技術(shù)科學(xué)的發(fā)展而形成的。學(xué)生成績管理系統(tǒng)是

3、一個教育單位不可缺少的部分，它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要，所以學(xué)生成績管理系統(tǒng)能為用戶提供充足的管理手段，對學(xué)生來說可以輕松的查閱自己在校的成績及排名。隨著科學(xué)技術(shù)的不斷提高，計算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機(jī)應(yīng)用的一部分，使用計算機(jī)對學(xué)生成績信息進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點。例如：查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生成績管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理并與世界接軌的重要條件。因此，開發(fā)這樣一套成績管理系統(tǒng)成為很有必要的事情。學(xué)生成績

4、管理系統(tǒng)提供了強(qiáng)大的學(xué)生成績管理功能，方便系統(tǒng)管理員對學(xué)生成績等信息的添加、修改、刪除、查詢等操作。2.2 系統(tǒng)主要業(yè)務(wù)邏輯系統(tǒng)表業(yè)務(wù)邏輯如下圖：業(yè)務(wù)流程如下圖所示：系統(tǒng)用例如下圖所示：每個用例都包括，科目，名次，班級屬性。對于科目這個用例，他又包括分?jǐn)?shù)這個屬性。下面對系統(tǒng)的參與者進(jìn)行更具體的分析：1.如果最終分析的候選參與者沒有用例，那么他根本不是一個參與者。2.如果他和用例之間沒有通信，沒有任何聯(lián)系，那么他也可能不是一個參與者。3.如果候選用戶并不作任何事情，但是他包含了一些特殊信息，那么他可能不是一個 參與者，但他可以作為參與者的一個附屬品。4.如果參與者的名字過于細(xì)化，比如，張三，那么

5、，我們應(yīng)該根據(jù)他的角色來創(chuàng)建參 與者。5.如果一個參與者的名字過于泛化，比如“用戶”，那么我們可以根據(jù)他的角色來細(xì)化他的參與者（如上圖所示）描述參與者和用例之間的關(guān)系是我們構(gòu)建用例圖的最后一步。系統(tǒng)的每個參與者都觸發(fā)一個或多個用例，當(dāng)然如果他沒有觸發(fā)任何用例，他將不能成為參與者，而每個用例都由一個或多個參與者觸發(fā)。三、系統(tǒng)的開發(fā)工具及編程環(huán)境3.1 開發(fā)工具的選擇基于系統(tǒng)的需求分析以及系統(tǒng)的應(yīng)用，系統(tǒng)將采用微軟的Visual Studio6.0簡體中文版進(jìn)行開發(fā)，所選擇的語言是Visual Basci6.0，下面將介紹Visual Basic6.0的特點。3.2 Visual Basic 語言

6、的特點及常用名詞Visual Basic 語言用其設(shè)計應(yīng)用程序時具有兩個基本特點，可視化設(shè)計WYSIWYG （what you see is what you get）和事件驅(qū)動編程。Visual Basic 系統(tǒng)除了一般高級語言所具有的一些名詞術(shù)語外，還有幾個系統(tǒng)常用的名詞。其基本含義如下：視窗（Form）、對象 (Object) 、屬性 (Properties)、 事件 (Events) 、方法 (Method)、 過程 (Procedure) 和模塊 (Module)。1視窗（Form）視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。VB系統(tǒng)的人機(jī)交互界面或接口，無論是在設(shè)計時或是在運行時，都

7、是Windows 系統(tǒng)的標(biāo)準(zhǔn)視窗。2對象 (Object)對象是VB系統(tǒng)內(nèi)部提供給設(shè)計者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對象類型有標(biāo)簽框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，網(wǎng)格 (Data Grid)等。當(dāng)把這些工具放置到用戶界面對應(yīng)的窗體上時，被稱為對象或控件。用戶可以通過設(shè)置對象的“屬性”和“方法”，便于對象適應(yīng)自己所設(shè)計應(yīng)用程序的輸入輸出內(nèi)容，對象的生成過程及結(jié)構(gòu)都被封裝起來。正確使用對象可以減少程序和開發(fā)時間，提高程序設(shè)計者的工作效率。3屬性 (Properties)屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)

8、據(jù)接口。用戶通過適當(dāng)?shù)脑O(shè)置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對象。比如，對象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。4事件 (Events)事件是指用戶或操作者對計算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動鼠標(biāo)等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來引導(dǎo)計算機(jī)執(zhí)行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。5方法 (Method)方法主要是指對一個對象使用某種作用的過程。它是在程序執(zhí)行的過程中要計算

9、機(jī)執(zhí)行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。6過程 (Procedure)過程是指經(jīng)過定義或說明的，或基于某一對象對應(yīng)的事件所引發(fā)的程序段。7模塊 (Module)模塊是指一些運算量或過程進(jìn)行聲明或定義的一個集合。系統(tǒng)程序大體可分成四個模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。3.3編程環(huán)境的選擇微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)

10、計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)Visual Basic 6.0是一個相對較好的選擇。3.4 Windows下的Visual Basic 面對對象的編程面對對象的編程；面向?qū)ο蟮脑O(shè)計方法 (OOP, Objected Programming) 從應(yīng)用領(lǐng)域內(nèi)的問題著手，以直觀自然的方式描述客觀世界的實體。Visual Basic 作為一種面向?qū)ο蟮木幊谭椒?，把程序和?shù)據(jù)封裝起來作為一個對象，并為每個對象賦予相應(yīng)的屬性。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，由 Visual Basic 自動生成對象的程序代碼并封裝起來。Vis

11、ual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對象，每一個對象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個對象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。Visual Basic 應(yīng)用由一系列對象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應(yīng)用中重復(fù)使用。首先是進(jìn)入登陸界面，如圖3.4所示，本窗體顯示系統(tǒng)名稱，密碼校驗等信息，本系統(tǒng)的用戶分為三類：管理員，教師，學(xué)生。使用者可以在組合框中選擇所要登錄的用戶的類型，并輸入相應(yīng)的用戶名和密碼，單擊“確定”就

12、會將輸入提交給系統(tǒng)以驗證用戶、密碼及身份。如果用戶類型及密碼正確，則會進(jìn)入系統(tǒng)的MDI主窗體（MDIMain.frm）.本模塊的流程圖如下：選擇用戶，輸入密碼密碼正確？Y進(jìn)入系統(tǒng)主界面N 圖3-4流程圖3.5 Visual Basic 系統(tǒng)實現(xiàn)菜單選項實現(xiàn)菜單選項：菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個定義良好的菜單使程序易于使用和維護(hù)，Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能，使程序更加標(biāo)準(zhǔn)。3.5 Visual Basic 系統(tǒng)實現(xiàn)菜單選項 實現(xiàn)菜單選項：菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個定義良好的菜單使程序易于使用和維護(hù)，Visual Basic 也提

13、供了強(qiáng)大的創(chuàng)建菜單功能，使程序更加標(biāo)準(zhǔn)。四、系統(tǒng)數(shù)據(jù)庫的使用4.1 系統(tǒng)數(shù)據(jù)庫的選擇 本系統(tǒng)并沒有選擇流行的數(shù)據(jù)庫管理系統(tǒng)作為后臺數(shù)據(jù)庫而是選擇了以系統(tǒng)自己建立的文件系統(tǒng)作為數(shù)據(jù)庫后臺，這主要是考慮了系統(tǒng)的通用性和系統(tǒng)的實用性，在使用系統(tǒng)時，你并不需要額外的軟件支持。同時，我們也參考了Access2000即關(guān)系數(shù)據(jù)庫開發(fā)工具，利用數(shù)據(jù)庫能匯集各種信和Access的優(yōu)點，將使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。它也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文

14、件置于網(wǎng)絡(luò)文件服務(wù)器，與其他用戶共享數(shù)據(jù)庫。它是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，參考Access的優(yōu)點作為關(guān)系數(shù)據(jù)庫開發(fā)，的確具備了許多優(yōu)點，可以在一個數(shù)據(jù)包同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。4.2 數(shù)據(jù)的保存和讀取 系統(tǒng)采用自己定義的數(shù)據(jù)庫格式，以文本文件保存用戶錄入的信息，數(shù)據(jù)的格式轉(zhuǎn)換主要通過模塊函數(shù)實現(xiàn)，保存時，系統(tǒng)將網(wǎng)格的數(shù)據(jù)讀入RecordSet中，然后轉(zhuǎn)換為可以寫入文本文件的數(shù)據(jù)格式，當(dāng)需要從文件加載數(shù)據(jù)時，執(zhí)行相反過程，再將文件內(nèi)容轉(zhuǎn)換成內(nèi)存的RecordSet的格式，并將RecordSet綁定到網(wǎng)格顯示數(shù)據(jù)。執(zhí)行這兩者轉(zhuǎn)換的

15、數(shù)據(jù)模塊式系統(tǒng)中的Moudel1，Moudel2兩個模塊。4.3 數(shù)據(jù)庫文件的易用性 前面已經(jīng)說明了，系統(tǒng)的數(shù)據(jù)存儲是文本文件格式的文件，這對數(shù)據(jù)庫文件的建立和轉(zhuǎn)移，備份都是非常方便的，如果你愿意，完全可以在沒有系統(tǒng)的時候更改錄入資料，而不用關(guān)心系統(tǒng)是否崩潰了。如果要備份數(shù)據(jù)庫，只需要備份系統(tǒng)下面的文本文件格式的數(shù)據(jù)庫。這對系統(tǒng)的通用性是一個不錯的選擇。4.4 數(shù)據(jù)庫文件格式數(shù)據(jù)庫文件格式如下所示Private Sub CmdOk_Click()Dim Conn As New ADODB.ConnectionDim mlink As Stringmlink = provider=microso

16、ft.jet.oledb.3.51;data source=score.mdb;Conn.Open mlink當(dāng)用戶名密碼為空時給出提示If Text1.Text = Then MsgBox 在frmlogin窗體中如果用戶登錄成功，將會出現(xiàn)如圖4-3所示的MDI主窗體。4-3系統(tǒng)主窗體若是學(xué)生用戶，則有些菜單項不可用，只能運行本系統(tǒng)的部分功能（即重新登錄和信息查詢功能可用）。如圖4-4圖4-4系統(tǒng)主窗體4.5教師管理界面編碼設(shè)計 本節(jié)以按學(xué)生角度進(jìn)行管理為例，介紹教師管理的編碼設(shè)計。教師用戶進(jìn)入“成績管理”中的“按學(xué)生進(jìn)行管理”功能，出現(xiàn)如圖4.5所示界面。圖4.5“按學(xué)生進(jìn)行管理”學(xué)生信息

17、功能界面 教師用戶用鼠標(biāo)雙擊學(xué)生信息后，系統(tǒng)會顯示出該學(xué)生的成績信息。如圖4.3所示。圖4.5“按學(xué)生進(jìn)行管理”成績信息功能界面Option Explicit當(dāng)改變記錄集時，需要刷新整個網(wǎng)格控件Sub RefreshGrid()grdScan.DataMember = grdScan.RefreshIf DataEnv.rssqlStudent.State adStateClosed Then DataEnv.rssqlStudent.CloseDataEnv.rssqlStudent.OpengrdScan.DataMember = sqlStudentgrdScan.Ref五、系統(tǒng)代碼及開

18、發(fā)過程5.1系統(tǒng)的開發(fā)學(xué)生成績管理系統(tǒng)對學(xué)校加強(qiáng)學(xué)生成績的管理有著極其重要的作用。由于各個大學(xué)都在持續(xù)擴(kuò)招，學(xué)生的數(shù)量日益龐大，傳統(tǒng)的手工成績管理不僅工作量大，而且容易出現(xiàn)問題。而本系統(tǒng)則是在以前成績管理系統(tǒng)的基礎(chǔ)之上開發(fā)出來的。5.2功能需求描述按學(xué)生角度管理教師可以看到學(xué)生信息和成績信息。學(xué)生信息包括學(xué)生姓名，各科成績及班級排名等，可以自動顯示出該課程的這個學(xué)生所有課程的學(xué)習(xí)成績，并同時自動計算出這個學(xué)生的總分。在成績信息中，教師可以對學(xué)習(xí)成績進(jìn)行增加、修改和刪除，字體可大可小。5.3代碼及圖示本系統(tǒng)由6個窗體組成，以下是6個窗體的圖示及代碼。5.3.1.關(guān)于學(xué)生成績管理系統(tǒng)版權(quán)（在幫助菜

19、單欄里顯示）.?/P部分代碼如下：注冊鍵安全選項.Const KEY_ALL_ACCESS = &H2003F 注冊鍵根類型.Const HKEY_LOCAL_MACHINE = &H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 Unicode 空結(jié)尾字符串Const REG_DWORD = 4 32位數(shù)5.3.2.主窗口：?/P部分代碼如下：將窗體標(biāo)題賦值給變量strDefaultName = Me.CaptionIf Left(Me.Caption, 4) = 新成績表 ThenstrSaveFilename = GetFileName()

20、If strSaveFilename Then SaveFileAs (strSaveFilename)更新文件菜單UpdateFileMenu (strSaveFilename)Else窗體標(biāo)題包含打開的文件名strSaveFilename = GetFileName(strSaveFilename)If strSaveFilename Then SaveFileAs (strSaveFilename)更新文件菜單UpdateFileMenu (strSaveFilename)End If5.3.3.管理系統(tǒng)：代碼如下：總是將工作目錄設(shè)到應(yīng)用程序所在目錄ChDir App.Path初始化文檔

21、窗體數(shù)組，并顯示第一個子窗體ReDim Doc(1)ReDim FState(1)Doc(1).Tag = 1FState(1).Dirty = FalseDoc(1).Caption = 新成績表：1Doc(1).Show讀系統(tǒng)注冊表并適當(dāng)?shù)卦O(shè)置最近使用的菜單文件列表控件數(shù)組GetRecentFilesEnd Sub5.3.4.屬性：?/P代碼如下：For j = 1 To 8TextZhiKemu(j - 1).Text = .TextArray(Fgi(0, j + 1)NextText5.Text = .TextArray(Fgi(0, 10)Text6.Text = .TextArray(Fgi(0, 17)End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text5_Change()Text9.Text = Text5.TextEnd SubPrivate Sub textDeKemu_Change(Inde