vb學生信息管理系統(tǒng)課程設計

1、<p><b>　　《數(shù)據庫技術》</b></p><p><b>　　課程設計</b></p><p>　　題 目 學生信息管理系統(tǒng) </p><p>　　班 級 計控1001 </p><p>　　學 號 3

2、1 </p><p>　　姓 名 **** </p><p>　　指導教師 ******* </p><p><b>　　計算機與信息工程系</b></p><p>　　2011年12月26日—2011年12月30日</p&

3、gt;<p>　　《學生信息管理系統(tǒng)》設計說明書</p><p><b>　　一、導言</b></p><p>　　隨著高校規(guī)模的不斷擴大，學生數(shù)量急劇增加，有關學生的各種信息量也成倍增長，龐大學生信息的管理工作成了高校教學管理工作中的一項重要任務，一方面，假如遵從以往舊式的工作方式，該工作的工作量大，管理繁瑣，既耗人力，又耗物力；另一方面，由于計算機技

4、術的飛速發(fā)展及應用的普及，學生信息管理這樣煩瑣的工作更需要由計算機來完成。因此開發(fā)一套對學生信息進行管理的軟件是極其重要的，而且是必需的，通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學統(tǒng)計和快速的查詢，從而減少管理方面的工作量。</p><p>　　學生信息管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據一致性和完整性強、數(shù)據安全性

5、好的庫。而對于后者則要求應用程序功能完備,易使用等特點。</p><p>　　二、學生信息管理系統(tǒng)分析與設計 </p><p>　　(一) 學生信息管理系統(tǒng)的需求分析</p><p>　　此學生信息管理信息系統(tǒng)是面向大學的管理系統(tǒng)，其目的是對學校內的學生，班級，和其它信息進行統(tǒng)一有序的管理。</p><p>　　該系統(tǒng)分為如下幾個模塊：<

6、;/p><p>　　1、學生信息查詢模塊：該模塊主要實現(xiàn)對學生基本信息的查詢。根據學生學號信息查詢學生的姓名、性別、班級、電話。</p><p>　　2、學生信息修改模塊：實現(xiàn)學校課程信息的修改功能。通過學生的學號來修改學生的姓名、性別、班級、電話。</p><p>　　3、學生信息插入模塊：實現(xiàn)學生信息的錄入操作。</p><p>　　錄入學生

7、信息為學號、姓名、性別、班級、電話。</p><p>　　4、學生信息刪除模塊：主要實現(xiàn)信息的刪除功能。通過學生的學號把這個學生的所有信息刪除。</p><p>　　(二) 系統(tǒng)功能模塊圖 </p><p><b>　　系統(tǒng)開發(fā)環(huán)境簡介 </b></p><p>　　該軟件是在Windows XP Professiona

8、l + Visual Basic 6.0 + SQL Server 2000的環(huán)境下完成的。下面就對這些開發(fā)工具進行介紹：</p><p>　　1、Visual Basic 6.0</p><p>　　微軟公司的Visual Basic 6.0是Windows應用程序開發(fā)工具，是目前最為廣泛的、易學易用的面向對象的開發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和

9、實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。利用VISUAL BASIC 程序設計語言，可以很方便地設計出在WINDOWS環(huán)境下運行的應用程序。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。</p><p>　　1.1、Visual Basic的編程特點</p><p>　　Visual Basic語言的出現(xiàn)為Windows下的編程提

10、出了一個新概念，利用Visual Basic的動態(tài)數(shù)據交換、對象的鏈接和嵌入、動態(tài)鏈接庫、ActiveX技術可以很方便地設計出功能強大的應用程序。</p><p>　　利用Visual Basic語言編程有以下幾個特點：</p><p>　　1）、QL Server 數(shù)據庫特點</p><p>　　概括起來，SQL Server 2000數(shù)據庫管理系統(tǒng)具有以下主要特

