1、學生信息管理系統論文目 錄內容摘要：關鍵詞：1、 開發方法的選擇11相關技術與開發工具介紹111 Windows下的Visual Basic 編程環境介紹112 系統常用的名詞113開發工具Visual Basic的使用12 怎樣開發一個學生信息管理系統的查詢模塊121查詢模塊的設計分析122編程環境的選擇123關系型數據庫的實現124 ADO的引用13 使用Access2003 實現關系型數據庫131. 數據庫的概念132 . 新建一個數據庫133 . 修改已建的數據庫134 . 實現數據庫之間的聯系14

2、0;硬件開發環境2、 可行性分析3、 系統總體規劃3.1 系統功能3.2學生信息的設置與瀏覽4、 系統詳細設計4.1 系統子模塊功能概括4.2 用戶界面的實現4.2.1登錄界面4.2.2 主界面4.2.3 系統管理界面4.2.4 學生學籍管理界面4.2.5 班級管理界面4.2.6 成績管理界面4.2.7 專業課程管理界面4.2.8 宿舍管理界面4.2.9 幫助界面4.3 數據庫的實現4.3.1 學生基本信息數據庫(xsXJ)4.3.2 班級數據庫(xsBJ

3、)4.3.3 成績數據庫(xsScore)4.3.4 專業數據庫(xsZY)4.3.5 課程數據庫(xsKC)4.3.6 宿舍數據庫(xsSS)4.3.7 用戶數據庫(xsS)4.4 系統的特點4.5 目前存在的問題及改進意見參考文獻5、謝辭內容摘要： 學生信息管理系統是典型的信息管理系統(MIS),其開發主要包括后臺數據庫的建立和維護以及前臺應用程序的開發兩個方面。對于前者要求建立數據的一致性和完整性強、數據安全性好的數據庫；而對于后者則要求應用程序功能完備,易使用等特點。    經過分析,我

4、們使用Microsoft公司的 Visual Basic開發工具,利用其提供的各種面向對象的開發工具,尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象,首先在短時間內建立系統應用原型,然后,對初始原型系統進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統。本文介紹了在Visual Basic6.0環境下采用“自上而下地總體規劃，自下而上地應用開發”的策略開發一個管理信息系統的過程。通過分析某一學校學生管理的不足，創建了一套行之有效的計算機管理學生的方案。文章介紹了學生管理信息系統的系統分析部分，包括可行性分析、業務流程分析等；系統設計部分主要介紹了系統功能設計和數據庫設計及代碼設計；

5、系統實現部分說明了幾個主要模塊的算法,本系統界面友好，操作簡單，比較實用。關鍵詞：學生信息、管理、分析、設計、實現、ADO。1、 開發方法的選擇本章主要介紹了在程序、系統開發過程中所用到的軟件和硬件環境，以及各類工具在windows2000環境下的安裝與調試。11相關技術與開發工具介紹本系統采用面向對象的軟件開發辦法，以Microsoft公司的可視開發環境 Visual Basic6.0 作為主要開發工具，使用Microsoft Office Access 2003 作為關系數據庫，并為VB編程語言中采用ADO數據庫編程模型，配合功能強大的SQL查詢語言實現建立關系數據庫，訪問數據庫，對數據庫

6、的更新，較好地實現了預定的需求功能。111 Windows下的Visual Basic 編程環境介紹1 、面對對象的編程面向對象的設計方法 (OOP, Objected Programming) 從應用領域內的問題著手，以直觀自然的方式描述客觀世界的實體。Visual Basic 作為一種面向對象的編程方法，把程序和數據封裝起來作為一個對象，并為每個對象賦予相應的屬性。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，由 Visual Basic 自動生成對象的程序代碼并封裝起來。Visual Basic 應用程序基本的構建塊是用戶所創建的對象，每一個對象都具有一些特性

7、和行為（屬性、事件和方法）。開發人員可以最有效利用所創建的每一個對象。使用應用程序具有可通用性、可擴展性和強有力的功能。Visual Basic 應用由一系列對象組成，包括有函數、菜單、結構和數據窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應用中重復使用。2 、實現菜單選項菜單是程序最重要的特性之一，大多數程序都依賴一個定義良好的菜單使程序易于使用和維護，Visual Basic 也提供了強大的創建菜單功能是程序更加標準。本系統使用 Visual Basic 的菜單編輯器建立菜單或者修改已經存在的菜單，您也可以使用Visual Basic

