VB+Access學(xué)生信息管理系統(tǒng)

1、【精品文檔】如有侵權(quán)，請聯(lián)系網(wǎng)站刪除，僅供學(xué)習(xí)與交流VB+Access學(xué)生信息管理系統(tǒng).精品文檔.2013年12月29目 錄緒 論1前言1（一）作業(yè)背景1（二）選題說明1（三）主要內(nèi)容2一、系統(tǒng)分析2（一） 系統(tǒng)目標(biāo)2（二） 可行性分析3（三） 管理業(yè)務(wù)調(diào)查31.組織結(jié)構(gòu)調(diào)查32. 功能流程調(diào)查43.數(shù)據(jù)流程調(diào)查5二、系統(tǒng)設(shè)計6（一）新系統(tǒng)的功能結(jié)構(gòu)圖6（二）新系統(tǒng)的流程設(shè)計圖7（三）代碼設(shè)計71.登陸頁面143.注冊頁面173.主菜單頁面204.院系功能24三、總 結(jié)31緒 論高校學(xué)生信息的管理是一項(xiàng)既重要又繁瑣的工作。我們小組成員通過調(diào)查研究發(fā)現(xiàn)，學(xué)生學(xué)籍信息管理很是普及，這不僅為學(xué)員、教

2、員提提供了查詢信息的平臺，還大大提高了信息的獲取速度，有利于對學(xué)員信息的管理。為更好的做好這項(xiàng)工作，提過工作效率，更好的為學(xué)校的發(fā)展和一線教學(xué)服務(wù)，我們小組決定：結(jié)合普通高校校實(shí)際情況，自行研制一個學(xué)生信息管理系統(tǒng)。該信息管理系統(tǒng)結(jié)合學(xué)員、教員的需求，提供查詢學(xué)員學(xué)籍信息等多項(xiàng)功能，對學(xué)員的學(xué)籍信息實(shí)時更新，掌握學(xué)員的實(shí)際修課情況。前言（一） 作業(yè)背景隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機(jī)應(yīng)用的一部分,使用計算機(jī)對學(xué)生檔案信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠

3、性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率,也是學(xué)校的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情,結(jié)合管理信息系統(tǒng)這門課程的學(xué)習(xí)，我們掌握了一定的編程技術(shù)，為此次作業(yè)設(shè)計和實(shí)施提供了基礎(chǔ)。我們組通過了解教員和學(xué)員的實(shí)際狀況和需求，對學(xué)員的學(xué)習(xí)信息的管理常規(guī)流程進(jìn)行了調(diào)查，發(fā)現(xiàn)還有很多模塊可以改進(jìn)。（二） 選題說明由于高校學(xué)籍管理信息系統(tǒng)具有極大可使用性，并且對于我們初學(xué)者較易完成。并且學(xué)生選課系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生檔案管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼?/p>

4、供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。現(xiàn)在我國的大部分學(xué)校中檔案的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機(jī)為基礎(chǔ)的信息管理所取代。我們作為一個系統(tǒng)工程專業(yè)的本科生，我們希望可以在這方面有自己的設(shè)計，檢驗(yàn)自己的課程學(xué)習(xí)情況和程序設(shè)計能力。同時，我們是有這方面的技術(shù)優(yōu)勢的，在大學(xué)系統(tǒng)工程教研室教員的諄諄教導(dǎo)下，我們指揮類學(xué)員掌握了一定的技術(shù)

5、知識，因此我們將利用系統(tǒng)工程專業(yè)優(yōu)勢編制出一個實(shí)用的程序來幫助學(xué)生進(jìn)行更有效的學(xué)籍管理。（三） 主要內(nèi)容本系統(tǒng)主要由VB6.0和access 2003完成，主要內(nèi)容有本系統(tǒng)兩類用戶：系統(tǒng)管理員和學(xué)生（教員就為管理員的一種）。三種不同的用戶所具有的操作權(quán)限以及操作內(nèi)容均不一樣。學(xué)員需自行注冊，教員由已有的管理員注冊。通過此種方法來進(jìn)行。課程等均有教員（管理員）添加，學(xué)員只能注冊功能以及查詢信息功能。管理員管理（包括添加、修改、刪除等）學(xué)員的各種信息。歸納起來，功能大約有以下幾點(diǎn)：1學(xué)生信息的錄入。學(xué)員信息的錄入有管理員執(zhí)行，只有管理員才能對學(xué)員的信息進(jìn)行修改和補(bǔ)充。學(xué)生通過各種途徑不擇地點(diǎn)、不擇