11、點。</p><p>　　1）、豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQL Server企業(yè)管理器是一個基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服務器、管理數(shù)據庫和數(shù)據庫對象、備份和恢復數(shù)據、調度任務和管理警報、實現(xiàn)數(shù)據復制和轉換操作等。此外，SQL Server 2000還提供了SQL事件探查器、SQL查詢分析器、SQL Server服務管理器和多種操作向導

12、等圖形界面管理工具，大大簡化了用戶操作，從而增強了系統(tǒng)的易用性。</p><p>　　2）、動態(tài)自動管理和優(yōu)化功能。即使SQL Server數(shù)據庫管理員不做任何設置，SQL Server也能夠在運行過程中根據環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達到最優(yōu)性能，從而減輕管理員工作。</p><p>　　3）、充分的Internet技術支持。Internet網絡發(fā)展到今天已經成為一條重要的信息

13、發(fā)布渠道，SQL Server增強了對Internet技術支持，它除保留了前期版本中的數(shù)據庫Web出版工具“Web助手”外，還增強了對XML和HTTP技術的支持，這使得電子商務系統(tǒng)能夠通過XML等訪問SQL Server數(shù)據庫系統(tǒng)，也擴展了SQL Server在數(shù)據挖掘和分析服務領域的應用。</p><p>　　4）、豐富的編程接口工具，使用戶開發(fā)SQL Server數(shù)據庫應用程序更加靈活。SQL Server提

14、供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等開發(fā)工具，Transact-SQL與工業(yè)標準SQL語言兼容，并在其基礎上加以擴充，使它更適合事務處理方面的需要。此外，SQL Server 2000還支持ODBC、OLE DB、ADO規(guī)范，可以使用ODBC、OLE DB、ADO接口訪問SQL Server數(shù)據庫。</p><p>　　5）、具有很好的伸縮性和可靠性。SQL

15、Server 2000既能運行在Windows桌面操作系統(tǒng)下，又可運行在服務器操作系統(tǒng)（包括Windows NT和Windows 2000）下；既能運行在單CPU計算機上，又能運行在對稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應用到大型企業(yè)分布式應用到不同層次用戶的要求。</p><p>　　6）、簡單的管理方式。SQL Server 2000與Microsoft Windows 2000有機集成，

16、所以可以使用Windows 2000的活動目錄（Active Directory）功能對SQL Server進行集中管理，大大簡化大型企業(yè)中的系統(tǒng)管理工作。此外，與Windows 2000的集成還使SQL Server能夠充分利用操作系統(tǒng)所提供的服務和功能（如安全管理、事件日志、性能監(jiān)視器、內存管理和異步I/O等），從而增強了SQL Server數(shù)據庫系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。</p><p>　

17、　(四) 數(shù)據庫設計 </p><p><b>　　1、概念設計</b></p><p><b>　　E-R圖</b></p><p><b>　　用戶實體圖</b></p><p><b>　　2、邏輯設計</b></p><p>

18、;　　學生（學號， 姓名，性別，班級， 電話）</p><p>　　用戶（用戶賬號，密碼）</p><p><b>　　數(shù)據庫實施</b></p><p><b>　　表1 學籍信息表</b></p><p><b>　　表2 用戶登錄表</b></p>&l

19、t;p>　　三、圖書管理系統(tǒng)的功能實現(xiàn) </p><p>　　(一)“登錄界面”編碼設計 </p><p>　　Private Sub Command3_Click()</p><p>　　Dim cn As ADODB.Connection '引用ADO對象方法：工程－引用－microsoft activeX data objects 2.6 lib

20、rary</p><p>　　Dim rs As ADODB.Recordset '創(chuàng)建對象</p><p>　　Dim cm As ADODB.Command</p><p>　　Set cn = New ADODB.Connection '對象實例化</p><p>　　Set rs = New ADODB.Records

21、et</p><p>　　Set cm = New ADODB.Command</p><p>　　Dim strcnn As String</p><p>　　strcnn="driver={sql server};server=K52;uid=sa;pwd=;database=student"</p><p>　　cn

