畢業(yè)設計基于vb的學校信息管理系統(tǒng)

1、<p><b>　　學校管理系統(tǒng)</b></p><p><b>　　目 錄</b></p><p>　　內容提要………………………………………………………………………1</p><p>　　選題的背景……………………………………………………………………1</p><p>　　學校管理

2、系統(tǒng)的設計方法和技術線路………………………………………2</p><p>　　系統(tǒng)的基本框架、總體結構以及各部分功能………………………………4</p><p>　　系統(tǒng)部分窗體界面、代碼及簡要解釋………………………………………6</p><p>　　數據庫（表）分析……………………………………………………………17</p><p>　　遇到的

3、困難和解決方案………………………………………………………26</p><p>　　用戶操作說明…………………………………………………………………27</p><p>　　系統(tǒng)自我評價…………………………………………………………………28</p><p>　　致謝……………………………………………………………………………29</p><p>　

4、　參考資料………………………………………………………………………30</p><p>　　附錄部分………………………………………………………………………31</p><p><b>　　【內容提要】</b></p><p>　　隨著信息技術在管理上越來越深入而廣泛的應用，信息管理系統(tǒng)的實施在技術上已逐步成熟。信息管理系統(tǒng)是一個不斷發(fā)展的新型學科

5、，任何一個單位要生存要發(fā)展，要高效率地把內部活動有機地組織起來，就必須建立與自身特點相適應的信息管理系統(tǒng)。本文采用VB和ACCESS等軟件為開發(fā)工具，以Windows XP（或Windows 2000）為開發(fā)平臺，設計出一個學校管理系統(tǒng)，對學生、員工的信息、學生的課程以及成績進行統(tǒng)一管理，便于查詢、修改和打印。主要實現的功能模塊有系統(tǒng)管理子系統(tǒng)、學生信息管理子系統(tǒng)、員工信息管理子系統(tǒng)、班級信息管理子系統(tǒng)、課程信息管理子系統(tǒng)、成績信息管理

6、子系統(tǒng)、綜合測評子系統(tǒng)、畢業(yè)管理子系統(tǒng)、圖書館管理子系統(tǒng)等。</p><p>　　本系統(tǒng)界面友好，操作簡單，比較實用。</p><p><b>　　【關鍵字】</b></p><p>　　系統(tǒng)；管理；信息管理</p><p><b>　　選題的背景</b></p><p>&

7、lt;b>　　1需求分析</b></p><p>　　一個功能齊全、簡單易用的信息管理系統(tǒng)不但能有效地減輕學校各類工作人員的工作負擔，它的內容對于學校的決策者和管理者來說都至關重要。所以學校管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案、統(tǒng)計和查詢數據，這種管理方式存在著許多缺點,如:效率低、保密性差,人工的大量浪費；另外時間一長,將產生大量的

8、文件和數據,這對于查找、更新和維護都帶來了不少困難。隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著來越重要的作用。</p><p>　　作為計算機應用的一部分,使用計算機對學校的各類信息進行管理,具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查詢方便、效率高、可靠性好、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學校信息管理的效率,也是

9、一個單位科學化、正規(guī)化管理,與世界接軌的重要條件。</p><p>　　因此，開發(fā)這樣一套管理軟件成為很有必要的事情，我通過自己的知識和大量書籍的翻閱、網站的查閱，和同學一起合作開發(fā)了一個學校管理系統(tǒng)。</p><p><b>　　1.2歷史現狀</b></p><p>　　該項目開發(fā)的軟件為學校管理系統(tǒng)軟件,是鑒于目前學校學生、員工人數和圖書

10、館信息劇增,信息呈爆炸性增長的前提下,學校對信息管理的自動化與準確化的要求日益強烈的背景下構思出來的,該軟件設計完成后可用于所有教育單位(包括學校,學院等等)的信息的管理.目前社會上信息管理系統(tǒng)發(fā)展飛快,各個企事業(yè)單位都引入了信息管理軟件來管理自己日益增長的各種信息,學校管理系統(tǒng)也是有了很大的發(fā)展,商業(yè)化的信息管理軟件也不少.但本系統(tǒng)完全獨立開發(fā),力求使系統(tǒng)功能簡潔明了,但功能齊全且易于操作.</p><p>　

11、　1.3學校管理系統(tǒng)的功能及特點</p><p>　　學校管理信息系統(tǒng)是一個以計算機為工具，對學校管理信息進行處理的人—機系統(tǒng)，它能準確統(tǒng)計出學生的考試分數，能從全局出發(fā)輔助學校各職能部門以及校長管理學校?？梢?，學校管理系統(tǒng)首先必須具有強大的電子數據處理功能，能大大提高學校管理人員的工作效率，減輕勞動強度，同時，該系統(tǒng)應當采用管理模型，將仿真、優(yōu)化等現代決策手段結合起來，為學校管理層的決策提供有效信息。本系統(tǒng)的用