6、時間地自主查看自己的基本檔案（不合要求的檔案可以由管理員及時清除），但是不能修改自己的檔案和文檔，沒有相應(yīng)的權(quán)限。2.學(xué)生信息的查詢。學(xué)生的學(xué)籍信息發(fā)在網(wǎng)上可以讓學(xué)員來查詢。使用者可以通過用戶名和輸入密碼，查看自己需要的學(xué)生信息。3學(xué)生信息的修改。管理員均可的學(xué)生的課程信息進(jìn)行添加和刪除，實(shí)現(xiàn)了信息的動態(tài)管理。此系統(tǒng)具有顯而易見的優(yōu)勢：1可以存儲學(xué)員的課程信息，安全、高效；2只需一到二名管理員即可操作系統(tǒng)，節(jié)省大量人力；3 可以迅速查到所需信息。一、系統(tǒng)分析（一） 系統(tǒng)目標(biāo)由于現(xiàn)今的學(xué)生信息管理非常繁瑣，行政人員付出大量的工作時間，得到的效率很低。因此為提高工作效率，減輕校方人員的工作負(fù)擔(dān)，決

7、定開發(fā)學(xué)生信息管理系統(tǒng)。計算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：今天，計算機(jī)的價格已經(jīng)十分低廉，性能有了長足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機(jī)之所以如此流行的原因主要有以下幾個方面：首先，計算機(jī)可以代替人工進(jìn)行許多繁雜的勞動；其次，計算機(jī)可以節(jié)省許多資源；第三，計算機(jī)可以大大的提高人們的工作效率； 第四，計算機(jī)可以使敏感文檔更加安全等等。為了解決傳統(tǒng)學(xué)生信息的管理正面臨著的這些問題，我所設(shè)計的學(xué)生信息管理系統(tǒng)也就應(yīng)運(yùn)而生了。（二） 可行性分析由于本系統(tǒng)管理的對象單一，且每個數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)管理。在技術(shù)難度方面，由于有指導(dǎo)教員的指導(dǎo)

8、和相關(guān)參考文獻(xiàn)，特別是網(wǎng)絡(luò)資料。因此我那全可以實(shí)現(xiàn)本程序。經(jīng)濟(jì)可行性分析：隨著科學(xué)技術(shù)的不斷發(fā)展與創(chuàng)新，計算機(jī)的作用日益突出，計算機(jī)軟件成為人們解決問題的惡一個有效手段，當(dāng)然，他的作用也越來越重要在當(dāng)今信息時代，國民經(jīng)濟(jì)和國防建設(shè)，社會發(fā)展，人民生活都離不開軟件。軟件也無處不在。軟件產(chǎn)業(yè)也是一個新興產(chǎn)業(yè)，盡管起步晚，但發(fā)展迅速。已經(jīng)成為增長最快的產(chǎn)業(yè)是具有高投入/高產(chǎn)出、無污染、低能耗的綠色產(chǎn)業(yè)學(xué)生成績管理系統(tǒng)是一個教務(wù)處數(shù)據(jù)庫的一個管理系統(tǒng)，對已經(jīng)使用的類似的系統(tǒng)進(jìn)行調(diào)查、類比，本課題具有的特點(diǎn)：開發(fā)工作量小，可以有兩個合作開發(fā)或一個人對開發(fā)，開發(fā)周期短，有熟練的開發(fā)人員一個月就可以完成系統(tǒng)