22、.Open strcnn '打開到數(shù)據庫的連接</p><p>　　cm.ActiveConnection = cn</p><p>　　strsql = "select * from sc where admin='" + Text1.Text + "' and passward='" + Text2.Text +

23、 "'"</p><p>　　Set rs = cn.Execute(strsql) '在連接對象cn上執(zhí)行SQL命令strSQL,返回的記錄集賦給rs</p><p>　　If rs.EOF = False Then '判斷指針是否指向結束</p><p>　　Form2.Show</p><p&g

24、t;<b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　MsgBox ("用戶名或密碼錯誤正確!")</p><p><b>　　End If</b></p><p><b>　　End Sub

25、</b></p><p>　　(二)“學生信息管理界面”編碼設計 </p><p>　　Private Sub Command1_Click()</p><p>　　Form3.Show</p><p><b>　　Unload Me</b></p><p><b>　　En

26、d Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Form4.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>

27、　　Private Sub Command3_Click()</p><p>　　Form6.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p

28、><p>　　Form8.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　Form5.Show</p>

29、;<p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　(三)“學生信息查詢界面”編碼設計 </p><p>　　Private Sub Command2_Click()</p><p>　　Dim cn As ADOD

30、B.Connection '引用ADO對象方法：工程－引用－microsoft activeX data objects 2.6 library</p><p>　　Dim rs As ADODB.Recordset '創(chuàng)建對象</p><p>　　Dim cm As ADODB.Command</p><p>　　Set cn = New ADOD

31、B.Connection '對象實例化</p><p>　　Set rs = New ADODB.Recordset</p><p>　　Set cm = New ADODB.Command</p><p>　　Dim strcnn As String</p><p>　　strcnn ="driver={sql serve

32、r};server=K52;uid=sa;pwd=;database=student"</p><p>　　cn.Open strcnn '打開到數(shù)據庫的連接</p><p>　　rs.CursorType = adOpenStatic '設置游標類型為靜態(tài)</p><p>　　rs.CursorLocation = adUseClient

33、 '設置游標位置在客戶端</p><p>　　strsql = "select class ,sname ,sex ,telephone from s where sno='" + Text1.Text + "'"</p><p>　　Set rs = cn.Execute(strsql) '在連接對象cn上執(zhí)行SQ

34、L命令strSQL,返回的記錄集賦給rs</p><p>　　Do While rs.EOF = False '判斷指針是否指向結束</p><p>　　Text2.Text = rs!sname</p><p>　　Text3.Text = rs!sex</p><p>　　Text4.Text = rs!Class</p&g

35、t;<p>　　Text5.Text = rs!telephone</p><p>　　rs.MoveNext '記錄指針下移一個記錄</p><p><b>　　Loop</b></p><p>　　Set rs = Nothing '釋放recordset對象</p><p>　　cn.

36、Close '關閉連接，關閉后還可用OPEN打開</p><p>　　Set cn = Nothing '釋放connection對象，再打開要重新創(chuàng)建對象實例</p><p><b>　　End Sub</b></p><p>　　(四)“學生信息添加界面”編碼設計</p><p>　　Private

37、Sub Command1_Click()</p><p>　　Dim cn As ADODB.Connection '引用ADO對象方法：工程－引用－microsoft activeX data objects 2.6 library</p><p>　　Dim rs As ADODB.Recordset '創(chuàng)建對象</p><p>　　Dim cm

38、 As ADODB.Command</p><p>　　Set cn = New ADODB.Connection '對象實例化</p><p>　　Set rs = New ADODB.Recordset</p><p>　　Set cm = New ADODB.Command</p><p>　　Dim strcnn As Str

39、ing</p><p>　　strcnn ="driver={sql server};server=K52;uid=sa;pwd=;database=student"</p><p>　　cn.Open strcnn '打開到數(shù)據庫的連接</p><p>　　rs.CursorType = adOpenKeyset '設置游標類型

