學(xué)生管理系統(tǒng)的系統(tǒng)啟動(dòng)和登錄界面的設(shè)計(jì)

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

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

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

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

5、mand1_Click()    按鈕【確定】的點(diǎn)擊過程Dim MC As StringMC = Combo1.TextIf MC = ""ThenMsgBox "您沒有選擇登錄方式，請(qǐng)重新選擇！", 16, "錯(cuò)誤！"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 ="當(dāng)代電子科技學(xué)院"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 上面代碼都特別簡(jiǎn)單，這里就不一一解釋了。用戶登錄在啟動(dòng)窗口不論你選擇管理員還是用戶，點(diǎn)擊【確定】后都會(huì)進(jìn)入用戶登錄窗口，由于選擇身份不同，程序會(huì)給出不同的運(yùn)行界面，如果身份是管理員，以圖二的界面運(yùn)行，如果身份是用戶，則以圖三的界面運(yùn)行，不論是那個(gè)界面，其實(shí)就是一個(gè)窗口“用戶登錄”窗口。用戶登錄如圖二、圖三，主要控件是：二個(gè)TextBox控件，名稱為Text1、Text2；三個(gè)CommandButton控件，名稱為Comma

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

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

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

11、;" & Text1.Text & "' AND 身份='" & DLQX1 & "'"    RS.Open strSQL, db, 2, 2    RS是什么呀？請(qǐng)查看模塊一節(jié)！If RS.EOF = True Then    MsgBox "沒有這個(gè)用戶,請(qǐng)重新輸入用戶名!", 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 "密碼不正確,請(qǐng)重新輸入!", 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)用一個(gè)過程，請(qǐng)查看模塊一節(jié)！Unload Me主窗口.ShowEnd Sub Private SubCommand2_Click()Dim anw As Intege        聲明過程級(jí)變量ranw = MsgBox("確定要退出系統(tǒng)嗎？", vbYesNo, "請(qǐng)問")If anw = 6 Then    Unload MeElse    Text1.Te

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

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

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

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

20、（數(shù)據(jù)庫鏈接對(duì)象）、RS（記錄集對(duì)象）。另外，我們?cè)谀K中還設(shè)置了5個(gè)公用變量，這些變量是程序在運(yùn)行過程中需要隨時(shí)調(diào)用的，并且在運(yùn)行過程中需要確定運(yùn)行窗口的變量，其實(shí)這些變量就是登錄人的信息。下面是模塊代碼：（這里聲明的變量、對(duì)象、過程都是全局的）Public db As NewADODB.Connection    數(shù)據(jù)庫鏈接對(duì)象Public RS As NewADODB.Recordset    數(shù)據(jù)庫記錄集對(duì)象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學(xué)生管理.mdb"      注意：數(shù)據(jù)庫名是學(xué)生管理.mdb  db.OpenEnd SubPublic Sub GBSJK()    &#