學生管理系統(tǒng)的系統(tǒng)啟動和登錄界面的設(shè)計

1、文檔供參考，可復制、編制，期待您的好評與關(guān)注！ 學生管理系統(tǒng)的系統(tǒng)啟動和登錄界面的設(shè)計學生管理系統(tǒng)是一個比較典型的數(shù)據(jù)庫應用程序，這里我打算將學生管理系統(tǒng)分幾部分陸續(xù)發(fā)表，希望對大家有幫助。本章主要闡述學生管理系統(tǒng)的系統(tǒng)啟動和登錄界面的設(shè)計。工具/原料由于前一段時間比較忙，沒有及時將學生管理系統(tǒng)的文章發(fā)表，現(xiàn)在有了一點空閑，就學生管理系統(tǒng)的后續(xù)文章發(fā)表，希望對大家有點幫助。步驟/方法一個程序在啟動后首先需要進入啟動界面，學生管理系統(tǒng)（以下均稱系統(tǒng)）也不例外，在啟動后進入的是使用者身份確認界面，因為目前大學的結(jié)構(gòu)是學校學院系結(jié)構(gòu)，也就是一個大學下面包含幾個學院，一個學院下面又包含幾個系，因此一個

2、完善的學生管理系統(tǒng)必須考慮到這個問題，在系統(tǒng)啟動后首先確定登錄人的身份是至關(guān)重要的。下面的圖就是登錄身份確認：圖一、登錄身份確認界面登錄身份無非是管理員或用戶，但是如何確定登錄人是那一級的管理員或用戶，必須提前在數(shù)據(jù)庫這進行設(shè)定，我們在這個系統(tǒng)中，使用Access數(shù)據(jù)庫，數(shù)據(jù)庫的文件名是：學生管理.mdb，在這個數(shù)據(jù)庫這有8個數(shù)據(jù)表，我們在以后將陸續(xù)介紹，今天我們首先介紹數(shù)據(jù)表【用戶資料】，下面是這個數(shù)據(jù)表的結(jié)構(gòu)和數(shù)據(jù)表的部分數(shù)據(jù)：表一、用戶資料數(shù)據(jù)表(部分示例數(shù)據(jù)，可根據(jù)你的需要修改)從數(shù)據(jù)表可以明顯看出，管理員或用戶不是一個，而且他們的部門是不同的，由于部門不同，登錄權(quán)限同樣不同，這就為我

3、們在界面設(shè)置中提供了不少便利。登錄人在選定身份后，根據(jù)身份不同，將進入不同的登錄界面，下面是管理員登錄界面和用戶登錄界面： 圖二、管理員登錄界面            圖三、用戶登錄界面好了，到這里界面和數(shù)據(jù)庫都介紹了，下面我們介紹程序窗口和窗口所需要的基本代碼。程序的啟動和登錄由二個窗口和一個模塊組成，二個窗口的名稱分別是：啟動窗口.frm、用戶登錄.frm。啟動窗口啟動窗口如圖一，主要控件是：一個ComboBox控件，名稱為Combo1；三個CommandBut

4、ton控件，名稱為Command1、Command2、Command3；一個Timer控件，名稱為Time1；以及幾個Label控件。Combo1的List值有二項，分別是：管理員和用戶，他的作用是提供登錄人選擇身份。Command1的Caption是“確定”，Command2的Caption是“退出”，Command3的Caption是“系統(tǒng)幫助”，其作用是讓程序產(chǎn)生單擊動作，在點擊【確定】按鈕時，進入登錄界面，點擊【退出】按鈕時，退出系統(tǒng)，點擊【系統(tǒng)幫助】按鈕時，顯示系統(tǒng)幫助界面（至于系統(tǒng)幫助問題不是本文討論的問題，我們將不予介紹。)。下面是啟動界面的主要代碼：Private SubCom

