選課管理系統(tǒng)課程設(shè)計(jì)

1、<p><b>　　摘要</b></p><p>　　選課系統(tǒng)是針對在校學(xué)生和教師使用，從學(xué)生的角度來說，由于學(xué)校教學(xué)制度的改革，現(xiàn)在大部分高等院校開始實(shí)行的是學(xué)生的自主選課模式，傳統(tǒng)的教學(xué)模式（學(xué)生按照學(xué)校安排好的課程上課）已經(jīng)不能適應(yīng)新型的教學(xué)手段，如果仍然通過紙上的方式選課，浪費(fèi)的大量的人力、物力資源。另一方面浪費(fèi)時(shí)間以及在人為的統(tǒng)計(jì)過程中不可避免出現(xiàn)的差錯等情況。通過網(wǎng)上選

2、課，學(xué)生只要在計(jì)算機(jī)前輸入自己的個人選課信息即可完成原來幾倍的作業(yè)量。從高校管理的角度來說，同樣是節(jié)省了大量的工作量，由于教師提出代課申請完成課程發(fā)布的工作較學(xué)生選課而言更加的復(fù)雜，因此通過進(jìn)行課程發(fā)布能大幅度的減少教師的工作量，減少錯誤的發(fā)生幾率。作為教師，也只要通過自己的電腦來操作即可，不用再奔波于教務(wù)處和辦公室之間。</p><p>　　選課管理系統(tǒng)，它能快速的實(shí)現(xiàn)學(xué)生選課的管理過程，而且管理的安全機(jī)制也更

3、完善，這樣就可以為學(xué)生的管理花費(fèi)更少的人力和物力資源。</p><p>　　關(guān)鍵詞：VB；選課系統(tǒng)；SQL Server 2000</p><p><b>　　目錄</b></p><p><b>　　摘要1</b></p><p><b>　　第一章緒論3</b><

4、/p><p>　　第二章 系統(tǒng)需求分析4</p><p>　　第三章 數(shù)據(jù)庫設(shè)計(jì)5</p><p>　　3.1 系統(tǒng)總體設(shè)計(jì)5</p><p><b>　　3.2概念設(shè)計(jì)6</b></p><p>　　3.3 邏輯設(shè)計(jì)7</p><p><b>　　3.4物

5、理設(shè)計(jì)9</b></p><p>　　3.5 表的創(chuàng)建12</p><p>　　3.6 各表中相關(guān)數(shù)據(jù)15</p><p>　　3.7 創(chuàng)建視圖17</p><p>　　3.8 創(chuàng)建觸發(fā)器17</p><p>　　第四章 代碼實(shí)現(xiàn)18</p><p>　　第五章 結(jié)論與展

6、望26</p><p><b>　　附錄：27</b></p><p><b>　　參考文獻(xiàn)27</b></p><p><b>　　第一章緒論</b></p><p>　　當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代。在各行各業(yè)中離不開信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)

7、境。</p><p>　　學(xué)校作為一種信息資源的集散地，學(xué)生和課程繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的學(xué)校都是初步開始使用。如果對學(xué)生的選課權(quán)限，以及選課代號等用人工計(jì)算，手抄進(jìn)行，那么數(shù)據(jù)信息處理工作量大，容易出錯?？偟膩碚f，缺乏系統(tǒng)，規(guī)范的信息管理手段。基于這些問題，應(yīng)該建立一個學(xué)生選課系統(tǒng)，使選課管理工作規(guī)范化，系統(tǒng)化，程序化，避免選課管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)，準(zhǔn)確，有效

8、的查詢和修改選課情況。在教務(wù)信息標(biāo)準(zhǔn)化，規(guī)范化的基礎(chǔ)上，對信息進(jìn)行合理的布局，在提供優(yōu)質(zhì)，高效的業(yè)務(wù)管理和事務(wù)處理的同時(shí)，使全校師生可以在任一平臺上對本專業(yè)教學(xué)計(jì)劃進(jìn)行查詢，了解課程設(shè)置情況，網(wǎng)上選課等，教師可以查詢了解學(xué)生的情況等。為教務(wù)工作有關(guān)部門提供優(yōu)質(zhì)高效的業(yè)務(wù)管理和事務(wù)處理，也為廣大師生提供便利。</p><p>　　在此次課程設(shè)計(jì)的開始一段時(shí)間中遇到很多問題，經(jīng)過老師的悉心教導(dǎo)，都得以一一解決，在此特