8、的Application Wizard 來操作。3、 實現工具欄CoolBar控件與Office2000 中看到的CoolBar是類似的。CoolBar就是一個可以在窗體上浮動的工具，同時也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你也可以向用戶提供更好的靈活性和易用性。選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。本系統就用了Cool工具中的Statubar控件，在系統這一界面中，添加了狀態欄，在第一個欄中，在樣式這一欄中選擇了文本，在

9、第二個欄中，選擇了系統日期，第三個欄中選擇了系統時間，這樣，任何時候操作本系統，都可以看到當前的時間和日期。112 系統常用的名詞 Visual Basic 系統除了一般高級語言所具有的一些名詞術語外，還有幾個系統常用的名詞。其基本含義如下：1、視窗（Form）視窗是進行人機交互的界面或接口，也叫窗體。VB系統的人機交互界面或接口，無論是在設計時或是在運行時，都是Windows 系統的標準視窗。2、對象 (Object)對象是VB系統內部提供給設計者可以直接使用的處理輸出的控制工具。本程序所應用到的對象類型有標簽框 (LabelBox)，文本框 (TextBox)，命令按扭 (Com

10、mand Button)，網格 (Data Grid)，ADO控件 (Adodb)等。當把這些工具放置到用戶界面對應的窗體上時，被稱為對象或控件。用戶可以通過設置對象的“屬性”和“方法” ，便于對象適應自己所設計應用程序的輸入輸出內容，對象的生成過程及結構都被封裝起來。正確使用對象可以減少程序的開發時間，提高程序設計者的工作效率。3、屬性 (Properties)屬性是VB系統提供的有關對象的參數或數據接口。用戶通過適當地設置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統提供的對象。比如，對象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數據內容及數據的表現格式等。4、事

11、件 (Events)事件是指用戶或操作者對計算機進行的某一操作（如擊鍵、單擊或移動鼠標等）的行為或系統狀態發生的變化。VB系統常用事件來引導計算機執行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標事件有Click（單擊鼠標）事件，DbDlicd（雙擊鼠標）。5、方法 (Method)方法主要是指對一個對象使用某種作用的過程。它是在程序執行的過程中要計算機執行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。6、過程 (Procedure)過程是指經過定義或說明的，或基于某一對象對應的事件所引發

12、的程序段。7、模塊 (Module)模塊是指一些運算量或過程進行聲明或定義的一個集合。系統程序大體可分成四個模塊：數據輸入、數據查詢、數據更新和數據打印。113開發工具Visual Basic的使用使用Visual Basic 的菜單編輯器即可建立菜單或者修改已經存在的菜單。由于大家對菜單等的使用已駕輕就熟，現著重對主要控件的使用作個介紹：首先，選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“Microsoft Windows Common Controls 6.0”，然后，在工具箱中增加該控件，即可實現控件的添加。12 怎樣開發一個學生信息管理系統的查詢

13、模塊121查詢模塊的設計分析根據實際情況，我們使用原型法(Rapid Prototyping) 即以少量代價快速地構造一個可執行的軟件模型。使用戶可以較快地確定需求，然后采用循環進化的開發方式，對系統模型作連續的精化，將系統需具備的性質逐漸增加上去，直到所有的性質全部滿足。此時模塊也發展成為最終產品了。122編程環境的選擇微軟公司的Visual Basic 6.0是Windows應用程序開發工具，使目前最為廣泛的、易學易用的面向對象的開發工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的

14、運行效率和可靠性。故而，實現本系統VB是一個相對較好的選擇。123關系型數據庫的實現Microsoft Office Access 2003 就是關系數據庫開發工具，數據庫能匯集各種信息以供查詢、存儲和檢索。Access的優點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于Excel的電子表格，可以使數據庫一目了然。另外，Access允許創建自定義報表用于打印或輸出數據庫中的信息。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他用戶共享數據庫。Access 是一種關系數據庫工具，關系數據庫是已開發的最通用的數據庫之一。如上所述，

