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

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

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

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

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

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

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

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

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

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

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

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

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

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

14、6666666統(tǒng)計報表學員變動學員學籍（三） 代碼設計4.我們接下來僅以介紹院系管理為例，介紹一下我們的一些基礎設置。分為添加院系、管理院系、查詢院系。而普通用戶只有查詢院系。添加院系： 添加院系代碼如下：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.登陸頁面設置窗體的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)即可注冊，而管理員注冊，我們設置為只有現(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 "請輸入真實姓名", 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 "新密碼與確認的密碼不相同", 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("您的權限有限，暫不能注冊成為管理員？", 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 & "權限：管理員"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.院系功能我們接下來僅以介紹院系管理為例，介紹一下我們的一些基礎設置。分為添加院系、管理院系、查詢院系。而普通用戶只有查詢院系。添加院系： 添加院系代碼如下：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