9、別感謝老師的幫助。</p><p>　　第二章 系統(tǒng)需求分析 </p><p>　　隨著學(xué)校規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。而對龐大的信息量，需要有學(xué)生管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作量。</p><p&g

10、t;　　在這次學(xué)生管理系統(tǒng)的課程設(shè)計(jì)中，我們要完成學(xué)生基本信息的添加，查詢，刪除，學(xué)生所學(xué)課程和成績的添加，刪除和查詢的設(shè)計(jì)，以及學(xué)生成績信息的統(tǒng)計(jì)的設(shè)計(jì)。在最后的測試中可以完成老師所要求的功能。</p><p>　　有學(xué)生基本信息添加的界面、有學(xué)生基本信息查詢和刪除的界面。有課程信息添加、刪除、查詢的界面。有學(xué)生選課界面，查詢可選擇的課程信息。主題鮮明，使用方便。即具有良好的人機(jī)界面。</p>&

11、lt;p>　　實(shí)驗(yàn)要完成實(shí)驗(yàn)方案論證，登錄表，學(xué)生信息表，課程信息表，教師信息表，學(xué)生成績表的設(shè)計(jì)、基本界面的設(shè)計(jì)、編寫代碼、調(diào)試、運(yùn)行以及實(shí)驗(yàn)指導(dǎo)書文檔的建立等一整套工作任務(wù)?？刂栖浖褂肰B語言。</p><p>　　管理員具有最大的權(quán)限，當(dāng)?shù)卿浐螅梢詫W(xué)生信息，課程信息，院系信息，教師信息做任何操作，同時(shí)也可以對學(xué)生的選課及教師對學(xué)生所選課程輸入的成績進(jìn)行任何操作。當(dāng)學(xué)生登錄時(shí)，只能進(jìn)入選課界面。

12、當(dāng)教師登錄時(shí)，只能對選課進(jìn)行成績的輸入和統(tǒng)計(jì)。</p><p><b>　　第三章 數(shù)據(jù)庫設(shè)計(jì)</b></p><p>　　3.1 系統(tǒng)總體設(shè)計(jì)</p><p><b>　　圖3-1 系統(tǒng)表</b></p><p><b>　　3.2概念設(shè)計(jì)</b></p>&l

13、t;p>　　圖3-2 “教師信息表”與“課程信息表”實(shí)體集E-R模型</p><p>　　圖3-3“學(xué)生信息表”與“課程信息表”實(shí)體集E-R模型</p><p><b>　　3.3 邏輯設(shè)計(jì)</b></p><p>　　本系統(tǒng)使用SQL SERVER2000作為應(yīng)用程序的數(shù)據(jù)庫?？紤]到系統(tǒng)的實(shí)際需求，系統(tǒng)至少需要六張數(shù)據(jù)庫表，具體如下：&

14、lt;/p><p>　　學(xué)生信息表：主要表現(xiàn)學(xué)生的基本信息，包括學(xué)號，姓名，性別，年齡，院系，班級，家庭住址。</p><p>　　課程信息表：課程號，課程名，學(xué)分，課時(shí)。</p><p>　　學(xué)生課程信息表：學(xué)號，課程號，上課時(shí)間。</p><p>　　教師信息表：教師號，姓名，性別，職位，院系。</p><p>　　教

15、師課程信息表：教師號，課程號，上課時(shí)間，限報(bào)人數(shù)。</p><p>　　登錄表（admin）：username、password。</p><p><b>　　數(shù)字字典</b></p><p><b>　　3.4物理設(shè)計(jì)</b></p><p>　　圖3-4 學(xué)生信息表</p><

16、;p>　　圖3-5學(xué)生課程信息表</p><p>　　圖3-6 教師信息表</p><p>　　圖3-7 教師課程信息表</p><p>　　圖3-8 登錄表</p><p><b>　　圖3-9課程信息表</b></p><p>　　圖3-10 學(xué)生課程信息關(guān)系圖</p>

