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

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

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

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

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

文檔簡(jiǎn)介

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

2、t;　　班級(jí)：電信061　　目錄　　摘要···················

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

33、83;···············19　　參考文獻(xiàn)················&#

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

56、t;　　學(xué)生人數(shù)的表中只含有 “人數(shù)“列，觸發(fā)器被設(shè)計(jì)為更改其中的人數(shù)列而動(dòng)態(tài)的反映學(xué)生的人數(shù)　　存儲(chǔ)過(guò)程程序及其功能：　　存儲(chǔ)過(guò)程 my　　作用：將vb從客戶端得到的值通過(guò)輸入?yún)?shù)傳遞到存儲(chǔ)過(guò)程，再通過(guò)存儲(chǔ)過(guò)程將數(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é)號(hào)，性別，出生日期)values(@number,@num

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

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

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

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

64、觸發(fā)器更新人數(shù)信息，使其自減一。　　程序通過(guò)讀取表“學(xué)生人數(shù)“中的數(shù)據(jù)來(lái)得到當(dāng)前本系統(tǒng)所管理的學(xué)生數(shù)。　　vb程序設(shè)計(jì)：　　所用的任務(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ù)庫(kù)連接字符串　　conn.ConnectionString = Str　　conn.Open　　strSQL = "select * fr

70、om 學(xué)生人數(shù) "　　rs.Open strSQL, conn, 3, 3—在vb中調(diào)用sql語(yǔ)句　　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　　'判斷是否完整地填完各條記錄　　'如果沒(méi)有填完則提示重新填寫信息　　MsgBox ("請(qǐng)輸入完整的學(xué)生信息")<p&

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

75、/p>　　則將信息寫入數(shù)據(jù)庫(kù)學(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" '存儲(chǔ)過(guò)程名　　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)用存儲(chǔ)過(guò)程并將text中相應(yīng)的值賦予輸入?yún)?shù)　　MsgBox ("添加記錄成功！")‘如果成功調(diào)用存儲(chǔ)過(guò)程寫入信息怎出現(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é)號(hào)是否正確

84、　　MsgBox "學(xué)號(hào)號(hào)是大于0的自然數(shù)，請(qǐng)輸入正確的學(xué)號(hào)！"　　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　　'對(duì)文本框的內(nèi)容進(jìn)行校驗(yàn)，不接收空值　　MsgBox "請(qǐng)輸入完整的學(xué)生信息！"　　Exit Sub　　E

87、nd If　　Dim sc As Integer　　sc = MsgBox("確實(shí)修改此信息嗎？", vbOKCancel, "提示信息")　　If sc = 1 Then　　'運(yùn)行時(shí)如果用戶點(diǎn)擊的是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é)號(hào)=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3---對(duì)學(xué)生基本信息表，執(zhí)行sql語(yǔ)句，查找學(xué)生的學(xué)號(hào)　　If rs!學(xué)號(hào) = Val(Text2.T

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

92、t;　　rs!學(xué)號(hào) = 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é)號(hào)=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3

95、-----對(duì)學(xué)生家庭信息表執(zhí)行如上操作　　If rs!學(xué)號(hào) = 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é)號(hào)=" & Val(Text2.Text) & ""</p&

98、gt;　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號(hào) = Val(Text2.Text) Then　　rs!民族 = Text1.Text　　rs!所在宿舍 = Text3.Text　　rs!身份證號(hào) = 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　　'驗(yàn)證學(xué)號(hào)　　MsgBox "記錄號(hào)是大于0的自然數(shù)，請(qǐng)輸入正確的學(xué)號(hào)！"　　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　　'對(duì)幾個(gè)文本框的內(nèi)容進(jìn)行校驗(yàn)，不接收空值　　Msg

105、Box "請(qǐng)輸入完整的學(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ù)庫(kù)鏈接字符串</p

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

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

109、　'否則給出“不存在此記錄”的提示信息并關(guān)閉數(shù)據(jù)連接　　Text1.Text = rs!姓名　　Text2.Text = rs!學(xué)號(hào)　　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é)號(hào)=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號(hào) = Val(Text2.T

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

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é)號(hào)=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號(hào) = Val(Text2.Text) Then

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

116、　Text2.Text = rs!學(xué)號(hào)　　Text3.Text = rs!所在宿舍　　Text4.Text = rs!身份證號(hào)　　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　　'編號(hào)字段是Access的自動(dòng)編號(hào)，為自然數(shù)　　'因此對(duì)text4的內(nèi)容進(jìn)行校驗(yàn)，如果不是數(shù)值或?yàn)?則跳出sub過(guò)程　　MsgBox "編號(hào)是大于0的自然數(shù)，請(qǐng)輸入正確的編號(hào)！"<p

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

121、;　　If sc = 1 Then　　'運(yùn)行時(shí)如果用戶點(diǎn)擊的是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é)號(hào)=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3</p&

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

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

126、& ""　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號(hào) = 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é)號(hào)=" & Val(Text2.Text) & ""　　rs.Open strSQL, conn, 3, 3　　If rs!學(xué)號(hào) = 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è)計(jì)設(shè)計(jì)的系統(tǒng)具有界面簡(jiǎn)潔，容易操作等特點(diǎn)，能夠直觀明了地通過(guò)幾項(xiàng)簡(jiǎn)單的操作實(shí)現(xiàn)對(duì)于學(xué)生信息的各種修改與操作，適合于要求不太復(fù)雜的管理模塊。但同時(shí)存在一些不足，在vb的后臺(tái)程序中，沒(méi)有用到模塊的設(shè)計(jì)，從而對(duì)于每一個(gè)對(duì)象需要不斷地重復(fù)鏈接數(shù)據(jù)庫(kù)，從而造成數(shù)據(jù)庫(kù)的頻繁訪問(wèn)。存

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

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

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

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

溫馨提示

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

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載