40、為動態(tài)</p><p>　　rs.CursorLocation = adUseClient '設置游標位置在客戶端</p><p>　　rs.LockType = adLockOptimistic '設</p><p>　　strsql = "select * from s where sno='" + Text1.Tex

41、t + "'"</p><p>　　cn.Errors.Clear</p><p>　　On Error GoTo error11</p><p>　　rs.Open strsql, cn, , , adCmdText</p><p>　　rs!sname = Text2.Text</p><p

42、>　　rs!sex = Text3.Text</p><p>　　rs!Class = Text4.Text</p><p>　　rs!telephone = Text5.Text</p><p><b>　　rs.Update</b></p><p>　　id = MsgBox("成功更新數(shù)據！&quo

43、t;, vbOKOnly, "更新數(shù)據")</p><p>　　Set rs = Nothing</p><p><b>　　cn.Close</b></p><p>　　Set cn = Nothing</p><p><b>　　Exit Sub</b></p>

44、<p><b>　　error11:</b></p><p>　　id = MsgBox("更新數(shù)據失??！", vbOKOnly, "更新數(shù)據")</p><p>　　Set rs = Nothing '釋放recordset對象</p><p>　　cn.Close '關閉連

45、接，關閉后還可用OPEN打開</p><p>　　Set cn = Nothing '釋放connection對象，再打開要重新創(chuàng)建對象實例</p><p><b>　　End Sub</b></p><p>　　(五)“學生信息修改界面”編碼設計 </p><p>　　Private Sub Command1_

46、Click()</p><p>　　Dim cn As ADODB.Connection '引用ADO對象方法：工程－引用－microsoft activeX data objects 2.6 library</p><p>　　Dim rs As ADODB.Recordset '創(chuàng)建對象</p><p>　　Dim cm As ADODB.Com

47、mand</p><p>　　Set cn = New ADODB.Connection '對象實例化</p><p>　　Set rs = New ADODB.Recordset</p><p>　　Set cm = New ADODB.Command</p><p>　　Dim strcnn As String</p>

48、<p>　　strcnn ="driver={sql server};server=K52;uid=sa;pwd=;database=student"</p><p>　　cn.Open strcnn '打開到數(shù)據庫的連接</p><p>　　rs.CursorType = adOpenDynamic '設置游標類型為動態(tài)</p>

49、;<p>　　rs.CursorLocation = adUseClient '設置游標位置在客戶端</p><p>　　rs.LockType = adLockOptimistic '設置游標鎖定類型，只在調用 Update 方法時鎖定記錄，沒有這一句, 將不允許更新數(shù)據庫</p><p>　　strsql = "select * from s&q

50、uot;</p><p>　　cn.Errors.Clear</p><p>　　On Error GoTo error11</p><p>　　rs.Open strsql, cn, , , adCmdText</p><p>　　rs.AddNew '在rs對象中插入一新行</p><p>　　rs!sna

51、me = Text1.Text</p><p>　　rs!sex = Text2.Text</p><p>　　rs!sno = Text3.Text</p><p>　　rs!Class = Text4.Text</p><p>　　rs!telephone = Text5.Text</p><p><b>

52、;　　rs.Update</b></p><p><b>　　error11:</b></p><p>　　If cn.Errors.Count = 0 Then</p><p>　　id = MsgBox("成功插入數(shù)據！", vbOKOnly, "插入信息")</p><

53、;p><b>　　Else</b></p><p>　　id = MsgBox("插入數(shù)據失??！", vbOKOnly, "插入信息")</p><p><b>　　End If</b></p><p>　　Set rs = Nothing '釋放recordset對象

54、</p><p>　　cn.Close '關閉連接，關閉后還可用OPEN打開</p><p>　　Set cn = Nothing '釋放connection對象，再打開要重新創(chuàng)建對象實例</p><p><b>　　End Sub</b></p><p>　　(六)“學生信息刪除界面”編碼設計</