12、戶類型可分為三種：管理員、普通用戶</p><p>　　管理員：擁有一切權限，可管理用戶，修改，刪除數據。</p><p>　　普通用戶：只能查看數據，不得修改刪除數據。</p><p>　　整個系統(tǒng)，包括了學生信息管理、員工信息管理、班級信息管理、課程信息管理、成績信息管理、綜合測評、畢業(yè)管理等?；痉蠈W校管理的需求。</p><p>　

13、　學校管理系統(tǒng)的設計方法和技術線路</p><p>　　2.1選用的設計語言</p><p>　　本系統(tǒng)采用面向對象的軟件開發(fā)方法，以Microsoft公司的可視開發(fā)環(huán)境Visual Basic 6.0作為主要開發(fā)工具，使用Microsoft Access 2000作為關系數據庫，并在VB編程語言中采用ADO 數據庫編程模型，配合功能強大的查詢語言實現建立關系數據庫，訪問數據庫，對數據庫

14、的更新，較好地實現了預定的需求功能。</p><p>　　Visual Basic 6.0是一種可視化、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發(fā)Windows環(huán)境下的各類應用程序。它簡單易學、效率高、且功能強大。在Visual Basic環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的應用程序接口（API）函數，以及動態(tài)鏈接庫（DLL）、動態(tài)數據交換（DDE

15、）、對象的鏈接與嵌入（OLE）、開放式數據連接（ODBC）等技術，可以高效、快速地開發(fā)出Windows環(huán)境功能強大、圖形界面豐富的應用軟件系統(tǒng)。</p><p>　　Visual Basic 6.0 是專門為Microsoft的32位操作系統(tǒng)設計的，可用來建立32位的應用程序。在Windows9x、WindowsNT或Windows2000環(huán)境下，用Visual Basic 6.0的編譯器可以自動生成32位應用程

16、序。這樣的應用程序在32位操作系統(tǒng)下運行，速度更快，更安全，并且更適合在多任務環(huán)境下運行。</p><p>　　2.2選用Access作為后臺數據庫</p><p>　　Access2000 就是關系數據庫管理工具，數據庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于 Excel的電子表格，可以使數據庫一目了然

17、。另外，Access允許創(chuàng)建自定義報表用于打印或輸出數據庫中的信息。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據文件置于網絡文件服務器，與其他網絡用戶共享數據庫。Access 是一種關系數據庫管理工具，關系數據庫是已開發(fā)的最通用的數據庫之一。如上所述，Access 作為關系數據庫開發(fā)具備了許多優(yōu)點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。</p><p>　　作為應用程序

18、與OLE DB連接的橋梁，ActiveX Data Objects (ADO)為Visual Basic 6.0 下開發(fā)的應用程序訪問本地或遠程數據庫提供了有效的手段。Microsoft ActiveX Data Objects (ADO) 主要優(yōu)點是易于使用、高速度、低內存支出和占用磁盤空間較少。ADO 支持用于建立基于客戶端/服務器和 Web 的應用程序的主要功能。在VB中，可以使用開發(fā)環(huán)境提供的ADO控件，數據庫訪問方法，對ACC

19、ESS中建立的關系數據庫簡單快捷的進行訪問。</p><p>　　在數據庫方面，我主要采用了ADODC 的綁定方法。</p><p>　　ADO是微軟公司最新推出的數據訪問技術，他特別設計用來訪問OLE DB PRIVDER 一起協同工作，以提供通用數據訪問（ UNIVERSAL DATA ACCESS），OLEDB 是底層的數據訪問接口，ADO控件使用數據對象來快速建立數據綁定的控件和數

20、據提供者之間的連接。ADO的全名是ActiveX Data Object(ActiveX數據對象),是一組優(yōu)化的訪問數據庫的專用對象集，它為ASP提供了完整的站點數據庫解決方案，它作用在服務器端，提供含有數據庫信息的主頁內容，通過執(zhí)行SQL命令，讓用戶在瀏覽器畫面中輸入，更新和刪除站點數據庫的信息。 　　ADO主要包括Connection,Recordset和Command三個對象, 它們的主要功能如下： 　　·Conne

21、ction對象：負責打開或連接數據庫文件； 　　·Recordset對象：存取數據庫的內容； 　　·Command對象：對數據庫下達行動查詢指令，以及執(zhí)行SQL Server的存儲過程。</p><p><b>　　比較而言：</b></p><p>　　ODBC – （Open Database Connectivity）是第一個使用SQL訪

22、問不同關系數據庫的數據訪問技術。使用ODBC應用程序能夠通過單一的命令操縱不同的數據庫，而開發(fā)人員需要做的僅僅只是針對不同的應用加入相應的ODBC驅動。 DAO - （Data Access Objects）不像ODBC那樣是面向C/C++程序員的，它是微軟提供給Visual Basic開發(fā)人員的一種簡單的數據訪問方法，用于操縱Access數據庫。 RDO – 在使用DAO訪問不同的關系型數據庫的時候，Jet引擎不得不在