15、Access作為關系數據庫開發具備了許多優點，可以在一個數據包同時擁有桌面數據庫的便利和關系數據庫的強大功能。124 ADO的引用微軟的JET數據庫引擎提供了與數據庫打交道的途徑，我們是通過它以及Visual Basic來訪問數據庫并對其進行各種操作。Visual Basic、Access以及其他微軟的軟件產品都是通過共用JET數據庫引擎，從而給用戶提供了豐富的數據類型。ADO微軟公司的ADO (ActiveX Data Objects) 是一個用于存取數據源的COM組件。它提供了編程語言和統一數據訪問方式OLE DB的一個中間層。允許開發人員編寫訪問數據的代碼而不用關心數據庫是如何實現的，而

16、只用關心到數據庫的連接。訪問數據庫的時候，關于SQL的知識不是必要的，但是特定數據庫支持的SQL命令仍可以通過ADO中的命令對象來執行。13 使用Access2003 實現關系型數據庫131. 數據庫的概念數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息。簡而言之，數據庫就是信息的集合。計算機的數據庫可以分為兩類：非關系型數據庫（flat-file）和關系型數據庫（relational）。關系型數據庫中包含了多個數據表的信息，數據庫含有各個不同部分的術語，如記錄等。132 . 新建一個數據庫創建任何一個數據庫的第一步是仔細的規劃數據庫，設計必須是靈活的、有邏輯的。創建

17、一個數據庫結構的過程被認為是數據模型設計。（1）標識需要的數據；（2）收集被子標識的字段到表中；（3）標識主關鍵字字段；（4）規范數據；（5）標識指定字段的信息；133 . 修改已建的數據庫數據庫的修改分為添加、編輯和刪除記錄。這三種操作均可由Visual Basic創建的程序來完成。134 . 實現數據庫之間的聯系數據庫之間的關系是指兩個庫之間共享一個共同的關鍵字值。一個鏈接是指一種虛擬的表，這種表是在當用戶要求從相互關聯的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。數據庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于

18、描述庫表示什么以及在數據庫中如何與其它的庫建立關系。14 硬件開發環境所用的機器硬件配置是： 奔騰3處理器，主頻400HZ;128M內存，10G硬盤。2、 可行性分析通過調查分析，建立新的學生信息管理信息系統有其充分的必要性和可能性。可以建立該信息系統的可能性具體包含了它具有經濟可行性、技術可行性和社會可行性，新系統能達到以最小的開發成本取得最佳的經濟效益，開發中所需人員、硬軟件支持以及其它費用進行估算情況均滿意，技術條件也能保證順利完成開發工作。學生信息管理系統所采用的語言是Visual Basic，用Microsoft Office Access 2003數據庫完成。該系統總體有三部分組成

19、，包括學生信息管理、系統管理及幫助。通過本系統，把需要查詢學生信息的各個環節進行有效地計劃、組織和控制。通過處理信息，依據統一數據信息進行管理，把任何一塊信息所產生的數據變動及時地反映給其它相關信息，做到數據共享。本系統主要信息流程為：學生信息查詢根據教務信息維護的學生信息做出對所接收的信息合理性進行判斷，并交于信息維護進行相應的修改，再把信息存入數據庫中，最后進行打印。采用本系統，能夠使整個系統內部所有信息的工作簡化，提高工作效益。由于采用統一的數據信息，使相關資料能夠快速地查詢所需的數據、資料及其它的信息，使信息快速高效運行。3、 系統總體規劃3.1 系統功能本系統主要功能有：1

20、.      學生基本信息的添加2.      學生基本信息的查詢3.      班級管理信息的查詢4.      學生課程信息的添加與修改5.      學生課程信息的查詢6.      學生成績信息的添加與修改7.      學生成績信息的查詢與

