

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
1、<p> 課 程 設 計 說 明 書</p><p> 題 目: 學生信息管理系統(tǒng)</p><p> 課 程: 數(shù)據(jù)庫原理B課程設計</p><p> 院 (部): 信息與電氣工程學院</p><p> 專 業(yè): 電子信息工程</p&g
2、t;<p> 班 級: 電信061</p><p><b> 目 錄</b></p><p> 摘要···················
3、;····································
4、83;····································&
5、#183;····································
6、;··········II</p><p> 1 設計目的·····················
7、183;····································
8、····································
9、3;································1</p><p> 2
10、設計要求····································
11、····································
12、3;····································
13、183;·················1</p><p> 3 設計內容··············
14、····································
15、3;····································
16、183;····································
17、···2</p><p> 3.1系統(tǒng)需求分析····························&
18、#183;····································
19、;····································
20、83;···········2</p><p> 3.2概念模型設計···················
21、3;····································
22、183;····································
23、····················3</p><p> 3.3關系模型設計···········&
24、#183;····································
25、;····································
26、83;····························6</p><p> 3.4 軟件設計與實現(xiàn)··
27、183;····································
28、····································
29、3;·······························7</p><p> 總結與致謝
30、83;····································&
31、#183;····································
32、;····································
33、83;···············19</p><p> 參考文獻················
34、183;····································
35、····································
36、3;····································
37、183;···20</p><p><b> 摘 要</b></p><p> 學生信息管理系統(tǒng)是對學校學生管理工作進行處理的一個計算機系統(tǒng)。信息管理是學校管理中最為繁瑣的一項工作,因而有必要對此進行簡化并用計算機管理來代替人工管理。</p><p> 本設計做作的是一個學生信息管理系統(tǒng)。如對學生信息系統(tǒng)做了
38、需求分析,設計了E-R模型,并做出了相應的概念模型,關系模型。根據(jù)建立的模型創(chuàng)建相應的表和視圖,本次設計主要完成了學生個人信息管理系統(tǒng),利用數(shù)據(jù)庫知識將其功能完成。</p><p> 根據(jù)設計要求新建數(shù)據(jù)庫并在其中建立相應的存儲結構,并在各個表中建立合適的觸發(fā)器,用來完成各種操作和約束。</p><p> 在vb程序設計方面,建立與客戶端相交互的界面,用來完成相應的查找、刪除、添加、修
39、改等對于數(shù)據(jù)庫的各種操作。并在vb的工程中引用SQL語句,引用存儲過程,來實現(xiàn)各種功能 </p><p><b> 1 設計目的</b></p><p> 開發(fā)信息管理系統(tǒng)的總體目標主要是:</p><p> 實現(xiàn)教務處個本門之間以及教務處與各院系教學管理部門之間的信息交換,同時支持報表、書面文檔等原有的交換形式:實現(xiàn)各部門教學管理的全面
40、計算機化,是功能盡可能完善、系統(tǒng)、全面;實現(xiàn)對歷史數(shù)據(jù)的計算機管理;并及時為學校個管理部門提供統(tǒng)計、分析的決策信息。</p><p><b> 2 設計要求</b></p><p> 學生信息管理工作主要是學生基本情況的管理包括學生學籍變動的管理、學生成績的管理。主要包括數(shù)據(jù)輸入、修改、刪除、查詢、和打印報表等功能,學生信息管理系統(tǒng)要能高效、準確地完成這些功能,為
41、管理學生信息等工作提高了效率和準確率。</p><p> 現(xiàn)在的學生信息的服務我種我樣,各塊的實現(xiàn)功能也不同,但學生的信息管理必定包括這以下幾部份:信息的錄入,信息修改,信息的查詢顯示。由于我們對學生信息的管理有了相對的了解和接觸,此次數(shù)據(jù)庫設計只能在一些收集到的基本材料與個人直觀認識的基礎上,簡單模仿中等規(guī)模的學生信息管理系統(tǒng),并將其抽象成一個由三部門組成、實現(xiàn)三大服務的系統(tǒng)。</p><
42、p><b> 1.經濟上的可行性</b></p><p> 主要對項目的經濟效益進行評價。該系統(tǒng)除了購置硬件設備外,操作簡便,無須投入較大的培訓費用、開發(fā)費用、維護費用等,并且在實施過程中減少手工操作的步驟、加快了對學生的學籍管理、學籍變動管理和學生成績管理的速度。</p><p><b> 2.技術上的可行性</b></p&g
43、t;<p> 本系統(tǒng)的開發(fā)采用的是VB,它通過設計、開發(fā)、配置和管理的緊密集成大大提高了開發(fā)人員的生產力。 </p><p><b> 3.資源上的可行性</b></p><p> 本系統(tǒng)資源利用方便,數(shù)據(jù)可通過.txt文件導入數(shù)據(jù)庫而進行使用,也可將數(shù)據(jù)庫文件導出為.txt文件,便于數(shù)據(jù)的文件格式的轉換和資源的共享。</p><
44、;p><b> 3 設計內容</b></p><p><b> 3.1系統(tǒng)需求分析</b></p><p><b> 1.功能模塊:</b></p><p> 學生信息管理系統(tǒng)涉及院系信息、班級信息、任課教師信息、學生信息、學籍變更信息、學生獎懲信息、課程信息以及選課信息和成績等多種數(shù)據(jù)
45、信息。管理用戶包括系統(tǒng)管理員、教師和學生。系統(tǒng)管理員負責日常的學籍管理工作,如各種基本信息的錄入、修改、刪除等操作。教師使用該系統(tǒng)可完成教學班信息查詢和成績管理。學生使用該系統(tǒng)主要完成選課和成績查詢等操作。經過調研與分析,學生信息管理系統(tǒng)主要應具有以下功能。(1)院系信息管理。院系信息管理包括院系信息數(shù)據(jù)的錄入、修改與刪除等功能。(2)班級信息管理。班級信息管理包括班級信息的錄入、修改與刪除等功能。(3)教師信息管理。教師信息
46、管理包括任課教師信息的錄入、修改與刪除等功能。(4)學生個人信息管理。學生信息管理包括學生信息的錄入、修改與刪除等功能。(5)課程信息管理。課程信息管理包括課程信息的錄入、修改與刪除等。</p><p> 本次詳細制作了學生個人基本信息管理系統(tǒng)模塊。</p><p><b> 2.數(shù)據(jù)庫表分析:</b></p><p><b>
47、; 1).成績表 </b></p><p> 它是學生信息管理系統(tǒng)所需的基本表之一。它提供服務的特點是顯示相對應學生的基本信息,實時性強、供查詢時間短,強調效率。例如,我們要查詢出成績最高的學生基本成績,我們可以用相應的語句,在成績表中來實現(xiàn),及時的更換顯示信息。通過分析可發(fā)現(xiàn),用人工完成此類操作比計算機更具實效與時效,且此類信息也沒有長時間保留的必要,因此這些信息沒有必要采用數(shù)據(jù)庫管理。<
48、/p><p><b> 2).班級表</b></p><p> 它是學生信息管理系統(tǒng)所需的基本表之一。班級表主要有:年級,班級,教室,年制,專業(yè),班主任,備注。以上信息處理可以通過計算機完成,其他不便于計算機操作的在此沒有列出。</p><p><b> 3).班級課程表</b></p><p>
49、 班級課程表是主體,它的存在除了顯示班級外,更多的是為了方便用戶在表間連接查詢。班級表的特點與成績很相似,不便于使用計算機進行操作??梢杂糜嬎銠C完成并且有必要用計算機完成的有:年級,專業(yè),年制,學期,課程名稱。等的查詢顯示。</p><p><b> 4).學生表</b></p><p> 學生表不是面向管理員、而是方便用戶的查詢顯示,但它的存在卻是必不可少的。
50、它的主要職責有:A.管理學生。給學生編號,登記其基本信息;根據(jù)學生的課程成績來對學生評分;此外,還要給員工分配班級等等。B.家庭住址。顯示各個學生的詳細住址情況,方便學校聯(lián)系等。</p><p><b> 3.2概念模型設計</b></p><p><b> 學生E-R圖</b></p><p> 2.考試類型E-R
51、圖</p><p><b> 3.用戶E-R圖</b></p><p><b> 4.學費E-R圖</b></p><p><b> 5.交費E-R圖</b></p><p><b> 6.課程E-R圖</b></p><p&g
52、t;<b> 7.班級E-R圖</b></p><p> 8.班級課程E-R圖</p><p><b> 總E-R圖:</b></p><p><b> 3.3關系模型設計</b></p><p> 實體所對應的關系模式:</p><p>
53、cj(學號,學期,類型,課程名稱,分數(shù))</p><p> class(年級,班級,教室,年制,專業(yè),班主任,備注)</p><p> classkecheng(年級,專業(yè),年制,學期,課程名稱)</p><p> jf(學號,學期,交費,欠費,日期,操作員)</p><p> kaoshileixing(類型)</p>
54、<p> use(Username,password,admin,readonly,qx1,qx2,qx3,qx4)</p><p> xs(學號,姓名,性別,班級,出生年月,家庭住址,郵政編碼,聯(lián)系電話,入學時間)</p><p> xuefei(年級,專業(yè),年制,學期,學費)</p><p> 3.2軟件設計與實現(xiàn)</p>&l
55、t;p> 主界面視圖:將此程序命名為小孟學生信息管理系統(tǒng)</p><p><b> SQL語句設計:</b></p><p> 我選取制作的是學生信息查詢模塊:</p><p> 所用的數(shù)據(jù)庫為:學生信息。</p><p> 含有的表為:學生人數(shù),學生基本信息,學生更多信息,學生家庭信息。</p&g
56、t;<p> 學生人數(shù)的表中只含有 “人數(shù)“列,觸發(fā)器被設計為更改其中的人數(shù)列而動態(tài)的反映學生的人數(shù)</p><p> 存儲過程程序及其功能:</p><p><b> 存儲過程 my</b></p><p> 作用:將vb從客戶端得到的值通過輸入?yún)?shù)傳遞到存儲過程,再通過存儲過程將數(shù)據(jù)</p><p&
57、gt;<b> 寫入要修改的表中</b></p><p> Create procedure my on 學生信息</p><p> (@name char(50</p><p> @number char(50),</p><p> @address char(100),</p><p&g
58、t; @pnumber char(100),</p><p> @minzu char(100), </p><p> @sushe char(50),</p><p> @shenfen char(100), </p><p> @yuanxi char(100), </p><p>
59、 @sex char(50), </p><p> @date char(50)</p><p><b> )</b></p><p><b> AS</b></p><p> Insert into 學生基本信息( 姓名,學號,性別,出生日期)values(@number,@num
60、ber,@sex,@date)</p><p> Insert into 學生家庭信息(家庭住址,聯(lián)系方式)values(@address,@pnumber)</p><p> Insert into 學生更多信息(民族,所在宿舍,身份證號,院系 )values(@民族,@sushe,@shenfen,@yuanxi)</p><p><b> GO
61、</b></p><p> 觸發(fā)器程序及其功能:</p><p> 觸發(fā)器1,對于“學生基本信息”表中的插入操作進行計數(shù),從而動態(tài)統(tǒng)計學生的人數(shù).</p><p> CREATE TRIGGER [tr_1] ON 學生基本信息 after INSERT
62、 AS update 學新人數(shù) set 人數(shù) = 人數(shù)+1 </p><p><b> Go</b></p><p> 當每進行完一次插入操作后,觸發(fā)器更新人數(shù)信息,使其自加一 CR
63、EATE TRIGGER [tr_2] ON 學生基本信息 after delete AS update 學新人數(shù) set 人數(shù) = 人數(shù)-1 </p><p> 當每進行完一次刪除操作后,
64、觸發(fā)器更新人數(shù)信息,使其自減一。</p><p> 程序通過讀取表“學生人數(shù)“中的數(shù)據(jù)來得到當前本系統(tǒng)所管理的學生數(shù)。</p><p><b> vb程序設計:</b></p><p> 所用的任務主界面上統(tǒng)一完成</p><p><b> 程序代碼為:</b></p><
65、;p><b> 程序的初始化加載:</b></p><p> Private Sub Form_Load()</p><p> Form1.Text1.Text = ""</p><p> Form1.Text2.Text = ""</p><p> Form1.T
66、ext3.Text = ""</p><p> Form1.Text4.Text = ""</p><p> Form1.Text5.Text = ""</p><p> Form1.Text6.Text = ""</p><p> Form1.Text7
67、.Text = ""</p><p> Form1.Text8.Text = ""</p><p> Form1.Text9.Text = ""</p><p> Form1.Text10.Text = "" ----將所有都text置為空</p><p>
68、; Dim conn As New Connection---</p><p> Dim rs As New Recordset</p><p><b> Dim Str$</b></p><p> Str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Secu
69、rity Info=False;Initial Catalog=學生信息;Data Source=605-50"—數(shù)據(jù)庫連接字符串</p><p> conn.ConnectionString = Str</p><p><b> conn.Open</b></p><p> strSQL = "select * fr
70、om 學生人數(shù) "</p><p> rs.Open strSQL, conn, 3, 3—在vb中調用sql語句</p><p> Text11.Text = rs!人數(shù)</p><p> -----在學生人數(shù)表里讀取學生數(shù),并在主界面顯示</p><p><b> rs.Close</b></
71、p><p><b> End Sub</b></p><p><b> 添加記錄按鈕程序:</b></p><p> Private Sub Command1_Click()</p><p> Dim sc As Integer</p><p> 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</p><p> '判斷是否完整地填完各條記錄</p><p> '如果沒有填完則提示重新填寫信息</p><p> MsgBox ("請輸入完整的學生信息")</p><p&
74、gt;<b> Else</b></p><p> sc = MsgBox("確實要添加這條記錄嗎?", vbOKCancel, "提示信息")</p><p> If sc = 1 Then </p><p> '運行時如果用戶點擊的是MsgBox提示框的“確定”按鈕,返回值是1<
75、/p><p> 則將信息寫入數(shù)據(jù)庫學生信息的表中</p><p> Dim conn As New Connection</p><p> Dim rs As New Recordset</p><p> Dim cm As New Command</p><p><b> Dim Str$</b
76、></p><p> Str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學生信息;Data Source=607-61"------鏈接字符串</p><p> conn.ConnectionString = Str&l
77、t;/p><p><b> conn.Open</b></p><p> cm.ActiveConnection = conn</p><p> cm.CommandText = "my" '存儲過程名</p><p> cm.CommandType = adCmdStoredProc&l
78、t;/p><p> cm.Parameters.Item("@name").Value = Text1.Text '輸入?yún)?shù)的值</p><p> cm.Parameters.Item("@number").Value = Text2.Text</p><p> cm.Parameters.Item("@
79、address").Value = Text5.Text</p><p> cm.Parameters.Item("@pnumber").Value = Text6.Text</p><p> cm.Parameters.Item("@minzu").Value = Text9.Text</p><p> cm
80、.Parameters.Item("@sushe").Value = Text8.Text</p><p> cm.Parameters.Item("@shenfen").Value = Text10.Text</p><p> cm.Parameters.Item("@yuanxi").Value = Text3.Text&
81、lt;/p><p> cm.Parameters.Item("@sex").Value = Text4.Text</p><p> cm.Parameters.Item("@date").Value = Text7.Text</p><p> cm.Execute</p><p> conn.Clo
82、se------調用存儲過程 并將text中相應的值賦予輸入?yún)?shù)</p><p> MsgBox ("添加記錄成功!")‘如果成功調用存儲過程寫入信息怎出現(xiàn)成功的提示</p><p><b> End If</b></p><p><b> End If</b></p><p&
83、gt; End Sub‘結束</p><p> 修改記錄按鈕的程序代碼:</p><p> Private Sub Command2_Click()</p><p> If Not IsNumeric(Text2.Text) Or Val(Text2.Text) = 0 Then</p><p> '先判斷學生的學號是否正確
84、</p><p> MsgBox "學號號是大于0的自然數(shù),請輸入正確的學號!"</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> 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</p><p> '對文本框的內容進行校驗,不接收空值</p><p> MsgBox "請輸入完整的學生信息!"</p><p><b> Exit Sub</b></p><p><b> E
87、nd If</b></p><p> Dim sc As Integer</p><p> sc = MsgBox("確實修改此信息嗎?", vbOKCancel, "提示信息")</p><p> If sc = 1 Then</p><p> '運行時如果用戶點擊的是Ms
88、gBox提示框的“確定”按鈕,返回值是1</p><p> Dim conn As New Connection</p><p> Dim rs As New Recordset</p><p><b> Dim Str$</b></p><p> Str = "Provider=SQLOLEDB.1;
89、Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學生信息;Data Source=603-096"—鏈接字符串</p><p> conn.ConnectionString = Str</p><p><b> conn.Open</b></p>&l
90、t;p> strSQL = "select * from 學生基本 where 學號=" & Val(Text2.Text) & ""</p><p> rs.Open strSQL, conn, 3, 3---對學生基本信息表,執(zhí)行sql語句,查找學生的學號</p><p> If rs!學號 = Val(Text2.T
91、ext) Then'</p><p> '如果rs!學號 = Val(Text4.Text)說明數(shù)據(jù)庫中有此記錄,</p><p> '才會修改其它幾個字段的內容</p><p> '否則給出“不存在此記錄”的提示信息并關閉數(shù)據(jù)連接</p><p> rs!姓名 = Text1.Text</p&g
92、t;<p> rs!學號 = Text2.Text</p><p> rs!性別 = Text3.Text</p><p> rs!出生日期 = Text4.Text</p><p><b> rs.Update</b></p><p><b> rs.Close</b>&l
93、t;/p><p><b> Else</b></p><p> MsgBox ("不存在此記錄!")</p><p><b> rs.Close</b></p><p> conn.Close</p><p><b> Exit Sub&l
94、t;/b></p><p><b> End If</b></p><p> strSQL = "select * from 學生家庭信息 where 學號=" & Val(Text2.Text) & ""</p><p> rs.Open strSQL, conn, 3, 3
95、-----對學生家庭信息表執(zhí)行如上操作</p><p> If rs!學號 = Val(Text2.Text) Then</p><p> rs!家庭住址 = Text1.Text</p><p> rs!聯(lián)系方式 = Text3.Text</p><p><b> rs.Update</b></p>
96、<p><b> rs.Close</b></p><p><b> Else</b></p><p> MsgBox ("不存在此記錄!")</p><p><b> rs.Close</b></p><p> conn.Close
97、</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> strSQL = "select * from 學生更多信息 where 學號=" & Val(Text2.Text) & ""</p&
98、gt;<p> rs.Open strSQL, conn, 3, 3</p><p> If rs!學號 = Val(Text2.Text) Then</p><p> rs!民族 = Text1.Text</p><p> rs!所在宿舍 = Text3.Text</p><p> rs!身份證號 = Text1.T
99、ext</p><p> rs!院系 = Text3.Text</p><p><b> rs.Close</b></p><p> conn.Close</p><p> MsgBox ("修改記錄成功!")</p><p><b> Else</b
100、></p><p> MsgBox ("不存在此記錄!")</p><p><b> rs.Close</b></p><p> conn.Close</p><p><b> Exit Sub</b></p><p><b>
101、End If</b></p><p><b> End If</b></p><p> End Sub‘結束</p><p><b> 查詢按鈕的程序:</b></p><p> Private Sub Command5_Click()</p><p>
102、 If Not IsNumeric(Text2.Text) Or Val(Text2.Text) = 0 Then</p><p><b> '驗證學號</b></p><p> MsgBox "記錄號是大于0的自然數(shù),請輸入正確的學號!"</p><p><b> Exit Sub</b>
103、;</p><p><b> End If</b></p><p> 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</p><p> '對幾個文本框的內容進行校驗,不接收空值</p><p> Msg
105、Box "請輸入完整的學生生信息!"</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> Dim conn As New Connection</p><p> Dim rs As New Recordse
106、t</p><p><b> Dim Str$</b></p><p> Str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學生信息;Data Source=603-096"—數(shù)據(jù)庫鏈接字符串</p
107、><p> conn.ConnectionString = Str</p><p><b> conn.Open</b></p><p> strSQL = "select * from 學生基本信息 where 學號=" & Val(Text2.Text) & ""</p>
108、<p> rs.Open strSQL, conn, 3, 3</p><p> If rs!學號 = Val(Text2.Text) Then</p><p> '如果rs!學號 = Val(Text2.Text)說明數(shù)據(jù)庫中有此記錄,</p><p> '才會修改其它幾個字段的內容</p><p>
109、 '否則給出“不存在此記錄”的提示信息并關閉數(shù)據(jù)連接</p><p> Text1.Text = rs!姓名</p><p> Text2.Text = rs!學號</p><p> Text4.Text = rs!出生日期</p><p><b> rs.Update</b></p>&l
110、t;p><b> rs.Close</b></p><p><b> Else</b></p><p> MsgBox ("不存在此記錄!")</p><p><b> Exit Sub</b></p><p><b> End I
111、f</b></p><p> strSQL = "select * from 學生家庭信息 where 學號=" & Val(Text2.Text) & ""</p><p> rs.Open strSQL, conn, 3, 3</p><p> If rs!學號 = Val(Text2.T
112、ext) Then</p><p> '如果rs!編號 = Val(Text2.Text)說明數(shù)據(jù)庫中有此記錄,</p><p> '才會修改其它三個字段的內容</p><p> '否則給出“不存在此記錄”的提示信息并關閉數(shù)據(jù)連接</p><p> Text1.Text = rs!學號</p>&
113、lt;p> Text2.Text = rs!家庭住址</p><p> Text4.Text = rs!聯(lián)系方式</p><p><b> rs.Update</b></p><p><b> rs.Close</b></p><p><b> End If</b&g
114、t;</p><p> strSQL = "select * from 學生更多信息 where 學號=" & Val(Text2.Text) & ""</p><p> rs.Open strSQL, conn, 3, 3</p><p> If rs!學號 = Val(Text2.Text) Then
115、</p><p> '如果rs!學號 = Val(Text2.Text)說明數(shù)據(jù)庫中有此記錄,</p><p> '才會修改其它三個字段的內容</p><p> '否則給出“不存在此記錄”的提示信息并關閉數(shù)據(jù)連接</p><p> Text1.Text = rs!民族</p><p>
116、 Text2.Text = rs!學號</p><p> Text3.Text = rs!所在宿舍</p><p> Text4.Text = rs!身份證號</p><p> Text4.Text = rs!院系</p><p><b> rs.Update</b></p><p>&l
117、t;b> rs.Close</b></p><p> conn.Close</p><p> MsgBox ("查詢記錄成功!")</p><p><b> End If</b></p><p><b> rs.Close</b></p>
118、<p> conn.Close</p><p><b> Exit Sub</b></p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> If Not IsNumeric(Text2.Te
119、xt) Or Val(Text2.Text) = 0 Then</p><p> '編號字段是Access的自動編號,為自然數(shù)</p><p> '因此對text4的內容進行校驗,如果不是數(shù)值或為0則跳出sub過程</p><p> MsgBox "編號是大于0的自然數(shù),請輸入正確的編號!"</p><p
120、><b> Exit Sub</b></p><p><b> End If</b></p><p> Dim sc As Integer</p><p> sc = MsgBox("確實要刪除這個信息嗎?", vbOKCancel, "刪除確認!")</p>
121、;<p> If sc = 1 Then</p><p> '運行時如果用戶點擊的是MsgBox提示框的“確定”按鈕,返回值是1</p><p> Dim conn As New Connection</p><p> Dim rs As New Recordset</p><p><b> Dim
122、Str$</b></p><p> Str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學生信息;Data Source=603-096"</p><p> conn.ConnectionString = Str&l
123、t;/p><p><b> conn.Open</b></p><p> strSQL = "select * from 學生基本信息 where 學號=" & Val(Text2.Text) & ""</p><p> rs.Open strSQL, conn, 3, 3</p&
124、gt;<p> If rs!學號 = Val(Text2.Text) Then</p><p><b> rs.Delete</b></p><p><b> rs.Close</b></p><p><b> Else</b></p><p> Msg
125、Box ("不存在此記錄!")</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> strSQL = "select * from 學生家庭信息 where 學號=" & Val(Text2.Text)
126、& ""</p><p> rs.Open strSQL, conn, 3, 3</p><p> If rs!學號 = Val(Text2.Text) Then</p><p><b> rs.Delete</b></p><p><b> rs.Close</b&g
127、t;</p><p><b> Else</b></p><p> MsgBox ("不存在此記錄!")</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p>
128、strSQL = "select * from 學生更多信息 where 學號=" & Val(Text2.Text) & ""</p><p> rs.Open strSQL, conn, 3, 3</p><p> If rs!學號 = Val(Text2.Text) Then</p><p><
129、b> rs.Delete</b></p><p><b> rs.Close</b></p><p> conn.Close</p><p> MsgBox ("刪除記錄成功!")</p><p><b> Else</b></p>&l
130、t;p> MsgBox ("不存在此記錄!")</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p><b> End If</b></p><p><b> End S
131、ub</b></p><p><b> 總結與致謝</b></p><p> 本次設計設計的系統(tǒng)具有界面簡潔,容易操作等特點,能夠直觀明了地通過幾項簡單的操作實現(xiàn)對于學生信息的各種修改與操作,適合于要求不太復雜的管理模塊。但同時存在一些不足,在vb的后臺程序中,沒有用到模塊的設計,從而對于每一個對象需要不斷地重復鏈接數(shù)據(jù)庫,從而造成數(shù)據(jù)庫的頻繁訪問。存
132、儲過程與觸發(fā)器較少,依賴于vb程序的執(zhí)行,沒有充分利用到數(shù)據(jù)庫。</p><p> 通過本次課程設計,使我對vb的編程與SQL數(shù)據(jù)庫的掌握和理解,鞏固了我在《數(shù)據(jù)庫原理B》課程中所學的基本理論知識和實驗技能,使我對《數(shù)據(jù)庫原理B》課程有了更深入的了解,使我認識到數(shù)據(jù)庫的強大功能與在我們的信息管理中所處的不可替代的作用,進一步激發(fā)了我對所學專業(yè)學習的興趣;提高了我的實際動手編程能力。也使我對于vb的編程有了新的理
133、解,通過它與數(shù)據(jù)庫的連接是我從理論的背后認識到了實際的應用與操作。</p><p> 在設計的過程和設計說明書的撰寫過程中,高煥兵老師給予了我熱心的幫助和大力的支持,給我提了諸多的寶貴意見,拓寬了我的思路。在此我向老師致以崇高的敬意和衷心的感謝!</p><p> 在我的學習過程中,**等其它老師也給了我耐心的指導和幫助。我在此對各位老師表示誠摯的感謝!</p><
134、p><b> 參考文獻</b></p><p> [1] 王珊,薩師煊.數(shù)據(jù)庫系統(tǒng)概論[M].北京:高等教育出版社.2006 </p><p> [2] 數(shù)據(jù)庫系統(tǒng)教程/施伯樂,丁寶康,汪衛(wèi)編著. —2版.北京:高等教育出版社,2003</p><p> [3] 數(shù)據(jù)庫系統(tǒng)教程習題解答與上機指導/丁寶康等編著. 北京:高等教育出版
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 數(shù)據(jù)庫課程設計--學生信息管理系統(tǒng)
- 數(shù)據(jù)庫課程設計---學生信息管理系統(tǒng)
- 學生信息管理數(shù)據(jù)庫課程設計
- 數(shù)據(jù)庫課程設計學生信息管理系統(tǒng)
- 學生信息管理系統(tǒng)數(shù)據(jù)庫課程設計
- 數(shù)據(jù)庫課程設計--學生信息管理系統(tǒng)
- 數(shù)據(jù)庫課程設計學生信息管理系統(tǒng)
- 數(shù)據(jù)庫課程設計---學生信息管理系統(tǒng)設計
- 數(shù)據(jù)庫課程設計課程設計論文-醫(yī)院信息管理數(shù)據(jù)庫設計
- 數(shù)據(jù)庫課程設計報告--學生信息管理系統(tǒng)
- 學生信息管理系統(tǒng)數(shù)據(jù)庫課程設計報告
- 數(shù)據(jù)庫課程設計--學生信息管理系統(tǒng) (2)
- 數(shù)據(jù)庫原理課程設計---教室管理系統(tǒng)數(shù)據(jù)庫設計
- 數(shù)據(jù)庫課程設計--學生選課信息管理系統(tǒng)
- 數(shù)據(jù)庫課程設計---學生學籍信息管理系統(tǒng)
- 數(shù)據(jù)庫課程設計--數(shù)據(jù)庫系統(tǒng)原理
- 數(shù)據(jù)庫課程設計之學生信息管理系統(tǒng)
- 數(shù)據(jù)庫原理課程設計---圖書管理系統(tǒng)數(shù)據(jù)庫設計
- 數(shù)據(jù)庫課程設計---宿舍信息管理系統(tǒng)
- 數(shù)據(jù)庫課程設計--教室信息管理系統(tǒng).
評論
0/150
提交評論