9、的開發(fā)與預(yù)測。技術(shù)可行性分析從技術(shù)方面來說，VB6.0是一個企業(yè)級的、面向?qū)ο蟮目焖賾?yīng)用開發(fā)工具，是數(shù)據(jù)庫最優(yōu)秀的開發(fā)工具之一。同時，它是完全支持面向?qū)ο蟮拈_發(fā)，它擁有多種數(shù)據(jù)庫接口，可以非常方便的連接的各種數(shù)據(jù)源。VB6.0基于組件的開發(fā)增強(qiáng)了面向?qū)ο蟮募夹g(shù)，它提供了一個更有效的封裝、管理、重用和擴(kuò)展企業(yè)規(guī)則和處理的高層途徑。在數(shù)據(jù)操作方面，選擇靈活、易用的access2003數(shù)據(jù)源。（三） 管理業(yè)務(wù)調(diào)查1.組織結(jié)構(gòu)調(diào)查隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對龐大的信息量就需要有一個學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)

10、范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。設(shè)計內(nèi)容為管理員或?qū)W生登錄該系統(tǒng)進(jìn)行六個模塊操作：1）、系統(tǒng)管理：用戶管理、修改密碼、退出系統(tǒng)2）、院系管理：添加院系、修改院系、查詢院系3）、學(xué)籍管理：添加學(xué)籍、修改學(xué)籍、查詢學(xué)籍4）、班級管理：添加班級、修改班級、查詢班級5）、課程管理：添加課程、修改課程、查詢課程、設(shè)置年級6）、成績管理：添加成績、修改成績、查詢成績2. 功能流程調(diào)查Access2003就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電

11、子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。系統(tǒng)主要建立了學(xué)生基本信息表、用戶信息表、課程信息表、班級信息表、成績信息表、院系信息表、年級課程設(shè)置表本系統(tǒng)的數(shù)據(jù)庫實(shí)體主要有“學(xué)生”、“教師”、“教室”、“課程”等。其中“教師”與“課程

12、”存在“開設(shè)”聯(lián)系，并且一個教師可以開設(shè)N門課程，即“教師”與“課程”之間是一對多的關(guān)系。同樣“教學(xué)樓”與“教室”也存在一對多的關(guān)系。一個學(xué)生可以學(xué)習(xí)N門課程，一門課程可以有M個學(xué)生學(xué)習(xí)，即“學(xué)生”與“課程”之間是多對多的關(guān)系。同樣“課程”與“教室”之間也是多對多的關(guān)系。整個數(shù)據(jù)庫可以用一個E-R圖表示，如圖所示：學(xué)號性別學(xué)號學(xué)分性別年齡教師課程學(xué)生選修教學(xué)授課nmmn性別已選課情況密碼課程號學(xué)時職稱教師名稱教師編號學(xué)歷健康狀況畢業(yè)院校成績圖1 總體E-R圖3.數(shù)據(jù)流程調(diào)查二、 系統(tǒng)設(shè)計（一） 新系統(tǒng)的功能結(jié)構(gòu)圖本系統(tǒng)主要包括系統(tǒng)管理、院系管理、學(xué)籍管理、班級管理、課程管理和成績管理6個大的模

13、塊，各個模塊的具體功能如下圖所示：學(xué)生信息管理系統(tǒng)系統(tǒng)管理(S)班級管理學(xué)籍管理課程管理成績管理增加課程學(xué)生成績查詢修改課程學(xué)生成績修改學(xué)生成績錄入用戶管理添加班級學(xué)籍查詢添加用戶刪除用戶班級查詢修改班級添加學(xué)籍修改學(xué)籍院系管理添加院系修改院系幫助查詢院系修改密碼（二） 新系統(tǒng)的流程設(shè)計圖招生辦學(xué)員基礎(chǔ)信息分院編班審核信息學(xué)員建立學(xué)籍教務(wù)處填寫基礎(chǔ)信息教委委ueji66666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666