21、瀏覽3.2學生信息的設置與瀏覽4、 系統詳細設計4.1 系統子模塊功能概括該學生信息管理系統包括系統管理模塊、學生信息管理模塊。其中學生信息管理模塊又包括學生學籍管理模塊、班級管理模塊、成績管理模塊、專業課程管理模塊、宿舍管理模塊。本系統具有如下功能：系統管理：包括添加用戶，修改密碼，退出；學生學籍管理：包括信息添加，信息瀏覽，信息查詢；班級管理：包括班級瀏覽，添加班級，班級查詢；成績管理：包括成績添加，成績瀏覽，成績查詢；專業課程管理：包括基本課程設置，班級課程設置；打印報表： 包括學生學籍信息報表，學生成績信息報表；幫助：包括關于系統，幫助文件；退出：退出整個系統。4.2

22、0;用戶界面的實現4.2.1登錄界面首先，系統的界面是至關重要的。它是與用戶溝通的橋梁，用戶工作時要時時面對它，所以界面一定要簡潔、直觀，操作簡單。本系統界面的登錄口令根據選擇的相應用戶和對應的口令進入系統，進行相應的操作。若密碼錯誤，則彈出“輸入密碼不正確，請重新輸入！”對話框。4.2.2 主界面密碼無誤，正確登錄后會看到主界面。4.2.3 系統管理界面如果要添加新的用戶名，輸入用戶名和密碼（兩次一樣）輸入后，點擊確定就注冊成功了，從此你就擁有了自己的帳戶，此記錄已經存入數據庫，以后直接輸入就可以登陸了！學生信息管理部分包括學生學籍管理、班級管理、課程管理、成績管理。而每一部分都包括對該部分

23、信息的添加、瀏覽、查詢、修改、刪除。其實現過程是相似的。我們以學生學籍管理為例，介紹其實現過程。4.2.4 學生學籍管理界面在學生信息管理的添加界面中，我們先通過變量傳遞得到輸入的學號，然后進行判斷。首先程序先對輸入的學號進行判斷，若已存在，則給出提示信息，若不存在，則顯示所要添加的內容。輸入學生信息后，我們將信息加入到數據庫中，可以使用下面程序完成：Private Sub cmdADD_Click()         If Trim(txtUser0(0).Text = "" Or

24、txtUser1(1).Text = "" Or txtUser2(2).Text = "") Then  MsgBox "請輸入完整的信息！", vbOKOnly + vbQuestion, "提示"   txtUser0(0).SetFocusExit SubEnd IfIf DataCombo4.Text = "" Or DataCombo5.Text = "" Then MsgBox "請選擇學生專業和班級！"

25、;, vbOKOnly + vbQuestion, "提示": Exit SubIf DataCombo1.Text = "" Then MsgBox "請選擇學生的政治面貌!", vbOKOnly + vbQuestion, "提示": txtMianmao.SetFocus: Exit SubIf Not (Optm Or Optw) Then MsgBox "請選擇學生的性別！", vbOKOnly + vbQuestion, "提示": Exit Subinputxs

26、_Info                End Sub另外，對于記錄查找,可以使用下面程序來完成：Private Sub cmdXJfind_Click()               '查詢按鈕的代碼實現If Opt1.Value And Trim(Text1.Text = "

27、") Then MsgBox "請輸入學生學號！", vbOKOnly + vbInformation, "提示": Text1.SetFocus: Exit SubIf Opt2.Value And Trim(Text2.Text = "") Then MsgBox "請輸入學生姓名！", vbOKOnly + vbInformation, "提示": Text2.SetFocus: Exit SubIf Check1.Value And DataCombo7.Text = &quo

28、t;" Then MsgBox "請選擇班級！", vbOKOnly + vbInformation, "提示": DataCombo7.SetFocus: Exit SubIf Opt1.Value = False And Opt2.Value = False And Check1.Value = False Then MsgBox "請選擇查詢條件！", vbOKOnly + vbInformation, "提示"xsXJfind_infoEnd SubSub xsXJfind_info()Dim t

29、xtSQL As StringIf Opt1.Value ThenIf Check1.Value Then txtSQL = "select * from xsXJ Where 學號='" & Trim(Text1.Text) & "'" & "and 班級='" & Trim(DataCombo7.Text) & "'"ElsetxtSQL = "select * from xsXJ Where 學號='"

30、; & Trim(Text1.Text) & "'"End IfElseIf Check1.Value Then     '按姓名模糊查詢txtSQL = "select * from xsXJ Where 姓名 like'" & "%" & Trim(Text2.Text) & "%" & "'" & " and 班級='" & T

