sql server 2005數(shù)據(jù)庫課程設(shè)計(jì)

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

sql server 2005數(shù)據(jù)庫課程設(shè)計(jì)_第1頁

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

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

文檔簡介

1、　　SQL Server 2005數(shù)據(jù)庫課程設(shè)計(jì)　　1、引言　　學(xué)生信息管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件學(xué)生成績，這種管理方式存在著許多缺

2、點(diǎn),如:效率低、保密性差,另外時(shí)間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少困難。　　隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 　　作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對學(xué)生信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性

3、高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。 　　因此，開發(fā)一套管理系統(tǒng)成為很有必要的事情。結(jié)合上述要求，在基于SQL2005數(shù)據(jù)庫技術(shù)以及面向?qū)ο蟮木幊碳夹g(shù)的基礎(chǔ)上，研究了這套學(xué)生信息管理系統(tǒng)。該系統(tǒng)可以實(shí)現(xiàn)學(xué)生基本信息的管理和成績管理，并可實(shí)現(xiàn)多用戶多權(quán)限登陸。

4、;　　由于時(shí)間緊迫、掌握技術(shù)有限等條件限制，本系統(tǒng)可能還存在著一些不足之外，敬請老師同學(xué)批評指導(dǎo)。　　2、需求分析　　2.1提出問題　　數(shù)據(jù)庫是一門研究數(shù)據(jù)管理的技術(shù)，始于20世紀(jì)60年代，經(jīng)過40多年的發(fā)展，現(xiàn)在已經(jīng)形成了理論體系，成為

5、計(jì)算機(jī)軟件的一個重要分支。數(shù)據(jù)庫技術(shù)體現(xiàn)了當(dāng)代先進(jìn)的數(shù)據(jù)管理方法，使計(jì)算機(jī)的應(yīng)用真正滲透到國民經(jīng)濟(jì)各個部門，在數(shù)據(jù)處理領(lǐng)域發(fā)揮著越來越大的作用。　　隨著社會的發(fā)展和經(jīng)濟(jì)時(shí)代的到來，管理信息系統(tǒng)在各行各業(yè)都占據(jù)著越來越重要的地位，特別是教育事業(yè)。在經(jīng)濟(jì)發(fā)達(dá)的國家，許多教育機(jī)構(gòu)（如公辦、私立、培訓(xùn)機(jī)構(gòu)等），都投入了大量的資金開發(fā)MIS系統(tǒng)，以求在將來激烈的競爭中立于不敗之地。因此，開發(fā)一套能夠?yàn)榇颂?/p>

6、供規(guī)范化的事務(wù)管理、充足的信息和快捷的查詢手段的學(xué)生信息管理系統(tǒng)是非常必要的。　　2.2項(xiàng)目開發(fā)目標(biāo)　　學(xué)生信息管理系統(tǒng)是面向教育部門的學(xué)生管理事務(wù)，包括學(xué)生基本信息管理，學(xué)生成績管理等工作，是利用計(jì)算機(jī)進(jìn)行集中管理而開發(fā)的系統(tǒng)。該系統(tǒng)是以SQL 2005為后臺數(shù)據(jù)庫進(jìn)行開發(fā)的學(xué)生信息管理系統(tǒng)，力求與實(shí)際相結(jié)合具有查

7、詢、管理等功能，使教育的管理趨于計(jì)算機(jī)化，使之更加方便、快捷以提高工作效率。　　根據(jù)學(xué)生信息管理的需求和特點(diǎn)，該系統(tǒng)實(shí)施后，應(yīng)達(dá)到以下目標(biāo)：　　(1)靈活地運(yùn)用表格輸入數(shù)據(jù)，使信息傳遞更快捷；　　(2)系統(tǒng)采用人機(jī)對話方式，界面美觀友好、數(shù)據(jù)存儲安全可靠；　　(3)鍵盤操