14、6666666統(tǒng)計報表學(xué)員變動學(xué)員學(xué)籍（三） 代碼設(shè)計4.我們接下來僅以介紹院系管理為例，介紹一下我們的一些基礎(chǔ)設(shè)置。分為添加院系、管理院系、查詢院系。而普通用戶只有查詢院系。添加院系： 添加院系代碼如下：Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdCancel_Click() XgClsfrm.Show Unload Me End Sub Private Sub cmdOK_Click() Set conn = New ADODB.Connection Set rs

15、 = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno", conn, adOpenKeyset, adLockOptimi

16、stic rs.AddNew txtName.SetFocus If txtGender.Text = "" Then MsgBox "課程名稱不能為空！" txtGender.SetFocus Exit Sub Else rs.Fields(0).Value = Val(txtID.Text) rs.Fields(1).Value = txtName.Text rs.Fields(2).Value = txtGender.Text rs.Fields(3).Value = txtAddr.Text rs.Fields(4).Value = Text1.

17、Text rs.Fields(5).Value = Text2.Text rs.Fields(6).Value = Text3.Text rs.Update MsgBox "課程添加成功" End If rs.Close conn.Close txtID.Text = "" txtName.Text = "" txtGender.Text = "" txtAddr.Text = "" Text1.Text = "" Text2.Text = "" Text

18、3.Text = "" FrmMainGul.Show End Sub修改院系：代碼如下： Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Public Sub ReShow() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Sou

19、rce=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno", conn, adOpenKeyset Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.Sort = 3 rs.Close conn.Close End Sub Private Sub Form_Load() ReShow End Sub Privat

20、e Sub cmdExit_Click() Unload Me FrmMainGul.Show End Sub Private Sub cmdDel_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Dim str As String conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;

21、" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno where 課程名稱='" & _ MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'", _ conn, adOpenKeyset, adLockOptimistic str = MsgBox("是否真的刪除該信息？", vbYesNo, "警告"

22、) If str = vbYes Then rs.Delete rs.Update End If rs.Close conn.Close ReShow End Sub Private Sub cmdAdd_Click() frmCurAdd.Show End Sub Private Sub cmdModify_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &

23、 _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno where 課程名稱='" & _ MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'", _ conn, adOpenKeyset, adLockOptimist

24、ic frmModifyCls.txtID.Text = rs.Fields(0) frmModifyCls.txtName.Text = rs.Fields(1) frmModifyCls.txtGender.Text = rs.Fields(2) frmModifyCls.txtAddr.Text = rs.Fields(3) frmModifyCls.Text1.Text = rs.Fields(4) frmModifyCls.Text2.Text = rs.Fields(5) frmModifyCls.Text3.Text = rs.Fields(6) rs.Close conn.Cl

25、ose frmModifyCls.ShowEnd Sub查詢院系查詢院系代碼Option Explicit 'Command對象使用演示 Dim conn As ADODB.Connection '定義Connection對象 Dim rs As ADODB.Recordset '定義Recordset對象 Dim cmd As ADODB.Command '定義Command對象Private Sub Command1_Click()Unload MeFrmMainUser.ShowEnd Sub Private Sub Form_Load() cboSele

26、ct.AddItem "課程名稱" cboSelect.AddItem "班號" End Sub Private Sub cmdQuery_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Set cmd = New ADODB.Command conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.

27、Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open cmd.CommandType = adCmdText cmd.ActiveConnection = conn If cboSelect.Text = "課程名稱" Then cmd.CommandText = "select * from clsIno where 課程名稱='" & txtQuery.Text & "'"

28、Else cmd.CommandText = "select * from clsIno where 班號='" & txtQuery.Text & "'" End If Set rs = cmd.Execute Set MSHFlexGrid1.DataSource = rs rs.Close conn.Close End Sub1.登陸頁面設(shè)置窗體的startposition屬性為centerscreen。讓登陸窗口在屏幕的中央顯示。圖4-2 登陸界面“登錄”按鈕代碼：Public Ok As BooleanPubli

29、c guserName As StringPublic guserType As StringDim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As StringPrivate Sub cmdOK_Click(Index As Integer) conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "stu.mdb" sql = "Select * f