31、rim(DataCombo7.Text) & "'"ElsetxtSQL = "select * from xsXJ Where 姓名 like'" & "%" & Trim(Text2.Text) & "%" & "'"End IfEnd If'Set rs = New ADODB.Recordsetrs.Closers.Open txtSQL, conn, 1, 1If rs.EOF = False Thenrs.Mov

32、eFirstSet DataGrid2.DataSource = rsDataGrid2.RefreshSet Text8.DataSource = rsSet Text9.DataSource = rsSet Text10.DataSource = rsSet Text11.DataSource = rsSet Text12.DataSource = rsSet DataCombo8.DataSource = rsSet DataCombo9.DataSource = rsSet DataCombo10.DataSource = rsSet DataCombo11.DataSource =

33、rsSet DataCombo12.DataSource = rsElseMsgBox "沒有找到符合條件的記錄！請重新輸入查詢條件！", vbOKOnly + vbInformation, "提示"End IfEnd Sub對于記錄刪除，可以使用下面程序：Private Sub Command12_Click()   i = MsgBox("是否真的刪除該學生的學籍！", vbYesNo + vbInformation, "提示")On Error Resume NextIf i =

34、 vbYes Then rsXJ.Delete DoEvents rsXJ.MoveFirst DataGrid3.RefreshEnd IfEnd Sub4.2.5 班級管理界面班級管理模塊有添加班級信息、修改查詢班級信息、注銷班級三項功能，其中班級查詢修改界面中有按班級名稱和按輔導員查詢的功能。1.    添加班級添加班級中可添加班級名稱，選擇班級所屬院系、輔導員，班級上自習所在的教室和班級班級人數。其中，教室編號必須是唯一的且，以確保班級的唯一性。檢查輸入無誤后點擊添加按鈕，彈出對話框，按確定即可將數據添加到數據庫，網

35、格中的指針指到新添加的數據處。2.班級查詢與班級修改點擊要查詢或輸入的單選按鈕進行條件選擇，點擊“查詢”即可。要修改值接網格內選擇，然后在文本框內修改確認。 3.注銷班級    點擊“上一條”或者“下一條”進行選擇將要注銷的班級，然后點擊“注銷”命令按鈕即可。代碼如下：    Private Sub Command5_Click() '注銷班級i = MsgBox("是否確認要刪除該班級信息！", vbYesNo + vbInformation, "提示")On Er

36、ror Resume Next If i = vbYes Then '如果選擇為是     rsBJ.Delete     rsBJ.Update     DataGrid3.Refresh End If End Sub班級模塊首先定義局部變量，其代碼如下：Private conn As ADODB.Connection    '定義通用變量Private rsZY As ADODB.Recordse

37、tPrivate rsBJ As ADODB.RecordsetPrivate rs As ADODB.RecordsetPrivate rsKC As ADODB.RecordsetPrivate rsFDY As ADODB.RecordsetPrivate rsYX As ADODB.Recordset輸入添加信息后，“添加”按鈕代碼如下：Private Sub cmdADD_Click()If Trim(Text1.Text = "") Or Trim(DataCombo4.Text = "") Or Trim(DataCombo1.Text =

38、 "") Or Trim(Text4.Text = "") ThenMsgBox "請輸入完整的班級信息！", vbOKOnly + vbQuestion, "提示": If Text1.Text = "" Then Text1.SetFocus Else If DataCombo1.Text = "" Then DataCombo1.SetFocus Else If DataCombo4.Text = "" Then DataCombo4.SetFocu

39、s Else If Text4.Text = "" Then Text4.SetFocus:Exit SubElseaddClassInfo '添加班級End IfEnd SubSub addClassInfo()Dim txtSQL As String      '定義查詢字符串變量txtSQL = "select *from xsBJ where 班級名稱='" & Trim(Text4.Text) & "'"  '

40、在班級表中查找是否有與輸入相對應的數據Set rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.Open txtSQL, conn, 2, 3 ' 打開方式 2為可讀寫,當前數據記錄可自由移動。3為樂觀鎖定 ，直到用Update方法提交更新記錄時才鎖定記錄If rs.EOF = False Then  MsgBox "名為：" & Text4.Text & "  的班級已經分配，請檢查后重新輸入！", vbOKOnly + vbInformati

