數(shù)據(jù)庫原理b課程設(shè)計--數(shù)據(jù)庫學(xué)生信息管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：25 大?。?95.00KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩24頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　課程設(shè) 計說明書　　題目：學(xué)生信息管理系統(tǒng)　　課程：數(shù)據(jù)庫原理B課程設(shè)計　　院（部）：信息與電氣工程學(xué)院　　專業(yè)：電子信息工程</p&g

2、t;　　班級：電信061　　目錄　　摘要···················

3、;····································

4、83;····································&

5、#183;····································

6、;··········II　　1 設(shè)計目的·····················&#

7、183;····································

8、····································

9、3;································1　　2

10、設(shè)計要求····································

11、····································

12、3;····································&#

13、183;·················1　　3 設(shè)計內(nèi)容··············

14、····································

15、3;····································&#

16、183;····································

17、···2　　3.1系統(tǒng)需求分析····························&

18、#183;····································

19、;····································

20、83;···········2　　3.2概念模型設(shè)計···················

21、3;····································&#

22、183;····································

23、····················3　　3.3關(guān)系模型設(shè)計···········&

24、#183;····································

25、;····································

26、83;····························6　　3.4 軟件設(shè)計與實現(xiàn)··&#

27、183;····································

28、····································

29、3;·······························7　　總結(jié)與致謝

30、83;····································&

31、#183;····································

32、;····································

33、83;···············19　　參考文獻················&#

34、183;····································

35、····································

36、3;····································&#

37、183;···20　　摘要　　學(xué)生信息管理系統(tǒng)是對學(xué)校學(xué)生管理工作進行處理的一個計算機系統(tǒng)。信息管理是學(xué)校管理中最為繁瑣的一項工作，因而有必要對此進行簡化并用計算機管理來代替人工管理。　　本設(shè)計做作的是一個學(xué)生信息管理系統(tǒng)。如對學(xué)生信息系統(tǒng)做了

38、需求分析，設(shè)計了E-R模型，并做出了相應(yīng)的概念模型，關(guān)系模型。根據(jù)建立的模型創(chuàng)建相應(yīng)的表和視圖，本次設(shè)計主要完成了學(xué)生個人信息管理系統(tǒng)，利用數(shù)據(jù)庫知識將其功能完成。　　根據(jù)設(shè)計要求新建數(shù)據(jù)庫并在其中建立相應(yīng)的存儲結(jié)構(gòu)，并在各個表中建立合適的觸發(fā)器，用來完成各種操作和約束。　　在vb程序設(shè)計方面，建立與客戶端相交互的界面，用來完成相應(yīng)的查找、刪除、添加、修

39、改等對于數(shù)據(jù)庫的各種操作。并在vb的工程中引用SQL語句，引用存儲過程，來實現(xiàn)各種功能 　　1 設(shè)計目的　　開發(fā)信息管理系統(tǒng)的總體目標(biāo)主要是：　　實現(xiàn)教務(wù)處個本門之間以及教務(wù)處與各院系教學(xué)管理部門之間的信息交換，同時支持報表、書面文檔等原有的交換形式：實現(xiàn)各部門教學(xué)管理的全面

40、計算機化，是功能盡可能完善、系統(tǒng)、全面；實現(xiàn)對歷史數(shù)據(jù)的計算機管理；并及時為學(xué)校個管理部門提供統(tǒng)計、分析的決策信息。　　2 設(shè)計要求　　學(xué)生信息管理工作主要是學(xué)生基本情況的管理包括學(xué)生學(xué)籍變動的管理、學(xué)生成績的管理。主要包括數(shù)據(jù)輸入、修改、刪除、查詢、和打印報表等功能，學(xué)生信息管理系統(tǒng)要能高效、準(zhǔn)確地完成這些功能，為

41、管理學(xué)生信息等工作提高了效率和準(zhǔn)確率。　　現(xiàn)在的學(xué)生信息的服務(wù)我種我樣，各塊的實現(xiàn)功能也不同，但學(xué)生的信息管理必定包括這以下幾部份：信息的錄入，信息修改，信息的查詢顯示。由于我們對學(xué)生信息的管理有了相對的了解和接觸，此次數(shù)據(jù)庫設(shè)計只能在一些收集到的基本材料與個人直觀認(rèn)識的基礎(chǔ)上，簡單模仿中等規(guī)模的學(xué)生信息管理系統(tǒng)，并將其抽象成一個由三部門組成、實現(xiàn)三大服務(wù)的系統(tǒng)。<