23、DAO和ODBC之間進行命令的轉化，導致了性能的下降，而RDO（Remote Data Objects）的出現就順理成章了。 OLE DB – 隨著越來越多的數據以非關系型格式存儲，需要一種新的架構來提供這種應用和數據源之間的無縫連接，基于COM（Component Object Model）的OLE DB應運而生了。</p><p>　　綜上所述ADO – 基于OLE DB之上的ADO更簡單、更高級、更

24、適合Visual Basic程序員，同時消除了OLE DB的多種弊端，取而代之是微軟技術發(fā)展的趨勢。所以我采用ADO 的方法來綁定數據庫，能夠達到功能的要求。</p><p>　　系統(tǒng)的基本框架、總體結構以及各部分功能</p><p><b>　　3.1基本框架</b></p><p>　　這是一個學校管理系統(tǒng)，其下有三大模塊：信息管理系統(tǒng)，學

25、籍管理系統(tǒng)，以及圖書館管理系統(tǒng)。</p><p><b>　　1.信息管理系統(tǒng)</b></p><p>　　學生信息：基本信息：學號、班級、宿舍等</p><p>　　檔案：姓名、住址、電話等</p><p>　　體檢信息：入學體檢、畢業(yè)體檢</p><p><b>　　獎懲信息<

26、/b></p><p>　　員工信息：基本信息：姓名、教授課程、部門等</p><p>　　檔案：姓名、住址、電話等</p><p><b>　　2.學籍管理：</b></p><p>　　a. 學生成績管理：成績錄入、查詢、不及格名單、學生總分名次、綜合測評表、畢業(yè)設計、實習管理、班級查詢、設置年級課程等<

27、/p><p>　　b. 員工培訓管理：</p><p>　　我主要負責學生信息系統(tǒng)即學籍管理，使用VB和數據庫的連接實現對系統(tǒng)的管理，在VB界面下實現各種功能。即窗體MDIForm1、班級查詢、班級查詢結果、班級瀏覽、畢業(yè)設計、補考成績查詢結果、成績查詢結果、成績輸入、創(chuàng)建用戶、各班課程設置、關于、積考成績查詢結果、界面、實習管理、學生成績查詢、學生成績輸入、學生成績輸入數據顯示、學?；菊n程

28、、用戶登陸、員工培訓信息、重修成績查詢結果、綜合測評、綜合測評信息都由我完成。</p><p>　　3.2系統(tǒng)的總體結構</p><p><b>　　如圖所示：</b></p><p>　　圖3.1 系統(tǒng)的總體結構</p><p>　　此系統(tǒng)主要由四個部分組成，分別是用戶添加及登陸部分，學生信息管理部分，員工信息管理部分

29、，班級信息管理部分，課程信息管理部分，成績信息管理部分，綜合測評部分，畢業(yè)管理部分以及圖書館部分。</p><p>　　3.3系統(tǒng)各部分功能</p><p>　　學生信息管理部分分為基本信息、體檢信息兩部分。</p><p>　　員工信息管理部分分為基本信息和培訓信息兩部分。員工培訓信息部分可以瀏覽所有員工培訓的資料，添加新的培訓資料，修改需要改的信息。</p

30、><p>　　班級信息管理部分分為班級查詢和班級瀏覽兩部分。班級查詢部分可以依各條件查詢所有班級信息。班級瀏覽部分支持資料的修改和刪除以及班級資料的報表打印。</p><p>　　課程管理部分分為學校基本課程，各班課程設置兩部分。學?；菊n程設置部分提供所有課程的設置，可以查詢、添加、刪除、篩選。各班課程設置部分則根據各個班級情況從已經設置好的基本課程中選擇所需要的課程，或者刪除不需要的課程，

31、同樣支持報表打印。</p><p>　　成績信息管理部分分為學生成績信息、補考、重修、積考成績輸入和學生成績查詢三部分。學生成績信息部分可以瀏覽所有成績信息，并能輸入/修改，支持報表打印。補考、重修、積考成績輸入部分可以添加/修改補考、重修、積考成績。學生成績查詢部分可以查詢所有成績、補考成績、重修成績和積考成績。</p><p>　　綜合測評部分分為綜合測評信息和綜合測評圖示兩部分。綜合

32、測評信息部分顯示所有綜合測評資料，并能實現多項查詢，支持打印。綜合測評圖示部分能依每個人的成績顯示不同的二維圖。</p><p>　　畢業(yè)管理部分分為畢業(yè)設計、實習管理兩部分。畢業(yè)設計部分能瀏覽所有學生的畢業(yè)設計資料，并能進行資料的添加/修改。實習管理部分能瀏覽所有學生的實習資料，并能進行資料的添加/修改。</p><p><b>　　圖書館管理部分。</b><

