《VB 學生選課系統(tǒng)》由會員分享，可在線閱讀，更多相關(guān)《VB 學生選課系統(tǒng)（9頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、 大型數(shù)據(jù)庫系統(tǒng)開發(fā)實驗 課程論文 題 目： 學生選課系統(tǒng)的設(shè)計 姓 名： 學 號： 院 系： 專 業(yè)： 二〇一一 年 六 月 五日 一 背景分析 隨著科學技術(shù)的不斷提高,計算機科學日漸成熟,其強大的

2、功能已為人們深刻認識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對于復(fù)雜的信息管理，計算機能夠充分發(fā)揮它的優(yōu)越性。 學校作為一種信息資源的集散地，學生和課程繁多，包含很多的信息數(shù)據(jù)的管理。學生選課是一個學校不可缺少的部分,它的內(nèi)容對于學校的決策者和管理者來說都至關(guān)重要,所以學生選課系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，由于信息比較多，選課信息的管理工作混亂而又復(fù)雜；一般選課情況是記錄在文件上，課程的數(shù)目和代號

3、也記錄在文件中，時間長了，如再要進行查詢，造成查詢費時、費力。這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。 作為計算機應(yīng)用的一部分,使用計算機對學生選課信息進行管理,有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事勞資管理的效率,也是科學化、正規(guī)化管理,與世界接軌的重要條件。 基于這些問題，有必要建立一個學生選課系統(tǒng)，使選課管理工作規(guī)范化，系統(tǒng)化，程序化，避免選課管理的隨意性，提高信息處理的速度和準確性，能夠及時、準確、有效的

4、查詢和修改選課情況。 二 需求分析 目前計算機管理在日常生活中的地位變得越來越重要。它能夠代替人做各種重復(fù)、繁瑣的勞動，并且擁有操作簡單、可信度好、不易出錯等優(yōu)點，大大減少了不必要的人力消耗，提高個人的工作效率。學生信息查詢是每個學校必須面臨的問題，所以，如何開發(fā)一個應(yīng)用簡單、界面友好、容易操作、數(shù)據(jù)安全性好的管理系統(tǒng)就成為非常重要的技術(shù)問題。 本系統(tǒng)是為了管理好學生選課信息而設(shè)計的，系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)學生選課信息的系統(tǒng)化、規(guī)范化和程序化，建立學生選課系統(tǒng)對于減輕管理人員的勞動強度、提高工作質(zhì)量和效率、可以快捷、方便的對相關(guān)信息進行查詢、提高了信息資源的利用率和

5、管理水平。 三 總體設(shè)計 3．1 系統(tǒng)功能模塊劃分及說明 學生選課系統(tǒng)需要實現(xiàn)的功能主要有： (1)用戶登陸：分為以管理員身份登陸和以學生身份登陸，用戶登陸后，可進行相關(guān)操作。若用戶不存在，可進行新用戶注冊，然后再登陸。 (2)學生選課，需以學生身份登陸后，學生可對課程號、課程名稱、任課老師、學分、課程性質(zhì)等信息進行查詢，同時也可進行選課、退選等操作。 (3)選課情況查詢，學生可輸入自己學號查詢自己所選課程情況。 (4)審核，需以管理員身份登陸后，管理員可查看學生的選課相關(guān)情況，對選課情況進行審核。 其主要系統(tǒng)功能模塊圖，如圖3.1所示。 學生選課系統(tǒng)

6、 用戶登錄 學生選課 情況查詢 審 核 圖3.1 學生選課系統(tǒng)功能圖 3．2 數(shù)據(jù)庫系統(tǒng)設(shè)計 數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。由于Microsoft Access具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Microsoft Access作為后臺數(shù)據(jù)庫。使用Microsoft Access的好處還在于，如果你的系統(tǒng)擴展到Client/Server模式的時候，可以使用Microsoft的數(shù)據(jù)庫服務(wù)器軟件SQL Server，此時，程序只需要簡單的修

7、改一下鏈接就可以，這樣，為程序的平滑擴展提供了非常有力的條件。 用戶的需求具體體現(xiàn)在各種信息的提供、保存、修改、查詢等方面，經(jīng)調(diào)查和分析，針對一般學生選課系統(tǒng)的需求和對系統(tǒng)流程圖的分析，設(shè)計成如下的邏輯結(jié)構(gòu)。 (1) 學生信息表：Student表，用來提供學生的基本信息及選課情況。 表3-1 學生信息表 字段名 字段 字段類型 數(shù)據(jù)長度 學號 sno 文本 10 姓名 sname 文本 10 性別 ssex 文本 2 專業(yè) sdept 文本 20 課程1 cname 文本 20 課程2 cname 文本 20 課程3 cname

8、 文本 20 (2) 課程信息表：Course表，用來提供課程的基本信息。 表3-1 課程信息表 字段名 字段 字段類型 數(shù)據(jù)長度 課程號 cno 文本 10 課程名 cname 文本 20 任課老師 ctname 文本 10 學分 grade 文本 2 課程性質(zhì) xingzhi 文本 2 具體數(shù)據(jù)表如下圖3.2，圖3.3 圖3.2 Student表 圖3.3 Course表 四 詳細設(shè)計 4．1 系統(tǒng)登錄界面 系統(tǒng)登錄界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)