41、on, "提示"              '不可輸入班級名稱重復的項  Text4.Text = ""  Text4.SetFocusElse  Set rs = New ADODB.Recordset        '打開學生表  rs.CursorLocation = adUseClient

42、60; rs.Open "xsScore", conn, 2, 3rsBJ.AddNew   '添加新信息 rsBJ.Fields(0) = Trim(Text1.Text) rsBJ.Fields(1) = Trim(DataCombo1.Text) rsBJ.Fields(2) = Trim(DataCombo4.Text) rsBJ.Fields(3) = Trim(Text4.Text) rsBJ.Fields(4) = Trim(Text5.Text)  rsBJ.U

43、pdate   '更新到數據庫 DataGrid1.Refresh DataGrid2.Refresh DataGrid3.Refresh rsBJ.MoveLast MsgBox "班級添加成功！", vbOKOnly + vbInformation, "提示" Text1.Text = "": DataCombo4.Text = "": Text4.Text = "": Text5.Text = &quo

44、t;": Text1.SetFocusEnd IfEnd Sub4.2.6 成績管理界面成績管理界面打印學生成績。其中包括成績添加、成績查詢修改、成績打印和注銷學生成績功能。其中成績添加、成績修改查詢和注銷學生成績與上面所述的班級管理非常類似，這里不再重復。值得注意的是，在添加學生成績中。可以添加一個學生的多門課程成績，此時，學號可以重復輸入，其他情況下嚴禁輸入相同的的學號。成績模塊首先定義局部變量，其代碼如下：Private conn As ADODB.Connection '模塊公共鏈接Private rsScore As ADODB.Recordset 

45、9;模塊共用記錄集Private rsZY As ADODB.RecordsetPrivate rsKC As ADODB.RecordsetPrivate rs As ADODB.RecordsetPrivate rsBJ As ADODB.RecordsetPrivate rsXJ As ADODB.Recordset 在打印成績界面的“導出Excell”按鈕其代碼如下：Private Sub Command8_Click()             '

46、導出Excellt = MsgBox("即將在 D 盤上導出Excel表！", vbYesNo + vbInformation, "提示")If t = vbYes ThenIf Dir("D:Excel", vbDirectory) = "" Then   '判斷文件夾是否為空，若為空，則新建Excel文件夾MkDir ("D:Excel")End IfIf Dir("D:Excel Excel.xls") <> "&quo

47、t; Then   '判斷該文件是否存在，若存在，則刪除該文件Kill ("D:Excel(Excel.xls")End IfDim i As IntegerDim j As IntegerDim xlExcel As New Excel.Application    Dim xlBook As New Excel.WorkbookDim xlSheet As New Excel.WorksheetSet xlBook = xlExcel.Workbooks.AddSet xlSheet = xlExcel.Work

48、sheets.AddxlSheet.Cells.Columns(7).ColumnWidth = 20 '定義單元格寬度xlSheet.Cells(1, 1) = "學號"  '單元格賦值xlSheet.Cells(1, 2) = "姓名"xlSheet.Cells(1, 3) = "專業"xlSheet.Cells(1, 4) = "課程"xlSheet.Cells(1, 5) = "成績"xlSheet.Cells(1, 6) = "班級"xlS

49、heet.Cells(1, 7) = "自動編號"For i = 2 To rs.RecordCount + 1For j = 1 To rs.Fields.CountxlSheet.Cells(i, j) = rs.Fields.Item(j - 1).ValueNext jrs.MoveNextNext iMsgBox "導出成功！", vbOKOnly + vbInformation, "提示":ElseExit SubEnd IfEnd Sub 4.2.7 專業課程管理界面專業課程管理模塊中的專業設置界面主要包括專業