42、p>　　1．經(jīng)濟上的可行性　　主要對項目的經(jīng)濟效益進行評價。該系統(tǒng)除了購置硬件設(shè)備外，操作簡便，無須投入較大的培訓(xùn)費用、開發(fā)費用、維護費用等，并且在實施過程中減少手工操作的步驟、加快了對學(xué)生的學(xué)籍管理、學(xué)籍變動管理和學(xué)生成績管理的速度。　　2．技術(shù)上的可行性</p&g

43、t;　　本系統(tǒng)的開發(fā)采用的是VB，它通過設(shè)計、開發(fā)、配置和管理的緊密集成大大提高了開發(fā)人員的生產(chǎn)力。 　　3．資源上的可行性　　本系統(tǒng)資源利用方便，數(shù)據(jù)可通過.txt文件導(dǎo)入數(shù)據(jù)庫而進行使用，也可將數(shù)據(jù)庫文件導(dǎo)出為.txt文件，便于數(shù)據(jù)的文件格式的轉(zhuǎn)換和資源的共享。<

44、;p>　　3 設(shè)計內(nèi)容　　3.1系統(tǒng)需求分析　　1.功能模塊：　　學(xué)生信息管理系統(tǒng)涉及院系信息、班級信息、任課教師信息、學(xué)生信息、學(xué)籍變更信息、學(xué)生獎懲信息、課程信息以及選課信息和成績等多種數(shù)據(jù)

45、信息。管理用戶包括系統(tǒng)管理員、教師和學(xué)生。系統(tǒng)管理員負責(zé)日常的學(xué)籍管理工作，如各種基本信息的錄入、修改、刪除等操作。教師使用該系統(tǒng)可完成教學(xué)班信息查詢和成績管理。學(xué)生使用該系統(tǒng)主要完成選課和成績查詢等操作。經(jīng)過調(diào)研與分析，學(xué)生信息管理系統(tǒng)主要應(yīng)具有以下功能。（1）院系信息管理。院系信息管理包括院系信息數(shù)據(jù)的錄入、修改與刪除等功能。（2）班級信息管理。班級信息管理包括班級信息的錄入、修改與刪除等功能。（3）教師信息管理。教師信息

46、管理包括任課教師信息的錄入、修改與刪除等功能。（4）學(xué)生個人信息管理。學(xué)生信息管理包括學(xué)生信息的錄入、修改與刪除等功能。（5）課程信息管理。課程信息管理包括課程信息的錄入、修改與刪除等。　　本次詳細制作了學(xué)生個人基本信息管理系統(tǒng)模塊。　　2.數(shù)據(jù)庫表分析：

47、;　　1）．成績表 　　它是學(xué)生信息管理系統(tǒng)所需的基本表之一。它提供服務(wù)的特點是顯示相對應(yīng)學(xué)生的基本信息，實時性強、供查詢時間短，強調(diào)效率。例如，我們要查詢出成績最高的學(xué)生基本成績，我們可以用相應(yīng)的語句，在成績表中來實現(xiàn)，及時的更換顯示信息。通過分析可發(fā)現(xiàn)，用人工完成此類操作比計算機更具實效與時效，且此類信息也沒有長時間保留的必要，因此這些信息沒有必要采用數(shù)據(jù)庫管理。<

48、/p>　　2）．班級表　　它是學(xué)生信息管理系統(tǒng)所需的基本表之一。班級表主要有：年級，班級，教室，年制，專業(yè)，班主任，備注。以上信息處理可以通過計算機完成，其他不便于計算機操作的在此沒有列出。　　3）．班級課程表

49、　　班級課程表是主體，它的存在除了顯示班級外，更多的是為了方便用戶在表間連接查詢。班級表的特點與成績很相似，不便于使用計算機進行操作?？梢杂糜嬎銠C完成并且有必要用計算機完成的有：年級，專業(yè)，年制，學(xué)期，課程名稱。等的查詢顯示。　　4）．學(xué)生表　　學(xué)生表不是面向管理員、而是方便用戶的查詢顯示，但它的存在卻是必不可少的。

50、它的主要職責(zé)有：A.管理學(xué)生。給學(xué)生編號，登記其基本信息；根據(jù)學(xué)生的課程成績來對學(xué)生評分；此外，還要給員工分配班級等等。B.家庭住址。顯示各個學(xué)生的詳細住址情況，方便學(xué)校聯(lián)系等。　　3.2概念模型設(shè)計　　學(xué)生E-R圖　　2.考試類型E-R