9、的用戶名和密碼保存在Student表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，分為管理員登陸和學生登陸。登陸界面如圖4.1，圖4.2。 圖4.1 管理員登錄界面圖 圖4.2 學生登錄界面 如有需要，新用戶也可注冊后再登陸。 代碼如下： Private Sub Command1_Click() NAME1$ = Text1.Text NAME2$ = Text2.Text Data1.RecordSource = "SELECT * FROM Student WHERE 姓名=" & "'" & NAME1$ & "'A

10、ND 學號=" & "'" & NAME2$ & "'" Data1.Refresh If Data1.Recordset.EOF = True Then MsgBox "用戶名或密碼錯誤！", 64, "提示" Text1.Text = "" Text2.Text = "" Text1.SetFocus Else Form4.Data1.RecordSource = "SELECT * FROM Student WHERE 姓名=" & "'" & NAME1$ & "'" Form4.Data1.Refresh Form4.Show Unload Me End If

11、 If 管理員_Click = ture Then Form4.Command4.Enabled = True Form4.Command2.Enabled = Flase Form4.Command3.Enabled = Flase End If End Sub Private Sub Command2_Click() Form1.Show Unload Me End Sub 4．2 學生登陸 以學生身份登陸后的主窗體界面如圖4.3。 圖4.3 系統(tǒng)主界面 登陸后，點擊“學生選課”后，顯示其窗口，如圖4.4。學生可進行選課操作。 圖4.4 “

12、學生選課”窗口 代碼如下： Private Sub Command1_Click() If Option1 And Option2 = False And Option3 = False Then Text6.Text = Trim(Text1.Text) Data2.Recordset.Edit Data2.Refresh MsgBox "請輸入第二個要選擇的課程", 64, "提示" End If If Option1 = False And Option2 And Option3 = False Then Text7.Text = Trim(Text1.Text)

13、 If Text7.Text = Text6.Text Then MsgBox "此課程已選！", 64, "提示" Else Data2.Recordset.Edit Data2.Refresh MsgBox "請輸入第三個要選擇的課程", 64, "提示" End If End If If Option1 = False And Option2 = False And Option3 Then Text8.Text = Trim(Text1.Text) If Text8.Text = Text7.Text Or Text8.Text = Text6.Text Then

14、 MsgBox "此課程已選！", 64, "提示" Else Data2.Recordset.Edit Data2.Refresh MsgBox "選課成功", 64, "提示" End If End If End Sub Private Sub Command2_Click() If Option1 And Option2 = False And Option3 = False Then Text6.Text = "" Data2.Recordset.Edit Data2.Refresh MsgBox "退選成功！", 64, "提示" End If I

15、f Option1 = False And Option2 And Option3 = False Then Text7.Text = "" Data2.Recordset.Edit Data2.Refresh MsgBox "退選成功！", 64, "提示" End If If Option1 = False And Option2 = False And Option3 Then Text8.Text = "" Data2.Recordset.Edit Data2.Refresh MsgBox "退選成功！", 64, "提示" End If End Sub

16、Private Sub Command3_Click() NAME1$ = Form3.Text1.Text If 學生_Click = True Then Form4.Data1.RecordSource = "SELECT * FROM Student WHERE 姓名=" & "'" & NAME1$ & "'" Form4.Data1.Refresh End If If 管理員_Click = Flase Then Form4.Command4.Enabled = Flase Form4.Command2.Enabled = True Form4.Command3.E

17、nabled = True Else Form4.Command4.Enabled = True Form4.Command2.Enabled = Flase Form4.Command3.Enabled = Flase End If Form4.Show Unload Me End Sub 登陸后，點擊“已選課程信息”后，顯示其窗口，如圖4.5。學生可對自己選課情況進行查詢。 圖4.5 “已選課程信息”窗口 代碼如下： Private Sub Command1_Click() NAME1$ = Text1.Text Data1.Record

18、Source = "SELECT * FROM Student WHERE 學號=" & "'" & NAME1$ & "'" Data1.Refresh End Sub 4．3 管理員登陸 以管理員身份登陸后的主窗體界面如圖4.6。 圖4.6 系統(tǒng)主窗體 登陸后，點擊“審核”后，顯示其窗口，如圖4.7。管理員可進行選課的審核操作。 圖4.7 “審核”窗口 五 總結(jié) 經(jīng)過幾天的努力，學生管理系統(tǒng)終于設(shè)計完成，基本上實現(xiàn)所需要的學生選課，課程管理，管理員審核等相關(guān)功能。在本系統(tǒng)的開發(fā)過程中，由于初次設(shè)計系統(tǒng)，在知識、經(jīng)驗方面都存在著不足，系統(tǒng)也必然會存在一些缺陷和不足。但還是能實現(xiàn)所需基本功能。同時，通過學生管理系統(tǒng)的設(shè)計，我學會了如何使用Microsoft Access和VB來創(chuàng)建數(shù)據(jù)庫系統(tǒng)，從而進一步加深了我對VB、Access的了解，為今后的學習發(fā)展積累了知識、經(jīng)驗。在這次系統(tǒng)設(shè)計中，我學會了設(shè)計系統(tǒng)的基本思維方法，以及與同學們之間相互幫助的精神。