8、作，快速響應(yīng)；　　(4)實(shí)現(xiàn)各種信息的添加、刪除、修改、查詢等；　　(5)系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。　　2.3系統(tǒng)的運(yùn)行環(huán)境　　此系統(tǒng)，代碼使用VB語言編寫，數(shù)據(jù)庫管理系統(tǒng)采用SQL2005數(shù)據(jù)庫管理系統(tǒng)，運(yùn)行在WindowsXP/7系統(tǒng)下并向下兼容。

9、　　3、系統(tǒng)總體設(shè)計(jì)　　3.1系統(tǒng)總體設(shè)計(jì)框圖　　學(xué)生信息管理系統(tǒng)實(shí)現(xiàn)了對用戶的管理、院系信息的管理、學(xué)生基本信息的管理等功能。總體設(shè)計(jì)框圖如圖。　　3.2系統(tǒng)功能模塊設(shè)計(jì)　　系統(tǒng)功能包括可視化窗口，對各種信息的添

10、加、修改、刪除和查詢等具體功能如圖。　　4、數(shù)據(jù)庫設(shè)計(jì)　　4.1 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)　　邏輯設(shè)計(jì)的目的是把概念數(shù)據(jù)模型轉(zhuǎn)化為數(shù)據(jù)庫管理系統(tǒng)可以處理的邏輯模型。也即將由ER圖表示的概念模型轉(zhuǎn)換為DBMS通用的邏輯模型，如關(guān)系模型，然后對其進(jìn)行優(yōu)化。<

11、;p>　　以關(guān)系模型為目標(biāo)的邏輯結(jié)構(gòu)設(shè)計(jì)方法是將ER實(shí)體圖中概念模型映射為關(guān)系模型，并且包括一組關(guān)系定義，映射的步驟如下：　　(1)把ER實(shí)體圖中的每個實(shí)體變換為一個關(guān)系模型。　　(2)變換每個關(guān)系：多對多模型需要加一個單獨(dú)的關(guān)系模型；而一對一的或者一對多的聯(lián)系可用在實(shí)體中增加屬性（此處為外鍵）來模型化。

12、　(3)ER圖中的屬性可轉(zhuǎn)換為關(guān)系的屬性。　　4.2 數(shù)據(jù)庫物理設(shè)計(jì)　　系統(tǒng)中的數(shù)據(jù)表如下所示：　　(1)系統(tǒng)用戶數(shù)據(jù)表（用戶表）記錄系統(tǒng)所有用戶名和密碼信息，表中的各個字段以及各個字段的說明：　　(2)學(xué)生信息表記錄學(xué)生學(xué)號、姓名等基本信息，表中的各個字段以及各個字段的

13、說明如表：　　(3)學(xué)生成績表記錄學(xué)生學(xué)號、課程號及相關(guān)的成績，表中各個字段以及各個字段的說明如表：　　(4)課程信息表記錄課程號、課程名等相關(guān)信息，表中各個字段以及各個字段的說明如表：　　5、系統(tǒng)詳細(xì)設(shè)計(jì)　　5.1 創(chuàng)建工程項(xiàng)目&l

14、t;/p>　　啟動VB 6.0，出現(xiàn)VB6.0運(yùn)行界面，如圖6.4所示：　　點(diǎn)擊“文件”——“保存工程”保存當(dāng)前工程文件。　　5.2.1 用戶登陸模塊　　用戶登陸代碼：　　Dim con As New A

15、DODB.Connection　　Dim rs As ADODB.Recordset　　Dim i As Integer　　Private Sub Command1_Click()　　'con.Open "provider=sqloledb.1;user

16、 id=;password=;initial catalog=學(xué)生信息管理系統(tǒng)"　　con.Open "DRIVER=SQL Server;SERVER=WANGXIAORUI\SQLEXPRESS;DATABASE=學(xué)生信息管理系統(tǒng)"　　Set rs = con.Execute("select * from 登錄

