學生管理系統的系統啟動和登錄界面的設計

學生管理系統是一個比較典型的數據庫應用程序，這裏我打算將學生管理系統分幾部分陸續發表，希望對大家有幫助。本章主要闡述學生管理系統的系統啟動和登錄界面的設計。

步驟/方法

（01）一個程序在啟動後首先需要進入啟動界面，學生管理系統（以下均稱系統）也不例外，在啟動後進入的是使用者身份確認界面，因為目前大學的結構是學校→學院→繫結構，也就是一個大學下面包含幾個學院，一個學院下面又包含幾個系，因此一個完善的學生管理系統必須考慮到這個問題，在系統啟動後首先確定登錄人的身份是至關重要的。下面的圖就是登錄身份確認：

（02）圖一、登錄身份確認界面

（03）登錄身份無非是管理員或用户，但是如何確定登錄人是那一級的管理員或用户，必須提前在數據庫這進行設定，我們在這個系統中，使用Access數據庫，數據庫的文件名是：學生管理，在這個數據庫這有8個數據表，我們在以後將陸續介紹，今天我們首先介紹數據表【用户資料】，下面是這個數據表的結構和數據表的部分數據：

（04）表一、用户資料數據表(部分示例數據，可根據你的需要修改)從數據表可以明顯看出，管理員或用户不是一個，而且他們的部門是不同的，由於部門不同，登錄權限同樣不同，這就為我們在界面設置中提供了不少便利。登錄人在選定身份後，根據身份不同，將進入不同的登錄界面，下面是管理員登錄界面和用户登錄界面：圖二、管理員登錄界面圖三、用户登錄界面好了，到這裏界面和數據庫都介紹了，下面我們介紹程序窗口和窗口所需要的基本代碼。程序的啟動和登錄由二個窗口和一個模塊組成，二個窗口的名稱分別是：啟動窗口、用户登錄。

（05）啟動窗口啟動窗口如圖一，主要控件是：一個ComboBox控件，名稱為Combo1；三個CommandButton控件，名稱為Command1、Command2、Command3；一個Timer控件，名稱為Time1；以及幾個Label控件。Combo1的List值有二項，分別是：管理員和用户，他的作用是提供登錄人選擇身份。Command1的Caption是“確定”，Command2的Caption是“退出”，Command3的Caption是“系統幫助”，其作用是讓程序產生單擊動作，在點擊【確定】按鈕時，進入登錄界面，點擊【退出】按鈕時，退出系統，點擊【系統幫助】按鈕時，顯示系統幫助界面（至於系統幫助問題不是本文討論的問題，我們將不予介紹。)。下面是啟動界面的主要代碼：Private SubCommand1_Click()‘按鈕【確定】的點擊過程Dim MC As StringMC = If MC = ""ThenMsgBox "您沒有選擇登錄方式，請重新選擇！", 16, "錯誤！"Exit SubEnd IfIf MC = "管理員" ThenDLQX1 = "管理員"ElseIf MC = "用户" ThenDLQX1 = "用户"End IfUnload Me用户登錄End SubPrivate SubCommand2_Click()EndEnd SubPrivate SubCommand3_Click()系統幫助End SubPrivate Sub Form_Load()Label4(1)ion ="當代電子科技學院"ion =FormatDateTime(Date, 1)ion =FormatDateTime(Now, 3)rval = led = TrueEnd SubPrivate SubTimer1_Timer()ion =FormatDateTime(Now, vbLongTime)End Sub上面代碼都特別簡單，這裏就不一一解釋了。

（06）用户登錄在啟動窗口不論你選擇管理員還是用户，點擊【確定】後都會進入用户登錄窗口，由於選擇身份不同，程序會給出不同的運行界面，如果身份是管理員，以圖二的界面運行，如果身份是用户，則以圖三的界面運行，不論是那個界面，其實就是一個窗口“用户登錄”窗口。用户登錄如圖二、圖三，主要控件是：二個TextBox控件，名稱為Text1、Text2；三個CommandButton控件，名稱為Command1、Command2、Command3；以及幾個Label控件。Text1是一個輸入框，需要登錄人輸入登錄名稱，Text2也是一個輸入框，需要登錄人輸入登錄密碼。Command1的Caption是“登錄”，Command2的Caption是“退出”，Command3的Caption是“返回”，其作用是讓程序產生單擊動作，在點擊【登錄】按鈕時，系統根據數據庫的記錄，檢測這個登錄人是否存在，如果存在，進入登錄人應該進入的界面；如果不存在，將終止登錄。點擊【退出】按鈕時，退出系統。點擊【返回】按鈕時，將返回到啟動界面。下面是用户登錄窗口的主要代碼：Dim zong As Integer‘聲明窗口級公用變量Private SubCommand1_Click()'登錄確認If zong = 3 Then'若用户輸入的次數超過三次，則自動退出Unload MeExit SubEnd IfIf Trim( ="") ThenMsgBox "沒有輸入用户名,請輸入!", vbOKOnly + vbExclamation, "警告" = ""Exit SubEnd IfCall SJK(db)‘注意：這裏在調用一個過程，請查看模塊一節！strSQL = "select * from用户資料where用户名='" & & "' AND身份='" & DLQX1 & "'" strSQL, db, 2, 2‘RS是什麼呀？請查看模塊一節！If = True ThenMsgBox "沒有這個用户,請重新輸入用户名!", vbOKOnly + vbExclamation, "警告" = "" = ""eCall GBSJKzong = zong + 1'累加輸入次數Exit SubEnd IfIf RS("密碼") <> Trim()ThenMsgBox "密碼不正確,請重新輸入!", vbOKOnly + vbExclamation, "警告"eCall GBSJKzong = zong + 1'累加輸入次數Exit SubEnd IfSZBM = RS("部門")YHMC = RS("用户名")YHMM = RS("密碼")YHSF= RS("身份")YHQX== RS("權限")eSet RS = NothingCall GBSJK‘注意：這裏在調用一個過程，請查看模塊一節！Unload Me主窗口End SubPrivate SubCommand2_Click()Dim anw As Intege‘聲明過程級變量ranw = MsgBox("確定要退出系統嗎？", vbYesNo, "請問")If anw = 6 ThenUnload = "" = ""End IfEnd SubPrivate SubCommand3_Click()Unload Me啟動窗口End SubPrivate Sub Form_Load()ion = DLQX1 & "登錄"Label4(1)ion = DLQX1 & "登錄"Label4(2)ion = "當代電子科技學院"ion = DLQX1 & "名稱："ion = DLQX1 & "密碼："zong = = "" = ""End Sub

