【正文】 End SelectEnd SubPrivate Sub Form_Load()Set n = New Set Rs = New DRIVER=Microsoft Access Driver (*.mdb)。 amp。 39。 39。 \39。 39。 amp。, n, 3, 3Call ShowDataEnd SubPrivate Sub ShowData() = (0).Value = (1).Value = (2).Value = (3).ValueEnd Sub（2） 系統(tǒng)管理操作1）主界面： Private Sub a1_Click()End SubPrivate Sub a2_Click()End SubPrivate Sub b1_Click()End SubPrivate Sub b3_Click()Dim a$a = InputBox(請(qǐng)輸入管理員的密碼 , 密碼)If a 01 ThenMsgBox 密碼錯(cuò)誤，請(qǐng)重新輸入, vbDefaultButton1a = InputBox(請(qǐng)輸入管理員的密碼 , 密碼)ElseEnd IfEnd SubPrivate Sub b4_Click()EndEnd SubPrivate Sub c1_Click()End SubPrivate Sub c2_Click()End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 = 1Case 1 = 0Case 2 = 2End SelectEnd SubPrivate Sub d1_Click()End SubPrivate Sub f1_Click()End SubPrivate Sub Form_Load()39。 n select * from Users where UserName=39。 and Password = 39。 n select * from Users, n, 3, 3End Sub附錄3：教務(wù)管理模塊（1）文件操作 1）個(gè)人信息 Option ExplicitPrivate n As New Private Rs As New Private Sub Command1_Click() = True = True = True = TrueEnd SubPrivate Sub Form_Load()Set n = New Set Rs = New 39。,39。,39。 39。 amp。 附錄附件1:登錄界面的設(shè)計(jì)Private n As New Private Rs As New Private Sub Command1_Click(Index As Integer)Dim a$Dim b$39。程序中還有蠻多可以改進(jìn)的地方如在用戶登錄的時(shí)候如果連續(xù)三次用戶名或密碼錯(cuò)誤，系統(tǒng)就會(huì)自動(dòng)退出，但是并沒有把此用戶鎖定，這點(diǎn)會(huì)帶來一定得安全隱患，所以為了增強(qiáng)系統(tǒng)的安全性，如果連續(xù)三次輸入錯(cuò)誤，就應(yīng)該把此用戶給鎖定住，只有它與管理員聯(lián)系后，完成解鎖后方可繼續(xù)使用；在網(wǎng)絡(luò)功能上沒有提供很好的接口和支持，基本上術(shù)語單機(jī)版狀態(tài)；本系統(tǒng)的數(shù)據(jù)庫一旦被更改，就是永久性的，所以為了避免一些問題的發(fā)生，應(yīng)該適時(shí)的進(jìn)行數(shù)據(jù)庫備份。 系統(tǒng)在開發(fā)環(huán)境下實(shí)現(xiàn)的功能以及結(jié)果 各個(gè)程序設(shè)計(jì)模塊代碼見附錄。 3）并發(fā)控制在多用戶數(shù)據(jù)庫環(huán)境中，多個(gè)用戶程序可并行存取數(shù)據(jù)庫中的數(shù)據(jù)，為了以正確的方式調(diào)度該并發(fā)操作，避免造成“丟失修改”、“不能重讀”、“讀臟數(shù)據(jù)”等不一致的情況，DBMS引入了“并發(fā)控制”這一機(jī)制。一般的數(shù)據(jù)庫管理系統(tǒng)（DBMS）都有提供了一定的數(shù)據(jù)保護(hù)功能。如果用戶輸入的用戶信息不符合相關(guān)規(guī)定，會(huì)給出相應(yīng)的提示信息，告訴用戶如何注冊(cè)信息。分為用戶登錄和注冊(cè)兩個(gè)子模塊。 （2）教務(wù)管理模塊：分為文件管理、系統(tǒng)管理、課程管理、成績(jī)管理和教師查詢五個(gè)子模塊。隨著我校近幾年來的快速發(fā)展，辦學(xué)模式多元化，在校學(xué)生規(guī)模不斷擴(kuò)大，為了加速對(duì)教務(wù)管理的計(jì)算機(jī)化，我校需要開發(fā)出符合我校實(shí)際的教務(wù)管理系統(tǒng)，為學(xué)校教學(xué)管理提供一個(gè)快速、簡(jiǎn)單規(guī)范的管理平臺(tái)，同時(shí)也方便教員查詢相關(guān)信息，提高信息傳播速度，擴(kuò)大信息共享范圍。本文詳細(xì)介紹了該系統(tǒng)分析、概要設(shè)計(jì)、系統(tǒng)的數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)、模塊界面和功能設(shè)計(jì)、系統(tǒng)測(cè)試和分析等設(shè)計(jì)與實(shí)現(xiàn)過程，最后表述了一下個(gè)人的心得體會(huì)。該系統(tǒng)實(shí)現(xiàn)的主要功能模塊包括用戶登錄模塊，用戶注冊(cè)模塊，文件管理模塊，系統(tǒng)管理管理員模塊，課程管理模塊，及教師查詢模塊等。教務(wù)管理系統(tǒng)是每所高校的一項(xiàng)必不可少的內(nèi)容，它的好壞直接影響到學(xué)校的主要工作，此系統(tǒng)一旦癱瘓，不僅會(huì)影響到學(xué)校的每一位學(xué)生，學(xué)校也會(huì)因此受到非常嚴(yán)重的損失。分為用戶登錄和注冊(cè)兩個(gè)子模塊。 （1）登錄管理模塊：為了保證系統(tǒng)的安全性，可以根據(jù)不同的用戶權(quán)限來提供不同的服務(wù)。其界面設(shè)計(jì)如下圖所示： 用與給新的用戶注冊(cè)，其中包括用戶所需要注冊(cè)的詳細(xì)信息。、完整性、并發(fā)控制和恢復(fù)信息數(shù)據(jù)是企業(yè)中非常重要的資源，因此保證數(shù)據(jù)庫的安全可靠、正確有效是非常重要的問題。一般的DBMS中是通過完整性約束和數(shù)據(jù)庫觸發(fā)器來實(shí)現(xiàn)這一機(jī)制的。 問題三：再添加Timer 控件時(shí)，編寫的代碼正確時(shí)，仍然不顯示時(shí)間，也不控制一行字的滾動(dòng)，沒有起到作用 解決方案：原來時(shí)Timer的一個(gè)屬性，我們必須把它設(shè)為TRUE，上面的問題就解決了。在程序的編寫過程中，也出現(xiàn)了很多錯(cuò)誤，經(jīng)過我認(rèn)真修改，查閱資料，向老師和同學(xué)們請(qǐng)教，終于把那些錯(cuò)誤都改正過來，最終使程序能夠正確的運(yùn)行。[3] 李勇帆，Visual Basic 程序設(shè)計(jì)與應(yīng)用，北京：人民郵電出版社。DBQ= amp。 amp。 39。 39。 \39。 39。 \39。 39。 39。 amp。 amp。 amp。 StudentID like amp。 amp。 39。 39。 39。 amp。 Command4(1).Enabled = False Case 1 39。 amp。 amp。 amp。DBQ= amp。 = (出生日期).Value = (職稱).Value = (單位).Value = (工資).ValueEnd SubPrivate Sub updata() (姓名).Value = (教師編號(hào)).Value = (性別).Value = (出生日期).Value = (職稱).Value = (單位).Value = (工資).Value = End Sub附錄4：模塊定義Public Sub ShowData(Rs As , Dgrid As MSFlexGrid) Dim i As Integer i = 0 = + 1 = For j = 0 To 1 (0, j) = (j).Name Next j Do While Not i = i + 1 For j = 0 To 1 If Not IsNull((j).Value) Then (i, j) = (j).Value End If Next j LoopEnd Sub