17、<p>　　圖3-11 教師課程信息關(guān)系圖</p><p><b>　　3.5 表的創(chuàng)建</b></p><p>　　CREATE TABLE [課程信息表] (</p><p>　　[課程號] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>

18、;　　[課程名] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[課時(shí)] [int] NULL ,</p><p>　　[學(xué)分] [int] NULL ,</p><p>　　CONSTRAINT [PK_課程信息表] PRIMARY KEY CLUSTERED </p><p&g

19、t;<b>　　(</b></p><p><b>　　[課程號]</b></p><p>　　) ON [PRIMARY] </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　CREATE

20、 TABLE [學(xué)生信息表] (</p><p>　　[學(xué)號] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[姓名] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[性別] [char] (10) COLLATE Chinese_

21、PRC_CI_AS NULL ,</p><p>　　[年齡] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[院系] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[班級] [char] (50) COLLATE Chinese_PRC_

22、CI_AS NULL ,</p><p>　　[家庭地址] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　CONSTRAINT [PK_學(xué)生信息表] PRIMARY KEY CLUSTERED </p><p><b>　　(</b></p><p>&l

23、t;b>　　[學(xué)號]</b></p><p>　　) ON [PRIMARY] ,</p><p>　　CONSTRAINT [CK_學(xué)生信息表] CHECK ([性別] = '男' or [性別] = '女')</p><p>　　) ON [PRIMARY]</p><p><b&

24、gt;　　GO</b></p><p>　　CREATE TABLE [學(xué)生課程信息表] (</p><p>　　[學(xué)號] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[課程號] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL ,<

25、;/p><p>　　[上課時(shí)間] [char] (50) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[成績] [int] NULL ,</p><p>　　CONSTRAINT [PK_學(xué)生課程信息表] PRIMARY KEY CLUSTERED </p><p><b>　　(</b

26、></p><p><b>　　[學(xué)號],</b></p><p><b>　　[課程號]</b></p><p>　　) ON [PRIMARY] ,</p><p>　　CONSTRAINT [FK_學(xué)生課程信息表 學(xué)生信息表] FOREIGN KEY </p><p

27、><b>　　(</b></p><p><b>　　[課程號]</b></p><p>　　) REFERENCES [課程信息表] (</p><p><b>　　[課程號]</b></p><p><b>　　),</b></p>

28、<p>　　CONSTRAINT [FK_學(xué)生課程信息表_學(xué)生信息表] FOREIGN KEY </p><p><b>　　(</b></p><p><b>　　[學(xué)號]</b></p><p>　　) REFERENCES [學(xué)生信息表] (</p><p><b>　　

29、[學(xué)號]</b></p><p><b>　　)</b></p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　CREATE TABLE [教師信息表] (</p><p>　　[教師編號] [char]

30、(30) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[姓名] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[性別] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[職稱] [char]

31、(10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　[院系] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　CONSTRAINT [PK_教師信息表] PRIMARY KEY CLUSTERED </p><p><b>　　(</b>

32、</p><p><b>　　[教師編號]</b></p><p>　　) ON [PRIMARY] </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　CREATE TABLE [教師課程信息表] (</

33、p><p>　　[教師編號] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[課程號] [char] (30) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><p>　　[授課時(shí)間] [char] (50) COLLATE Chinese_PRC_CI_AS NU

34、LL ,</p><p>　　[限報(bào)人數(shù)] [int] NULL ,</p><p>　　CONSTRAINT [PK_教師課程信息表] PRIMARY KEY CLUSTERED </p><p><b>　　(</b></p><p><b>　　[教師編號],</b></p>

35、<p><b>　　[課程號]</b></p><p>　　) ON [PRIMARY] ,</p><p>　　CONSTRAINT [FK_教師課程信息表_課程信息表] FOREIGN KEY </p><p><b>　　(</b></p><p><b>　　[課程號]

36、</b></p><p>　　) REFERENCES [課程信息表] (</p><p><b>　　[課程號]</b></p><p><b>　　),</b></p><p>　　CONSTRAINT [FK_教師課程信息表_教師信息表] FOREIGN KEY </p>

37、;<p><b>　　(</b></p><p><b>　　[教師編號]</b></p><p>　　) REFERENCES [課程信息表] (</p><p><b>　　[教師編號]</b></p><p><b>　　)</b>&l

38、t;/p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　CREATE TABLE [登錄表] (</p><p>　　[username] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,</p><

39、p>　　[password] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,</p><p>　　CONSTRAINT [PK_登錄表] PRIMARY KEY CLUSTERED </p><p><b>　　(</b></p><p>　　[username]</p><

40、p>　　) ON [PRIMARY] </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　3.6 各表中相關(guān)數(shù)據(jù)</p><p>　　圖3-12數(shù)據(jù)庫中的學(xué)生信息表</p><p>　　圖3-13數(shù)據(jù)庫中的學(xué)生課程信息表<

41、/p><p>　　圖3-14數(shù)據(jù)庫中的教師信息表</p><p>　　圖3-15數(shù)據(jù)庫中的教師課程信息表</p><p>　　圖3-16數(shù)據(jù)庫中的課程信息表</p><p><b>　　圖3-17登錄表</b></p><p><b>　　3.7 創(chuàng)建視圖</b></p&g

42、t;<p>　　視圖學(xué)生選課系統(tǒng)視圖：SELECT 教師信息表.教師名, 教師課程信息表.課程號, 課程信息表.課程名, 教師課程信息表.限報(bào)人數(shù),教師課程信息表.上課時(shí)間FROM教師信息表JOIN教師課程信息表ON教師信息表.教師編號 =教師課程信息表.教師編號 JOIN 課程信息表ON教師課程信息表.課程號 = 課程信息表.課程號</p><p><b>　　3.8 創(chuàng)建觸發(fā)器<

43、/b></p><p>　　CREATE trigger t1 on 學(xué)生課程信息表</p><p>　　for insert</p><p><b>　　as</b></p><p>　　update 教師課程信息表 set 限報(bào)人數(shù)=限報(bào)人數(shù)-1 where 課程號 in( select 課程號 from

44、inserted)</p><p>　　CREATE trigger t2 on 學(xué)生課程信息表</p><p>　　for delete</p><p><b>　　as</b></p><p>　　update 教師課程信息表 set 限報(bào)人數(shù)=限報(bào)人數(shù)+1 where 課程號 in (select 課程號 fro

45、m deleted)</p><p><b>　　第四章 代碼實(shí)現(xiàn)</b></p><p>　　學(xué)生選課系統(tǒng)的功能模塊圖：</p><p><b>　　登錄界面：</b></p><p><b>　　圖4-1登錄界面</b></p><p>　　代碼：D

46、im cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p>　　mbFindFailed = True</p><p><b>　　Me.Hide</b&

47、gt;</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　strsql = "select * from 登錄表 where 用戶名='" & Text1.Text & "'&quo

48、t; & "and 密碼='" & Text2.Text & "'"</p><p>　　rs.Open strsql, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "用戶名或密碼錯誤", 16, "

49、警告"</p><p><b>　　Else</b></p><p>　　Form4.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　En

50、d Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生選課系統(tǒng);Data Source=

51、WWW-CB5DB40EC76"</p><p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p><b>　　選擇操作界面：</b></p><p>　　圖4-2 選擇操作界面</p><p&

52、gt;　　代碼：Private Sub Command1_Click()</p><p>　　Form2.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()

53、</p><p>　　Form3.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　查詢信息界面：</b></p><p>　　圖4-3查詢信息界面</

54、p><p><b>　　代碼：</b></p><p>　　Dim cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p>　　s

55、tr1 = "select * from 學(xué)生信息表 where 學(xué)號='" & Text1.Text & "'"</p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p><b>　　rs.AddNew<

56、/b></p><p>　　rs("學(xué)號") = Text1.Text</p><p>　　rs("姓名") = Text2.Text</p><p>　　rs("性別") = Text3.Text</p><p>　　rs("年齡") = Text4.Te

57、xt</p><p>　　rs("家庭地址") = Text5.Text</p><p>　　rs("院系") = Text6.Text</p><p>　　rs("班級") = Text7.Text</p><p><b>　　rs.Update</b><

58、;/p><p>　　MsgBox "注冊成功", 64, "信息提示"</p><p><b>　　Else</b></p><p>　　MsgBox "該用戶已存在,請換名重新注冊", 48, "警告"</p><p><b>　　E

59、nd If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　str1 = "select * from 學(xué)生信息表 where 學(xué)號='" & Text1.Text & "

60、;'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　

61、　If rs.EOF Then</p><p>　　MsgBox "該用戶不存在"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p&

62、gt;<b>　　Else</b></p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></

63、p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　c = MsgBox("您確認(rèn)要刪除該記錄嗎?", 32 + 4,

64、 "特別提示")</p><p>　　X = Adodc1.Recordset.Fields(0)</p><p>　　If c = vbYes Then</p><p>　　str1 = "select * from 學(xué)生信息表 where 學(xué)號='x" & "'"</p&

65、gt;<p>　　'cn.Execute (str1)</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn,

66、1, 3</p><p>　　'rs.Delete</p><p>　　' rs.Update</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource

67、 = "select * from 學(xué)生信息表"</p><p>　　Adodc1.Refresh</p><p>　　MsgBox "數(shù)據(jù)成功刪除", 64, "信息提示"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = "

68、"</p><p>　　Text2.Text = ""</p><p>　　'If c = vbOK Then</p><p>　　'Adodc1.Recordset.Delete</p><p>　　'Adodc1.Refresh</p><p>　　'U

69、nload Me</p><p><b>　　'Me.Show</b></p><p>　　'Adodc1.CommandType = adCmdText</p><p>　　'Adodc1.RecordSource = "select * from s"</p><p>　　

70、'Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄", 64, "警告"</p><p><b>

71、;　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Form4.Show</p><p><b>　　Unload Me</b></p><p

72、><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid

73、1_Click()</p><p>　　If Adodc1.Recordset.RecordCount <= 0 Then</p><p>　　MsgBox "當(dāng)前表是空表", 16, "信息提示"</p><p><b>　　Else</b></p><p>　　Text1

74、.Text = Adodc1.Recordset.Fields(0)</p><p>　　Text2.Text = Adodc1.Recordset.Fields(1)</p><p>　　Text3.Text = Adodc1.Recordset.Fields(2)</p><p>　　Text4.Text = Adodc1.Recordset.Fields(3)

75、</p><p>　　Text5.Text = Adodc1.Recordset.Fields(4)</p><p>　　Text6.Text = Adodc1.Recordset.Fields(5)</p><p>　　Text7.Text = Adodc1.Recordset.Fields(6)</p><p><b>　　En

76、d If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Securit

77、y Info=False;Initial Catalog=學(xué)生選課系統(tǒng);Data Source=WWW-CB5DB40EC76"</p><p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p><b>　　選課界面：</b></p

78、><p><b>　　圖4-5選課界面</b></p><p><b>　　代碼：</b></p><p>　　Dim cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Pri

79、vate Sub Command1_Click()</p><p>　　c = MsgBox("您確認(rèn)要刪除該記錄嗎?", 32 + 4, "特別提示")</p><p>　　If c = vbYes Then</p><p>　　str1 = "DELETE from 學(xué)生課程信息表 where 學(xué)號='

80、" & Text1.Text & "'"</p><p>　　cn.Execute (str1)</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If&l

81、t;/b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.RecordSource = "select *from 學(xué)生課程信息表"</p><p>　　Adodc2.Refresh

82、</p><p>　　MsgBox "數(shù)據(jù)成功刪除", 64, "信息提示"</p><p>　　Adodc2.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text5.Text = ""</p><p

83、>　　Text8.Text = ""</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　str1 = "selec

84、t * from 學(xué)生課程信息表 where 學(xué)號='" & Text1.Text & "'" & "and 課程號='" & Text5.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><

85、b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p><b>　　rs.AddNew</b></p>&l

86、t;p>　　rs("學(xué)號") = Text1.Text</p><p>　　rs("課程號") = Text5.Text</p><p>　　rs("上課時(shí)間") = Text8.Text</p><p><b>　　rs.Update</b></p><p&

87、gt;　　MsgBox "選課成功", 64, "信息提示"</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.RecordSource = "select * from 學(xué)生課程信息表"</p><p>　　Adodc2.Refresh&l

88、t;/p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　MsgBox "您已選擇課程！", 16, "警告"</p><p><b>　　End If</b></p><p>&

89、lt;b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Form4.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p>

90、;<p>　　Private Sub DataGrid1_Click()</p><p>　　If Adodc2.Recordset.RecordCount <= 0 Then</p><p>　　MsgBox "當(dāng)前表是空表", 16, "信息提示"</p><p><b>　　Else<

91、/b></p><p>　　Text1.Text = Adodc2.Recordset.Fields(0)</p><p>　　Text5.Text = Adodc2.Recordset.Fields(1)</p><p>　　Text8.Text = Adodc2.Recordset.Fields(2)</p><p><b&g

92、t;　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid2_Click()</p><p>　　If Adodc1.Recordset.RecordCount <= 0 Then</p><p>　　MsgBox &q

93、uot;當(dāng)前表是空表", 16, "信息提示"</p><p><b>　　Else</b></p><p>　　Text6.Text = Adodc1.Recordset.Fields(0)</p><p>　　Text5.Text = Adodc1.Recordset.Fields(1)</p>

94、<p>　　Text3.Text = Adodc1.Recordset.Fields(2)</p><p>　　Text7.Text = Adodc1.Recordset.Fields(3)</p><p>　　Text8.Text = Adodc1.Recordset.Fields(4)</p><p><b>　　End If</b&g

95、t;</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False

96、;Initial Catalog=學(xué)生選課系統(tǒng);Data Source=WWW-CB5DB40EC76"</p><p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p><b>　　第五章 結(jié)論與展望</b></p>&l

97、t;p>　　通過這次的課程設(shè)計(jì)，使我了解了一個簡單的學(xué)生選課系統(tǒng)的設(shè)計(jì)過程，并且基本掌握了SQL server 2000的用法，Visual Basic 6.0的基本用法，掌握數(shù)據(jù)庫的基本知識及其應(yīng)用情況，加深對該課程的理解，在這次設(shè)計(jì)過程中使我對編程和數(shù)據(jù)庫的開發(fā)形成了濃厚的興趣。</p><p>　　由于自己對SQL server 2000及Visual Basic 6.0的用法掌握得不夠熟練，在此次設(shè)

98、計(jì)過程中遇到了很多的問題，尤其是VB編程，幾天的學(xué)習(xí)對其代碼的掌握并不牢固，調(diào)試的過程中出現(xiàn)很多問題，但是最后通過老師以及同學(xué)的幫助問題都得到了圓滿的解決，這次的學(xué)生選課系統(tǒng)設(shè)計(jì)是一個很小的系統(tǒng)程序設(shè)計(jì)，雖然它的功能并不強(qiáng)大，但設(shè)計(jì)的過程并不容易。首先要想好怎樣設(shè)計(jì)界面，以及這些界面是怎樣連接起來的。然后要考慮數(shù)據(jù)庫怎么樣和應(yīng)用程序連接起來。一切并不像自己想象的那么簡單，問題很多，但自己對數(shù)據(jù)庫的開發(fā)以及應(yīng)用建立了信心。</p&g

99、t;<p>　　雖然這次的設(shè)計(jì)時(shí)間很短，并且程序也不是很大，而且還遇到了許多問題，但是我堅(jiān)信在以后的學(xué)習(xí)中我要更加的努力，現(xiàn)在只是一個小小的系統(tǒng)，經(jīng)過一番努力后，終會有拿得出手的成果，只有堅(jiān)持到底，才能取得最終的勝利。</p><p><b>　　附錄：</b></p><p><b>　　參考文獻(xiàn)</b></p>&

100、lt;p>　　劉彬彬 高春艷 王茜 . Visual Basic 程序設(shè)計(jì) 自學(xué)手冊.人民郵電出版社</p><p>　　高春艷 李艷 谷偉東. Visual Basic 數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用. 人民郵電出版社</p><p>　　鄭阿奇 劉啟芬 顧韻華 .SQL Server應(yīng)用教程. 人民郵電出版社</p><p>　　趙斯思 . Visual B