55、p><p>　　Private Sub Command1_Click()</p><p>　　If MsgBox("您確定要刪除？", vbOKCancel, "請選擇") = vbCancel Then</p><p>　　Cancel = 1</p><p>　　Form8.Show</p>

56、<p><b>　　Else</b></p><p>　　Dim cn As ADODB.Connection '引用ADO對象方法：工程－引用－microsoft activeX data objects 2.6 library</p><p>　　Dim rs As ADODB.Recordset '創(chuàng)建對象</p>&

57、lt;p>　　Dim cm As ADODB.Command</p><p>　　Set cn = New ADODB.Connection '對象實例化</p><p>　　Set rs = New ADODB.Recordset</p><p>　　Set cm = New ADODB.Command</p><p>　　D

58、im strcnn As String</p><p>　　strcnn ="driver={sql server};server=K52;uid=sa;pwd=;database=student"</p><p>　　cn.Open strcnn '打開到數(shù)據庫的連接</p><p>　　rs.CursorType = adOpenDy

59、namic '設置游標類型為動態(tài)</p><p>　　rs.CursorLocation = adUseClient '設置游標位置在客戶端</p><p>　　rs.LockType = adLockOptimistic '設置游標鎖定類型，只在調用 Update 方法時鎖定記錄，沒有這一句, 將不允許更新數(shù)據庫</p><p>　　cn.

60、Errors.Clear</p><p>　　On Error GoTo error11</p><p>　　strsql = "select * from s where sno='" + Text1.Text + "'"</p><p>　　rs.Open strsql, cn, , , adCmdText

61、</p><p>　　If rs.EOF = False Then</p><p><b>　　rs.Delete</b></p><p>　　MsgBox ("成功刪除數(shù)據!")</p><p>　　Set rs = Nothing</p><p>　　cn.Close &#

62、39;關閉連接，關閉后還可用OPEN打開</p><p>　　Set cn = Nothing '釋放變量，再打開要重新創(chuàng)建對象實例</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　error11:

63、</b></p><p>　　MsgBox ("刪除數(shù)據失敗!")</p><p>　　cn.Close '關閉連接，關閉后還可用OPEN打開</p><p>　　Set cn = Nothing '釋放變量，再打開要重新創(chuàng)建對象實例\</p><p><b>　　End If<

64、/b></p><p><b>　　End Sub</b></p><p><b>　　四、結論與體會</b></p><p>　　時光短暫，短短的課程設計即將結束，報告基本完成。從最初的茫然，到慢慢的進入狀態(tài)，再到對思路逐漸的清晰，整個設計過程難以用語言來表達。歷經一周的奮戰(zhàn)，緊張而又充實課程設計終于落下了帷幕?，F(xiàn)

65、在回頭想想這幾天的經歷和感受，我感慨萬千，在這次課程設計的過程中，我擁有了無數(shù)的回憶和收獲。</p><p>　　這次設計報告的制作過程是我的一次再學習，再提高的過程。在報告中我充分運用了大學期間所學到的知識，也學會了如何使用所學的知識去解決一些實際問題。</p><p>　　此系統(tǒng)是我做的一個簡單的學生管理系統(tǒng)，由于缺少經驗，在建立數(shù)據庫的時候，考慮的不完善，建立數(shù)據庫內容較少，導致系統(tǒng)

66、功能實現(xiàn)不是那么完美。雖然在不斷的修改，但由于能力和時間的關系，還是有很多不盡人意的地方，在以后的修改過程中，我將會查更多的資料對系統(tǒng)進行更改，使系統(tǒng)的設計更加完善。</p><p>　　總之，通過這次課程設計,我深刻體會到要做好一個完整的事情，需要有系統(tǒng)的思維方式和方法，對待要解決的問題，要耐心、要善于運用已有的資源來充實自己。同時我也深刻的認識到，在對待一個新事物時，一定要從整體考慮，完成一步之后再作下一步，