VB學生學籍管理系統(tǒng)

1、 畢 業(yè) 論 文 （設 計）  題 目 學生學籍管理系統(tǒng)英文題目Student's student status manages system院 系 信息科學與技術學院 專 業(yè) 計算機網絡技術 姓 名 高望春 年 級 指導教師  目 錄摘 要- 3 -ABSTRACT- 4 -第一章 系統(tǒng)需求分析- 5 -第二章 可行性分析- 6 -第三章 系統(tǒng)設計- 7 -3·1.系統(tǒng)功能分析- 7 -3·2.系統(tǒng)流程圖- 8 -第四章、數(shù)據庫設計- 9 -4·1.數(shù)據庫需求分析- 9 -4·2.數(shù)據庫概念結構設計- 1

2、0 -4·3.數(shù)據庫結構的實現(xiàn)- 13 -第五章、詳細設計- 16 -5·1主窗體的創(chuàng)建- 16 -5·2.用戶管理模塊的創(chuàng)建- 21 -5·3學籍管理模塊的創(chuàng)建- 28 -5·4 班級管理模塊的創(chuàng)建- 46 -5·5 課程設置模塊的創(chuàng)建- 50 -5·6 成績管理模塊的創(chuàng)建- 58 -第七章 總 結- 63 -參考文獻- 64 -致 謝- 65 -摘 要隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的實施在技術上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學科，任何一個單位要生存要發(fā)展，要高效率地把內部活動有機地

3、組織起來，就必須建立與自身特點相適應的管理信息系統(tǒng)。 本文介紹了在Visual Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析訪客管理的不足，創(chuàng)建了一套行之有效的計算機管理學生的方案。文章介紹了訪客管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務流程分析等；系統(tǒng)設計部分主要介紹了系統(tǒng)功能設計和數(shù)據庫設計及代碼設計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法， 本系統(tǒng)面友好，操作簡單，比較實用。關鍵詞：SQL 2000 server,VB程序設計,軟件工程Abstract Along with information technique

4、more and more thorough but extensive on the management of application, manage information system of the implement has been gradually mature on the technique.Manage the information system is a new academics which continuously develops, the whichever unit wants to exist to want adevelopment, high-effi

5、ciencily internal activity organically the organization get up, have to build up adapting with oneself characteristics mutually of management information system. This text introduced in the Visual Basic6.0 under the environments the strategy of adoption"from top to bottom total programming, fro

6、m bottom but last pplication development" develop a process which manage information system.Pass the shortage of analytical visitor management, established a valid a set of line a calculator a management the student's project.The article introduced visitor a management information system of

7、 system analysis part, System realization part explained a few calculate ways of main mold piece, this system interface amity, operation simple, more practical.Keyword:The SQL 2000 servers、 VB program design、software engineering第一章 系統(tǒng)需求分析伴隨社會的高速發(fā)展，全國各高校的學生數(shù)量一直在增加，在這樣的形式下，必須要求學校有一種高效有序的方法來管理學生的信息。通過調

8、查,要求系統(tǒng)需要有以下功能: 由于操作人員的計算機知識普遍較差,要求有良好的人機界面; 由于該系統(tǒng)的使用對象多,要求有較好的權限管理; 原始數(shù)據修改簡單方便,支持多條件修 方便的數(shù)據查詢，支持多條件查詢; 在相應的權限下，刪除數(shù)據方便簡單，數(shù)據穩(wěn)定性好； 數(shù)據計算自動完成，盡量減少人工干預;第二章 可行性分析由于本系統(tǒng)管理的對象單一,都是學生，且每個數(shù)據內容具有較強的關聯(lián)性，涉及的計算過程不是很復雜。因此，比較適合于采用數(shù)據庫管理。在技術難度方面，由于有指導老師的指導和相關參考文獻，特別是網上資料，特別是參考其它程序的功能，因此完全可以實現(xiàn)。本系統(tǒng)的設計是在Windows XP操作系統(tǒng)環(huán)境下，

9、使用Visual Basic 6.0中文版開發(fā)成功的。數(shù)據庫是MIS中的重要支持技術，在MIS開發(fā)過程中，如何選擇數(shù)據庫管理是一個重要的問題，本系統(tǒng)選用的數(shù)據庫語言介紹如下：Visual Basic具有以下特點：（1）可視化編程：用傳統(tǒng)程序設計語言設計程序時，都是通過編寫程序代碼來設計用戶界面，在設計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改有時候，這種編程-編譯-修改的操作可能要反復多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設計工具，把Windows界面設計的復雜性“封裝”起來，開發(fā)人員不必為界面設計而編寫大