17、表 where 用戶名稱='" & Trim(Text1.Text) & "'")　　If rs.EOF = True Then　　MsgBox "沒有此用戶，請重新輸入用戶名", vbExclamation + vbOKOnly, "提示"</p

18、>　　'Text1.Text = ""　　Text1.SetFocus　　Else　　If (Trim(rs.Fields(1)) = Trim(Text2.Text)) Then

19、;　　主窗體.Show　　Else　　MsgBox "密碼錯誤，請重新輸入密碼", vbExclamation + vbOKOnly, "提示"　　' Text2.Text = "

20、"　　Text2.SetFocus　　End If　　End If　　i = i + 1　　If i =

21、3 Then　　MsgBox "輸入次數(shù)過多，系統(tǒng)自動關(guān)閉", 48, "警告"　　End If　　Me.Hide　　主窗體.Hide&l

22、t;/b>　　End Sub　　Private Sub Form_Load()　　i = 1　　End Sub

23、　　5.2.2 成績管理窗體　　相應(yīng)代碼：　　Public printstr As String　　Private Sub Command2_Click()　　Unload Me</p&g

24、t;　　End Sub　　Private Sub Command1_Click()　　Dim txtsql As String　　Dim myConn As New ADODB.Connection　　mySQL

25、 = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"　　mySQL = mySQL + "Initial Catalog=學(xué)生信息管理系統(tǒng);"　　myConn.ConnectionString = mySQL&l

26、t;/p>　　myConn.Open　　Dim aa As Integer　　txtsql = ""　　Dim txtsql1 As String　　txtsql1 = ""<

27、;p>　　If Trim(Text1.Text) <> "" Then　　aa = 1　　End If　　If aa = 1 Then　　txtsql1 =

28、txtsql1 & " where 學(xué)生學(xué)號=" & Trim(Text1.Text)　　Else　　pp = MsgBox("學(xué)生學(xué)號不能為空！", , " 警告")　　Exit

29、Sub　　End If　　If Trim(Text2.Text) <> "" Then　　aa = 1　　If txtsql = "&

30、quot; Then　　txtsql = "set st.課程號='" & Trim(Text2.Text) & "'"　　Else　　txtsql = txtsql & ",st.課程

31、號='" & Trim(Text2.Text) & "'"　　End If　　End If　　If Trim(Text3.Text) <> ""

32、 Then　　aa = 1　　If txtsql = "" Then　　txtsql = "set st.成績='" & Trim(Text3.Text) & "'"</p&g

33、t;　　Else　　txtsql = txtsql & ",st.成績='" & Trim(Text3.Text) & "'"　　End If<p&

34、gt;　　End If　　Dim str1 As String　　str1 = "select * from st " & txtsql1　　Dim mrc As ADODB.Recordset　　Set

35、mrc = myConn.Execute(str1)　　If mrc.EOF = True Then　　zzz = MsgBox("對不起，沒有此課程記錄！")　　Exit Sub　　End If

36、　　Dim str As String　　str = "update st " & txtsql & txtsql1　　MsgBox ("修改成功!")　　'Dim mrc As ADOD

37、B.Recordset'　　Set mrc = myConn.Execute(str)　　Set DataGrid1.DataSource = Adodc1　　Adodc1.Refresh　　Exit Sub

38、;　　Find = True　　'select xj.學(xué)號,xj.姓名,xj.性別,class.年級,xj.班級,class.專業(yè),class.年制,xj.出生年月,xj.家庭住址,xj.郵政編碼,xj.聯(lián)系電話,xj.入學(xué)時(shí)間,xj.備注 from xj inner join class on xj.班級=class.班級 where xj.班級='01

39、美術(shù)一' or 年級='01美術(shù)一' order by class.年級 desc,class.班級 desc,xj.學(xué)號 desc　　' Student_search.showtitle '　　'Student_search.showdata'　　MsgB

