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

1、寧波萬豪2013 年 12 月 29緒論1前言1）作1業(yè)勻匕 冃景1）選題說明1J主要內(nèi)容2、系統(tǒng)分析 2（一） 系統(tǒng)目標2（二） 可行性分析3（三）管理業(yè)務(wù)調(diào)查 41組織結(jié)構(gòu)調(diào)查 42. 功能流程調(diào)查 43數(shù)據(jù)流程調(diào)查6二、系統(tǒng)設(shè)計6（一）新系統(tǒng)的功能結(jié)構(gòu)圖6（二）新系統(tǒng)的流程設(shè)計圖7（三）代碼設(shè)計71登陸頁面183注冊頁面 223. 主菜單頁面274院系功能33三、 總結(jié)43頁腳內(nèi)容10緒論高校學(xué)生信息的管理是一項既重要又繁瑣的工作。我們小組成員通過調(diào)查研究 發(fā)現(xiàn)，學(xué)生學(xué)籍信息管理很是普及，這不僅為學(xué)員、教員提提供了查詢信息的平臺， 還大大提高了信息的獲取速度，有利于對學(xué)員信息的管理。為更

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

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

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

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

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

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

8、指導(dǎo)和相關(guān)參考文獻，特別是網(wǎng)絡(luò)資料。因此我那全可以實現(xiàn)本程序。經(jīng)濟可行性分析：隨著科學(xué)技術(shù)的不斷發(fā)展與創(chuàng)新， 計算機的作用日益突出，計算機軟件成為人 們解決問題的惡一個有效手段，當(dāng)然，他的作用也越來越重要在當(dāng)今信息時代，國 民經(jīng)濟和國防建設(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)進行調(diào)查、類比，本課題具 有的特點：開發(fā)工作量小，可以有兩個合作開發(fā)或一個人對開發(fā)，開發(fā)周期短，有 熟練的開發(fā)人員一

9、個月就可以完成系統(tǒng)的開發(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ā)增強了面向?qū)ο蟮募夹g(shù)，它提供了一個更有效的封裝、管 理、重用和擴展企業(yè)規(guī)則和處理的高層途徑。在數(shù)據(jù)操作方面，選擇靈活、易用的頁腳內(nèi)容3寧波萬豪access200數(shù)據(jù)源。（三）管理業(yè)務(wù)調(diào)查1組織結(jié)構(gòu)調(diào)查隨著學(xué)校的規(guī)模不斷擴大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍 增長。面對龐大的信息量就需要有一個學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作

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