5、mand1_Click()    按鈕【確定】的點擊過程Dim MC As StringMC = Combo1.TextIf MC = ""ThenMsgBox "您沒有選擇登錄方式，請重新選擇！", 16, "錯誤！"Exit SubEnd IfIf MC = "管理員" ThenDLQX1 = "管理員"ElseIf MC = "用戶" ThenDLQX1 = "用戶"End IfUnload Me用戶登錄.Sh

6、owEnd Sub Private SubCommand2_Click()EndEnd Sub Private SubCommand3_Click()系統(tǒng)幫助.ShowEnd Sub Private Sub Form_Load()Label4(1).Caption ="當代電子科技學院"Label2.Caption =FormatDateTime(Date, 1)Label3.Caption =FormatDateTime(Now, 3)Timer1.Interval = 1000Timer1.Enabled = TrueEnd Sub

7、0;Private SubTimer1_Timer()Label3.Caption =FormatDateTime(Now, vbLongTime)End Sub 上面代碼都特別簡單，這里就不一一解釋了。用戶登錄在啟動窗口不論你選擇管理員還是用戶，點擊【確定】后都會進入用戶登錄窗口，由于選擇身份不同，程序會給出不同的運行界面，如果身份是管理員，以圖二的界面運行，如果身份是用戶，則以圖三的界面運行，不論是那個界面，其實就是一個窗口“用戶登錄”窗口。用戶登錄如圖二、圖三，主要控件是：二個TextBox控件，名稱為Text1、Text2；三個CommandButton控件，名稱為Comma

8、nd1、Command2、Command3；以及幾個Label控件。Text1是一個輸入框，需要登錄人輸入登錄名稱，Text2也是一個輸入框，需要登錄人輸入登錄密碼。Command1的Caption是“登錄”，Command2的Caption是“退出”，Command3的Caption是“返回”，其作用是讓程序產(chǎn)生單擊動作，在點擊【登錄】按鈕時，系統(tǒng)根據(jù)數(shù)據(jù)庫的記錄，檢測這個登錄人是否存在，如果存在，進入登錄人應該進入的界面；如果不存在，將終止登錄。點擊【退出】按鈕時，退出系統(tǒng)。點擊【返回】按鈕時，將返回到啟動界面。下面是用戶登錄窗口的主要代碼：Dim zong As Integer 

9、;    聲明窗口級公用變量 Private SubCommand1_Click()'登錄確認If zong = 3 Then    '若用戶輸入的次數(shù)超過三次，則自動退出    Unload Me    Exit SubEnd If If Trim(Text1.Text ="") Then    MsgBox "沒有輸入用戶名,請

10、輸入!", vbOKOnly + vbExclamation, "警告"    Text2.Text = ""    Exit SubEnd If    Call SJK(db)    注意：這里在調(diào)用一個過程，請查看模塊一節(jié)！    strSQL = "select * from 用戶資料where 用戶名='

11、;" & Text1.Text & "' AND 身份='" & DLQX1 & "'"    RS.Open strSQL, db, 2, 2    RS是什么呀？請查看模塊一節(jié)！If RS.EOF = True Then    MsgBox "沒有這個用戶,請重新輸入用戶名!", vbOKOnly + vbExclamation, &qu

12、ot;警告"    Text1.Text = ""    Text2.Text = ""    RS.Close    Call GBSJK    zong = zong + 1          '累加輸入次數(shù)  

13、60; Exit SubEnd IfIf RS("密碼") <> Trim(Text2.Text)Then    MsgBox "密碼不正確,請重新輸入!", vbOKOnly + vbExclamation, "警告"    Text2.SetFocus    RS.Close    Call GBSJK    z

14、ong = zong + 1          '累加輸入次數(shù)    Exit SubEnd IfSZBM = RS("部門")YHMC = RS("用戶名")YHMM = RS("密碼")YHSF= RS("身份")YHQX= RS("權(quán)限")RS.CloseSet RS = NothingCall GBSJK   &

