VB課設(shè)學(xué)生成績管理系統(tǒng)

1、遼寧工業(yè)大學(xué)可視化編程技術(shù)課程設(shè)計（論文）題目學(xué)生成績管理系統(tǒng)院（系）：軟件學(xué)院專業(yè)班級：計算機網(wǎng)絡(luò)技術(shù)071班學(xué) 號： 0714060653學(xué)生姓名：劉育辰指導(dǎo)教師：胡峰教師職稱：助教起止時間：至 課程設(shè)計（論文）任務(wù)和評語院（系）：軟件學(xué)院教研室：軟件教研窒號 學(xué)辰 育 劉絡(luò)班課程設(shè)計 （論文） 題目課程設(shè)計論文 >任務(wù)BVO石疋 O o AW'/.。p 厶冃 。礎(chǔ)功 法。B 實B, q 農(nóng)匕匕 y? 星 、力厶冃 、了 j 的決 接功寸 加汕 、H對匕連的對MK> 語九則冊檢惱 H他 <:計 目 庫 系 力 喫 己 S#近題宜、據(jù)現(xiàn)& ， i 砂 序的使

2、數(shù)實助+,«, ):|=3_L/" p 二 ? 二 / 匚3E一、 你 冋選s,/B碼酬 由護 M V所M V代珊 心皿 折 握計杪解寫-M婦空 診 爭戶殳巾了扁通B戶 程!、以窗了編1 申完 課1>22計33445>i 地 設(shè) 確 中 正指導(dǎo)教師評語和成績?nèi)?月2 宀字年 指7002 成目錄第 1 章 課程設(shè)計目的與要求 11.1 課程設(shè)計目的 1.1.2 課程設(shè)計的實驗環(huán)境 1.1.3 課程設(shè)計的預(yù)備知識 1.1.4 課程設(shè)計要求 1.第 2 章 課程設(shè)計內(nèi)容 2.2.1 系統(tǒng)功能設(shè)計 2.2.2 系統(tǒng)詳細設(shè)計 4.2.3 系統(tǒng)運行與測試 1.2第 3 章

3、課程設(shè)計總結(jié) 1.4.參考文獻 1.5.第 1 章 課程設(shè)計目的與要求1.1 課程設(shè)計目的 本課程的課程設(shè)計實際是學(xué)生學(xué)習完可視化編程技術(shù)課程后，進行的一次全面 的綜合訓(xùn)練，其目的在于加深對可視化編程技術(shù)基本知識的理解，掌握運用VB開發(fā)應(yīng)用程序的基本方法和基本技巧。1.2 課程設(shè)計的實驗環(huán)境硬件要求能運行 Windows 9.X 操作系統(tǒng)的微機系統(tǒng)。軟件： Microsoft Visual Basic 6.0Microsoft Access 20031.3 課程設(shè)計的預(yù)備知識熟悉 Visual Basic 6.0 程序設(shè)計的基本語法知識和常用技巧。1.4 課程設(shè)計要求 按課程設(shè)計指導(dǎo)書提供的課

4、題，每個小組設(shè)計一個完整的管理系統(tǒng)應(yīng)用程序。要求根據(jù)規(guī)定設(shè)計系統(tǒng)的具體要求，按照應(yīng)用程序的設(shè)計步驟和 VB 的基本知識應(yīng)用程序的 分析與實現(xiàn)。應(yīng)根據(jù)基本學(xué)時分配合理安排設(shè)計時間，并獨立完成各方面的設(shè)計。選擇 同一題目的同學(xué)，可以共同協(xié)作完成一個應(yīng)用程序的開發(fā)任務(wù)。要求書寫詳細的設(shè)計說 明書，對有復(fù)雜的代碼段和程序段的部分，應(yīng)畫出程序流程圖，寫出全部的代碼。在界 面設(shè)計中，需畫出每個窗體的布局，進行屬性說明，杜絕雷同。第 2 章 課程設(shè)計內(nèi)容2.1 系統(tǒng)功能設(shè)計系統(tǒng)功能分析 學(xué)生信息管理系統(tǒng)主要用于對學(xué)校各院系的學(xué)生進行各種信息的管理，因此，該系 統(tǒng)需要具備如下功能：（1）教師管理：包括教師信息