51、圖　　3.用戶E-R圖　　4.學(xué)費E-R圖　　5.交費E-R圖　　6.課程E-R圖<p&g

52、t;　　7.班級E-R圖　　8.班級課程E-R圖　　總E-R圖:　　3.3關(guān)系模型設(shè)計　　實體所對應(yīng)的關(guān)系模式：

53、cj(學(xué)號，學(xué)期，類型，課程名稱，分?jǐn)?shù))　　class(年級，班級，教室，年制，專業(yè)，班主任，備注)　　classkecheng(年級，專業(yè)，年制，學(xué)期，課程名稱)　　jf(學(xué)號，學(xué)期，交費，欠費，日期，操作員)　　kaoshileixing(類型)

54、　　use(Username,password,admin,readonly,qx1,qx2,qx3,qx4)　　xs(學(xué)號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時間)　　xuefei(年級，專業(yè)，年制，學(xué)期，學(xué)費)　　3.2軟件設(shè)計與實現(xiàn)&l

55、t;p>　　主界面視圖：將此程序命名為小孟學(xué)生信息管理系統(tǒng)　　SQL語句設(shè)計：　　我選取制作的是學(xué)生信息查詢模塊：　　所用的數(shù)據(jù)庫為：學(xué)生信息。　　含有的表為：學(xué)生人數(shù)，學(xué)生基本信息，學(xué)生更多信息，學(xué)生家庭信息。</p&g

56、t;　　學(xué)生人數(shù)的表中只含有 “人數(shù)“列，觸發(fā)器被設(shè)計為更改其中的人數(shù)列而動態(tài)的反映學(xué)生的人數(shù)　　存儲過程程序及其功能：　　存儲過程 my　　作用：將vb從客戶端得到的值通過輸入?yún)?shù)傳遞到存儲過程，再通過存儲過程將數(shù)據(jù)<p&

