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

學生管理系統(tǒng)是一個比較典型的數據庫應用程序，這里我打算將學生管理系統(tǒng)分

兒部分陸續(xù)發(fā)表，希望對大家有幫助。本章重要闡述學生管理系統(tǒng)的系統(tǒng)啟動和

登錄界面的設計。

工具/原料

由于前一段時間比較忙，沒有及時將學生管理系統(tǒng)的文章發(fā)表，現在有了一點空

閑.就學生管理系統(tǒng)的后續(xù)文章發(fā)表，希望對大家有點幫助C

環(huán)節(jié)/方法

一個程序在啟動后一方面需要進入啟動界面，學生管理系統(tǒng)（以下均稱系統(tǒng)）也

不例外，在啟動后進入的是使用者身份確認界面，由于目前大學的結構是學校f

學院f系結構，也就是一個大學下面包含幾個學院，一個學院下面乂包含幾個系,

因此一個完善的學生管理系統(tǒng)必須考慮到這個問題，在系統(tǒng)啟動后一方面擬定登

錄人的身份是至關重要的。下面的圖就是登錄身份確認:

?啟動窗口廠________2d

當代電子2011年8月9日

科技學院14:28:01

請選擇您的登錄身份

學生管理

您是；隆直■三］

系統(tǒng)登錄

身份確認確定I星承.看上

_______J

圖一、登錄身份確認界面

登錄身份無非是管理員或用戶，但是如何擬定登錄人是那一級的管理員或用戶，

必須提前在數據庫這進行設定，我們在這個系統(tǒng)中，使用Access數據庫，數據

庫的文獻名是：學生管理.mdb,在這個數據庫這有8個數據表，我們在以后將陸

續(xù)介紹，今天我們一方面介紹數據表【用戶資料】，下面是這個數據表的結構和

數據表的部分數據：

用戶名身份所

XY1GLY7123/笞理員P學院1"2"

XY2GLY口123Q管理員P學院222"

XY3GLY，123~管理員，學院3，2/

DXGLY21233管理員/大學-1，

XY1X1GLY。123丁管理員，學院1系評3~

XY1X1GLYP1237管理員“學院1系2。3~

XY2X1GLYP123/管理員P學院2系33

XY3X1GLY。1237省理員?學院3系1。3P

DXYHP123~用尸一大學*,■

XY1YHQ1237用戶*學院百

XY1X1YH*123r用戶P學院1系1r

表一、用戶資料數據表（部分示例數據，可根據你的需要修改）

從數據表可以明顯看出，管理員或用戶不是一個，并且他們的部門是不同的，由

于部門不同，登錄權限同樣不同，這就為我們在界面設立中提供了不少便利。

登錄人在選定身份后，根據身份不同，將進入不同的登錄界面，下面是管理員登

錄界面和用戶登錄界面：

當代電子員登錄當代電子

科技學院科技學院

?Rg*.II

學生管理6員田時II學生管理

系統(tǒng)登錄聚錄|E1J_之絲J系統(tǒng)登錄

圖二、管理員登錄界面圖三、用戶登錄界面

好了，到這里界面和數據庫都介紹了，下面我們介紹程序窗口和窗口所需要為基

本代碼。

程序的啟動和登錄由二個窗口和一個模塊組成，二個窗口的名稱分別是：啟動窗

□.frm>用戶登錄.frn。

啟動窗口

啟動窗口如圖一，重要控件是：一個ComboBox控件，名稱為Combol；三個

CommandButton控件，名稱為Command1>Command2>Command3；一個Timer控件，

名稱為Timel；以及幾個Label控件。

ElselfMC=〃用戶〃Then

DLQX1=〃用戶〃

EndIf

UnloadMe

用戶登錄.Show

EndSub

PrivateSubCommand2Click()

End

EndSub

PrivateSubCommand3_Click()

系統(tǒng)幫助.Show,

EndSub

PrivateSubForm_Load()

Label4(l).Caption=”當代電子科技學院〃

Labe12.Caption=FornatDateTime(Date,1)

Label3.Caption=FornatDateTime(Now,3)

Timerl.Interval=1000

Timerl.Enabled=True

EndSub

PrivateSubTimeriTimer()

Label3.Caption=FornatDateTime(Now,vbLongTime)

EndSub

上面代碼都特別簡樸，這里就不一一解釋了。

用戶登錄

在啟動窗口不管你選擇管理員還是用戶，點擊【擬定】后都會進入用戶登錄窗口，

由于選擇身份不同，程序會給出不同的運營界面，假如身份是管理員，以圖二的

界面運營，假如身份是用戶，則以圖三的界面運營，不管是那個界面，其實就是

一個窗口“用戶登錄”窗口。

用戶登錄如圖二、圖三，重要控件是：二個TextBox控件，名稱為Textl、Text2；

三個CommandButton控件，名稱為Commandl、Command2>Command3；以及幾個

Label控件。

Toxtl是一個輸入框，需要登錄人輸入登錄名稱，Tcxt2也是一個輸入框，需要

登錄人輸入登錄密碼。Command1的Caption是“登錄"，Command2的Caption

是“退出"，Conmiand3的Caption是“返回”，其作用是讓程序產生單擊動作，

在點擊【登錄】按鈕時，系統(tǒng)根據數據庫的記錄，檢測這個登錄人是否存在，假

如存在，進入登錄人應當進入的界面；假如不存在，將終止登錄。點擊【退出】

按鈕時，退出系統(tǒng)。點擊【返回】按鈕時，將返回到啟動界面。