5、（用戶名、密碼等）的錄入、刪除和查詢等功能。教師的 基本信息以和教師的授課信息等。（2）院系管理：包括院系信息（院系編號、院系名稱、院系職能描述等） 的錄入、修改、 刪除和查詢等功能。（ 3）學(xué)生管理：包括的功能模塊有學(xué)生基本信息管理和學(xué)生教育經(jīng)理管理。其中， 學(xué)生 基本信息管理包括學(xué)生信息（學(xué)生編號、姓名、生日、所在院系等）的錄入、修改、刪 除和查詢等功能；學(xué)生教育經(jīng)歷管理包括學(xué)生教育經(jīng)歷信息（開始日期、截止日期、所 在學(xué)校、職務(wù)等）錄入、修改、刪除和查詢等功能。（ 4）課程管理：完成對課程信息的維護、選課、 ，包括課程添加、修改、刪除和查詢功 能。（ 5）成績管理：包括的功能模塊有課程設(shè)置

6、和學(xué)生成績管理。其中， 課程設(shè)置包括課程 設(shè)置信息（課程編號、課程名稱、課程內(nèi)容等）的錄入、修改、刪除和查詢等功能；學(xué) 生成績管理包括學(xué)生成績信息（課程編號、學(xué)生編號、分數(shù)等）的錄入、修改、刪除和 查詢等功能?？偟膩碚f，學(xué)生成績管理系統(tǒng)主要提供成績查詢， 方便管理的網(wǎng)上的信息查閱平臺， 學(xué)生可以通過該系統(tǒng)查閱與自己相關(guān)信息、查看留言、提交留言、教師可以通過成績管 理系統(tǒng)查閱學(xué)生成績信息、教師信息、查看教師留言、學(xué)生留言、提交留言,留言的管理等相關(guān)操作 .系統(tǒng)管理員可以實現(xiàn)以上的所有功能 ,還有對學(xué)生的添加、刪除、修改、教 師的添加、刪除、修改、數(shù)據(jù)庫的備份、數(shù)據(jù)庫的還原等相關(guān)操作。系統(tǒng)功能模塊

7、設(shè)計根據(jù)以上所述的個子系統(tǒng)的功能我們可以構(gòu)思畫出系統(tǒng)功能模塊圖先畫出幾個大的功能，然后在其分支畫出具體的功能具體如圖2-2所示：圖2.1系統(tǒng)功能模塊圖2.2系統(tǒng)詳細設(shè)計登錄模塊設(shè)計1.界面設(shè)計(1)登錄窗體登陸窗體主要是方便客戶與管理員打開該系統(tǒng)的。如圖2.2所示:圖2.2 登陸窗體新建窗體，命名為 Frmlogin。在窗體中使用TextBox,CommandButtor等控件，其中顯 示密碼Text文本框的PasswordChar屬性設(shè)置為” * ”?？梢詫崿F(xiàn)如下功能：根據(jù)用戶名和 密碼登錄時，系統(tǒng)調(diào)用數(shù)據(jù)中該用戶名和密碼核對是否一致，從而來判斷是否可以進入系 統(tǒng)(如三次輸入密碼錯誤則自動關(guān)

8、閉系統(tǒng))；并根據(jù)用戶類型決定用戶擁有的權(quán)限。2代碼設(shè)計'數(shù)據(jù)有效性檢查If txtUser = "" The nMsgBox "請輸入用戶名txtUser.SetFocusExit SubEnd IfIf txtPwd = "" The nMsgBox "請輸入密碼" txtPwd.SetFocusExit SubEnd IfNameKey = MakeStr(txtUser)PasswordKey = MakeStr(txtPwd)'判斷用戶是否存在If MyUser.ln_DB(NameKey) = Fa

9、lse The nMsgBox "用戶名不存在"Try_times = Try_times + 1If Try_times >= 3 The nMsgBox "您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉DBapi_Disco nnectEndElseExit SubEnd IfEnd If'判斷密碼是否正確If MyUser.GetPwd(NameKey) <> PasswordKey The nMsgBox "密碼錯誤"Try_times = Try_times + 1If Try_times >= 3 T

10、he nMsgBox "您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉End If'登錄成功，將當前用戶的信息保存在 CurUser中CurUser.UserName = MyUser.UserName'關(guān)閉自己Un load MeEnd Sub控件類型控件標題控件名稱文本框用戶名Tstuser name文本框密碼Tstpassword標簽框用戶名lbluser name標簽框密碼txtpassword命令按鈕確定cmde nter命令按鈕取消cmdca ncle表2.1窗體控件表登入窗體后顯示如圖2.3在該窗體中，有添加用戶、修改用戶、刪除用戶和返回四個功能，在該窗