57、gt;　　寫入要修改的表中　　Create procedure my on 學(xué)生信息　　(@name char(50　　@number char(50)，　　@address char(100)，<p&g

58、t;　　@pnumber char(100)，　　@minzu char(100)， 　　@sushe char(50)，　　@shenfen char(100)， 　　@yuanxi char(100)，

59、　　@sex char(50)， 　　@date char(50)　　)　　AS　　Insert into 學(xué)生基本信息( 姓名，學(xué)號，性別，出生日期)values(@number,@num

60、ber,@sex,@date)　　Insert into 學(xué)生家庭信息（家庭住址，聯(lián)系方式）values（@address，@pnumber）　　Insert into 學(xué)生更多信息（民族，所在宿舍，身份證號，院系）values（@民族，@sushe,@shenfen,@yuanxi）　　GO

61、　　觸發(fā)器程序及其功能：　　觸發(fā)器1，對于“學(xué)生基本信息”表中的插入操作進行計數(shù)，從而動態(tài)統(tǒng)計學(xué)生的人數(shù).　　CREATE TRIGGER [tr_1] ON 學(xué)生基本信息 after INSERT

62、 AS update 學(xué)新人數(shù) set 人數(shù) = 人數(shù)+1 　　Go　　當(dāng)每進行完一次插入操作后，觸發(fā)器更新人數(shù)信息，使其自加一 CR

63、EATE TRIGGER [tr_2] ON 學(xué)生基本信息 after delete AS update 學(xué)新人數(shù) set 人數(shù) = 人數(shù)-1 　　當(dāng)每進行完一次刪除操作后，

64、觸發(fā)器更新人數(shù)信息，使其自減一。　　程序通過讀取表“學(xué)生人數(shù)“中的數(shù)據(jù)來得到當(dāng)前本系統(tǒng)所管理的學(xué)生數(shù)。　　vb程序設(shè)計：　　所用的任務(wù)主界面上統(tǒng)一完成　　程序代碼為：<

65、;p>　　程序的初始化加載：　　Private Sub Form_Load()　　Form1.Text1.Text = ""　　Form1.Text2.Text = ""　　Form1.T

66、ext3.Text = ""　　Form1.Text4.Text = ""　　Form1.Text5.Text = ""　　Form1.Text6.Text = ""　　Form1.Text7

67、.Text = ""　　Form1.Text8.Text = ""　　Form1.Text9.Text = ""　　Form1.Text10.Text = "" ----將所有都text置為空

68、;　　Dim conn As New Connection---　　Dim rs As New Recordset　　Dim Str$　　Str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Secu

69、rity Info=False;Initial Catalog=學(xué)生信息;Data Source=605-50"—數(shù)據(jù)庫連接字符串　　conn.ConnectionString = Str　　conn.Open　　strSQL = "select * fr

70、om 學(xué)生人數(shù) "　　rs.Open strSQL, conn, 3, 3—在vb中調(diào)用sql語句　　Text11.Text = rs!人數(shù)　　-----在學(xué)生人數(shù)表里讀取學(xué)生數(shù)，并在主界面顯示　　rs.Close</

71、p>　　End Sub　　添加記錄按鈕程序：　　Private Sub Command1_Click()　　Dim sc As Integer　　If Text1.Te

72、xt = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = ""

73、 Or Text9.Text = "" Or Text10.Text = "" Then　　'判斷是否完整地填完各條記錄　　'如果沒有填完則提示重新填寫信息　　MsgBox ("請輸入完整的學(xué)生信息")<p&

74、gt;　　Else　　sc = MsgBox("確實要添加這條記錄嗎？", vbOKCancel, "提示信息")　　If sc = 1 Then 　　'運行時如果用戶點擊的是MsgBox提示框的“確定”按鈕，返回值是1<

75、/p>　　則將信息寫入數(shù)據(jù)庫學(xué)生信息的表中　　Dim conn As New Connection　　Dim rs As New Recordset　　Dim cm As New Command　　Dim Str$</b

76、>　　Str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息;Data Source=607-61"------鏈接字符串　　conn.ConnectionString = Str&l

77、t;/p>　　conn.Open　　cm.ActiveConnection = conn　　cm.CommandText = "my" '存儲過程名　　cm.CommandType = adCmdStoredProc&l

78、t;/p>　　cm.Parameters.Item("@name").Value = Text1.Text '輸入?yún)?shù)的值　　cm.Parameters.Item("@number").Value = Text2.Text　　cm.Parameters.Item("@

79、address").Value = Text5.Text　　cm.Parameters.Item("@pnumber").Value = Text6.Text　　cm.Parameters.Item("@minzu").Value = Text9.Text　　cm

80、.Parameters.Item("@sushe").Value = Text8.Text　　cm.Parameters.Item("@shenfen").Value = Text10.Text　　cm.Parameters.Item("@yuanxi").Value = Text3.Text&

81、lt;/p>　　cm.Parameters.Item("@sex").Value = Text4.Text　　cm.Parameters.Item("@date").Value = Text7.Text　　cm.Execute　　conn.Clo

82、se------調(diào)用存儲過程并將text中相應(yīng)的值賦予輸入?yún)?shù)　　MsgBox ("添加記錄成功！")‘如果成功調(diào)用存儲過程寫入信息怎出現(xiàn)成功的提示　　End If　　End If<p&

83、gt;　　End Sub‘結(jié)束　　修改記錄按鈕的程序代碼：　　Private Sub Command2_Click()　　If Not IsNumeric(Text2.Text) Or Val(Text2.Text) = 0 Then　　'先判斷學(xué)生的學(xué)號是否正確

84、　　MsgBox "學(xué)號號是大于0的自然數(shù)，請輸入正確的學(xué)號！"　　Exit Sub　　End If　　If Text1.Text = "" Or Text

85、2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "&q

86、uot; Or Text10.Text = "" Then　　'對文本框的內(nèi)容進行校驗，不接收空值　　MsgBox "請輸入完整的學(xué)生信息！"　　Exit Sub　　E

87、nd If　　Dim sc As Integer　　sc = MsgBox("確實修改此信息嗎？", vbOKCancel, "提示信息")　　If sc = 1 Then　　'運行時如果用戶點擊的是Ms

88、gBox提示框的“確定”按鈕，返回值是1　　Dim conn As New Connection　　Dim rs As New Recordset　　Dim Str$　　Str = "Provider=SQLOLEDB.1;

89、Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息;Data Source=603-096"—鏈接字符串　　conn.ConnectionString = Str　　conn.Open&l

90、t;p>　　strSQL = "select * from 學(xué)生基本 where 學(xué)號=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3---對學(xué)生基本信息表，執(zhí)行sql語句，查找學(xué)生的學(xué)號　　If rs!學(xué)號 = Val(Text2.T

91、ext) Then'　　'如果rs!學(xué)號 = Val(Text4.Text)說明數(shù)據(jù)庫中有此記錄，　　'才會修改其它幾個字段的內(nèi)容　　'否則給出“不存在此記錄”的提示信息并關(guān)閉數(shù)據(jù)連接　　rs!姓名 = Text1.Text</p&g