33、/p><p>　　系統(tǒng)部分窗體界面、代碼及簡要解釋</p><p>　　4.1界面窗體（界面.frm）</p><p><b>　　圖4.1界面窗體</b></p><p>　　這是一個運行的主界面，在控件中增加了ProgressBar，再利用Time控件來控制其的變化。</p><p>　　Priv

34、ate Sub Timer1_Timer()</p><p>　　If ProgressBar1.Value = ProgressBar1.Max Then '當ProgressBar的達到100（max設定值）時觸發(fā)</p><p><b>　　Unload Me</b></p><p><b>　　用戶登陸.Show<

35、;/b></p><p>　　Timer1.Enabled = False '停止時鐘</p><p><b>　　End If</b></p><p>　　ProgressBar1.Value = ProgressBar1.Value + 2.5 'ProgressBar的值每次加2.5</p><p

36、>　　'timer屬性中設定每0.05秒觸發(fā)一次，因此展示窗體顯示時間移動為2秒</p><p><b>　　End Sub</b></p><p>　　4.2用戶登陸窗體（用戶登陸.frm）</p><p>　　圖4.2用戶登陸窗體</p><p>　　這是個用戶登陸的窗體，用DataCombo來設置了連

37、接數據庫的所有組名稱，用于方便選擇。DataSource來源于DataEnvironment1,DataMember來源于組表，DataField來源于組名，RowSource來源于DataEnvironment1,RowMember來源于組表，ListFiele來源于組名。</p><p>　　Option Explicit</p><p>　　Dim rstS As ADODB.Rec

38、ordset</p><p>　　Private Sub Command2_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "用戶名不能為空！", vbExclamation + vbOKOnly, "警告"</p><

39、;p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　End If '防止空用戶名</p><p>　　If Text2.Text = "" Then</p><p>　　MsgBox "密碼不能為空！",

40、vbExclamation + vbOKOnly, "警告"</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　End If '防止空密碼</p><p><b>　　Do</b></p>

41、;<p>　　If DataCombo1.Text = rstS(0) And Text1.Text = rstS(2) And Text2.Text = rstS(3) Then</p><p>　　If rstS(0) = "管理員" Then</p><p><b>　　admin = 1</b></p><

42、p><b>　　Else</b></p><p><b>　　admin = 0</b></p><p><b>　　End If</b></p><p>　　MDIForm1.Show</p><p>　　rstS.Close</p><p>&

43、lt;b>　　Unload Me</b></p><p><b>　　Exit Do</b></p><p>　　End If '當用戶名和密碼相符的時候，進入主窗體，跳出循環(huán)</p><p>　　rstS.MoveNext</p><p>　　If rstS.EOF = True Then&l

44、t;/p><p>　　MsgBox "密碼錯誤，請重新輸入！", vbExclamation + vbOKOnly, "警告"</p><p>　　Text2.Text = ""</p><p>　　Text2.SetFocus</p><p>　　rstS.MoveFirst</

45、p><p><b>　　Exit Do</b></p><p>　　End If '用戶名或者密碼不相符或者不存在，都出現提示密碼錯誤的對話框，跳出循環(huán)</p><p>　　Loop '循環(huán)搜索每條記錄，直到出現以上兩種結果的一種</p><p><b>　　End Sub</b><

46、;/p><p>　　Private Sub Form_Load()</p><p>　　Set rstS = DataEnvironment1.rs用戶表</p><p>　　rstS.MoveFirst</p><p><b>　　End Sub</b></p><p>　　4.3班級瀏覽窗體（班級

47、瀏覽.frm）</p><p>　　圖4.3班級瀏覽窗體</p><p>　　這是一個班級瀏覽窗體，用DataGrid調用了整張班級表，用追加實現對表中列的布局，用Adodc控制了記錄的變化，同時用DataCombo調用數據庫的年級表來實現對年級的篩選，此外還運用了數據報表。</p><p>　　班級表.Filter = "年級 like '&qu

48、ot; & DataCombo1.Text & "%'" '按年級過濾</p><p>　　班級表.Filter = "cancel like '0'" '取消過濾，實際是根據cancel項進行過濾，此項是數據型，默認為0</p><p>　　4.4學生成績查詢窗體（學生成績.frm）</

49、p><p>　　圖4.4學生成績查詢窗體</p><p>　　這是學生成績查詢窗體，在控件中增加了SSTab來定義同類風格，是四個查詢、四張表都能集中在一個窗體中，簡單清晰。</p><p>　　Private Sub Form_Load()</p><p>　　Set rstS = DataEnvironment2.rs成績表</p>

50、;<p>　　Set a = DataEnvironment2.rs補考表</p><p>　　Set b = DataEnvironment2.rs重修表</p><p>　　Set c = DataEnvironment2.rs積考表</p><p><b>　　End Sub</b></p><p>