50、添加,修改,專業刪除功能。其中專業添加、修改、查詢與上面所述的班級管理、學生學籍管理的添加、瀏覽、查詢非常類似.1.      專業設置此模塊主要功能是對學校新增的專業或已有的專業進行修改,刪除.該模塊有三個命令按鈕,分別為:“添加”,“修改”,“刪除”,所有程序設計只圍繞著這三個命令按鈕.其“添加”事件的代碼主要完成對新添專業的添加. 我們先通過變量傳遞得到輸入的專業編號，然后進行判斷。若已存在，則給出提示信息，若不存在，則顯示所要添加的內容。輸入學生信息后，我們將信息加入到數據庫中.其事件代碼如下:Private Sub cmdZYadd_

51、Click()      '添加If Trim(txtZYname.Text) = "" Or Trim(DataCombo1.Text) = "" Then MsgBox "請輸入完整信息!", vbOKOnly + vbQuestion, "提示": Exit SubDim txtSQL As StringtxtSQL = "select *from xsZY where 專業名稱='" & Trim(txtZYnam

52、e.Text) & "'"Set rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.Open txtSQL, conn, 1, 1If Not rs.EOF ThenMsgBox "數據庫中已經存在該專業,請修改!", vbOKOnly + vbQuestion, "提示"txtZYname.Text = ""txtZYname.SetFocusElsersZY.AddNew '數據庫中如果沒有該記錄,則添加該記錄rsZY.F

53、ields(0) = Trim(txtZYbh.Text)rsZY.Fields(1) = Trim(txtZYname.Text)rsZY.Fields(2) = Trim(DataCombo1.Text)rsZY.UpdateDataGrid1.RefreshMsgBox "信息添加成功!", vbOKOnly + vbInformation, "提示"txtZYname.Text = "": DataCombo1.Text = "": txtZYbh.Text = ""End IfEnd

54、Sub其“修改”事件的代碼主要用來對新增的專業和已有的專業進行修改.其事件代碼如下:Private Sub cmdZYcha_Click()  '修改If txtZYinfo.Text = "" And txtZYyuaninfo.Text = " " ThenMsgBox "對不起，表中記錄為空，請先增加記錄！", vbOKOnly + vbInformation, "提示信息 "cmdZYcha.Enabled = FalseElseIf cmdZYcha.Caption = "修改

55、" Then          '開始修改記錄txtZYbhinfo.Locked = False            '恢復各控件的可用性txtZYyuaninfo.Locked = FalsetxtZYinfo.Locked = FalsecmdZYcha.Caption = "確定"     &

56、#160; '當用戶單擊“新增”按鈕后，其caption的屬性改為確定，用來詢問用戶是否真的增加記錄On Error Resume Nextanswer = MsgBox("是否修改該條記錄？", vbYesNo + vbInformation, "提示信息")If answer = vbYes ThenrsZY.Update                 '更新新生入學信Dat

57、aGrid1.RefreshrsZY.Fields(0) = Trim(txtZYbhinfo.Text) '修改數據記錄rsZY.Fields(1) = Trim(txtZYinfo.Text)rsZY.Fields(2) = Trim(txtZYyuaninfo.Text)txtZYbhinfo.Locked = False       '當用戶開始增加記錄時，恢復各個按鈕的屬性txtZYinfo.Locked = FalsetxtZYyuaninfo.Locked = FalseElseMsgBox "

58、您沒有修改本條記錄！", vbInformation, "修改信息提示 "    ' 如果用戶沒有對本記錄做任何修改，系統將對用戶"進行提示操作rsZY.CancelUpdatecmdZYcha.Caption = "修改"End IfElseMsgBox "真的要修改本記錄嗎？", vbInformation, "修改記錄提示"    '再次提示用戶是否真的修改該記錄cmdZYcha.Caption = "修

59、改"   '恢復“修改記錄”的caption的屬性End IfExit SubEnd IfEnd Sub其刪除事件的代碼主要完成對新增的專業和已有的專業進行刪除.其事件代碼如下:Private Sub cmdZYdel_Click()  '刪除On Error Resume Nexti = MsgBox("確認要刪除專業嗎?", vbYesNo + vbInformation, "提示")If i = vbYes Then   rsZY.Delete   rs

60、ZY.MoveFirstEnd IfEnd Sub2.      課程設計此模塊的主要功能是對新增的課程完成輸入,對已有的課程進行修改和刪除.該模塊有三個命令按鈕,分別為:“添加”,“修改”,“刪除”,該模塊需在完成的程序設計只有這三個命令按鈕. 其添加事件的代碼主要完成對新增課程的添加,其事件代碼如下:Private Sub Command1_Click()         '添加If Trim(Text2.Text) = "" The