92、t;　　rs!學(xué)號 = Text2.Text　　rs!性別 = Text3.Text　　rs!出生日期 = Text4.Text　　rs.Update　　rs.Close&l

93、t;/p>　　Else　　MsgBox ("不存在此記錄！")　　rs.Close　　conn.Close　　Exit Sub&l

94、t;/b>　　End If　　strSQL = "select * from 學(xué)生家庭信息 where 學(xué)號=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3

95、-----對學(xué)生家庭信息表執(zhí)行如上操作　　If rs!學(xué)號 = Val(Text2.Text) Then　　rs!家庭住址 = Text1.Text　　rs!聯(lián)系方式 = Text3.Text　　rs.Update

96、　　rs.Close　　Else　　MsgBox ("不存在此記錄！")　　rs.Close　　conn.Close

97、　　Exit Sub　　End If　　strSQL = "select * from 學(xué)生更多信息 where 學(xué)號=" & Val(Text2.Text) & ""</p&

98、gt;　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號 = Val(Text2.Text) Then　　rs!民族 = Text1.Text　　rs!所在宿舍 = Text3.Text　　rs!身份證號 = Text1.T

99、ext　　rs!院系 = Text3.Text　　rs.Close　　conn.Close　　MsgBox ("修改記錄成功！")　　Else</b

100、>　　MsgBox ("不存在此記錄！")　　rs.Close　　conn.Close　　Exit Sub

101、End If　　End If　　End Sub‘結(jié)束　　查詢按鈕的程序：　　Private Sub Command5_Click()

102、　If Not IsNumeric(Text2.Text) Or Val(Text2.Text) = 0 Then　　'驗證學(xué)號　　MsgBox "記錄號是大于0的自然數(shù)，請輸入正確的學(xué)號！"　　Exit Sub

103、;　　End If　　If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or

104、Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Then　　'對幾個文本框的內(nèi)容進行校驗，不接收空值　　Msg

105、Box "請輸入完整的學(xué)生生信息！"　　Exit Sub　　End If　　Dim conn As New Connection　　Dim rs As New Recordse

106、t　　Dim Str$　　Str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息;Data Source=603-096"—數(shù)據(jù)庫鏈接字符串</p

107、>　　conn.ConnectionString = Str　　conn.Open　　strSQL = "select * from 學(xué)生基本信息 where 學(xué)號=" & Val(Text2.Text) & ""

108、　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號 = Val(Text2.Text) Then　　'如果rs!學(xué)號 = Val(Text2.Text)說明數(shù)據(jù)庫中有此記錄，　　'才會修改其它幾個字段的內(nèi)容

109、　'否則給出“不存在此記錄”的提示信息并關(guān)閉數(shù)據(jù)連接　　Text1.Text = rs!姓名　　Text2.Text = rs!學(xué)號　　Text4.Text = rs!出生日期　　rs.Update&l

110、t;p>　　rs.Close　　Else　　MsgBox ("不存在此記錄！")　　Exit Sub　　End I

111、f　　strSQL = "select * from 學(xué)生家庭信息 where 學(xué)號=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號 = Val(Text2.T

112、ext) Then　　'如果rs!編號 = Val(Text2.Text)說明數(shù)據(jù)庫中有此記錄，　　'才會修改其它三個字段的內(nèi)容　　'否則給出“不存在此記錄”的提示信息并關(guān)閉數(shù)據(jù)連接　　Text1.Text = rs!學(xué)號&

113、lt;p>　　Text2.Text = rs!家庭住址　　Text4.Text = rs!聯(lián)系方式　　rs.Update　　rs.Close　　End If</b&g

114、t;　　strSQL = "select * from 學(xué)生更多信息 where 學(xué)號=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號 = Val(Text2.Text) Then

115、　　'如果rs!學(xué)號 = Val(Text2.Text)說明數(shù)據(jù)庫中有此記錄，　　'才會修改其它三個字段的內(nèi)容　　'否則給出“不存在此記錄”的提示信息并關(guān)閉數(shù)據(jù)連接　　Text1.Text = rs!民族

116、　Text2.Text = rs!學(xué)號　　Text3.Text = rs!所在宿舍　　Text4.Text = rs!身份證號　　Text4.Text = rs!院系　　rs.Update&l

117、t;b>　　rs.Close　　conn.Close　　MsgBox ("查詢記錄成功！")　　End If　　rs.Close