51、　　4.5學生成績輸入數據顯示窗體（學生成績輸入數據顯示.frm）</p><p>　　4.5學生成績輸入數據顯示窗體</p><p>　　這是學生成績輸入數據顯示窗體，整頁設置風格大方，操作簡便，一目了然，利用DataGrid調用數據庫中的成績表，同時也利用了追加實現了對表中列的布局。數據報表可以綜觀所有相關報表信息，輸入按扭可以實現對學生成績的錄入。</p><p&

52、gt;　　Private Sub Command4_Click()</p><p>　　Adodc1.Caption = "刪除"</p><p>　　If MsgBox("真的要刪除當前記錄嗎?", vbOKCancel + vbCritical, "刪除") = vbOK Then</p><p>　　

53、Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</

54、b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　Adodc1.Recordset.UpdateBatch adAffectAllChap

55、ters '刷新記錄</p><p><b>　　End Sub</b></p><p><b>　　4.6學?；菊n程</b></p><p>　　圖4.6學校基本課程</p><p>　　這是學?；菊n程窗體，整頁綜合了多項控件，但并不顯得雜反而很有條理。三個Lable設置了排序、查找、

56、篩選三個功能模塊，而在排序和查找模塊中又分別用了三個Option來做出選擇，用Adodc連接了后臺數據庫用DataGrid實現前臺數據的展現，DataCombo的選擇來實現篩選。</p><p>　　Private Sub Command8_Click()</p><p>　　If Option1.Value = True Then</p><p>　　Adodc1

57、.Recordset.Sort = "課程代號 "</p><p><b>　　End If</b></p><p>　　If Option2.Value = True Then</p><p>　　Adodc1.Recordset.Sort = "課程名 desc "</p><p&

58、gt;　　ElseIf Option3.Value = True Then</p><p>　　Adodc1.Recordset.Sort = "學分 desc,課程代號"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><

59、;p>　　Private Sub Command9_Click()</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　If Option4.Value = True Then</p><p>　　Adodc1.Recordset.Find ("教學要求 like '" & Text

60、7.Text & "%'")</p><p><b>　　End If</b></p><p>　　If Option5.Value = True Then</p><p>　　Adodc1.Recordset.Find ("學分 like '" & Text7.Text

61、& "%'")</p><p>　　ElseIf Option6.Value = True Then</p><p>　　Adodc1.Recordset.Find ("學期 like '" & Text7.Text & "%'")</p><p><b

62、>　　End If</b></p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　MsgBox "未找到!"</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></

63、p><p><b>　　End Sub</b></p><p>　　4.7畢業(yè)設計窗體（畢業(yè)設計.frm）</p><p>　　圖4.7畢業(yè)設計窗體</p><p>　　這是畢業(yè)設計窗體，這頁的特點在于利用了特效。用Adodc連接了后臺數據庫中的畢業(yè)設計表，8個Command可以實現諸多功能，特色在于三個Time控件，會使左

64、右兩邊的“畢業(yè)設計信息”字樣呈閃爍狀態(tài)，此外還有當前時間的顯示。</p><p>　　Private Sub Timer1_Timer()</p><p>　　Dim i As Integer</p><p>　　For i = 1 To 255</p><p>　　Label6.ForeColor = RGB((Rnd * 255 + 1)

65、, (Rnd * 255 + 1), (Rnd * 255 + 1))</p><p>　　Label7.ForeColor = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1))</p><p><b>　　Next</b></p><p><b>　　End Sub<

66、/b></p><p>　　Private Sub Timer2_Timer()</p><p>　　Label8.Caption = Time</p><p>　　Label9.Caption = Date</p><p><b>　　End Sub</b></p><p>　　Priva

67、te Sub Timer3_Timer()</p><p>　　If Label6.Visible = True Then</p><p>　　Label7.Visible = True</p><p>　　Label6.Visible = False</p><p>　　ElseIf Label7.Visible = True Then&l

68、t;/p><p>　　Label6.Visible = True</p><p>　　Label7.Visible = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.8綜合測評窗體（綜合測

69、評.frm）</p><p>　　圖4.8綜合測評窗體</p><p>　　這是綜合測評窗體，在這里增加了控件MSChart，利用Adodc調用數據的變化而時圖表呈現變化狀態(tài)，成為又一新亮點。</p><p>　　Private Sub Form_Load()</p><p>　　MSChart1.Data = Text6.Text</

70、p><p>　　MSChart1.Data = Text7.Text</p><p>　　MSChart1.Data = Text8.Text</p><p>　　MSChart1.Data = Text3.Text</p><p>　　MSChart1.Data = Text4.Text</p><p>　　MSChar

71、t1.Data = Text5.Text</p><p>　　Set rs = Adodc1.Recordset</p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_Change()</p><p>　　MSChart1.Data = Text6.Text</