10、量程序代碼。只需要按設計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設置這些圖形對象的屬性。Visual Basic自動產生界面設計代碼，程序設計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設計的效率。（2）面向對象的程序設計4.0版以后的Visual Basic支持面向對象的程序設計，是應用面向對象的程序設計方法(OOP)，把程序和數(shù)據封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以

11、圖形方式顯示在界面上，都是可視的。第三章 系統(tǒng)設計3·1.系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務是實現(xiàn)學生信息關系的系統(tǒng)化，規(guī)范化和自動化。 學生管理系統(tǒng)需要完成的功能主要有： 學生信息的輸入，包括輸入學生基本信息、所在班級、所學課和 成 績等。 學生信息的查詢，包括輸入學生基本信息、所在班級、已學課程和成績 等。 學生信息的修改。 班級管理信息的輸入、查詢、修改，包括輸入班級設置，年級信息等。 基本課程信息的輸入、查詢、修改。 學生成績信息的輸入、查詢、修改。 對上述各功能進行集中、分塊、按照結構化程序設計的要求。學生信息管理系統(tǒng)學籍管理功能班級管理功能課程管理功能成績管理功能學籍添加學籍

12、修改學籍查詢班級添加課程添加課程修改課程查詢成績添加成績修改成績查詢班級修改班級查詢圖3-1 系統(tǒng)功能模塊圖3·2.系統(tǒng)流程圖 登錄成功選擇操作開始用戶管理學籍管理班級管理課程設置成績管理退出系統(tǒng)添加修改查詢結束NY圖3-2 系統(tǒng)流程圖第四章、數(shù)據庫設計4·1.數(shù)據庫需求分析 用戶信息：包括的數(shù)據項有：用戶名、密碼、用戶描述。 學生基本信息：包括的數(shù)據項有：學生學號、學生姓名、性別、出生日期、班號、聯(lián)系電話、入校日期、家庭地址、備注等。 班級信息：包括的數(shù)據項有：班號、所在年級、班主任姓名、所在教室等。 課程基本信息：包括的數(shù)據項有：課程號、課程名稱、課程類別、課程描述等。

13、 課程設置信息：包括的數(shù)據項有：年級信息、所學課程等。 學生成績信息：包括的數(shù)據項有：考試編號、所在班號、學生學號、學生姓名、所學課程、考試分數(shù)等。 學生管理系統(tǒng)用戶信息學生基本信息班級信息課程基本信息年級課程 成績信息 數(shù)據庫 圖4-1 學生管理系統(tǒng)數(shù)據流程圖4·2.數(shù)據庫概念結構設計 本系統(tǒng)的實體有：學生實體、班級實體、年級實體、課程實體。各個實體具體的描述E-R圖如圖下所示。 學生基本信息班級成績課程圖4-2 學生實體ER圖 班級所在年級班主任所在教室班號圖4-3 班級實體ER圖 課程名稱編號描述類型 圖4-4 課程實體ER圖 年級包括班級設置課程課程圖4-5 年級實體ER圖

14、學生班級年級課程1nnnnmmnn111 圖4-6 實體之間關系ER圖 現(xiàn)在需要將上面的數(shù)據庫概念結構轉化為SQL Server 2000 數(shù)據庫系統(tǒng)所支持的實際數(shù)據模型，也就是數(shù)據庫的邏輯結構。學生管理系統(tǒng)數(shù)據庫中各個表格的設計結果如下面的幾個表所示。每個表表示在數(shù)據庫中的一個數(shù)據表表4-1 student-info學生基本信息表 表4-2 class-info班級基本信息表 表4-3 course-info 課程基本信息表 表4-4 gradecourse-info年級課程設置表格 表4-5 result-info學生成績基本信息表 表4-6 user-info 系統(tǒng)用戶表 4·