118、　　conn.Close　　Exit Sub　　End Sub　　Private Sub Command3_Click()　　If Not IsNumeric(Text2.Te

119、xt) Or Val(Text2.Text) = 0 Then　　'編號字段是Access的自動編號，為自然數(shù)　　'因此對text4的內(nèi)容進行校驗，如果不是數(shù)值或為0則跳出sub過程　　MsgBox "編號是大于0的自然數(shù)，請輸入正確的編號！"<p

120、>　　Exit Sub　　End If　　Dim sc As Integer　　sc = MsgBox("確實要刪除這個信息嗎？", vbOKCancel, "刪除確認(rèn)！")

121、;　　If sc = 1 Then　　'運行時如果用戶點擊的是MsgBox提示框的“確定”按鈕，返回值是1　　Dim conn As New Connection　　Dim rs As New Recordset　　Dim

122、Str$　　Str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息;Data Source=603-096"　　conn.ConnectionString = Str&l

123、t;/p>　　conn.Open　　strSQL = "select * from 學(xué)生基本信息 where 學(xué)號=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3</p&

124、gt;　　If rs!學(xué)號 = Val(Text2.Text) Then　　rs.Delete　　rs.Close　　Else　　Msg

125、Box ("不存在此記錄！")　　Exit Sub　　End If　　strSQL = "select * from 學(xué)生家庭信息 where 學(xué)號=" & Val(Text2.Text)

126、& ""　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號 = Val(Text2.Text) Then　　rs.Delete　　rs.Close</b&g

127、t;　　Else　　MsgBox ("不存在此記錄！")　　Exit Sub　　End If

128、strSQL = "select * from 學(xué)生更多信息 where 學(xué)號=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號 = Val(Text2.Text) Then<

129、b>　　rs.Delete　　rs.Close　　conn.Close　　MsgBox ("刪除記錄成功！")　　Else&l

130、t;p>　　MsgBox ("不存在此記錄！")　　Exit Sub　　End If　　End If　　End S

131、ub　　總結(jié)與致謝　　本次設(shè)計設(shè)計的系統(tǒng)具有界面簡潔，容易操作等特點，能夠直觀明了地通過幾項簡單的操作實現(xiàn)對于學(xué)生信息的各種修改與操作，適合于要求不太復(fù)雜的管理模塊。但同時存在一些不足，在vb的后臺程序中，沒有用到模塊的設(shè)計，從而對于每一個對象需要不斷地重復(fù)鏈接數(shù)據(jù)庫，從而造成數(shù)據(jù)庫的頻繁訪問。存

132、儲過程與觸發(fā)器較少，依賴于vb程序的執(zhí)行，沒有充分利用到數(shù)據(jù)庫。　　通過本次課程設(shè)計，使我對vb的編程與SQL數(shù)據(jù)庫的掌握和理解，鞏固了我在《數(shù)據(jù)庫原理B》課程中所學(xué)的基本理論知識和實驗技能，使我對《數(shù)據(jù)庫原理B》課程有了更深入的了解，使我認(rèn)識到數(shù)據(jù)庫的強大功能與在我們的信息管理中所處的不可替代的作用，進一步激發(fā)了我對所學(xué)專業(yè)學(xué)習(xí)的興趣；提高了我的實際動手編程能力。也使我對于vb的編程有了新的理

133、解，通過它與數(shù)據(jù)庫的連接是我從理論的背后認(rèn)識到了實際的應(yīng)用與操作。　　在設(shè)計的過程和設(shè)計說明書的撰寫過程中，高煥兵老師給予了我熱心的幫助和大力的支持，給我提了諸多的寶貴意見，拓寬了我的思路。在此我向老師致以崇高的敬意和衷心的感謝！　　在我的學(xué)習(xí)過程中，**等其它老師也給了我耐心的指導(dǎo)和幫助。我在此對各位老師表示誠摯的感謝！<

134、p>　　參考文獻　　[1] 王珊，薩師煊.數(shù)據(jù)庫系統(tǒng)概論[M].北京:高等教育出版社.2006 　　[2] 數(shù)據(jù)庫系統(tǒng)教程/施伯樂，丁寶康，汪衛(wèi)編著. —2版.北京：高等教育出版社，2003　　[3] 數(shù)據(jù)庫系統(tǒng)教程習(xí)題解答與上機指導(dǎo)/丁寶康等編著. 北京：高等教育出版

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫原理b課程設(shè)計--數(shù)據(jù)庫學(xué)生信息管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫原理b課程設(shè)計--數(shù)據(jù)庫學(xué)生信息管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載