11、體中，根 據(jù)管理者的需求，可以自己任意的去管理該界面，從而來達到要求者的要求。圖2.3用戶管理窗體新建窗體，名為 FrmUserMan,窗體中添加 CommandButton,TextBox等控件,記錄著 每一次與客戶進行商業(yè)活動的日期，說明，?？梢詫@些信息進行添加、刪除、修改、顯 示等操作。2.代碼設(shè)計Private Sub Cmd_Del_Click()If DataList1.Text = "" The nMsgBox "請選擇要刪除的用戶"Exit SubEnd IfIf MyUser.UserName = "Admi n"

12、 The nMsgBox "此用戶不能刪除"Exit SubEnd If確認刪除If MsgBox("是否刪除當前用戶", vbYesNo," 請確認")=vbYes ThenMyUser.Delete (DataList1.Text)AdoUserList.RefreshDataList1.ReFillDataList1_ClickEnd IfEnd Sub 222院系管理系統(tǒng)模塊設(shè)計1.界面設(shè)計圖2.4院系管理界面字段名稱數(shù)據(jù)結(jié)構(gòu)說明Class_idint院系編號，主鍵Class_NameVarchar40院系名稱Upperldi

13、nt上級院系編號表2.2結(jié)構(gòu)表2.代碼設(shè)計Private Sub Cmd_OK_Click()'檢查用戶錄入數(shù)據(jù)的有效性If Trim(txtClass) = "" The nMsgBox "請輸入院系班級名稱"Exit SubEnd If'將新輸入的數(shù)據(jù)保存到類變量中With MyClass.CIass_Name = MakeStr(txtClass)'根據(jù)變量Modify決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù)If Modify = False The n '插入'調(diào)用ln_DB()函數(shù)判斷用戶輸入的名稱是否已經(jīng)存

14、在If .In _DB(.CIass_Name) = True The nMsgBox Trim(txtClass) + "已經(jīng)存在"Exit SubEnd If'CurClass 中保存在院系班級管理窗體中選中的院系班級信息 ' 當插入新記錄時，新記錄將做為當前院系班級的下級院系班級 .UpperId = CurClass.Class_IdBh = .Insert' 生成 TreeView 中一個結(jié)點的關(guān)鍵字Tmp_Key = "a" + Trim(Str(Bh)' 設(shè)置結(jié)點的圖像= 1 = 2= 3' 在樹中添

15、加一個結(jié)點Set TmpNode =_ tvwChild, Tmp_Key, .Class_Name, 4, 5)TmpNode.Selected = TrueElse ' 修改If CurClass.Class_Name <> Trim(txtClass) ThenIf .In_DB(Trim(txtClass) = True ThenMsgBox Trim(txtClass) + " 已經(jīng)存在 "Exit SubEnd IfEnd If' 當修改記錄時，不能改變上下級之間的關(guān)系.UpperId = CurClass.UpperId.Updat

16、e (CurClass.Class_Id)If CurClass.Class_Name <> Trim(txtClass) Then= Trim(txtClass)End If' 設(shè)置CurClass變量CurClass.Class_Name = Trim(txtClass)End IfEnd With'關(guān)閉窗口Un load MeEnd SubPrivate Sub Cmd_Ca ncel_Click()Un load MeEnd SubPrivate Sub Frame1_DragDrop(Source As Con trol, X As Sin gle, Y

17、As Sin gle)End SubPrivate Sub txtClass_KeyPress(KeyAscii As In teger)En terTAB (KeyAscii)End Sub學(xué)生管理系統(tǒng)模塊設(shè)計1.界面設(shè)計圖2.5學(xué)生成績信息2代碼設(shè)計rivate Sub Form_Load()Dim txtSQL As String Dim MsgText As String comboExamtype.Enabled = False comboClassno.Enabled = False comboSID.Enabled = False comboCourse.Enabled = Fa

18、lse txtName.Enabled = False txtResult.Enabled = False updateCommand.Enabled = False cancelCommand.Enabled = False txtSQL = "select * from result_Info "Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False Then mrc.MoveFirst Call viewData myBookmark = mrc.BookmarkElseMsgBox " 沒有紀錄！ &

19、quot;, vbOKOnly + vbExclamation, "警告"做小II警告 "MsgBox " 請輸入考試編號 !", vbOKOnly + vbExclamation, "Exit SubEnd IfIf Not Testtxt(comboClassno.Text) ThenMsgBox "請選擇班號 !", vbOKOnly + vbExclamation, "Exit SubEnd IfIf Not Testtxt(comboSID.Text) ThenMsgBox "請選擇學(xué)

20、號 !", vbOKOnly + vbExclamation, "Exit SubEnd IfIf Not Testtxt(comboCourse.Text) ThenMsgBox "請選擇課程 !", vbOKOnly + vbExclamation, "Exit SubEnd If做小II警告 "If Not Testtxt(txtResult.Text) ThenMsgBox " 請輸入分數(shù) !", vbOKOnly + vbExclamation, "Exit SubEnd IfIf Not Is

