VB 學(xué)生選課系統(tǒng)

《VB 學(xué)生選課系統(tǒng)》由會(huì)員分享，可在線閱讀，更多相關(guān)《VB 學(xué)生選課系統(tǒng)（9頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

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

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

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

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

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

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

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

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

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

10、ND 學(xué)號(hào)=" & "'" & NAME2$ & "'" Data1.Refresh If Data1.Recordset.EOF = True Then MsgBox "用戶名或密碼錯(cuò)誤！", 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 學(xué)生登陸 以學(xué)生身份登陸后的主窗體界面如圖4.3。 圖4.3 系統(tǒng)主界面 登陸后，點(diǎn)擊“學(xué)生選課”后，顯示其窗口，如圖4.4。學(xué)生可進(jìn)行選課操作。 圖4.4 “

12、學(xué)生選課”窗口 代碼如下： Private Sub Command1_Click() If Option1 And Option2 = False And Option3 = False Then Text6.Text = Trim(Text1.Text) Data2.Recordset.Edit Data2.Refresh MsgBox "請(qǐng)輸入第二個(gè)要選擇的課程", 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 "請(qǐng)輸入第三個(gè)要選擇的課程", 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 學(xué)生_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 登陸后，點(diǎn)擊“已選課程信息”后，顯示其窗口，如圖4.5。學(xué)生可對(duì)自己選課情況進(jìn)行查詢。 圖4.5 “已選課程信息”窗口 代碼如下： Private Sub Command1_Click() NAME1$ = Text1.Text Data1.Record

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