30、rom userForm where " If Trim(txtUserName.Text) = "" Then '如果用戶名為空 MsgBox "用戶名不能為空！", vbOKOnly + vbCritical, "錯誤" txtUserName.SetFocus miCount = miCount + 1 '累加輸入次數(shù) Exit Sub End If If Trim(txtPassWord.Text) = "" Then '如果密碼為空 MsgBox "密碼不能為空

31、！", vbOKOnly + vbCritical, "錯誤" txtPassWord.SetFocus Exit Sub End If If Trim(cmbType.Text) = "選擇類別" Then '如果密碼為空 MsgBox "請選擇用戶類別！", vbOKOnly + vbCritical, "錯誤" cmbType.SetFocus Exit Sub End If sql = sql + "userName='" & txtUserName.T

32、ext & "'" sql = sql + " AND Pwd='" & txtPassWord.Text & "'" sql = sql + " AND Type='" & cmbType.Text & "'" rs.Open sql, conn, 1, 1If rs.RecordCount = 1 Then '找到記錄 PName = rs("userName") PWord = rs

33、("Pwd") pType = rs("Type") Unload Me If pType = "管理員" Then FrmMainGul.Show Else FrmMainUser.Show End If Else MsgBox "用戶名或密碼不對！", vbOKOnly + vbInformation, "錯誤" Unload MeEnd IfguserName = Trim(txtPassWord.Text)guserType = Trim(txtPassWord.Text)rs.Clos

34、eSet rs = Nothingconn.CloseSet conn = NothingmiCount = miCount + 1If miCount = 3 Then Me.HideEnd IfExit SubEnd SubPrivate Sub CmdZc_Click(Index As Integer) FrmZcUser.Show Unload MeEnd SubPrivate Sub comExit_Click() Ok = False Me.HideEnd Sub3.注冊頁面我們分為用戶注冊頁面與管理員注冊頁面；用戶注冊頁面打開系統(tǒng)即可注冊，而管理員注冊，我們設(shè)置為只有現(xiàn)有的管理員

35、才能添加（注冊）管理員圖4-3 用戶注冊界面用戶注冊代碼如下：Private Sub cmbType_Change()cmbType.AddItem "普通用戶"cmbType.AddItem "管理員"End SubPrivate Sub CmdHh_Click(Index As Integer)frmlogin.ShowUnload MeEnd SubPrivate Sub CmdRt_Click(Index As Integer)Text1.Text = ""Text2.Text = ""Text3.Text

36、 = ""cmbType.Text = ""End SubPrivate Sub CmdTj_Click(Index As Integer)Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim str As String Dim strI As String conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & &qu

37、ot;stu.mdb" sql = "Select * from userForm where " If Trim(Text1.Text) = "" Then '如果用戶名為空 MsgBox "請輸入真實(shí)姓名", vbOKOnly + vbCritical, "錯誤" Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = "" Then '如果密碼為空 MsgBox "請輸入用戶名", vbOKOn

38、ly + vbCritical, "錯誤" Text2.SetFocus Exit Sub End If If Text2.Text <> Text3.Text Then MsgBox "新密碼與確認(rèn)的密碼不相同", vbOKOnly + vbCritical, "錯誤" Text3.SetFocus Exit Sub End If If cmbType.Text = "選擇類別" Then MsgBox "請選擇用戶類別", vbOKOnly + vbCritical, "

39、;錯誤" Combo1.SetFocus Exit Sub End If sql = sql + "pwd='" & Text1.Text & "'" rs.Open sql, conn, 1, 3 If rs.RecordCount <> 0 Then MsgBox "用戶名已存在" + "重新輸入用戶名", vbOKOnly + vbInformation, "提示" Text2.SetFocus Exit Sub Else strI =

40、 cmbType.Text If strI = "管理員" Then str = MsgBox("您的權(quán)限有限，暫不能注冊成為管理員？", vbYesNo, "提示") If str = vbYes Then Unload Me frmlogin.Show Else Exit Sub End If End If If strI = "普通用戶" Then rs.AddNew rs("userName") = Text1.Text rs("pwd") = Text2.Text