61、n MsgBox "請輸入完整的課程名稱!", vbOKOnly + vbInformation, "提示": Exit Sub   Dim txtSQL As String   txtSQL = "select *from xsKC where 課程名稱='" & Trim(Text2.Text) & "'"   Set rs = New ADODB.Recordset   rs.CursorLocat

62、ion = adUseClient   rs.Open txtSQL, conn, 1, 1   If Not rs.EOF Then      MsgBox "數據庫中已經存在該課程!", vbOKOnly + vbInformation, "提示"      Text2.Text = ""      Text2.SetFocus &#

63、160; Else      rsKC.AddNew               '添加新記錄并添加新數據      rsKC.Fields(0) = Trim(Text2.Text)      rsKC.Fields(1) = txtzyopt1.Text   

64、0;  rsKC.Update      DataGrid2.Refresh      MsgBox "課程已經添加成功!", vbOKOnly + vbInformation, "提示"      Text2.Text = ""      txtzyopt1.Text = ""  

65、60;   Text2.SetFocus   End IfEnd Sub其修改事件代碼主要完成對新增的課程和已有的課程進行修改,其事件代碼如下:Private Sub Command3_Click()If Text4.Text = "" And txtZYopt2.Text = " " Then    MsgBox "對不起，表中記錄為空，請先增加記錄！", vbOKOnly + vbInformation, "提示信息 "  

66、;  cmdZYcha.Enabled = FalseElse   If Command3.Caption = "修改" Then        '開始修改記錄      Text4.Locked = False           '恢復各控件的可用性     

67、 txtZYopt2.Locked = False      'txtZYinfo.Locked = False Command3.Caption = "確定"       '當用戶單擊“新增”按鈕后，其caption的屬性改為確定，用來詢問用戶是否真的增加記錄 On Error Resume Next answer = MsgBox("是否修改該條記錄？", vbYesNo + vbInformat

68、ion, "提示信息")If answer = vbYes Then   rsKC.Update     '更新新生入學信   DataGrid2.Refresh   rsKC.Fields(0) = Trim(Text4.Text) '修改數據記錄   rsKC.Fields(1) = Trim(txtZYopt2.Text)   'rsKC.Fields(2) = Trim(txtZYyuaninfo.Tex

69、t)         Text4.Locked = False       '當用戶開始增加記錄時，恢復各個按鈕的屬性 txtZYopt2.Locked = False 'txtZYyuaninfo.Locked = False Else MsgBox "您沒有修改本條記錄！", vbInformation, "修改信息提示 "   

70、;  ' 如果用戶沒有對本記錄做任何修改，系統將對用戶"進行提示操作 rsKC.CancelUpdate Command3.Caption = "修改" End IfElse  MsgBox "真的要修改本記錄嗎？", vbInformation, "修改記錄提示"    '再次提示用戶是否真的修改該記錄 Command3.Caption = "修改"    '恢

71、復“修改記錄”的caption的屬性End IfExit SubEnd IfEnd Sub其刪除事件的代碼主要完成對新增的課程或已有的課程進行刪除,其事件代碼如下:Private Sub Command2_Click()     '刪除On Error Resume Nexti = MsgBox("是否刪除該課程!", vbYesNo + vbInformation, "提示")If i = vbYes Then   rsKC.Delete   rsKC.MoveFi

72、rstEnd IfEnd Sub2.查詢與修改模塊的主要功能是對已存在的專業或課程進行修改.該模塊有四個命令按鈕,分別為”查詢”,”全部”,”修改”,”修改”,該模塊所有功能都圍繞著這四個命令按鈕. 其中“查詢”事件代碼主要用來顯示數據庫中已存在且符合一定條件的專業和課程,其事件代碼如下:Private Sub Command5_Click()       '查詢If Opt1.Value And Trim(txtFindZY.Text) = "" Then MsgBox "請輸入專業名稱！", vbOKOnly + vbInformation, "提示": Exit SubIf Opt2.Value And Trim(txtFindKC.Text) = "" Then MsgBox "