72、p><p>　　MSChart1.Data = Text7.Text</p><p>　　MSChart1.Data = Text8.Text</p><p>　　MSChart1.Data = Text3.Text</p><p>　　MSChart1.Data = Text4.Text</p><p>　　MSChar

73、t1.Data = Text5.Text</p><p><b>　　End Sub</b></p><p><b>　　數據庫（表）分析</b></p><p><b>　　5.1數據庫設計</b></p><p>　　數據庫在一個信息管理系統(tǒng)中占有非常重要的地位，數據庫結構

74、設計的好壞將直接對應用系統(tǒng)的效率以及實現的效果產生影響。合理的數據庫結構設計可以提高數據存儲的效率，保證數據的完整和一致。</p><p>　　設計數據庫系統(tǒng)時應該首先充分了解用戶各個方面的需求，包括現有的以及將來可能增加的需求。數據庫設計一般包括如下幾個步驟：</p><p><b>　　數據庫需求分析。</b></p><p>　　數據庫邏

75、輯結構分析。</p><p>　　5.2數據庫需求分析</p><p>　　這個系統(tǒng)使用的數據庫是微軟Access2000數據庫。由于整個系統(tǒng)有兩個人共同完成，而且內容上又有偏差，故我們制作了兩個數據庫。而其中的數據庫.mdb是由我完成，總共有19張資料表。</p><p>　　用戶的需求具體體現在各種信息的提供、保存、更新和查詢，這就要求數據庫結構能充分滿足各種信

76、息的輸出和輸入。收集基本數據、數據結構以及數據處理的流程，組成一份詳盡的數據字典，為后面的具體設計打下基礎。</p><p>　　針對學校管理的需求，通過對學校內部管理內容和數據流程分析，設計如下所示的數據項和數據結構：</p><p>　　數據庫：數據庫.mdb</p><p>　　資料表1：按課程類型 </p><p><

77、;b>　　資料表2：班級表</b></p><p>　　資料表3：畢業(yè)設計表</p><p><b>　　資料表4：補考表</b></p><p><b>　　資料表5：成績表</b></p><p><b>　　資料表6：各班課程</b></p>

78、<p><b>　　資料表7：積考表</b></p><p><b>　　資料表8：教材表</b></p><p><b>　　資料表9：課程總表</b></p><p><b>　　資料表10：年級表</b></p><p><b&g

79、t;　　資料表11：實習表</b></p><p><b>　　資料表12：學期表</b></p><p>　　資料表13：學生情況表</p><p><b>　　資料表14：用戶表</b></p><p>　　資料表15：員工信息表</p><p>　　資料表1

80、6：員工信息表</p><p><b>　　資料表17：重修表</b></p><p>　　資料表18：綜合測評表</p><p><b>　　資料表19：組表</b></p><p>　　5.3 部分數據E-R圖</p><p>　　5.3.1 班級E-R圖：</p

81、><p>　　5.3.1 畢業(yè)設計E-R圖：</p><p>　　5.3.3 成績E-R圖：</p><p>　　5.3.4 課程E-R圖：</p><p>　　5.3.5 學生E-R圖：</p><p>　　5.3.6 員工培訓E-R圖：</p><p>　　5.3.7 員工E-R圖：</p

82、><p>　　遇到的困難和解決方法</p><p>　　6.1相對路徑的問題</p><p>　　我們設計的學校管理系統(tǒng)，從實質上說是一個軟件，但是它是以VB為界面基礎的，后臺的數據庫是ACCESS，這就引發(fā)了一個問題，在小組人員各自完成模塊的設計時，在自己的PC上就可以運行，但是在合并程序的階段，就無法運行了，指導老師在設計初期就象我們提示過要改路徑的問題。所以，在后

83、期合并時期，我們找到了原因，是因為在設計初期，把數據庫的文件單獨放在一個文件夾里，我們修改了相對路徑，避免了一系列的修改的麻煩，在此我們要感謝指導老師的細心和負責。在我們小組人員共同的努力下，也使程序能順利的完成。</p><p><b>　　6.2權限設置</b></p><p>　　權限設置的設計思想：比如添加、刪除、修改操作如果一般用戶對這些信息都可以設置，就造

84、成了管理上的混亂和沖突，所以，在功能實現中就對一般用戶在權限上做了限制，當登陸者為已管理員身份登陸那就只能瀏覽信息而不能進行任何操作，若以管理員的身份登陸系統(tǒng)，那么就可以對信息窗體進行設置。此外，參考了同學的設計，因為他們是把功能做在外面所以可以在登陸時界面后就能發(fā)現，這明顯與我們做的有沖突換句話說是不值得我們借鑒，因此我要朋友詢問了適合我們的權限設置，在系統(tǒng)中添加個模塊，然后在代碼中再增加語句。</p><p>

85、;　　Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Integer) As Integer</p><p>　　Declare Function FillRect Lib "USER" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As I