41、rs("Type") = cmbType.Text rs.Update MsgBox "用戶成功添加", vbYesNo, "提示" End If End If Unload Me frmlogin.Show rs.Close Set rs = Nothing conn.Close Set conn = NothingEnd Sub3.主菜單頁面我們也分為用戶界面和管理員界面：用戶界面只能修改自己信息與查詢其他的各種信息，但不能做任何修改，管理可以無限制。圖4-4 主菜單管理員界面的代碼如下：Dim Ok As StringDim c

42、onn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As StringPrivate Sub AddCls_Click()frmClsAdd.ShowUnload MeEnd SubPrivate Sub Addcour_Click()frmCurAdd.ShowUnload MeEnd SubPrivate Sub AddGrd_Click()frmGrdAdd.ShowUnload MeEnd SubPrivate Sub Addstu_Click()Unload MeAddstufrm.ShowEnd Sub

43、Private Sub clgAdd_Click()Unload MeAddClg.ShowEnd SubPrivate Sub CxClg_Click()CxClgfrm.ShowUnload MeEnd SubPrivate Sub End_Click()EndEnd SubPrivate Sub Form_Load()StaBar.Panels.Add (1)StaBar.Panels.Item(1) = 3000StaBar.Panels.Add (2)StaBar.Panels.Item(1).Style = sbrTextStaBar.Panels.Item(2).Style =

44、sbrDateStaBar.Panels.Item(3).Style = sbrTimeStaBar.Panels.Item(1).Text = guserName & "權(quán)限：管理員"End SubPrivate Sub reGrade_Click()XgGrdfrm.ShowUnload MeEnd SubPrivate Sub sjCls_Click()XgClsfrm.ShowUnload MeEnd SubPrivate Sub Sjstu_Click()XgStuFrm.ShowUnload MeEnd SubPrivate Sub userExit_C

45、lick() Ok = False Unload Me frmlogin.ShowEnd SubPrivate Sub userLogining_Click()FrmZc.Show Unload MeEnd SubPrivate Sub XgClg_Click()XgClgfrm.ShowUnload MeEnd SubPrivate Sub XgCour_Click()XgCurfrm.ShowUnload MeEnd SubPrivate Sub XgPwd_Click()frmPassword.ShowUnload MeEnd SubPrivate Sub Xgstu_Click()Xg

46、StuFrm.ShowUnload MeEnd Sub4.院系功能我們接下來僅以介紹院系管理為例，介紹一下我們的一些基礎(chǔ)設(shè)置。分為添加院系、管理院系、查詢院系。而普通用戶只有查詢院系。添加院系： 添加院系代碼如下：Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdCancel_Click() XgClsfrm.Show Unload Me End Sub Private Sub cmdOK_Click() Set conn = New ADODB.Connection Se

47、t rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno", conn, adOpenKeyset, adLockOp

48、timistic rs.AddNew txtName.SetFocus If txtGender.Text = "" Then MsgBox "課程名稱不能為空！" txtGender.SetFocus Exit Sub Else rs.Fields(0).Value = Val(txtID.Text) rs.Fields(1).Value = txtName.Text rs.Fields(2).Value = txtGender.Text rs.Fields(3).Value = txtAddr.Text rs.Fields(4).Value = Te

49、xt1.Text rs.Fields(5).Value = Text2.Text rs.Fields(6).Value = Text3.Text rs.Update MsgBox "課程添加成功" End If rs.Close conn.Close txtID.Text = "" txtName.Text = "" txtGender.Text = "" txtAddr.Text = "" Text1.Text = "" Text2.Text = ""

50、Text3.Text = "" FrmMainGul.Show End Sub修改院系：代碼如下： Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Public Sub ReShow() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data

51、 Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno", conn, adOpenKeyset Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.Sort = 3 rs.Close conn.Close End Sub Private Sub Form_Load() ReShow End Sub Pr

52、ivate Sub cmdExit_Click() Unload Me FrmMainGul.Show End Sub Private Sub cmdDel_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Dim str As String conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from cl