畢業(yè)設計（論文）-vb+SQL學生信息管理系統(tǒng)_.doc

題 目： 系 別： 專業(yè)、 班級： 姓 名： 學 號： 指 導 教 師： 完 成 時 間： 前 言學生信息管理系統(tǒng)是一個教育單位不可缺少的部分,它的內容對于學校的決策者和管理者來說都至關重要,所以學生信息管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理學生學籍檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產生大量的文件和數據,這對于查找、更新和維護都帶來了不少的困難。隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。 作為計算機應用的一部分,使用計算機對學生學籍信息進行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學生學籍管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中將以開發(fā)一套學生信息管理系統(tǒng)為例,談談其開發(fā)過程和所涉及到的問題及解決方法。目 錄摘 要1第一章 引 言11.1 課題介紹11.2 課題目的及意義11.3 研究方法、發(fā)展趨勢1第二章 開發(fā)環(huán)境、工具介紹22.1 Visual Basic 6.022.1.1 Visual Basic的編程特點22.1.2 vb支持的數據庫系統(tǒng)32.1.3 數據庫開發(fā)中的三大工具32.2 SQL Server 2000 簡介42.2.1 SQL Server 數據庫特點52.3 ADO 對象概述62.3.1 利用ADO開發(fā)網絡數據庫應用程序62.3.2 ADO組件的主要對象及其功能72.3.3 用來操控數據的SQL命令72.4 VB訪問數據庫過程8第三章 系統(tǒng)分析與設計93.1 系統(tǒng)功能分析93.2 系統(tǒng)結構圖93.3 系統(tǒng)E-R圖103.4 數據庫設計11第四章 系統(tǒng)具體實現(xiàn)124.1 模塊設計124.2 登錄窗體設計144.3 主界面設計164.3.1 ImageLis194.3.2 Toolbar194.3.3 StatusBar194.3.4 菜單編輯器194.4 數據庫維護窗體設計204.5 管理員信息管理214.5.1 管理員注冊窗體設計214.5.2 密碼修改窗體設計234.6 學生基本情況更新窗體設計254.7 學生基本情況維護窗體設計294.7.1 數據環(huán)境314.7.2 DateReport1設計314.7.3 班級查找對話框324.8 成績維護窗體設計334.8.1 DateReport2設計354.8.2 班級查找對話框354.9關于系統(tǒng)和系統(tǒng)幫助窗體設計37第五章 總結38結束語39參考文獻40摘 要隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的實施在技術上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學科，任何一個單位要生存要發(fā)展，要高效率地把內部活動有機地組織起來，就必須建立與自身特點相適應的管理信息系統(tǒng)。本系統(tǒng)是在管理信息系統(tǒng)的理論和方法指導下、數據庫技術支持下完成的。本文在結構上首先論述了畢業(yè)設計選題的背景、目的和意義，然后敘述了開發(fā)環(huán)境、開發(fā)平臺以及數據庫技術，接著用表格和圖片的方式介紹了系統(tǒng)的整體規(guī)劃，接下來是系統(tǒng)在具體實現(xiàn)中的詳細內容，最終本系統(tǒng)能夠完成信息的輸入、輸出,數據的修改、查詢以及打印報表等功能，本系統(tǒng)界面友好，操作簡單，比較實用。關鍵詞：控件；窗體；報表；關系數據庫管理系統(tǒng)；VB。- 1 -第一章 引 言1.1 課題介紹高校學生信息的管理是一項既重要又繁瑣的工作。為更好的做好這項工作，提過工作效率，更好的為學校的發(fā)展和一線教學服務，決定：結合我校實際情況，自行研制一個學生信息管理系統(tǒng)。1.2 課題目的及意義由于現(xiàn)今的學生信息管理非常繁瑣，行政人員付出大量的工作時間，得到的效率很低。因此為提高工作效率，減輕校方人員的工作負擔，決定開發(fā)學生信息管理系統(tǒng)。計算機已經成為我們學習和工作的得力助手：今天，計算機的價格已經十分低廉，性能有了長足的進步。它已經被應用于許多領域，計算機之所以如此流行的原因主要有以下幾個方面： 首先，計算機可以代替人工進行許多繁雜的勞動；其次，計算機可以節(jié)省許多資源； 第三，計算機可以大大的提高人們的工作效率； 第四，計算機可以使敏感文檔更加安全等等。為了解決傳統(tǒng)學生信息的管理正面臨著的這些問題，我所設計的學生信息管理系統(tǒng)也就應運而生了。1.3 研究方法、發(fā)展趨勢本系統(tǒng)采用功能分析法即通過說明社會現(xiàn)象怎樣滿足一個社會系統(tǒng)的需要（即具有怎樣的功能）來解釋社會現(xiàn)象和CS模式共同完成?，F(xiàn)代教育技術特別是網絡與多媒體技術的發(fā)展，對學習活動產生了具有深遠意義的沖擊，人們可以選擇或者設計適合其學習特點的信息采集、加工與重組方式。本系統(tǒng)采用CS模式，在某些方面還不是表現(xiàn)的很好，但未來有關學生信息管理的應該采用多層架構的系統(tǒng)，是真正適應教育信息化發(fā)展三大趨勢的校園網絡應用系統(tǒng)，全面支持Internet功能、遠程訪問功能，采用先進的CS和BS模式共同開發(fā)，支持有關學校信息交流、日常教學、教務管理等的各種應用，提供一個基于校園內聯(lián)網中支持各種類型的學校應用產品的服務平臺和開發(fā)平臺，基本目標是在學校內部和外部建立起順暢的信息通道，讓信息技術成為推動教育生產力的有力工具，提高學校的管理水平和效率，同時充分利用全球的教育資源為學校的教育服務，克服目前大部分學校的校園網建設只起到宣傳作用的通病。第二章 開發(fā)環(huán)境、工具介紹該軟件是在Windows XP Professional + Visual Basic 6.0 + SQL Server 2000的環(huán)境下完成的。下面就對這些開發(fā)工具進行介紹：2.1 Visual Basic 6.0微軟公司的Visual Basic 6.0是Windows應用程序開發(fā)工具，是目前最為廣泛的、易學易用的面向對象的開發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。利用VISUAL BASIC 程序設計語言，可以很方便地設計出在WINDOWS環(huán)境下運行的應用程序。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。2.1.1 Visual Basic的編程特點Visual Basic語言的出現(xiàn)為Windows下的編程提出了一個新概念，利用Visual Basic的動態(tài)數據交換、對象的鏈接和嵌入、動態(tài)鏈接庫、ActiveX技術可以很方便地設計出功能強大的應用程序。利用Visual Basic語言編程有以下幾個特點：1）、可視化程序設計在Visual Basic中開發(fā)的應用程序，不但有豐富的圖形界面，同時由用戶為開發(fā)圖形界面添加的代碼真是少而又少，因為在設計圖形界面的過程中只需設置 ActiveX控件的屬性即可。2）、強大的數據庫和網絡功能隨著Visual Basic 語言的向前發(fā)展，它在數據庫和網絡方面的功能優(yōu)勢就愈加明顯，利用Visual Basic 中的ODBC開放式的數據庫訪問技術可以很方便地開發(fā)出自己的數據庫應用程序；利用 Visual Basic自帶的可視化數據管理器和報表生成器，完全可以在Visual Basic就完成數據庫的開發(fā)工作。3）、其他特性在Visual Basic以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運行機制，所以在相當的程度上制約了 Visual Basic 的發(fā)展。從Visual Basic5.0版本開始，在Visual Basic 中制作的應用程序都改變?yōu)榫幾g執(zhí)行，使得Visual Basic的代碼效率有了很大的提高，同時執(zhí)行的速度 也加快了解30%(同Visual Basic4.0相比)。當然在 Visual Basic中還有其它特性，例如：l 面向對象的編程語言；l 結構化程序設計；l 事件驅動的程序設計：在傳統(tǒng)的或“過程化”的應用程序中，應用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。從第一行代碼執(zhí)行程序并按應用程序中預定的路徑執(zhí)行，必要時才會調用過程。在事件驅動的應用程序中，代碼不是按預定的路徑執(zhí)行，而是在響不同的事件時執(zhí)行不同的代碼片段。事件可以由用戶操作觸發(fā)、也可以由來自操作系統(tǒng)或其它應用程序的消息觸發(fā)、甚至由應用程序本身的消息觸發(fā)。這些事件的順序，決定了代碼執(zhí)行的順序，因此應用程序每次運行時所經過的路徑都是不同的。l 支持動態(tài)鏈接庫；l 應用程序之間的資源共享； l 事件驅動的程序設計；在傳統(tǒng)的或“過程化”的應用程序中，應用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。從第一行代碼執(zhí)行程序并按應用程序中預定的路徑執(zhí)行，必要時才會調用過程。在事件驅動的應用程序中，代碼不是按預定的路徑執(zhí)行，而是在響不同的事件時執(zhí)行不同的代碼片段。事件可以由用戶操作觸發(fā)、也可以由來自操作系統(tǒng)或其它應用程序的消息觸發(fā)、甚至由應用程序本身的消息觸發(fā)。這些事件的順序，決定了代碼執(zhí)行的順序，因此應用程序每次運行時所經過的路徑都是不同的。l 支持動態(tài)鏈接庫；l 應用程序之間的資源共享2.1.2 vb支持的數據庫系統(tǒng)VB支持對多格式的數據庫的訪問和維護，無論是Access還是Foxpro中創(chuàng)建的數據庫，都可以用VB打開，對其進行查詢、修改和刪除等操作。事實上，VB幾乎支持對市面上所有數據庫的訪問。VB可以訪問的數據庫可以簡單的分為三類，即：Microsoft Access格式數據庫，外部數據庫和ODBC數據庫。VB對多種數據庫格式的支持，大大的增強了開發(fā)數據庫應用程序的能力。2.1.3 數據庫開發(fā)中的三大工具Visual Basic在數據庫應用程序的開發(fā)領域中，提供包含數據管理（DataManager），數據控件（Data Control）以及數據編程對象（數據訪問對象（DAO）、遠程數據對象（RDO）和ActiveX數據對象（ADO）等功能強大的工具，協(xié)助設計人員輕松的連接數據庫文件，并訪問其中的數據，在功能方面與其他一些專業(yè)數據庫軟件（如FoxPro，Micosoft Access等）不相上下。數據管理器（Data Manager）是Visual Basical已有的老成員之一，拓本盛舉有的Jet數據庫引擎（Database Engine）可以幫助VB程序元件立即維護數據庫內容，并可通過輸入查詢或查找數據庫信息，而不必再通過其他數據庫軟件另外去設計數據庫。數據控件是VB所提供的基本控件成員之一。它使得設計者省下一堆程序代碼編寫的工作，能夠輕松的設計及維護數據庫內容。數據控件可以通過一些屬性的設置去鏈接某個數據庫文件，但是它本身并無法顯示數據庫各個記錄的內容，必須在搭配其他具有數據感知（Data Aware）功能的控件對應并顯示一個字段內容，以方便地進行記錄的瀏覽及編輯工作。VB提供的數據訪問對象（Data Access Object；DAO）讓程序設計者擁有更大的發(fā)揮空間。借助程序代碼編寫，直接控制Jet數據庫引擎，配合數據庫控件，能夠開發(fā)出更具彈性且高效率的數據應用程序。RDO是處理遠程數據庫的一些專門需要的對象集合。使用RDO可以不用本地的查詢機就能訪問ODBC數據源，這無疑將大大提高應用程序的性能。ADO是VB6.0中新增的對象，它是一個更簡單的對象模型，它更好的集成了其它數據訪問技術，并且對本地和遠程數據庫均有共同的界面，可以取代DAO和RDO。ADO更易于使用。我們在本系統(tǒng)中利用數據管理器創(chuàng)建了數據庫及數據庫表，并采用了ADO數據訪問技術。2.2 SQL Server 2005 簡介SQL Server 2005是微軟公司最新版的大型數據庫服務器，其性能指標在各方面都有趕超Oracle數據庫的趨勢。用它可以方便地管理數據庫和開發(fā)應用程序，它使用了最先進的數據庫構架，與Windows NT/2000平臺緊密集成，具有完全的Web功能。通過對高端硬件平臺、網絡和存儲技術的支持，為WEB站和企業(yè)的應用最大限度地提供了可擴展性和高可靠性，能在Internet商業(yè)領域快速建立并應用。此外，還增強了安全性，保護防火墻內外的數據。支持基于角色的安全并擁有安全審計工具。在經歷了SQL Server 6.5和7.0兩個版本的嘗試后，微軟公司終于開始了大規(guī)模的業(yè)務。記得在以前各種關于SQL Server的文章，都會將其定位成中小型應用方面，這種感覺被大家自然的延續(xù)到了2000版之中。其實這是一種誤解。在過去的很長一段時間中，微軟公司聘請了世界上最優(yōu)秀的數據庫專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵精圖治，就是為了摘掉扣在自己頭上的這頂帽子。有了強大的性能和功能支持，再配合其一向為人稱道的易用性，SQL Server可以說成為了開發(fā)者手中的一柄利器！ 另外，目前國內的一些關于微軟平臺的數據庫編程教程，喜歡使用Access作為數據庫平臺的案例，并展開相關的內容。這其實對于開發(fā)真正的數據庫應用并沒有直接的幫助作用，只能使大家停留在應用的初級階段。SQL Server 2000提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。另外，SQL Server 2000可以兼顧小、中、大規(guī)模的應用，有著遠遠比Access強大的伸縮性。2.2.1 SQL Server 數據庫特點概括起來，SQL Server 2005數據庫管理系統(tǒng)具有以下主要特點。1）、豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQL Server企業(yè)管理器是一個基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服務器、管理數據庫和數據庫對象、備份和恢復數據、調度任務和管理警報、實現(xiàn)數據復制和轉換操作等。此外，SQL Server 2005還提供了SQL事件探查器、SQL查詢分析器、SQL Server服務管理器和多種操作向導等圖形界面管理工具，大大簡化了用戶操作，從而增強了系統(tǒng)的易用性。2）、動態(tài)自動管理和優(yōu)化功能。即使SQL Server數據庫管理員不做任何設置，SQL Server也能夠在運行過程中根據環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達到最優(yōu)性能，從而減輕管理員工作。3）、充分的Internet技術支持。Internet網絡發(fā)展到今天已經成為一條重要的信息發(fā)布渠道，SQL Server增強了對Internet技術支持，它除保留了前期版本中的數據庫Web出版工具“Web助手”外，還增強了對XML和HTTP技術的支持，這使得電子商務系統(tǒng)能夠通過XML等訪問SQL Server數據庫系統(tǒng)，也擴展了SQL Server在數據挖掘和分析服務領域的應用。4）、豐富的編程接口工具，使用戶開發(fā)SQL Server數據庫應用程序更加靈活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等開發(fā)工具，Transact-SQL與工業(yè)標準SQL語言兼容，并在其基礎上加以擴充，使它更適合事務處理方面的需要。此外，SQL Server 2005還支持ODBC、OLE DB、ADO規(guī)范，可以使用ODBC、OLE DB、ADO接口訪問SQL Server數據庫。5）、具有很好的伸縮性和可靠性。SQL Server 2000既能運行在Windows桌面操作系統(tǒng)下，又可運行在服務器操作系統(tǒng)（包括Windows NT和Windows 2000）下；既能運行在單CPU計算機上，又能運行在對稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應用到大型企業(yè)分布式應用到不同層次用戶的要求。6）、簡單的管理方式。SQL Server 2005與Microsoft Windows 2000有機集成，所以可以使用Windows 2000的活動目錄（Active Directory）功能對SQL Server進行集中管理，大大簡化大型企業(yè)中的系統(tǒng)管理工作。此外，與Windows 2000的集成還使SQL Server能夠充分利用操作系統(tǒng)所提供的服務和功能（如安全管理、事件日志、性能監(jiān)視器、內存管理和異步I/O等），從而增強了SQL Server數據庫系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。2.3 ADO 對象概述ADO對象能夠存取到數據庫的內容，首先要求數據庫的驅動程序( ODBC驅動程序與OLE DB驅動程序)必須安裝上，否則，ADO對象是無法存取數據庫中內容，其原理示意圖如下圖所示：客戶端客戶端客戶端ADO對象各種數據庫所對應的驅動程序各種數據庫(如Access、SQL Server以及Oracle等)請注意：上圖中的“各種數據庫所對應的驅動程序”即ODBC驅動程序與OLE DB驅動程序。2.3.1 利用ADO開發(fā)網絡數據庫應用程序ADO（Active Date Objects,即ActiveX數據對象）是一個ASP內置的ActiveX服務器組件（ActiveX Server Component）?？砂阉cASP結合起來，建立提供數據庫信息的網頁內容，對數據庫進行查詢、插入、更新、刪除等操作，并可以把在用戶端實現(xiàn)“網上實時更新顯示”的最新Web數據庫技術。要執(zhí)行ADO，服務器端必須安裝Windows NT Server 和Internet Information Server(IIS)，而客戶端只要有IE或NETSCAPE較新版本的瀏覽器即可。利用ADO開發(fā)網絡數據庫應用程序有以下幾個優(yōu)點：1）、支持客戶機/服務器結構（Client/Server）與Web系統(tǒng)開發(fā)技術。2）、內部有多個互相獨立的對象模型。3）、支持分批修改數據庫內容。4）、支持多種不同的數據控制指標形式。5）、先進的Recordset數據高速緩存管理功能。6）、允許在程序中使用多個Recordset對象或者多個分批修改區(qū)塊傳送。7）、ADO屬于Free_threaded對象，利用它可以開發(fā)出更有效的Web應用程序。2.3.2 ADO組件的主要對象及其功能ADO組件又稱為數據庫訪問組件，它提供了以下七種對象：1）、Connection對象：提供對數據庫的連接服務。2）、Command對象：定義對數據庫源操作的命令。3）、Recordset對象：由數據庫服務器所返回的記錄集。Recordset對象的LockType屬性的設置值如下表所示：常量值說明adLockReadOnly1默認值，只讀。無法更改數據adLockPressimistic2保守式記錄鎖定（逐條）。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數據源的記錄的方式。adLockOptimistic3開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調用Updata方法時鎖定記錄。adLockBatchOptimistic4開放式批更新。用于與立即更新模式相反的批更新模式。4）、Fields對象：由數據庫服務器所返回的單一數據字段5）、Parametes對象：表示Command對象的參數。6）、Property對象：單獨的一個Property對象，提供屬性功能。7）、Error對象：提供處理錯誤的功能。使用ADO對象可以建立和管理數據庫的連接，按數據庫服務器的要求獲得數據，執(zhí)行更新、刪除、添加數據等操作，獲取ODBC的錯誤信息等。2.3.3 用來操控數據的SQL命令SQL命令是發(fā)送給數據庫并要求數據庫操作的指令，它是專門為數據庫設計的語言，比一般的計算機程序語言簡單的多。SQL命令主要分成兩部分：DDL(Data Definition Language)和DML(Data Manipulation Language),其中DDL是建立數據表及數據列的指令群，而DML則是操作數據庫記錄的指令群，如數據庫記錄的添加、更新、刪除、和查詢等。SQL命令，包括Select、Delete、Update、Insert Into、Select Into等。1）、篩選及排序記錄的Select指令基本句型一：Select 字段串列 From 數據表基本句型二：Select From Where 篩選條件基本句型三：Select From Order By字段串列Select Top：限定選取數據的條數2）、刪除數據記錄的Delete指令基本語法：Delete From 數據表 Where 條件式3）、更新數據記錄的Update指令基本語法：Update 數據表Set 表達式4）、增加數據記錄的Insert Into 指令基本句型一：Insert Into 數據表 (字段串列) Values (字段串列)基本句型二：Insert Into 數據表 (字段1,字段2,字段n) Select 5）、建立新數據表的Select Into 指令該指令與“Insert Into Select ”指令的區(qū)別是，這個指令將建立另一個新的數據表，而Insert Into是增加數據記錄到“現(xiàn)存的”數據表中。2.4 VB訪問數據庫過程1）、定義數據庫組件Dim conn As New ADODB.Connection其中conn為連接對象Dim reco As New ADODB.Recordset 其中reco為結果集對象2）、打開數據庫對于SQL數據庫，其連接語句為conn.Open driver=sql server;server=localhost;uid=sa;pwd=;database=student。而對于Access數據庫，連接語句為conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path + student.mdb3）、設定SQL語句，使用“Execute”命令，即可開始執(zhí)行訪問數據庫的動作4）、關閉結果集對象，斷開與數據庫的連接reco.Closeconn.Close第三章 系統(tǒng)分析與設計3.1 系統(tǒng)功能分析隨著學校的規(guī)模不斷擴大，學生數量急劇增加，有關學生的各種信息量也成倍增長。面對龐大的信息量就需要有一個學生信息管理系統(tǒng)來提高學生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。設計內容為管理員或普通用戶登錄該系統(tǒng)進行五個模塊操作：1）、學生基本情況更新：增加、修改、刪除、查詢（按學號）2）、學生基本情況維護：增加、修改、刪除、打印、查詢（按專業(yè)）3）、學生成績維護：添加成績、打印、查詢（按學號、專業(yè)）4）、密碼修改：修改所有用戶密碼（管理員）、修改自己密碼（普通用戶）5）、數據維護：對該系統(tǒng)數據庫進行備份和還原3.2 系統(tǒng)結構圖本系統(tǒng)主要包括學生基本情況更新，學生基本情況維護、學生成績維護、密碼修改和數據維護5個大的模塊，各個模塊的具體功能如下圖所示：3.3 系統(tǒng)E-R圖1）、用戶（普通用戶、管理員）實體圖如下圖所示：2）、學生實體圖如下圖所示：3）、學生選課關系圖如下圖所示：3.4 數據庫設計在系統(tǒng)設計過程中，首先要建立的就是數據庫。本數據庫采用SQL Server2000來構造，共使用了3個表，它們分別是用戶信息表（admin）、學生基本情況表（student）、學生成績表（grade）。1）、用戶信息表（admin）：表結構如下表所示：名稱字段名稱類型長度用戶IDidint4用戶名namechar6用戶密碼passwordchar6用戶類型typechar10注冊時間registdatedatetime82）、學生基本情況表（student）：表結構如下表所示：名稱字段名稱類型長度學號snovarchar10姓名snamechar10性別ssexchar2班級sclassvarchar 50出生年月sbirthdaychar10政治面貌spavarchar8地址saddressvarchar50電話sphonevarchar11Emailsemailvarchar203）、學生成績表（grade）：表結構如下表所示：名稱字段名稱類型長度學號snoint2課程名cnamechar10成績gradechar2學期semesterchar8第四章 系統(tǒng)具體實現(xiàn)本部分主要內容為本系統(tǒng)的各個運行界面以及主要界面的源代碼4.1 模塊設計添加一個模塊module1。該部分主要包括一些公共變量的定義、main過程定義以及自動把備份的數據庫文件還原到SQL Server 2000 中的代碼設計。代碼如下：Public Declare Function GetComputerName Lib kernel32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long 獲取主機名的定義Public Aname, Asort As String 狀態(tài)欄上顯示當前用戶的名稱和用戶類型Public conn As New ADODB.Connection 新建連接對象Public reco As New ADODB.Recordset 新建記錄集對象Public reco2 As New ADODB.RecordsetPublic conn_str1, conn_str2 As String=定義一個main過程，從main過程啟動程序，同時連接到數據庫=Public Sub Main() reco.CursorLocation = adUseClient reco2.CursorLocation = adUseClient conn_str1 = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=maokeyang;Data Source= & GetPcName() conn_str2 = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source= & GetPcName() DB_ADD先調用DB_ADD來將maokeyang數據庫添加到SQL Server 2000中 conn.Open conn_str1 連接到數據庫 frm_login.Show 登錄窗體顯示End Sub =此函數用來獲取主機名！=Public Function GetPcName() As String Dim compname As String, retval As Long compname = Space(255) retval = GetComputerName(compname, 255) compname = Left(compname, InStr(compname, vbNullChar) - 1) GetPcName = compnameEnd Function=關閉記錄集=Public Sub Close_Reco() If reco.State = 1 Then reco.Close End IfEnd Sub 此過程用來在啟動軟件的時候把maokeyang數據庫添加到SQL Server 2000 中Public Sub DB_ADD() Dim s As String On Error GoTo ErrorChecka: conn.Open conn_str2 reco.Open select * from sysdatabases where name=maokeyang, conn, 1, 3 查詢是否存在maokeyang數據庫 If reco.RecordCount 1 Then 如果maokeyang數據庫不存在，則添加maokeyang數據庫，否則不添加 mkdir_kill conn.Execute restore database maokeyang from disk= & App.Path & backupmaokeyang Else reco.Close conn.Close Exit Sub End If reco.Close conn.Close Exit SubErrorCheck: MsgBox 您可能沒有啟動SQL Server服務, , 提示 Shell net start mssqlserver MsgBox 啟動成功！, , 提示 GoTo aEnd Sub新建路徑并刪除原有的數據庫Public Sub mkdir_kill() On Error Resume Next MkDir c:program files MkDir c:Program FilesMicrosoft SQL Server MkDir C:Program FilesMicrosoft SQL ServerMSSQL MkDir C:Program FilesMicrosoft SQL ServerMSSQLData Kill C:Program FilesMicrosoft SQL ServerMSSQLDatamaokeyang_Log.LDF Kill C:Program FilesMicrosoft SQL ServerMSSQLDatamaokeyang_Data.MDFEnd Sub4.2 登錄窗體設計添加一個窗體（frm_login）。該部分主要包括用戶的驗證以及登錄次數的限制。窗體運行情況如下圖所示：代碼如下：Dim n As Integer n為限制登陸次數的變量Private Sub Form_Load() n = 4End SubPrivate Sub Command1_Click() 確定按鈕 Close_Reco With reco 連接到表并產生記錄集 .Open select * from admin where name= & Trim(Text1.Text) & and password= & Trim(Text2.Text) & , conn, 1, 1 If .RecordCount 0 Then Aname = Trim(.Fields(name) 將成功登錄的用戶名賦給Aname Asort = Trim(.Fields(type) 將成功登錄的用戶類型賦給Asort .Close Unload Me frm_main.Show 主界面顯示 Else n = n - 1 .Close .Open select * from admin where name= & Trim(Text1.Text) & , conn, 1, 1 If .RecordCount = 0 Then MsgBox (用戶名錯誤，請重新輸入！您還有 & n & 次機會登陸！), , (錯誤) Text1.SetFocus .Close Else MsgBox (密碼錯誤，請重新輸入！您還有 & n & 次機會登陸！), , (錯誤) .Close Text2.SetFocus End If End If If n = 0 Then Close_Reco Unload Me End If End WithEnd SubPrivate Sub Command2_Click() 取消按鈕If MsgBox(你真的不登錄學生信息管理系統(tǒng)嗎?, vbQuestion + vbYesNo, 退出系統(tǒng)提示信息) = vbYes ThenEndEnd IfEnd Sub =只有當用戶名和密碼框都不為空時“登錄”按鈕才可用=Private Sub Text2_Change() 密碼文本框 If Text1.Text And Text2.Text Then Command1.Enabled = True Command1.Default = True Else Command1.Enabled = False End IfEnd SubPrivate Sub Text1_Change() 用戶名文本框 If Text2.Text And Text1.Text Then Command1.Enabled = True Command1.Default = True Else Command1.Enabled = False End IfEnd Sub4.3 主界面設計添加一個窗體（frm_main）。該部分主要添加ImageList 、StatusBar、Toolbar控件和菜單編輯器。以用戶名為楊茂科、密碼為123登錄，窗體運行情況如下圖所示：代碼如下：Private Sub a1_Click()frm_beifen.ShowEnd SubPrivate Sub b1_Click()frm_regist.ShowEnd SubPrivate Sub b2_Click()frm_modify.ShowEnd SubPrivate Sub c1_Click()frm_qkbgx.ShowEnd SubPrivate Sub c2_Click()frm_qkbwh.ShowEnd SubPrivate Sub c3_Click()frm_cjbwh.ShowEnd SubPrivate Sub d1_Click()frm_about.ShowEnd SubPrivate Sub d2_Click()frm_help.ShowEnd SubPrivate Sub e_Click()Unload Mefrm_login.ShowEnd SubPrivate Sub f_Click()EndEnd SubPrivate Sub Form_Load()StatusBar1.Panels(1).Text = 用戶： & Aname 狀態(tài)欄第一格顯示用戶名StatusBar1.Panels(2).Text = 類型： & Asort 狀態(tài)欄第二格顯示用戶類型End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case one frm_qkbgx.Show 1 情況表更新窗體顯示 Case two frm_qkbwh.Show 1 情況表維護窗體顯示 Case three frm_cjbwh.Show 1 成績表維護窗體顯示 Case four frm_modify.Show 1 密碼修改窗體顯示 Case five frm_beifen.Show 1 數據庫維護窗體顯示End SelectEnd Sub4.3.1 ImageLis在主界面上添加一個圖像列表控件，在屬性頁設置插入5張圖片。4.3.2 Toolbar在主窗體上添加一個工具欄控件，在屬性頁上將圖像列表從無設置到ImageList1，添加5個按鈕，按鈕屬性如下表所示：索引12345標題情況表更新情況表維護成績表維護密碼修改數據備份關鍵字onetwothreefourfive圖像123454.3.3 StatusBar在主窗體上添加一個狀態(tài)欄控件，在狀態(tài)欄上添加5個格子，后三個格子分別設置為日期、時間、文本4.3.4 菜單編輯器在主窗體上添加一個菜單編輯器，菜單結構、屬性如下表所示：菜單結構標題名稱標題名稱文件a情況表維護c 2數據庫維護a 1成績表維護c 3管理員信息b幫助d注冊b 1關于系統(tǒng)d 1修改密碼b 2系統(tǒng)幫助d 2數據維護c重新登錄e情況表更新c 1退出f4.4 數據庫維護窗體設計添加一個窗體（frm_beifen）、一個CommonDialog控件。該部分主要包括數據庫的備份與還原。窗體運行情況如下圖所示：代碼如下：Private Sub Command1_Click() 備份按鈕Dim backUpFileName As String 變量聲明CommonDialog1.DialogTitle = 備份文件 設置對話框的標題CommonDialog1.Filter = *.*CommonDialog1.ShowSave 設置對話框的按鈕類型為保存backUpFileName = CommonDialog1.FileName 將保存的文件名賦給變量If CommonDialog1.FileName = ThenMsgBox (文件名不能為空,請輸入文件名 )CommonDialog1.ShowSaveElse conn.Execute (backup database library to disk= & backUpFileName & ) 執(zhí)行備份語句 MsgBox (備份成功)End IfEnd SubPrivate Sub Command2_Click() 還原按鈕conn.Closec