40、ox "修改成功！"　　DataGrid1.Refresh　　End Sub　　5.2.3學(xué)生信息管理　　代碼如下　　Dim con

41、 As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Dim i As Integer　　Private Sub Command5_Click()　　con.Open "Provider=SQLOLED

42、B.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息管理系統(tǒng)"　　rs.Open "select * from user1", con, adOpenKeyset, adLockOptimistic　　For i = 0 T

43、o 2　　rs.Fields(i) = Trim(Text1(i).Text)　　Next i　　MsgBox "成功修改數(shù)據(jù)", 48, "修改信息"　　rs.Update&

44、lt;/b>　　Set MSHFlexGrid1.DataSource = con.Execute("select * from user1")　　rs.Close　　con.Close&

45、lt;p>　　End Sub　　Private Sub Command7_Click()　　con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息管理

46、系統(tǒng)"　　rs.Open "select * from user1 where 用戶名稱='" & Trim(Text1(0)) & "'", con, adOpenKeyset, adLockOptimistic　　rs.Delete

47、　　MsgBox "刪除數(shù)據(jù)成功", 48, "刪除信息"　　rs.Update　　Set MSHFlexGrid1.DataSource = con.Execute("select * from user1")&l

48、t;/p>　　rs.Close　　con.Close　　End Sub　　Private Sub Command8_Click()

49、　　Me.Hide　　End Sub　　Private Sub Form_Load()　　con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Securi

50、ty Info=False;Initial Catalog=學(xué)生信息管理系統(tǒng)"　　Set MSHFlexGrid1.DataSource = con.Execute("select * from user1")　　con.Close<b&g

51、t;　　End Sub　　Private Sub MSHFlexGrid1_RowColChange()　　con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息管理系統(tǒng)&q

52、uot;　　rs.Open "select * from user1 where 用戶名稱='" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) & "'", con, adOpenKeyset　　If rs.RecordCount &g

53、t; 0 Then　　For i = 0 To 2　　Text1(i).Text = rs.Fields(i)　　Next i　　End If<b&

54、gt;　　rs.Close　　con.Close　　End Sub　　代碼如下　　Dim con As New ADODB.Connec

55、tion　　Dim rs As New ADODB.Recordset　　Dim i As Integer　　Private Sub Command1_Click()　　con.Open "Provider=SQLOLEDB.1;Integrated Secur

56、ity=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息管理系統(tǒng)"　　rs.Open "select * from user1 where 用戶名稱='" & Trim(Text1(0).Text) & "'", con, adOpenKeyset, adL

57、ockOptimistic　　If Trim(Text1(1)) = Trim(Text1(2)) Then　　For i = 0 To 2　　rs.Fields(i) = Trim(Text1(i).Text)　　Next i<

58、;/p>　　MsgBox "成功修改數(shù)據(jù)", 48, "修改信息"　　rs.Update　　Else　　MsgBox "密碼不一致,重新輸入", vb

59、Exclamation + vbOKOnly, "提示"　　End If　　'Set MSHFlexGrid1.DataSource = con.Execute("select * from 登錄表")　　rs

60、.Close　　con.Close　　End Sub　　Private Sub Command2_Click()　　Me.Hide<

61、/p>　　End Sub　　代碼如下　　Public printstr As String　　Public Sub showtitle()　　MSF1.Clear<

62、;/p>　　Dim i As Integer　　With MSF1　　.Cols = 14　　.TextMatrix(0, 1) = "學(xué)生學(xué)號"　　.TextMatrix(0, 2)

63、= "課程號"　　.TextMatrix(0, 3) = "成績"　　.ColWidth(0) = 0　　.ColWidth(1) = 1000　　.ColWidth(2) = 800　　.

64、ColWidth(3) = 800　　.FixedRows = 1　　For i = 1 To 3　　.ColAlignment(i) = 0　　Next i　　.FillStyle = fl

65、exFillSingle　　.Col = 0　　.Row = 0　　.RowSel = 1　　.ColSel = .Cols - 1　　.CellAlig