15、3.數(shù)據庫結構的實現(xiàn) 經過前面的需求分析和概念結構設計以后，得到數(shù)據庫的邏輯結構。就可以在SQL Servr 2000數(shù)據庫系統(tǒng)中實現(xiàn)該邏輯結構，利用SQL Server 2000數(shù)據庫系統(tǒng)中SQL查詢分析器實現(xiàn)的。(1)創(chuàng)建系統(tǒng)用戶表格user_infoCREATE TABLE dbo.user_Info (user_ID char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,user_PWD char (10) COLLATE Chinese_PRC_CI_AS NULL ,user_Des char (10) COLLATE Chinese_PRC_

16、CI_AS NULL) ON PRIMARYGO(2)創(chuàng)建學生基本信息表格student_infoCREATE TABLE dbo.student_Info (student_ID int NOT NULL ,student_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,student_Sex char (2) COLLATE Chinese_PRC_CI_AS NULL ,born_Date datetime NULL ,class_NO int NULL ,tele_Number char (10) COLLATE Chinese_PRC_C

17、I_AS NULL ,ru_Date datetime NULL ,address varchar (50) COLLATE Chinese_PRC_CI_AS NULL ,comment varchar (200) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARYGO(3)創(chuàng)建班級信息表格class-infoCREATE TABLE dbo.class_Info (class_No int NOT NULL ,grade char (10) COLLATE Chinese_PRC_CI_AS NULL ,director char (10) COLLATE

18、 Chinese_PRC_CI_AS NULL ,classroom_No char (10) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARYGO(4)創(chuàng)建課程基本信息表格course-infoCREATE TABLE dbo.course_Info (course_No int NOT NULL ,course_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,course_Type char (10) COLLATE Chinese_PRC_CI_AS NULL ,course_Des char (50) C

19、OLLATE Chinese_PRC_CI_AS NULL) ON PRIMARYGO(5)創(chuàng)建年級課程設置信息表gradecourse-infoCREATE TABLE dbo.gradecourse_Info (grade char (10) COLLATE Chinese_PRC_CI_AS NULL ,course_Name char (10) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARYGO(6)創(chuàng)建學生成績信息表result-infoCREATE TABLE dbo.result_Info (exam_No char (10) COLLATE

20、 Chinese_PRC_CI_AS NOT NULL ,student_ID int NOT NULL ,student_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,class_No int NULL ,course_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,result float NULL) ON PRIMARYGO第五章、詳細設計5·1主窗體的創(chuàng)建 上面的SQL語句在SQL Server 2000中查詢分析器執(zhí)行后，將自動產生需要的所有表。有關數(shù)據庫結構的所有后臺工作已經完成

21、?，F(xiàn)在將通過學生管理系統(tǒng)中各個功能模塊的實現(xiàn)，來編寫數(shù)據庫系統(tǒng)的客戶端程序。1. 創(chuàng)建工程項目Student-MIS 為了用Visual Basic創(chuàng)建應用程序，應當使用工程。一個工程是用來建造應用程序的文件的集合，它包括： 跟蹤所有部件的工程文件（.vbp）。 每個窗體的文件（.frm）。 每個窗體的二進制數(shù)據文件（.frx），它含有窗體上控件的屬性數(shù)據。對含有二進制屬性的任何.frm文件都是不可編輯的，這些文件都是自動產生的。 每個類模塊的一個文件（.cls），該文件是可選項。 每個標準模塊的一個文件（.bas），該文件是可選項。 一個或多個包含ActiveX控件的文件（.ocx），該文件

22、是可選項。 單個資源文件（.res），該文件是可選項。 啟動Visual Basic后，單擊File|New Project菜單，如圖所示的工程模塊中選擇Standard EXE，Visual Basic將自動產生一個Form窗體，屬性都是缺省設置。這里我們刪除這個窗體，單擊File|New Project菜單，將這個工程項目命名為Student-MIS。 如圖5-1： 創(chuàng)建Student-MIS項目 2.創(chuàng)建主窗體 Visual Basic創(chuàng)建的應用程序可以是SDI（單文檔界面）和MDI（多文檔界面）。在SDI的程序中，每個窗體之間是獨立的。而MDI的程序中，有一個窗體是主窗體，可以包含其她

23、窗體，它的類型是MDI Form。本系統(tǒng)采用多文檔界面，這樣可以使程序更加美觀，整齊有序。 單擊工具欄的“ADD MDI Form”按鈕，生成一個如下所示的窗體， 圖5-2 程序主窗體創(chuàng)建主窗體的菜單 ： 圖5-3主窗體中菜單結構3.創(chuàng)建公用模塊 在Visual Basic中可以用共用模塊來存放整個工程項目公用的函數(shù)、全局變量等。整個工程項目中的任何地方都可以調用公用模塊中的函數(shù)、變量，這樣可以極大地提高代碼的效率。在項目資源管理器中為項目添加一個Module，保存為Module.bas。下面就可以開始添加需要的代碼。 由于系統(tǒng)中各個功能模塊都將頻繁使用數(shù)據庫中的各種數(shù)據，因此需要一個公共的數(shù)

24、據操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByVal SQL _As String, MsgString As String) _As ADODB.Recordset'傳遞參數(shù)SQL查詢語句，MsgString傳遞查詢信息'自身以一個數(shù)據集對象的形式返回Dim CNn As ADODB.Connection'定義連接Dim rst As ADODB.Recordset'定義字符串Dim sTokens() As String'異常處理On Error GoTo Exe

25、cuteSQL_Error'用Split函數(shù)產生一個包含各個子串的數(shù)組sTokens = Split(SQL)'創(chuàng)建連接Set CNn = New ADODB.ConnectionCNn.Open ConnectString'判斷字符串中是否有指定內容If InStr("INSERT,DELETE,UPDATE", _UCase$(sTokens(0) Then'執(zhí)行查詢語句CNn.Execute SQL'返回查詢信息MsgString = sTokens(0) & _" query successful"

26、Else'創(chuàng)建數(shù)據集對象Set rst = New ADODB.Recordset'返回查詢結果rst.Open Trim$(SQL), CNn, _adOpenKeyset, _adLockOptimistic'rst.MoveLast 'get RecordCountSet ExecuteSQL = rstMsgString = "查詢到" & rst.RecordCount & _End IfExecuteSQL_Exit:'清空數(shù)據集對象Set rst = Nothing'中斷連接Set CNn = N

27、othingExit Function'錯誤類型判斷ExecuteSQL_Error:MsgString = "查詢錯誤: " & _Err.DescriptionResume ExecuteSQL_ExitEnd Function ExecuteSQL函數(shù)有兩了參數(shù)：SQL和MsgString。其中SQL用來存放需要執(zhí)行的SQL語句，MsgString用來返回執(zhí)行的提示信息。函數(shù)執(zhí)行時，首先判斷SQL語句中包含的內容。當執(zhí)行查詢操作時，ExecuteSQL函數(shù)將返回一個與函數(shù)同名的記錄名對象（Recordset），所有滿足條件的記錄包含在對象中。當執(zhí)行如刪

28、除、更新、添加等操作時，不返回記錄集對象。 在ExecuteSQL函數(shù)中使用Connect String函數(shù)，這個函數(shù)用來連接數(shù)據庫，代碼如下：Public Function ConnectString() _As String'返回一個數(shù)據庫連接ConnectString = "FileDSN=studentinfo.dsn;UID=sa;PWD="End Function由于在后面的程序中，需要頻繁檢查各種文本框的內容是否為空，這里定義了Testtxt函數(shù)，代碼如下：Public Function Testtxt(txt As String) As Boolea

29、nIf Trim(txt) = "" ThenTesttxt = FalseElseTesttxt = TrueEnd IfEnd Function 由于學生管理系統(tǒng)啟動后，需要對用戶進行判斷。如果登錄者是授權用戶，將進入系統(tǒng)，否則將停止程序的執(zhí)行。這個判斷需要在系統(tǒng)運行的最初進行，因此將代碼放在公用模塊中，代碼如下：Public fMainForm As frmMainPublic UserName As StringSub Main()Dim fLogin As New frmLogin'顯示登陸窗體fLogin.Show vbModal'判斷是否授權用

30、戶If Not fLogin.OK ThenLogin Failed so exit appEndEnd IfUnload fLoginSet fMainForm = New frmMainfMainForm.ShowEnd Sub過程Main將在系統(tǒng)啟動是首先執(zhí)行，這就保證對用戶的管理。5·2.用戶管理模塊的創(chuàng)建系統(tǒng)管理模塊主要實現(xiàn)： 用戶登錄。 添加用戶。 修改用戶密碼。1.用戶登陸窗體的創(chuàng)建系統(tǒng)啟動后，將首先出現(xiàn)如下所示的用戶登陸窗體，用戶首先輸入用戶名，然后輸入密碼。如果用戶3次輸入密碼不正確，將退出程序。 圖5-4用戶登錄窗體 用戶登陸窗體中放置了兩個文本框（TextBox

31、），用來輸入用戶名和用戶密碼。兩個按鈕（CommandButton）用來確定或者取消登陸。2個標簽（Label）用來標示窗體的信息。為窗體定義全局變量OK，用來判斷登陸是否成功。定義 miCount，用來記載輸入密碼的次數(shù)。并且在載入窗體時初始化這兩個全局變量，代碼如下：'強制變量聲明Option ExplicitPublic OK As Boolean'記錄確定次數(shù)Dim miCount As IntegerPrivate Sub Form_Load()Dim sBuffer As StringDim lSize As LongsBuffer = Space$(255)lSi

32、ze = Len(sBuffer)Call GetUserName(sBuffer, lSize)If lSize > 0 ThentxtUserName.Text = ""ElsetxtUserName.Text = vbNullStringEnd IfOK = FalsemiCount = 0End SubOption Explicit是用來規(guī)定所有變量使用前必須定義。這樣可以避免由于輸入錯誤而產生的新變量。當用戶輸入完用戶名和用戶密碼，單擊cmdOK按鈕將對用戶輸入信息進行判斷。用戶單擊該按鈕，將觸發(fā)按鈕cmdOK的Click事件，代碼如下：Private Su

33、b cmdOK_Click()'用來存放SQL語句Dim txtSQL As String'用來存放記錄集對象Dim mrc As ADODB.Recordset'用來存放返回信息Dim MsgText As StringUserName = ""'判斷輸入用戶名是否為空If Trim(txtUserName.Text = "") ThenMsgBox "沒有這個用戶，請重新輸入用戶名！", vbOKOnly + vbExclamation, "警告"txtUserName.SetF

34、ocusElsetxtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True ThenMsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElse'判斷輸入密碼是否正確If T

35、rim(mrc.Fields(1) = Trim(txtPassword.Text) ThenOK = Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告"txtPassword.SetFocustxtPassword.Text = ""End IfEnd IfEnd If'記載輸入密碼次數(shù)miCount = miCount + 1If miCount =

36、3 ThenMe.HideEnd IfExit SubEnd Sub用戶如果沒有輸入用戶名和用戶密碼，將出現(xiàn)消息框給予提示。如果輸入的用戶名在用戶表格中沒有找到，將提示重新輸入用戶名，文本框txtUserName將重新獲得輸入焦點。如果用戶輸入的密碼不正確，文本框txtPassword將重新獲得輸入焦點。用戶登陸成功，全局變量OK將被賦值為True。一旦三次輸入密碼均不正確，全局變量OK將被賦值為False。公用模塊中的Main過程將根據OK的值決定是退出，或者進入系統(tǒng)。如果用戶取消登陸，單擊“取消”按鈕，將觸發(fā)按鈕的Click事件，代碼如下：Private Sub cmdCancel_Cli

37、ck()OK = FalseMe.HideEnd Sub2.添加用戶窗體的創(chuàng)建 進入系統(tǒng)后，選擇菜單“系統(tǒng)添加用戶”就可以添加用戶，出現(xiàn)如下所示的窗體。 圖5-5 添加用戶窗體用戶需要兩次輸入密碼，用來確保輸入密碼的正確。用戶輸入信息完畢，單擊“確定”按鈕將觸發(fā)Click事件，代碼如下：Private Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As String'判斷是否為空If Trim(Text1(0).Text) = "" ThenMsgBox &quo

38、t;請輸入用戶名稱！", vbOKOnly + vbExclamation, "警告"Exit SubText1(0).SetFocusElsetxtSQL = "select * from user_Info "Set mrc = ExecuteSQL(txtSQL, MsgText)'判斷數(shù)據集是否為空While (mrc.EOF = False)'判斷是否有重復記錄If Trim(mrc.Fields(0) = Trim(Text1(0) ThenMsgBox "用戶已經存在，請重新輸入用戶名！", v

39、bOKOnly + vbExclamation, "警告"Text1(0).SetFocusText1(0).Text = ""Text1(1).Text = ""Text1(2).Text = ""Exit SubElsemrc.MoveNextEnd IfWendEnd If'判斷兩次輸入密碼是否一致If Trim(Text1(1).Text) <> Trim(Text1(2).Text) ThenMsgBox "兩次輸入密碼不一樣，請確認！", vbOKOnly + v

40、bExclamation, "警告"Text1(1).SetFocusText1(1).Text = ""Text1(2).Text = ""Exit SubElse'判斷輸入密碼是否為空If Text1(1).Text = "" ThenMsgBox "密碼不能為空！", vbOKOnly + vbExclamation, "警告"Text1(1).SetFocusText1(1).Text = ""Text1(2).Text = "&

41、quot;Elsemrc.AddNewmrc.Fields(0) = Trim(Text1(0).Text)mrc.Fields(1) = Trim(Text1(1).Text)mrc.Updatemrc.CloseMe.HideMsgBox "添加用戶成功！", vbOKOnly + vbExclamation, "添加用戶"End IfEnd IfEnd Sub 一旦輸入完畢，系統(tǒng)將首先查詢數(shù)據庫中與新建用戶名相同的記錄，如果有相同記錄將提示用戶重新輸入用戶名。當確定數(shù)據庫中沒有相同的用戶名，并且兩次輸入密碼一致時，將把該條記錄加到數(shù)據庫中。單擊“取

42、消”按鈕將取消添加用戶操作，代碼如下：Private Sub cmdCancel_Click()Unload MeEnd Sub3.修改用戶密碼窗體的創(chuàng)建用戶可以修改自己的密碼，選擇菜單“系統(tǒng)修改密碼”，出現(xiàn)如下所示的窗體。 圖5-6 修改密碼窗體在這兩個窗體中放置了兩個文本框，用來輸入密碼和確認密碼。兩了按鈕用來確定是否修改密碼。兩個標簽用來標示文本框的內容。兩次輸入密碼后，單擊“確認”按鈕，將觸發(fā)Click事件判斷是否修改密碼，代碼如下：Private Sub cmdOK_Click()Dim txtSQL, MsgText As StringDim mrc As ADODB.Record

43、set'判斷是否為空If Trim(Text1(1).Text) <> Trim(Text1(2).Text) ThenMsgBox "密碼輸入不正確！", vbOKOnly + vbExclamation, "警告"Text1(1).SetFocusText1(1).Text = ""ElsetxtSQL = "select * from user_Info where user_ID = '" & UserName & "'"Set mrc

44、 = ExecuteSQL(txtSQL, MsgText)mrc.Fields(1) = Text1(1).Textmrc.Updatemrc.CloseMsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼"Me.HideEnd IfEnd Sub當兩次輸入密碼一致時，數(shù)據庫中的記錄將更新。5·3學籍管理模塊的創(chuàng)建學籍信息管理模塊主要實現(xiàn)如下功能： 添加學籍信息 修改學籍信息 查詢學籍信息1.添加學籍信息窗體的創(chuàng)建 選擇“學籍管理|添加學籍信息”菜單，將出現(xiàn)如下的窗體； 圖5-7 添加學籍信息窗體

45、 在窗體上放置多個文本框和下拉式文本框，用來輸入學籍信息。兩個按鈕用來確定是否添加學籍信息。多個標簽用來提示文本框中需要輸入的內容。 在載入窗體時，程序將自動在兩個下拉式文本框中添加內容，這樣可以規(guī)范化輸入內容，代碼如下：Private Sub Form_Load()Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As StringDim i As Integer'添加列表框內容comboSex.AddItem "男"comboSex.AddItem "女"txtSQL = &q

46、uot;select * from class_Info "Set mrc = ExecuteSQL(txtSQL, MsgText)'添加內容到列表框中For i = 1 To mrc.RecordCountcomboClassNo.AddItem mrc.Fields(0)mrc.MoveNextNext imrc.CloseEnd Sub在班號選擇的下拉式文本框中，將出現(xiàn)所有班級，用戶不用輸入內容。用戶輸入內容完畢后，單擊按鈕cmdOK將觸發(fā)Click事件，代碼如下：Private Sub cmdOK_Click()'定義數(shù)據集對象Dim mrc As ADOD

47、B.Recordset'定義字符串變量，表示查詢語句Dim txtSQL As String'定義字符串變量，返回查詢信息Dim MsgText As String'判斷是否輸入學號If Not Testtxt(txtSID.Text) ThenMsgBox "請輸入學號！", vbOKOnly + vbExclamation, "警告"txtSID.SetFocusExit SubEnd If'判斷是否輸入姓名If Not Testtxt(txtName.Text) ThenMsgBox "請輸入姓名！&quo

48、t;, vbOKOnly + vbExclamation, "警告"txtName.SetFocusExit SubEnd If'判斷是否選擇性別If Not Testtxt(comboSex.Text) ThenMsgBox "請選擇性別！", vbOKOnly + vbExclamation, "警告"comboSex.SetFocusExit SubEnd If'判斷是否輸入出生日期If Not Testtxt(txtBorndate.Text) ThenMsgBox "請輸入出生日期！",

49、vbOKOnly + vbExclamation, "警告"txtBorndate.SetFocusExit SubEnd If'判斷是否輸入班號If Not Testtxt(comboClassNo.Text) ThenMsgBox "請選擇班號！", vbOKOnly + vbExclamation, "警告"comboClassNo.SetFocusExit SubEnd If'判斷是否輸入聯(lián)系電話If Not Testtxt(txtTel.Text) ThenMsgBox "請輸入聯(lián)系電話！"

50、;, vbOKOnly + vbExclamation, "警告"txtTel.SetFocusExit SubEnd If'判斷是否輸入入校日期If Not Testtxt(txtRudate.Text) ThenMsgBox "請輸入入校日期！", vbOKOnly + vbExclamation, "警告"txtRudate.SetFocusExit SubEnd If'判斷是否輸入家庭地址If Not Testtxt(txtAddress.Text) ThenMsgBox "請輸入家庭住址！"

51、;, vbOKOnly + vbExclamation, "警告"txtAddress.SetFocusExit SubEnd If'判斷輸入學號是否為數(shù)字If Not IsNumeric(Trim(txtSID.Text) ThenMsgBox "請輸入數(shù)字！", vbOKOnly + vbExclamation, "警告"Exit SubtxtSID.SetFocusEnd If'判斷是否有重復記錄txtSQL = "select * from student_Info where student_ID

52、= '" & Trim(txtSID.Text) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "學號重復，請重新輸入！", vbOKOnly + vbExclamation, "警告"mrc.ClosetxtSID.SetFocusElsemrc.CloseIf Not IsDate(txtBorndate.Text) ThenMsgBox "出生時間應輸入日期格式（yyyy-mm-d

53、d）！", vbOKOnly + vbExclamation, "警告"txtBorndate.SetFocusElsetxtBorndate = Format(txtBorndate, "yyyy-mm-dd")If Not IsDate(txtRudate.Text) ThenMsgBox "入校時間應輸入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"txtRudate.SetFocusElsetxtRudate = Format(txtRudat

54、e, "yyyy-mm-dd")txtSQL = "select * from student_Info"Set mrc = ExecuteSQL(txtSQL, MsgText)'添加記錄mrc.AddNew'給每個字段賦值mrc.Fields(0) = Trim(txtSID.Text)mrc.Fields(1) = Trim(txtName.Text)mrc.Fields(2) = Trim(comboSex.Text)mrc.Fields(3) = Trim(txtBorndate.Text)mrc.Fields(4) = Tri

55、m(comboClassNo.Text)mrc.Fields(5) = Trim(txtTel.Text)mrc.Fields(6) = Trim(txtRudate.Text)mrc.Fields(7) = Trim(txtAddress.Text)mrc.Fields(8) = Trim(txtComment.Text)mrc.UpdateMsgBox "添加學籍信息成功！", vbOKOnly + vbExclamation, "警告"mrc.CloseMe.HideEnd IfEnd IfEnd If 程序首先對是否輸入內容進行判斷，然后進行格式

56、判斷，使用了下面兩個函數(shù) ：IsDate(txtBorndate.Text) IsDate(txtRudate.Text)。 判斷是否有重復記錄是很重要的，否則數(shù)據庫中將發(fā)生錯誤。 單擊按鈕cmdCancel取消添加學籍信息，代碼如下：Private Sub Command2_Click()'卸載窗體Unload MeEnd Sub 2.修改學籍信息窗體的創(chuàng)建 選擇“學籍管理|修改學籍信息”菜單，將出現(xiàn)如下所示的窗體。 圖5-8 修改學籍信息窗體 第一排按鈕用來方便地瀏覽數(shù)據庫中各條記錄，第二排按鈕用來修改記錄。由于記錄集為整個窗體公用，需要將記錄集對象定義為全局變量，代碼如下：'定義數(shù)據集對象Dim mrc As ADODB.Recordset'定義書簽，用來記載當前記錄位置Dim myBookmark As Variant'判斷是否修改記錄Dim mcclean As Boolean程序在窗