21、Numeric(txtResult.Text) ThenMsgBox " 分數(shù)請輸入數(shù)字 !", vbOKOnly + vbExclamation, "Exit SubEnd Ifmrc.Fields(0) = comboExamtype.Textmrc.Fields(1) = comboSID.Textmrc.Fields(2) = txtName.Textmrc.Fields(3) = comboClassno.Textmrc.Fields(4) = comboCourse.Textmrc.Fields(5) = txtResult.Textmrc.Updat

22、emrc.CloseMsgBox "修改成績成功！ ", vbOKOnly + vbExclamation, "End Sub數(shù)據(jù)庫訪問技術(shù)Vb中提供了多種訪問數(shù)據(jù)庫的方法,可以通過訪問的數(shù)據(jù)庫類型有 dBase,ForxPro,和 Access數(shù)據(jù)庫.另外可以通過 ODB（方式訪問MS SQLServer和Oracle和Sybase等,并 以客戶機 / 服務(wù)器方式訪問數(shù)據(jù)庫中的數(shù)據(jù)。學(xué)生成績管理系統(tǒng)使用 SQLServer 2005 Express 版實現(xiàn)數(shù)據(jù)庫到 vb 可視化編程的 連結(jié),客戶端登錄 用戶名sa密碼DWOA火墻關(guān)閉 網(wǎng)絡(luò)連接/本地連接/屬性/高

23、級 /window防火墻設(shè)置/關(guān)閉（如果沒有啟用 Window防火墻服務(wù)，則不必設(shè)置）SQL把各11 / 18種完整性約束作為數(shù)據(jù)庫模式定義的一部分，由數(shù)據(jù)庫管理系統(tǒng)維護，這樣即可有效防 止對數(shù)據(jù)庫的意外破壞，提高了完整性檢測的效率，又減輕了編程人員的負擔。SQLServer支持三種完整性約束：1）實體完整性2）參照完整性（或引用完整性）3）用戶自 定義完整性其中實體完整性是通過主碼（PRIMARY KEY ）的定義來實現(xiàn)的。一旦某個 屬性或?qū)傩越M被定義為主碼，該主碼的每個屬性就不能為空值，并且在表中不能出現(xiàn)主 碼值完全相同的兩個記錄。參照完整性在更新記錄時，參照完整性保持表之間已定義的 關(guān)系

24、。參照完整性基于外鍵與主鍵之間或外鍵與唯一鍵之間的關(guān)系。參照完整性確保鍵值在所有表中一致。這樣的一致性要求不能引用不存在的值，如果鍵值更改了，那么在 整個數(shù)據(jù)庫中，對該鍵值的所有引用要進行一致的更改。參照完整性約束的實現(xiàn)策略當 用戶的操作違反了上述規(guī)則時，SQL提供了兩種可選方案供數(shù)據(jù)庫實現(xiàn)者使用:RESTRICT限制策略）；CASCAD級聯(lián)策略）用戶自定義完整性.圖2.6登錄數(shù)據(jù)庫服務(wù)器端數(shù)據(jù)庫2.3系統(tǒng)運行與測試學(xué)生管理系統(tǒng)支持如下平臺：Microsoft SQL Server1.單擊主界面的信息管理按鈕進入信息管理對話框如圖2.7所示:圖2.7系統(tǒng)主界面圖2登錄進入其對話框，在明細類別選

25、項中輸入要查詢商品的類別如：計算機，然后在 項目名稱中輸入cpu頻率，在是否二次修改中單擊，在是否有效中選擇有效，單擊查詢 則運行完畢。如圖2.8所示：圖2.8明細類別項目圖第 3 章 課程設(shè)計總結(jié)通過本次的可視化編程課程設(shè)計，鞏固了我在課堂上所學(xué)的理論知識，更進一步的 理解了面向?qū)ο缶幊痰幕舅枷?，并且對可視化編程工?Microsoft Visual Basic 6.0 這種軟件的應(yīng)用有了一個簡單的了解，開拓了自己的知識面。本次課程設(shè)計，在丁老師的指導(dǎo)下，通過不懈的努力完成了本次課程設(shè)計的任務(wù)， 游戲設(shè)計以和運行已基本實現(xiàn)。培養(yǎng)我的團隊精神，學(xué)會了如何和別人合作，同時也從 同學(xué)那里學(xué)到了許多東西。在課程設(shè)計的過程中，我也深深體會到了，作為一名編程人員的不容易，這