66、nment = 4　　.Row = 1　　End With　　End Sub　　Public Sub showdata()<p&

67、gt;　　Dim j As Integer　　Dim i As Integer　　Dim myConn As New ADODB.Connection　　mySQL = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info

68、=False;Initial Catalog=學(xué)生信息管理系統(tǒng)"　　myConn.ConnectionString = mySQL　　myConn.Open　　Dim mrc As ADODB.Recordset　　Set mrc = New ADODB.Rec

69、ordset　　Set mrc = myConn.Execute(printstr)　　If mrc.EOF = False Then　　mrc.MoveFirst　　With MSF1　　.

70、Rows = 50　　.Row = 1　　Do While Not mrc.EOF　　.Rows = .Rows + 1　　For i = 1 To mrc.Fields.Count　　.Te

71、xtMatrix(.Row, i) = mrc.Fields(i - 1)　　Next i　　.Row = .Row + 1　　mrc.MoveNext　　Loop<

72、p>　　End With　　End If　　End Sub　　Private Sub Command1_Click()　　Dim txtsql As S

73、tring　　Dim myConn As New ADODB.Connection　　mySQL = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學(xué)生信息管理系統(tǒng)"<p&

74、gt;　　myConn.ConnectionString = mySQL　　myConn.Open　　Dim aa As Integer　　txtsql = ""　　If Trim(Text1.Text) = "" Then<

75、/p>　　ss = MsgBox("你要輸入學(xué)生學(xué)號才能查詢！", , " 警告")　　Text1.SetFocus　　Exit Sub　　Else

76、　　txtsql = "select *from st where 學(xué)生學(xué)號='" & Trim(Text1.Text) & "'"　　End If　　Dim mrc As ADODB.Recordset

77、　　Set mrc = myConn.Execute(txtsql)　　If mrc.EOF = True Then　　zzz = MsgBox("對不起，沒有此學(xué)生的成績記錄！", vbOKOnly, "查詢")　　Text1.Text = "

78、;"　　Fromselect.ZOrder (0)　　Fromselect.Text1.SetFocus　　Exit Sub　　End If

79、printstr = txtsql　　Find = True　　Fromselect.showtitle　　Fromselect.showdata　　End Sub　　Private Sub

80、Command2_Click()　　Unload Me　　End Sub　　5.2.4 退出程序　　代碼如下　　Pr

81、ivate Sub Command1_Click()　　End　　End Sub　　Private Sub Command2_Click()　　退出.Hide

82、　　frmmain.Show　　End Sub　　8、實(shí)驗(yàn)小結(jié)　　我做的是學(xué)生信息管理系統(tǒng)。在這次課程設(shè)計(jì)中，我體會很深，也學(xué)會了很多東西，懂得很多以前不懂的東西，也明白了一些事情。</p&

83、gt;　　在本系統(tǒng)的開發(fā)過程中，由于我是初次開發(fā)軟件，在知識、經(jīng)驗(yàn)方面都存在著不足。另外，在整個開發(fā)的過程中，時(shí)間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。相信本學(xué)生管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，了解了基本知識鞏固了我對Visual

84、 Basic 6.0的學(xué)習(xí)，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。　　課程設(shè)計(jì)結(jié)束了，但我不會忘記在這次課程設(shè)計(jì)中我所得到的。我深深的體會到了這幾句話：認(rèn)真做事只是把事情做對，用心做事才能把事情做好。把每一件簡單的事情做好就是不簡單，把第一件平凡的事情做好就是不平凡。在以后的學(xué)習(xí)中我會不斷的在實(shí)際中應(yīng)用這幾句話，

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

溫馨提示

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)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

sql server 2005數(shù)據(jù)庫課程設(shè)計(jì)

文檔簡介

溫馨提示

最新文檔

評論

sql server 2005數(shù)據(jù)庫課程設(shè)計(jì)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載