下面是用戶登錄窗口的重要代碼：

DimzongAsInteger'聲明窗口級公用變量

PrivateSubcommand1_C1ick()

'登錄確認

Ifzong=3Then'若用戶輸入的次數超過三次，則自動退出

UnloadMe

ExitSub

EndIf

IfTrim(Textl.Text="〃)Then

MsgBox”沒有輸入用戶名，請輸入!。vbOKOnly+vbExclamation,

警告〃

Text2.Text二〃〃

ExitSub

EndIf

CallSJK(db)'注意：這里在調用一個過程，請查看模塊一節(jié)!

strSQL="select*from用戶資料where用戶名='〃&Textl.Text

&〃'AND身份二'〃&DLQX1&〃'〃

RS.OpenstrSQL,db,2,2'RS是什么呀？請查看模塊一節(jié)!

IfRS.EOF=TrueThen

MsgBox〃沒有這個用戶，請重新輸入用戶名！〃，vbOKOnly+

vbExclamation,"警告"

Textl.Text=

Text2.Text二

RS.Close

CallGBSJK

zong=zong+1'累加輸入次數

ExitSub

EndTf

IfRS(〃密碼〃)<>Trim(Text2.Text)Then

MsgBox”密碼不對的，請重新輸入！"，vbOKOnly+vbExclamation,

警告〃

Text2.SotFocus

RS.Close

CallGBSJK

zong-zong+1'累加輸入次數

ExitSub

EndIf

SZBM=RS（〃部門〃）

YIIMC=RS（〃用戶名〃）

YHMM=RS（〃密碼〃）

YHSF=RS（〃身份〃）

YHQX==RS（〃權限〃）

RS.Close

SetRS=Nothing

CallGBSJK'注意：這里在調用一個過程，請查看模塊一節(jié)!

UnloadMe

主窗口.Show

EndSub

PrivateSubcommand2click（）

DimanwAsIntege'聲明過程級變量r

anw=MsgBox（〃擬定要退出系統(tǒng)嗎？〃，vbYesNo,"請問"）

Ifanw=6Then

UnloadMe

Else

Textl.Text=〃〃

Text2.Text=〃〃

EndIf

EndSub

PrivateSubCommand3_C1ick()

UnloadMe

啟動窗口.Show

EndSub

PrivateSubFormLoadO

Me.Caption=DLQX1&〃登錄〃

Label4(l).Caption=DLQX1&"登錄〃

Label4（2）.Caption="當代電子科技學院”

Label1.Caption=DLQX1&〃名稱：〃

Label2.Caption=DLQX1&〃密碼：〃

zong=0

Textl.Text=〃〃

Text2.Text=〃〃

EndSub

模塊（程序共用變量、過程在模塊中設立）模塊名稱Modulel

前面的程序代碼中，出現了幾個調用過程和幾個變量，這些過程和變量是全局公

用過程和變量，那么這些過程和變量是如何設立的？在VB中有一個模塊程序，

這個模塊是用來設立全局調用過程和全局調用變量的。我們點擊【工程】-【添

加模塊】，出現添加模塊對話框，點擊【打開】按鈕，在工程中就會添加一個名

稱為Modulel的模塊，模塊名稱可以修改為你認為比較容易理解的名稱，我們在

這里仍然使用程序默認的名稱。注意：模塊僅僅是代碼，沒有界面的。

在模塊中我們就可以添加程序公用的變量和過程（或函數），在模塊中聲明公用

變量必須使用關鍵字Public,在設立公用過程也必須使用關鍵字Publico

在我們這個程序中，需要鏈接數據庫，VB不默認鏈接數據庫，因此我們必須添

加鏈接數據庫的引用，添加方法是點擊【工程】-【引用】，打開引用對話框，

在對話框中選擇MicrosoftDAO3.6ObjectLibrary和MicrosoftActiveX

DataObject2.7Library,勾選這二項，點擊擬定。這樣鏈接數據庫的引用就

添加成功了。

添加了數據庫的引用，我們在模塊中就可以聲明數據庫鏈接對象和記錄集市象

了，在我們的模塊中，我們聲明了這二個對象，分別是db（數據庫鏈接對象）、

RS（記錄集對象）。此外，我們在模塊中還設立了5個公用變量，這些變量是程

序在運營過程中需要隨時調用的，并且在運營過程中需要擬定運營窗口的變量，

其實這些變量就是登錄人的信息。

下面是模塊代碼：（這里聲明的變量、對象、過程都是全局的）

PublicdbAsNewADODB.Connection'數據庫鏈接對象

PublicRSAsNewADODB.Recordset，數據庫記錄集對象

PublicDLQX1AsString'登錄入身份變量

PublicSZBMAsString'=登錄人的（〃部門“）

PublicYHMCAsString'=登錄人的（〃用戶名”）

PublicYIIMMAsString'=登錄人的（〃密碼〃）

PublicYHSFAsString登錄人的(〃身份〃)

PublicYHQXAsString'=登錄人的(〃權限〃)

PublicSubSJK(db)“數據庫鏈接公用過程

db.Connectionstring=，，DRIVER=MicrosoftAccessDriver(*.mdb);DBQ二〃

&App.Path&〃\DATA\學生管理.mdb〃'注意：數據庫名是學生管

理.mdb

db.Open

EndSub

PublicSubGBSJK()”關閉數據庫公用過程

db.Close

Setdb=Nothing

EndSub

最后說明一點：在程序中聲明的變量可以