15、#160;注意：這里在調(diào)用一個過程，請查看模塊一節(jié)！Unload Me主窗口.ShowEnd Sub Private SubCommand2_Click()Dim anw As Intege        聲明過程級變量ranw = MsgBox("確定要退出系統(tǒng)嗎？", vbYesNo, "請問")If anw = 6 Then    Unload MeElse    Text1.Te

16、xt = ""    Text2.Text = ""End IfEnd SubPrivate SubCommand3_Click()Unload Me啟動窗口.ShowEnd Sub Private Sub Form_Load()    Me.Caption = DLQX1 & "登錄"    Label4(1).Caption = DLQX1 & "登錄" &

17、#160;  Label4(2).Caption = "當代電子科技學院"    Label1.Caption = DLQX1 & "名稱："    Label2.Caption = DLQX1 & "密碼："    zong = 0    Text1.Text = ""    Te

18、xt2.Text = ""End Sub模塊（程序共用變量、過程在模塊中設(shè)置）模塊名稱  Module1前面的程序代碼中，出現(xiàn)了幾個調(diào)用過程和幾個變量，這些過程和變量是全局公用過程和變量，那么這些過程和變量是如何設(shè)置的？在VB中有一個模塊程序，這個模塊是用來設(shè)置全局調(diào)用過程和全局調(diào)用變量的。我們點擊【工程】-【添加模塊】，出現(xiàn)添加模塊對話框，點擊【打開】按鈕，在工程中就會添加一個名稱為Module1的模塊，模塊名稱可以修改為你認為比較容易理解的名稱，我們在這里仍然使用程序默認的名稱。注意：模塊僅僅是代碼，沒有界面的。在模塊中我們就可以添加程序公用的變量和

19、過程（或函數(shù)），在模塊中聲明公用變量必須使用關(guān)鍵字Public，在設(shè)置公用過程也必須使用關(guān)鍵字Public。在我們這個程序中，需要鏈接數(shù)據(jù)庫，VB不默認鏈接數(shù)據(jù)庫，因此我們必須添加鏈接數(shù)據(jù)庫的引用，添加方法是點擊【工程】-【引用】，打開引用對話框，在對話框中選擇Microsoft DAO 3.6 Object Library 和Microsoft ActiveX Data Object 2.7 Library，勾選這二項，點擊確定。這樣鏈接數(shù)據(jù)庫的引用就添加成功了。添加了數(shù)據(jù)庫的引用，我們在模塊中就可以聲明數(shù)據(jù)庫鏈接對象和記錄集對象了，在我們的模塊中，我們聲明了這二個對象，分別是db

20、（數(shù)據(jù)庫鏈接對象）、RS（記錄集對象）。另外，我們在模塊中還設(shè)置了5個公用變量，這些變量是程序在運行過程中需要隨時調(diào)用的，并且在運行過程中需要確定運行窗口的變量，其實這些變量就是登錄人的信息。下面是模塊代碼：（這里聲明的變量、對象、過程都是全局的）Public db As NewADODB.Connection    數(shù)據(jù)庫鏈接對象Public RS As NewADODB.Recordset    數(shù)據(jù)庫記錄集對象Public DLQX1 As String    

21、0;登錄人身份變量Public SZBM AsString     ' = 登錄人的("部門")Public YHMC As String     ' = 登錄人的("用戶名")Public YHMM AsString     ' = 登錄人的("密碼")Public YHSF AsString   &#

22、160; ' = 登錄人的("身份")Public YHQX AsString     ' = 登錄人的("權(quán)限")Public Sub SJK(db)      “數(shù)據(jù)庫鏈接公用過程  db.ConnectionString = "DRIVER=MicrosoftAccess Driver (*.mdb);DBQ=" & App.Path & "DATA學生管理.mdb"      注意：數(shù)據(jù)庫名是學生管理.mdb  db.OpenEnd SubPublic Sub GBSJK()    &#