（07）模塊（程序共用變量、過程在模塊中設置）模塊名稱Module1前面的程序代碼中，出現了幾個調用過程和幾個變量，這些過程和變量是全局公用過程和變量，那麼這些過程和變量是如何設置的？在VB中有一個模塊程序，這個模塊是用來設置全局調用過程和全局調用變量的。我們點擊【工程】-【添加模塊】，出現添加模塊對話框，點擊【打開】按鈕，在工程中就會添加一個名稱為Module1的模塊，模塊名稱可以修改為你認為比較容易理解的名稱，我們在這裏仍然使用程序默認的名稱。注意：模塊僅僅是代碼，沒有界面的。在模塊中我們就可以添加程序公用的變量和過程（或函數），在模塊中聲明公用變量必須使用關鍵字Public，在設置公用過程也必須使用關鍵字Public。在我們這個程序中，需要鏈接數據庫，VB不默認鏈接數據庫，因此我們必須添加鏈接數據庫的引用，添加方法是點擊【工程】-【引用】，打開引用對話框，在對話框中選擇Microsoft DAO 3.6 Object Library和Microsoft ActiveX Data Object 2.7 Library，勾選這二項，點擊確定。這樣鏈接數據庫的引用就添加成功了。添加了數據庫的引用，我們在模塊中就可以聲明數據庫鏈接對象和記錄集對象了，在我們的模塊中，我們聲明瞭這二個對象，分別是db（數據庫鏈接對象）、RS（記錄集對象）。另外，我們在模塊中還設置了5個公用變量，這些變量是程序在運行過程中需要隨時調用的，並且在運行過程中需要確定運行窗口的變量，其實這些變量就是登錄人的信息。下面是模塊代碼：（這裏聲明的變量、對象、過程都是全局的）Public db As ection‘數據庫鏈接對象Public RS As rdset‘數據庫記錄集對象Public DLQX1 As String‘登錄人身份變量Public SZBM AsString' =登錄人的("部門")Public YHMC As String' =登錄人的("用户名")Public YHMM AsString' =登錄人的("密碼")Public YHSF AsString' =登錄人的("身份")Public YHQX AsString' =登錄人的("權限")Public Sub SJK(db)“數據庫鏈接公用過程ectionString = "DRIVER=MicrosoftAccess Driver (*);DBQ=" & & "DATA學生管理"‘注意：數據庫名是學生管理End SubPublic Sub GBSJK()“關閉數據庫公用過程eSet db = NothingEnd Sub

（08）最後説明一點：在程序中聲明的變量可以是全局變量，也可以是模塊級（窗體）變量，還可以是過程級變量，變量聲明的位置不同，使用的關鍵字不同，變量的級別是不同的。如果你需要設置全局變量，必須在模塊中聲明，使用Public關鍵字。如果你聲明模塊級變量（注意：所謂模塊級其實就是一個窗體，不要和程序模塊混淆），必須在窗體的代碼窗口的通用部分聲明（通用部分就是窗體代碼窗口的最上端），使用Dim關鍵字或Private關鍵字。如果你需要聲明過程級變量，在一個過程的任何部位都可以聲明，使用Dim關鍵字。全局變量的生命期在程序運行開始就已經聲明瞭，這個變量直至程序運行結束才結束。全局變量在任何一個窗體或任何一個過程中都可以調用他的值，也可以在任何一個窗體或任何一個過程中都可以賦值，在程序結束後這個變量的生命就結束了，但是如果你在程序中轉換窗體，這個變量仍然存在，直至程序結束（即關閉程序）這個變量才結束。模塊級變量的生命期是一個窗體在運行時，這個變量就被聲明，在這個窗體運行過程中，這個變量始終是存在的，在這個窗體的任何過程都可以調用這個變量，同樣也可以給變量賦值，在轉換窗體後，這個模塊級變量的生命就結束了。過程級變量的生命期是一個窗體的某一個過程在運行時被聲明，這個變量在這個過程中使用，包括調用和賦值，在過程結束後，這個變量的生命就結束了。下一節我們介紹程序最關鍵的一個窗體“主窗口”，在主窗口牽扯到程序菜單，程序菜單是程序運行的依據，根據登錄權限不同，所需要的菜單不同。由於時間比較緊，本文可能存在不少問題，請對本文提出你的寶貴意見和建議。