11、據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Acces也提供了數(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ù)庫之一。如上所 述，Acces作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點， 可以在一個數(shù)據(jù)包中同時擁有桌面 數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。系統(tǒng)主要建立了學(xué)生基本信息表、用戶信息表、課程信息表、班級信息表、成績信息表、院系信息表、年級課程設(shè)置表本系統(tǒng)的數(shù)據(jù)庫實體主要有“學(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-F圖表示，如圖所示：圖1總體E-F圖頁腳內(nèi)容10寧波萬豪3數(shù)據(jù)流程調(diào)查系統(tǒng)設(shè)計（一） 新系統(tǒng)的功能結(jié)構(gòu)圖本系統(tǒng)主要包括系統(tǒng)管理、院系管理、學(xué)籍管理、班級管理、課程管理和成績管 理6個大的模塊，各個模塊的具體功能如下圖所示：幫（三）代碼設(shè)計4我們接下來僅以介紹院

13、系管理為例，介紹一下我們的一些基礎(chǔ)設(shè)置。分為添加 院系、管理院系、查詢院系。而普通用戶只有查詢院系。添加院系:添加院系代碼如下：Opti on ExplicitDim conn As ADODB.Co nn ectionDim rs As ADODB .R ecordsetPrivate Sub cmdCa ncel_Click()XgClsfrm.ShowUn load MeEnd SubPrivate Sub cmdOK_Click()頁腳內(nèi)容10寧波萬豪Set co nn = New ADODB.Co nn ectionSet rs = New ADODB.Recordsetconn .

14、Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" & _"Data Source=" & App.Path & "stu.mdb;" & _"Persist Security In fo=False"conn. Ope nrs.Ope n "select * from clslno", conn, adOpe nKeyset, adLockOptimisticrs.AddNewtxtName.

15、SetFocusIf txtGe nder.Text = "" The nMsgBox課程名稱不能為空！"txtGe nder.SetFocusExit SubElsers.Fields(0).Value = Val(txtlD.Text)rs.Fields(1).Value = txtName.Textrs.Fields (2).Value = txtGe nder.Textrs.Fields (3).Value = txtAddr.Text頁腳內(nèi)容9寧波萬豪rs.Fields .Value = Textl.Textrs.Fields (5).Value = T

16、ext2.Textrs.Fields (6).Value = Text3.Textrs.UpdateMsgBox課程添加成功"End Ifrs.Close conn. Close txtID.Text ="" txtName.Text ="" txtGe nder.Text ="" txtAddr.Text ="" Text1.Text ="" Text2.Text ="" Text3.Text ="" FrmMa in Gul.ShowEnd

17、Sub修改院系:代碼如下:Opti on ExplicitDim conn As ADODB.Co nn ectionDim rs As ADODB .R ecordsetPublic Sub ReShow()Set co nn = New ADODB.Co nn ectionSet rs = New ADODB.Recordsetconn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.O;" & _頁腳內(nèi)容10寧波萬豪"Data Source=" & App.Path

18、 & "stu.mdb;" & _"Persist Security In fo=False"conn. Ope nrs.Ope n "select * from clsl no", conn, adOpe nKeysetSet MSHFIexGridl.DataSource = rsMSHFIexGridl.Sort = 3rs.CIoseconn. CloseEnd SubPrivate Sub Form_Load()ReShowEnd SubPrivate Sub cmdExit_Click()Un load M

19、eFrmMa in Gul.ShowEnd SubPrivate Sub cmdDel_Click()Set co nn = New ADODB.Co nn ectio n頁腳內(nèi)容12寧波萬豪Set rs = New ADODB.RecordsetDim str As Stri ngconn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" & _"Data Source=" & App.Path & "stu.mdb;" & _

20、"Persist Security In fo=False"conn. Ope nrs.Ope n "select * from clsl no wher 課程名稱=”'& _MSHFIexGrid1.TextMatrix(MSHFIexGrid1.Row, 2) & "”', _ conn, adOpe nKeyset, adLockOptimisticstr = MsgBox(是否真的刪除該信息？ ", vbYesNo,警告")If str = vbYes The nrs.Deleters.Upda

21、teEnd Ifrs.CIose conn. CloseReShowEnd SubPrivate Sub cmdAdd_Click()frmCurAdd.ShowEnd SubPrivate Sub cmdModify_Click()Set co nn = New ADODB.Co nn ectio nSet rs = New ADODB.Recordsetconn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" & _"Data Source=" & App.P

22、ath & "stu.mdb;" & _"Persist Security In fo=False"conn. Ope nrs.Ope n "select * from clsl no wher 課程名稱=”'& _MSHFIexGrid1.TextMatrix(MSHFIexGrid1.Row, 2) & "”', _conn, adOpe nKeyset, adLockOptimisticfrmModifyCls.txtID.Text = rs.Fields(O) frmModify

23、Cls.txtName.Text = rs.Fields(l) frmModifyCls.txtGe nder.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. Close frmModifyCls.ShowEnd Sub查詢院系查詢院系代碼Opti on Ex

24、plicit'定義Conn ection寸象'定義Recordse對象'定義Comma nd寸象'Comma nc對象使用演示Dim conn As ADODB.Co nn ectionDim rs As ADODB. RecordsetDim cmd As ADODB.Comma ndPrivate Sub Comma nd1_Click()Un load MeFrmMai nUser.ShowEnd SubPrivate Sub Form_Load()cboSelect.Addltem課程名稱"cboSelect.Addltem 班號"E

25、nd SubPrivate Sub cmdQuery_Click()Set co nn = New ADODB.Co nn ectio nSet rs = New ADODB.RecordsetSet cmd = New ADODB.Comma ndconn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" & _"Data Source=" & App.Path & "stu.mdb;" & _"Persist Sec

26、urity In fo=False"conn. Ope ncmd.Comma ndType = adCmdTextcmd.ActiveCo nn ecti on = connIf cboSelect.Text =課程名稱"Thencmd.Comma ndText = "select * from clsl no whe課程名稱='"&txtQuery.Text & "”'Elsecmd.Comma ndText = "select * from clsl no whe班號='"&

27、; txtQuery.Text & "”'End IfSet rs = cmd.ExecuteSet MSHFIexGrid1.DataSource = rsrs.Closeconn .CloseEnd Sub1 .登陸頁面設(shè)置窗體的startposition屬性為centerscreen讓登陸窗口在屏幕的中央顯示。圖4-2登陸界面“登錄”按鈕代碼：Public Ok As Boolea nPublic guserName As Stri ngPublic guserType As Stri ngDim conn As New ADODB.Co nn ectio nD

28、im rs As New ADODB.RecordsetDim sql As StringPrivate Sub cmdOK_Click(l ndex As In teger)conn .Open "Provider=Microsoft .J et.OLEDB.4.O;Data Source=" & App.Path & "stu.mdb" sql = "Select * from userForm where "If Trim(txtUserName.Text) = "" The n '如

29、果用戶名為空MsgBox 用戶名不能為空！ ", vbOK Only + vbCritical,錯誤"txtUserName.SetFocusmiCou nt = miCou nt + 1'累加輸入次數(shù)Exit SubEnd IfIf Trim(txtPassWord.Text) = "" Then '如果密碼為空MsgBox 密碼不能為空！ ", vbOK Only + vbCritical,錯誤"txtPassWord.SetFocusExit SubEnd IfIf Trim(cmbType.Text)=選擇類別

30、"Then '如果密碼為空MsgBox 情選擇用戶類別！ ", vbOK Only + vbCritical,錯誤"cmbType.SetFocusExit SubEnd Ifsql = sql + "userName='" & txtUserName.Text & "”'sql = sql + " AND Pwd='" & txtPassWord.Text & "”'sql = sql + " AND Type='

31、" & cmbType.Text & "'"rs.Ope n sql, conn, 1,1If rs.RecordCou nt = 1 The n'找到記錄PName=rs("userName")PWord =rs("Pwd")pType =rs("Type")Un load MeIf pType ="管理員"ThenFrmMa in Gul.ShowElseFrmMai nUser.ShowEnd IfElseMsgBox 用戶名或密碼不對！ &quo

32、t;, vbOK Only + vbln formatio n,錯誤"Un load MeEnd IfguserName = Trim(txtPassWord.Text)guserType = Trim(txtPassWord.Text)rs.CloseSet rs = Nothi ngconn. CloseSet conn = Noth ingmiCo unt = miCo unt + 1If miCou nt = 3 The nMe.HideEnd IfExit SubEnd SubPrivate Sub CmdZc_Click(l ndex As In teger)FrmZcU

33、ser.ShowUn load MeEnd SubPrivate Sub comExit_Click()Ok = FalseMe.HideEnd Sub3注冊頁面我們分為用戶注冊頁面與管理員注冊頁面；用戶注冊頁面打開系統(tǒng)即可注冊, 管理員注冊，我們設(shè)置為只有現(xiàn)有的管理員才能添加（注冊）管理員圖4-3用戶注冊界面用戶注冊代碼如下:Private Sub cmbType_Cha nge()cmbType.Addltem普通用戶"cmbType.AddItem管理員"頁腳內(nèi)容10寧波萬豪End SubPrivate Sub CmdHh_Click(l ndex As In teg

34、er)frmlogi n.ShowUn load MeEnd SubPrivate Sub CmdRt_Click(l ndex As In teger)Text1.Text =""Text2.Text =""Text3.Text =""cmbType.Text =""End SubPrivate Sub CmdTj_Click(I ndex As In teger)Dim conn As New ADODB.Co nn ectio nDim rs As New ADODB.RecordsetDim sql As

35、StringDim str As Stri ngDim strI As Stri ngconn .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &頁腳內(nèi)容23寧波萬豪"stu.mdb"sql = "Select * from userForm where "If Trim(Textl.Text) = "" The n '如果用戶名為空MsgBox 情輸入真實姓名", vbOKOnly + vbCrit

36、ical,錯誤"Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = "" The n 如果密碼為空MsgBox 情輸入用戶名", vbOKOnly + vbCritical,錯誤"Text2.SetFocusExit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox新密碼與確認的密碼不相同", vbOKOnly + vbCritical,錯誤"Text3.SetFocusExit SubEnd IfIf cmbType.

37、Text =選擇類別"ThenMsgBox 情選擇用戶類別", vbOKOnly + vbCritical,錯誤"Combol.SetFocusExit SubEnd Ifsql = sql + "pwd='" & Text1.Text & "”'rs.Ope n sql, conn, 1,3If rs.RecordCou nt <> 0 The nMsgBox用戶名已存在"+ "重新輸入用戶名", vbOKOnly + vbInformation,"

38、提示"Text2.SetFocusExit SubElsestrI = cmbType.TextIf strI ="管理員"Thenstr = MsgBox（您的權(quán)限有限，暫不能注冊成為管理員？", vbYesNo,提示"）If str = vbYes ThenUn load Mefrmlogi n.ShowElseExit SubEnd IfEnd IfIf strl ="普通用戶"Thenrs.AddNewrs("userName") = Text1.Textrs("pwd") =

39、 Text2.Textrs("Type") = cmbType.Textrs.UpdateMsgBox用戶成功添加”,vbYesNo,提示"End IfEnd IfUn load Me frmlogi n.Show rs.CloseSet rs = Nothi ng conn. CloseSet conn = Noth ingEnd Sub3. 主菜單頁面我們也分為用戶界面和管理員界面：用戶界面只能修改自己信息與查詢其他的各種信息，但不能做任何修改，管理可以無限制。圖4-4主菜單管理員界面的代碼如下：Dim Ok As Stri ngDim conn As New

40、 ADODB.Co nn ectionDim rs As New ADODB.RecordsetDim sql As StringPrivate Sub AddCls_Click()頁腳內(nèi)容10寧波萬豪frmCIsAdd.ShowUn load MeEnd SubPrivate Sub Addcour_Click() frmCurAdd.ShowUn load MeEnd SubPrivate Sub AddGrd_Click() frmGrdAdd.ShowUn load MeEnd SubPrivate Sub Addstu_Click() Un load MeAddstufrm.Show

41、End SubPrivate Sub clgAdd_Click()Un load MeEnd SubPrivate Sub CxClg_Click()CxCIgfrm.ShowUn load MeEnd SubPrivate Sub En d_Click()EndEnd SubPrivate Sub Form_Load()StaBar.Pa nels.Add (1)StaBar.Pa nels.ltem(1) = 3000StaBar.Pa nels.Add (2)StaBar.Pa nels.ltem(1).Style = sbrTextStaBar.Pa nels.Ite m(2) .St

42、yle = sbrDateStaBar.Pa nels.Ite m(3) .Style = sbrTimeStaBar.Panels.ltem(1).Text = guserName權(quán)限：管理員"End SubPrivate Sub reGrade_Click()XgGrdfrm.ShowUn load MeEnd SubPrivate Sub sjCls_Click()XgClsfrm.ShowUn load MeEnd SubPrivate Sub Sjstu_Click()XgStuFrm.ShowUn load MeEnd SubPrivate Sub userExit_Cl

43、ick()Ok = FalseUn load Mefrmlogi n.ShowEnd SubPrivate Sub userLog inin g_Click()Un load MeEnd SubPrivate Sub XgClg_Click()XgClgfrm.ShowUn load MeEnd SubPrivate Sub XgCour_Click()XgCurfrm.ShowUn load MeEnd SubPrivate Sub XgPwd_Click() frmPassword.ShowUn load MeEnd SubPrivate Sub Xgstu_Click()XgStuFrm

44、.ShowUn load MeEnd Sub頁腳內(nèi)容10寧波萬豪4. 院系功能我們接下來僅以介紹院系管理為例，介紹一下我們的一些基礎(chǔ)設(shè)置。分為添加院 系、管理院系、查詢院系。而普通用戶只有查詢院系。添加院系：添加院系代碼如下：Opti on ExplicitDim conn As ADODB.Co nn ectionDim rs As ADODB .R ecordsetPrivate Sub cmdCa ncel_Click()XgClsfrm.Show頁腳內(nèi)容33寧波萬豪Un load MeEnd SubPrivate Sub cmdOK_Click()Set co nn = New ADO

45、DB.Co nn ectio nSet rs = New ADODB.Recordsetconn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" & _"Data Source=" & App.Path & "stu.mdb;" & _"Persist Security In fo=False"conn. Ope nrs.Ope n "select * from clslno", conn

46、, adOpe nKeyset, adLockOptimisticrs.AddNewtxtName.SetFocusIf txtGe nder.Text = "" The nMsgBox課程名稱不能為空！"txtGe nder.SetFocusExit SubElsers.Fields(0).Value = Val(txtlD.Text)頁腳內(nèi)容34寧波萬豪rs.Fields(1).Value = txtName.Textrs.Fields (2).Value = txtGe nder.Textrs.Fields (3).Value = txtAddr.Textr

47、s.Fields .Value = Textl.Textrs.Fields (5).Value = Text2.Textrs.Fields (6).Value = Text3.Textrs.UpdateMsgBox課程添加成功"End If rs.Closeconn. Close txtID.Text ="" txtName.Text ="" txtGe nder.Text ="" txtAddr.Text ="" Text1.Text =""Text2.Text ="&qu

48、ot;Text3.Text =""FrmMa in Gul.ShowEnd Sub修改院系：代碼如下：Opti on ExplicitDim conn As ADODB.Co nn ectionDim rs As ADODB .R ecordsetPublic Sub ReShow()Set co nn = New ADODB.Co nn ectio nSet rs = New ADODB.Recordsetconn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" & _

49、"Data Source=" & App.Path & "stu.mdb;" & _"Persist Security In fo=False"conn. Ope nrs.Ope n "select * from clsl no", conn, adOpe nKeysetSet MSHFIexGridl.DataSource = rsMSHFIexGridl.Sort = 3rs.CIoseconn. CloseEnd SubPrivate Sub Form_Load()ReShowEnd

50、SubPrivate Sub cmdExit_Click()Un load MeFrmMa in Gul.ShowEnd SubPrivate Sub cmdDel_Click()Set co nn = New ADODB.Co nn ectio nSet rs = New ADODB.RecordsetDim str As Stri ngconn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" & _"Data Source=" & App.Path &

51、 "stu.mdb;" & _"Persist Security In fo=False"conn. Ope nrs.Ope n "select * from clsl no wher 課程名稱=”'& _MSHFIexGrid1.TextMatrix(MSHFIexGrid1.Row, 2) & "”', _ conn, adOpe nKeyset, adLockOptimisticstr = MsgBox(是否真的刪除該信息？ ", vbYesNo,警告")If str

52、= vbYes The nrs.Deleters.UpdateEnd Ifrs.Closeconn. CloseReShowEnd SubPrivate Sub cmdAdd_Click()frmCurAdd.ShowEnd SubPrivate Sub cmdModify_Click()Set co nn = New ADODB.Co nn ectio nSet rs = New ADODB.Recordsetconn .Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" & _"Da

53、ta Source=" & App.Path & "stu.mdb;" & _"Persist Security In fo=False"conn. Ope nrs.Ope n "select * from clsI no wher 課程名稱=”'& _MSHFIexGrid1.TextMatrix(MSHFIexGrid1.Row, 2) & "”', _conn, adOpe nKeyset, adLockOptimisticfrmModifyCls.txtID.T

54、ext = rs.Fields(O) frmModifyCls.txtName.Text = rs.Fields(1) frmModifyCls.txtGe nder.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. Close frmModifyCls.ShowEnd Sub查詢院系查詢院系代碼Opti on Explicit'定義Conn ecti