VB學(xué)生信息管理系統(tǒng)課程設(shè)計_百度文庫

1、數(shù)據(jù)庫技術(shù)課程設(shè)計題目班級學(xué)號姓名指導(dǎo)教師承德石油高等?？茖W(xué)校計算機(jī)與信息工程系2011年12月26日2011年12月30日學(xué)生信息管理系統(tǒng)設(shè)計說明書一、導(dǎo)言隨著高校規(guī)模的不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長，龐大學(xué)生信息的管理工作成了高校教學(xué)管理工作中的一項重要任務(wù)，一方面，假如遵從以往舊式的工作方式，該工作的工作量大，管理繁瑣，既耗人力，又耗物力；另一方面，由于計算機(jī)技術(shù)的飛速發(fā)展及應(yīng)用的普及，學(xué)生信息管理這樣煩瑣的工作更需要由計算機(jī)來完成。因此開發(fā)一套對學(xué)生信息進(jìn)行管理的軟件是極其重要的，而且是必需的，通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速的查詢，從

2、而減少管理方面的工作量。學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS,其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備, 易使用等特點(diǎn)。二、學(xué)生信息管理系統(tǒng)分析與設(shè)計(一學(xué)生信息管理系統(tǒng)的需求分析此學(xué)生信息管理信息系統(tǒng)是面向大學(xué)的管理系統(tǒng)，其目的是對學(xué)校內(nèi)的學(xué)生，班級，和其它信息進(jìn)行統(tǒng)一有序的管理。該系統(tǒng)分為如下幾個模塊：1、學(xué)生信息查詢模塊：該模塊主要實(shí)現(xiàn)對學(xué)生基本信息的查詢。根據(jù)學(xué)生學(xué)號信息查詢學(xué)生的姓名、性別、班級、電話。2、學(xué)生信息修改模塊：實(shí)現(xiàn)學(xué)校課程信息的修改功能。通過學(xué)生

3、的學(xué)號來修改學(xué)生的姓名、性別、班級、電話。3、學(xué)生信息插入模塊：實(shí)現(xiàn)學(xué)生信息的錄入操作。錄入學(xué)生信息為學(xué)號、姓名、性別、班級、電話。4、學(xué)生信息刪除模塊：主要實(shí)現(xiàn)信息的刪除功能。通過學(xué)生的學(xué)號把這個學(xué)生的所有信息刪除。(二系統(tǒng)功能模塊圖學(xué)生信息管理系統(tǒng)信息查詢信息修改信息添加信息刪除(三系統(tǒng)開發(fā)環(huán)境簡介該軟件是在Windows XP Professional +Visual Basic 6.0+SQL Server 2000的環(huán)境下完成的。下面就對這些開發(fā)工具進(jìn)行介紹：1、VisualBasic 6.0微軟公司的Visual Basic 6.0是Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛

4、的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。利用VISUAL BASIC 程序設(shè)計語言，可以很方便地設(shè)計出在WINDOWS 環(huán)境下運(yùn)行的應(yīng)用程序。故而，實(shí)現(xiàn)本系統(tǒng)VB 是一個相對較好的選擇。1.1、VisualBasic 的編程特點(diǎn)Visual Basic 語言的出現(xiàn)為Windows 下的編程提出了一個新概念，利用Visual Basic 的動態(tài)數(shù)據(jù)交換、對象的鏈接和嵌入、動態(tài)鏈接庫、ActiveX技術(shù)可以很方便地設(shè)計出功能強(qiáng)大的應(yīng)用

5、程序。利用Visual Basic 語言編程有以下幾個特點(diǎn)：1）、QL Server 數(shù)據(jù)庫特點(diǎn)概括起來，SQLServer 2000數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點(diǎn)。1）、豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQLServer 企業(yè)管理器是一個基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Server 服務(wù)器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對象、備份和恢復(fù)數(shù)據(jù)、調(diào)度任務(wù)和管理警報、實(shí)現(xiàn)數(shù)據(jù)復(fù)制和轉(zhuǎn)換操作等。此外，SQLServer 2000還提供了SQL 事件探查器、SQL查詢分析器、SQLServer 服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡化了用戶操作，從

6、而增強(qiáng)了系統(tǒng)的易用性。2）、動態(tài)自動管理和優(yōu)化功能。即使SQL Server 數(shù)據(jù)庫管理員不做任何設(shè)置，SQLServer 也能夠在運(yùn)行過程中根據(jù)環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。3）、充分的Internet 技術(shù)支持。Internet網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道，SQLServer 增強(qiáng)了對Internet 技術(shù)支持，它除保留了前期版本中的數(shù)據(jù)庫Web 出版工具“Web助手”外，還增強(qiáng)了對XML 和HTTP 技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過XML 等訪問SQL Server 數(shù)據(jù)庫系統(tǒng)，也擴(kuò)展了SQL Server 在數(shù)據(jù)挖掘和分析

7、服務(wù)領(lǐng)域的應(yīng)用。4）、豐富的編程接口工具，使用戶開發(fā)SQL Server 數(shù)據(jù)庫應(yīng)用程序更加靈活。SQLServer 提供了Transact-SQL、DB-Libraryfor C、嵌入式SQL（ESQL）等開發(fā)工具，Transact-SQL與工業(yè)標(biāo)準(zhǔn)SQL 語言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。此外，SQLServer 2000還支持ODBC、OLEDB、ADO 規(guī)范，可以使用ODBC、OLEDB、ADO接口訪問SQL Server 數(shù)據(jù)庫。5）、具有很好的伸縮性和可靠性。SQLServer 2000既能運(yùn)行在Windows 桌面操作系統(tǒng)下，又可運(yùn)行在服務(wù)器操作系統(tǒng)（

8、包括Windows NT 和Windows 2000）下；既能運(yùn)行在單CPU 計算機(jī)上，又能運(yùn)行在對稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。6）、簡單的管理方式。SQL Server 2000與Microsoft Windows 2000有機(jī)集成，所以可以使用Windows 2000的活動目錄（Active Directory ）功能對SQL Server 進(jìn)行集中管理，大大簡化大型企業(yè)中的系統(tǒng)管理工作。此外，與Windows 2000的集成還使SQL Server 能夠充分利用操作系統(tǒng)所提供的服務(wù)和功能（如安全管理、事件日志、性能

9、監(jiān)視器、內(nèi)存管理和異步I/O等），從而增強(qiáng)了SQL Server 數(shù)據(jù)庫系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。(四數(shù)據(jù)庫設(shè)計1、概念設(shè)計E-R 圖 用戶實(shí)體圖 2、邏輯設(shè)計學(xué)生（學(xué)號，姓名，性別，班級，電話）3、數(shù)據(jù)庫實(shí)施表1學(xué)籍信息表字段名稱類型說明snochar(10主鍵not null snamechar(8not null sexchar(2null classchar(20null teleohone char(20null表2用戶登錄表字段名稱類型說明adminchar(10not null passward char(10null三、圖書管理系統(tǒng)的功能實(shí)現(xiàn)(一“登錄界面”編碼

10、設(shè)計 Private Sub Command3_Click(Dim cn As ADODB.Connection '引用ADO 對象方法：工程引用microsoft activeX data objects 2.6libraryDim rs As ADODB.Recordset '創(chuàng)建對象Dim cm As ADODB.CommandSet cn =New ADODB.Connection '對象實(shí)例化Set rs =New ADODB.RecordsetSet cm =New ADODB.CommandDim strcnn As Stringstrcnn="

11、driver=sqlserver;server=K52;uid=sa;pwd=;database=student"cn.Open strcnn '打開到數(shù)據(jù)庫的連接cm.ActiveConnection =cnstrsql ="select *from sc where admin='"+Text1.Text +"' and passward='"+Text2.Text +"'"Set rs =cn.Execute(strsql'在連接對象cn 上執(zhí)行SQL 命令strSQL,

12、 返回的記錄集賦給rsIf rs.EOF =False Then'判斷指針是否指向結(jié)束Form2.ShowUnload MeElseMsgBox ("用戶名或密碼錯誤正確!"End IfEnd Sub(二“學(xué)生信息管理界面”編碼設(shè)計 Private Sub Command1_Click(Form3.ShowUnload MeEnd SubPrivate Sub Command2_Click(Form4.ShowUnload MeEnd SubPrivate Sub Command3_Click(Form6.ShowUnload MeEnd SubPrivate Su

13、b Command4_Click(Form8.ShowUnload MeEnd SubPrivate Sub Command5_Click(Form5.ShowUnload MeEnd Sub(三“學(xué)生信息查詢界面”編碼設(shè)計 Private Sub Command2_Click(Dim cn As ADODB.Connection '引用ADO 對象方法：工程引用microsoftactiveX data objects 2.6libraryDim rs As ADODB.Recordset '創(chuàng)建對象Dim cm As ADODB.CommandSet cn =New ADO

14、DB.Connection '對象實(shí)例化Set rs =New ADODB.RecordsetSet cm =New ADODB.CommandDim strcnn As Stringstrcnn ="driver=sqlserver;server=K52;uid=sa;pwd=;database=student"cn.Open strcnn '打開到數(shù)據(jù)庫的連接rs.CursorType =adOpenStatic '設(shè)置游標(biāo)類型為靜態(tài)rs.CursorLocation =adUseClient '設(shè)置游標(biāo)位置在客戶端strsql =&qu

15、ot;select class ,sname ,sex ,telephonefrom s where sno='"+Text1.Text +"'"Set rs =cn.Execute(strsql'在連接對象cn 上執(zhí)行SQL 命令strSQL,返回的記錄集賦給rsDo While rs.EOF =False '判斷指針是否指向結(jié)束Text2.Text =rs!snameText3.Text =rs!sexText4.Text =rs!ClassText5.Text =rs!telephoners.MoveNext '記錄指

16、針下移一個記錄LoopSet rs =Nothing '釋放recordset 對象cn.Close '關(guān)閉連接，關(guān)閉后還可用OPEN 打開Set cn =Nothing '釋放connection 對象，再打開要重新創(chuàng)建對象實(shí)例End Sub(四“學(xué)生信息添加界面”編碼設(shè)計 Private Sub Command1_Click(Dim cn As ADODB.Connection '引用ADO 對象方法：工程引用microsoftactiveX data objects 2.6libraryDim rs As ADODB.Recordset '創(chuàng)建對象

17、Dim cm As ADODB.CommandSet cn =New ADODB.Connection '對象實(shí)例化Set rs =New ADODB.RecordsetSet cm =New ADODB.CommandDim strcnn As Stringstrcnn ="driver=sqlserver;server=K52;uid=sa;pwd=;database=student"cn.Open strcnn '打開到數(shù)據(jù)庫的連接rs.CursorType =adOpenKeyset '設(shè)置游標(biāo)類型為動態(tài)rs.CursorLocation =

18、adUseClient '設(shè)置游標(biāo)位置在客戶端rs.LockType =adLockOptimistic '設(shè)strsql ="select *from s where sno='"+Text1.Text +"'"cn.Errors.ClearOn Error GoTo error11rs.Open strsql, cn, , , adCmdTextrs!sname =Text2.Textrs!sex =Text3.Textrs!Class =Text4.Textrs!telephone =Text5.Textrs.Upd

19、ateid =MsgBox("成功更新數(shù)據(jù)！",vbOKOnly, "更新數(shù)據(jù)"Set rs =Nothingcn.CloseSet cn =NothingExit Suberror11:id =MsgBox("更新數(shù)據(jù)失?。?quot;,vbOKOnly, "更新數(shù)據(jù)"Set rs =Nothing '釋放recordset 對象cn.Close '關(guān)閉連接，關(guān)閉后還可用OPEN 打開Set cn =Nothing '釋放connection 對象，再打開要重新創(chuàng)建對象實(shí)例End Sub(五“學(xué)生信

20、息修改界面”編碼設(shè)計 Private Sub Command1_Click(Dim cn As ADODB.Connection '引用ADO 對象方法：工程引用microsoftactiveX data objects 2.6libraryDim rs As ADODB.Recordset '創(chuàng)建對象 Dim cm As ADODB.Command Set cn = New ADODB.Connection '對象實(shí)例化 Set rs = New ADODB.Recordset Set cm = New ADODB.Command Dim strcnn As Stri

21、ng strcnn ="driver=sql server;server=K52;uid=sa;pwd=;database=student" cn.Open strcnn '打開到數(shù)據(jù)庫的連接 rs.CursorType = adOpenDynamic '設(shè)置游標(biāo)類型為動態(tài) rs.CursorLocation = adUseClient '設(shè)置游標(biāo)位置在客戶端 rs.LockType = adLockOptimistic '設(shè)置游標(biāo)鎖定類型，只在調(diào)用 Update 方法 時鎖定記錄，沒有這一句, 將不允許更新數(shù)據(jù)庫 strsql = &quo

22、t;select * from s" cn.Errors.Clear On Error GoTo error11 rs.Open strsql, cn, , , adCmdText rs.AddNew '在 rs 對象中插入一新行 rs!sname = Text1.Text rs!sex = Text2.Text rs!sno = Text3.Text rs!Class = Text4.Text rs!telephone = Text5.Text rs.Update error11: If cn.Errors.Count = 0 Then id = MsgBox("

23、成功插入數(shù)據(jù)！", vbOKOnly, "插入信息" Else id = MsgBox("插入數(shù)據(jù)失敗！", vbOKOnly, "插入信息" End If Set rs = Nothing '釋放 recordset 對象 cn.Close '關(guān)閉連接，關(guān)閉后還可用 OPEN 打開 Set cn = Nothing '釋放 connection 對象，再打開要重新創(chuàng)建對象實(shí)例 End Sub (六“學(xué)生信息刪除界面”編碼設(shè)計 Private Sub Command1_Click( If MsgBox

24、("您確定要刪除？", vbOKCancel, "請選擇" = vbCancel Then Cancel = 1 Form8.Show Else Dim cn As ADODB.Connection '引用 ADO 對象方法：工程引用microsoft activeX data objects 2.6 library Dim rs As ADODB.Recordset '創(chuàng)建對象 Dim cm As ADODB.Command Set cn = New ADODB.Connection '對象實(shí)例化 Set rs = New AD

25、ODB.Recordset Set cm = New ADODB.Command Dim strcnn As String strcnn ="driver=sql server;server=K52;uid=sa;pwd=;database=student" cn.Open strcnn '打開到數(shù)據(jù)庫的連接 rs.CursorType = adOpenDynamic '設(shè)置游標(biāo)類型為動態(tài) rs.CursorLocation = adUseClient '設(shè)置游標(biāo)位置在客戶端 rs.LockType = adLockOptimistic '設(shè)置游標(biāo)鎖定類型，只在調(diào)用 Update 方法 時鎖定記錄，沒有這一句, 將不允許更新數(shù)據(jù)庫 cn.Errors.Clear On Error GoTo error11 strsql = "select * from s where sno='" + Text1.Text