86、nteger) As Integer</p><p>　　Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer</p><p><b>　　Type RECT</b></p><p>　　left As Integer<

87、;/p><p>　　top As Integer</p><p>　　right As Integer</p><p>　　bottom As Integer</p><p><b>　　End Type</b></p><p>　　Public admin As Integer'用于驗證是否

88、有管理員權限</p><p><b>　　用戶操作說明</b></p><p>　　軟硬件環(huán)境硬件配置：486以上檔次的計算機，彩色顯示器，內存>8M,硬盤>200M。軟件配置：Windows 95/98/2000/xp操作系統(tǒng)，Visual Basic 6.0數據庫管理系統(tǒng)。</p><p>　　2.  應用系統(tǒng)安裝

89、 直接拷貝：把應用系統(tǒng)光盤插入到驅動器中，在任意盤目錄下建立子文件夾畢業(yè)設計，將光盤根目錄中所用的文件拷貝到任意盤文件夾畢業(yè)設計中。初次運行時，須對某些文件進行重定向。</p><p>　　3. 操作方法(1) 啟動應用系統(tǒng) 先啟動Visual Basin 6.0運行后綴為“.exe” 可執(zhí)行文件。</p><p><b>　　(2)登陸系統(tǒng) <

90、/b></p><p>　　輸入用戶名和準確的密碼，進入父窗體，即可進入相應的子系統(tǒng)，選擇“退出“按鈕可以退出系統(tǒng)。</p><p>　　(3)用戶管理，可以進行添加和刪除用戶。（管理員權限）</p><p>　　添加：輸入用戶編號，用戶名字，用戶密碼以及密碼確認，就可以添加為公司管理系統(tǒng)用戶。</p><p>　　刪除：輸入用戶編號，

91、經確認之后，再輸入用戶密碼，即可以刪除用戶。</p><p><b>　　系統(tǒng)自我評價</b></p><p>　　本系統(tǒng)是針對學校開發(fā)的信息、學籍、圖書館管理軟件，實現對學?，F代化信息管理。</p><p>　　學籍管理系統(tǒng)以學號和員工號生成，能夠快速的錄入成績、設置課程等，極大的方便了學校對于學生成績和員工工作狀況的管理；而信息管理系統(tǒng)是與

92、學籍管理系統(tǒng)數據共享的，其中各式各樣的報表方便了信息的管理；圖書館管理系統(tǒng)則是現代學校的典型的一個管理系統(tǒng)，它實現了對書籍的各式管理。</p><p>　　系統(tǒng)總體結構：系統(tǒng)開發(fā)的總體任務是實現信息關系的系統(tǒng)化、規(guī)范化和自動化。</p><p><b>　　1.信息系統(tǒng)化</b></p><p>　　通過該系統(tǒng)，將實現各種數據的共享，方便了信息

93、的管理。</p><p>　　2.學校管理系統(tǒng)規(guī)范化</p><p>　　該系統(tǒng)只要包括：信息管理系統(tǒng)、學籍管理系統(tǒng)、圖書館管理系統(tǒng)，這些管理系統(tǒng)將建立在一個規(guī)范標準的界面之上，大大提高了學校的管理水平。</p><p>　　3.圖書資料檢索借閱自動化</p><p>　　通過圖書館管理系統(tǒng)，實現圖書檢索和借閱，從而一方面能作到資料共享。另一

94、方面，能大大簡化借閱手續(xù)，提高圖書利用率和圖書管理工作效率。</p><p><b>　　8.1優(yōu)點</b></p><p>　　接口美觀大方，界面風格統(tǒng)一。整個系統(tǒng)包含了學生信息管理，員工信息管理，班級信息管理，課程信息管理，成績信息管理，綜合測評，畢業(yè)管理，這幾部分都能夠非?？旖莸膶Y料內容進行添加修改刪除以及報表打印等操作。</p><p&g

95、t;<b>　　8.2缺點</b></p><p>　　學校管理系統(tǒng)的局限性：該系統(tǒng)是單機版，所以使用范圍得到了限制。不能實現局域網上的多臺機器，共享同一數據庫。而信息管理系統(tǒng)，需要多個職能部門來參與管理，比如學生信息以及成績的錄入，需要教師來管理。 而教師的信息需要學校教務部門來管理。圖書信息的管理，需要圖書館來完成。 因此，系統(tǒng)的單機性質，制約了系統(tǒng)在學校的廣泛應用。</p>

96、<p>　　查詢模塊做的不是很理想，只能進行單條件查詢。系統(tǒng)不是很完善，有待補充。</p><p><b>　　8.3可擴充內容</b></p><p>　　使用者的權限，成績管理部分，數據庫備份和恢復等。</p><p><b>　　致謝</b></p><p>　　在本次畢業(yè)設計中

97、，我從指導老師陳桂生老師身上學到了很多東西。陳老師認真負責的工作態(tài)度，嚴謹的治學精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。 另外，在系統(tǒng)開發(fā)過程中同組的同學也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同樣給與我不少幫助，這里一并表示感謝。</p><p>&l

98、t;b>　　參考資料：</b></p><p>　　1．協同教育微軟ATC教材編譯室 編著 《開發(fā)工具專家 Visual Basic 6.0 培訓教程》 電子工業(yè)出版社 </p><p>　　2．上海市計算機應用能力考核辦公室 編《計算機應用教程——Access 2000》 復旦大學出版社 </p><p>　　3．明日科技 高春艷 李艷

99、谷偉東 編著《Visual Basic數據庫開發(fā)關鍵技術與實例應用》 人民郵電出版社 </p><p>　　4．源江科技/編著《VB編程技巧280例》 上?？茖W普及出版社 </p><p>　　5．佳文工作室創(chuàng)作《Visual Basic6.0編程實例教程》 電子工業(yè)出版社 </p><p>　　6．王珊 陳紅編著《數據庫系統(tǒng)原理教程》 清華大學出

100、版社 </p><p>　　7．劉圣才 李春葆編著《Visual Basic6.0 程序設計導學》 清華大學出版社 </p><p>　　8．周國民 《Visual Basic + Access數據庫項目開發(fā)實踐》 中國鐵道出版社</p><p>　　9．段興 《Visual Basic 6.0控件實用程序設計100例》 人民郵電出版社 </p>

101、;<p>　　10．Kris Jamsa 博士Lars Klander博士 著 《Visual Basic 程序設計技巧1001例》 電子工業(yè)出版社 </p><p><b>　　附錄部分</b></p><p>　　*實習管理窗體（實習管理.frm）</p><p>　　Dim 實習表 As ADODB.Recordset<

102、;/p><p>　　Private Sub Command1_Click()</p><p><b>　　'判斷是否有權限</b></p><p>　　If admin = 0 Then</p><p>　　MsgBox "你不是管理員,沒有此權限！", vbExclamation + vbOKO

103、nly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　實習表.AddNew '添加記錄</p><p>　　Command1.Enabled = False</p>&

104、lt;p>　　Command2.Enabled = False</p><p>　　Command5.Visible = True</p><p>　　Command4.Enabled = True</p><p>　　Command7.Visible = False</p><p>　　Command8.Visible = True&

105、lt;/p><p>　　Adodc1.Enabled = False</p><p>　　Text1.Enabled = True</p><p>　　Text2.Enabled = True</p><p>　　Text3.Enabled = True</p><p>　　Text4.Enabled = True<

106、/p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p><p>　　Adodc1.Recordset.MovePrevious</p><p>　　If Adodc1.Recordset.BOF = True Then</p>&

107、lt;p>　　Adodc1.Recordset.MoveFirst</p><p>　　MsgBox ("已到首記錄")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Com

108、mand11_Click()</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　MsgBox ("已到末記錄")<

109、;/p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command12_Click()</p><p>　　Adodc1.Recordset.MoveLast</p><p><b

110、>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　'判斷是否有權限</b></p><p>　　If admin = 0 Then</p><p>　　MsgBox "你不是管理員,沒有此權限！&qu

111、ot;, vbExclamation + vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Command1.Enabled = True </p><p>　　Command

112、4.Enabled = True</p><p>　　Command2.Visible = False</p><p>　　Command5.Visible = False</p><p>　　Command7.Visible = True</p><p>　　Command8.Visible = True</p><p&

113、gt;　　Adodc1.Enabled = True</p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p><p&

114、gt;<b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　實習表.CancelUpdate </p><p>　　Command7.Visible = False</p><p>　　Command8.Visible = False&

115、lt;/p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Adodc1.Enabled = True</p><p>　　Text1.Enabled =

116、False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub

117、 Command4_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p><b>　　'判斷是否有權限</b&g

118、t;</p><p>　　If admin = 0 Then</p><p>　　MsgBox "你不是管理員,沒有此權限！", vbExclamation + vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　

119、　End If</b></p><p>　　實習表.Update</p><p>　　Command5.Visible = False</p><p>　　Command2.Visible = False</p><p>　　Command1.Enabled = True</p><p>　　Command

120、8.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Command7.Visible = True</p><p>　　Adodc1.Enabled = True</p><p>　　Text1.Enabled = False</p><p>　　T

121、ext2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p>

122、<p>　　實習表.CancelUpdate </p><p>　　Command5.Visible = False</p><p>　　Command2.Visible = True</p><p>　　Command1.Enabled = True</p><p>　　Command4.Enabled = True</p&

123、gt;<p>　　Adodc1.Enabled = True</p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p&

124、gt;<p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p><b>　　'判斷是否有權限</b></p><p>　　If admin = 0 Then</p><p>　　MsgBox &qu