教學(xué)管理系統(tǒng)數(shù)據(jù)庫課程設(shè)計(jì)

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

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

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

文檔簡介

1、　　數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告　　教學(xué)管理系統(tǒng)　　實(shí)驗(yàn)題目：教學(xué)管理系統(tǒng) 　　教學(xué)管理系統(tǒng)　　目錄</b&g

2、t;　　一、概述3　　二、總體設(shè)計(jì)3　　1、軟件環(huán)境：3　　2、硬件環(huán)境：3<p

3、>　　三、實(shí)驗(yàn)主要內(nèi)容3　　1、主要數(shù)據(jù)表4　　2、功能模塊4　　四、系統(tǒng)分析報(bào)告4　　1、數(shù)據(jù)流圖4

4、;　　2、系統(tǒng)功能模塊5　　3、業(yè)務(wù)流圖5　　4、系統(tǒng)數(shù)據(jù)模型設(shè)計(jì)6　　五、代碼實(shí)現(xiàn)9　　1.登錄界面9&

5、lt;b>　　2.注冊界面11　　3.教師界面13　　4.課表管理14　　5.成績管理15　　6.學(xué)生界面

6、16　　7.網(wǎng)上評教18　　六、系統(tǒng)實(shí)現(xiàn)結(jié)果18　　七、實(shí)驗(yàn)分工及總結(jié)23　　概述　　數(shù)據(jù)庫課程設(shè)計(jì)是集中實(shí)踐性環(huán)節(jié)之一，是學(xué)

7、習(xí)完《數(shù)據(jù)庫原理及應(yīng)用》課程后進(jìn)行的一次全面的綜合的實(shí)踐練習(xí)，主要目的在于加深學(xué)生對數(shù)據(jù)庫基礎(chǔ)理論和基本知識的理解，熟悉數(shù)據(jù)庫的設(shè)計(jì)方法，掌握基于數(shù)據(jù)庫的信息管理系統(tǒng)的開發(fā)方法，進(jìn)一步加強(qiáng)學(xué)生綜合運(yùn)用知識和實(shí)踐動手的能力。　　學(xué)生根據(jù)所學(xué)的數(shù)據(jù)庫原理與程序設(shè)計(jì)的知識，能夠針對一個(gè)小型的數(shù)據(jù)庫管理系統(tǒng)，進(jìn)行系統(tǒng)的需求分析，系統(tǒng)設(shè)計(jì)，數(shù)據(jù)庫設(shè)計(jì)，編碼，測試等，完成題目要求的功能，從而達(dá)到掌握開發(fā)一個(gè)

8、小型數(shù)據(jù)庫的目的。　　二、總體設(shè)計(jì)　　1、軟件環(huán)境：　　Visual Studio 2010、SQL Server Management Studio　　2、硬件環(huán)境：</

9、b>　　PC機(jī)　　三、實(shí)驗(yàn)主要內(nèi)容　　1、主要數(shù)據(jù)表　　課程信息表，學(xué)生信息表單，教師信息表，學(xué)生成績表等。&

10、lt;b>　　2、功能模塊　?。?）課程設(shè)置，包括：查詢、添加、刪除、查詢和修改課程信息 　　（2）學(xué)生成績查詢，網(wǎng)上評教。 　　（3）教師查詢課程時(shí)間和教室的安排。 　?。?）教師管理學(xué)生成績查詢，添加，修改，刪除。&l

11、t;p>　　（5）學(xué)生和教師信息的注冊。　　四、系統(tǒng)分析報(bào)告　　1、數(shù)據(jù)流圖　　教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖如下所示：　　學(xué)生選課信息 <

12、;b>　　課程信息　　選課審核信息　　圖1教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖 　　學(xué)生成績信息　　學(xué)生考試信息 　　學(xué)生信息

13、管理 　　個(gè)人考試信息　　成績確認(rèn)信息　　圖 2 教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖　　排課信息

14、　個(gè)人考試成績　　排課信息排課信息　　排課信息　　圖3 教學(xué)管理系統(tǒng)的基本數(shù)據(jù)流圖　　2、系統(tǒng)功能模塊&l

15、t;p>　　本系統(tǒng)主要包括學(xué)生信息管理、課程信息管理、成績信息管理等模塊，另外還包括進(jìn)行系統(tǒng)管理的一些輔助模塊。其示意圖如下：　　3、業(yè)務(wù)流圖　　4、系統(tǒng)數(shù)據(jù)模型設(shè)計(jì)　?。?）系統(tǒng)ER圖&l

16、t;b>　　各實(shí)體E-R圖：　　學(xué)生信息：　　課程信息：　　教師信息：　　學(xué)生成績：</

17、p>　　關(guān)系模式　　學(xué)生信息（姓名，學(xué)號，登錄密碼）　　課程信息（課程號，課程名，上課教室，登錄密碼，）　　教師信息（教師編號，姓名，登錄密碼）　　學(xué)生成績（學(xué)號，課程號，課程名，成績）

18、　　數(shù)據(jù)表　　課程信息表　　教師信息表　　個(gè)人成績表　　學(xué)生成績表</b&

19、gt;　　學(xué)生課表　　五、代碼實(shí)現(xiàn)　　1.登錄界面　　Private Sub Form1_Load(ByVal sender As System.Object

20、, ByVal e As System.EventArgs) Handles MyBase.Load　　Dim min, max, rndnum, i As Integer　　min = 10　　max = 99&

21、lt;p>　　TextBox4.Text = ""　　For i = 0 To 1　　rndnum = CStr(CInt(min + Rnd() * (max - min)))　　TextBox4.Text = TextBox4.Text & "" &

22、; rndnum　　Next　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

23、Button2.Click　　Dim ConnStr As String = "Server=(local);uid=sa;pwd=1234;database=shiy"　　Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConnStr) '建&#

24、161;§立¢¡é連¢?接¨®對?象¨®，ê?同ª?時(shí)º¡À說¦Ì明¡Â連¢?接¨®字Á?符¤?串ä?　　Dim cmd As New SqlClient.S

25、qlCommand '生¦¨²成¨¦命¨¹令¢?對?象¨®，ê?用®?于®¨²執(zhí)¡ä行DSQL語®?句?　　Dim dr As IDataReader '用®?來¤¡

26、ä臨¢¨´時(shí)º¡À存ä?放¤?執(zhí)¡ä行D語®?句?后¨®的Ì?結(jié)¨¢果?　　Dim SQLStr As String　　If RadioButton1.Checked = True Th

27、en　　SQLStr = "select * from teacher where tusernum=" + "'" + TextBox1.Text + "'"　　cmd.Connection = cn　　cn.Open

28、()　　cmd.CommandText = SQLStr　　dr = cmd.ExecuteReader()　　If dr.Read() Then　　If dr!tpwd.ToString().Trim = TextBox2.Text Then<

29、/p>　　If TextBox3.Text = TextBox4.Text Then　　MsgBox("登Ì?錄?成¨¦功|")　　Dim jiaoshi As New Form3　　jiaoshi.ShowDialog()</p

30、>　　Hide()　　Else　　MsgBox("驗(yàn)¨¦證¡è碼?錯(cuò)ä¨ª誤¨®")

31、;　　End If　　Else　　MsgBox("密¨¹碼?不?正y確¨¡¤")　　End If<b

32、>　　Else　　MsgBox("該?用®?戶¡ì不?存ä?在¨²")　　End If　　dr.Close()　　cn.Clos

33、e()　　Else　　SQLStr = "select * from student where snum=" + "'" + TextBox1.Text + "'"　　cmd.Connection

34、= cn　　cn.Open()　　cmd.CommandText = SQLStr　　dr = cmd.ExecuteReader()　　If dr.Read() Then　　If dr!sp

35、wd.ToString().Trim = TextBox2.Text Then　　If TextBox3.Text = TextBox4.Text Then　　MsgBox("登Ì?錄?成¨¦功|")　　Dim xuesheng As New Form6</

36、p>　　xuesheng.Show()　　Me.Hide()　　Else　　MsgBox("驗(yàn)¨¦證¡è碼?錯(cuò)ä¨ª誤¨

37、®")　　End If　　Else　　MsgBox("密¨¹碼?不?正y確¨¡¤")

38、End If　　Else　　MsgBox("該?用®?戶¡ì不?存ä?在¨²")　　End If

39、　　dr.Close()　　cn.Close()　　End If　　End Sub　　Private Sub Button1_Click(ByVal sender As System.Object

40、, ByVal e As System.EventArgs) Handles Button1.Click　　Dim zhuce As New Form2　　zhuce.Show()　　Me.Hide()　　End S

41、ub　　2.注冊界面　　Public Class Form2　　Dim objDS As New DataSet　　Dim objXSTable As DataTable

42、　Dim objda As New SqlClient.SqlDataAdapter　　Dim cn As New SqlClient.SqlConnection("server=(local);uid=sa;pwd=1234;database=shiy")　　Public Sub refreshdata()&

43、lt;p>　　objda.Update(objDS, "teacher") '第Ì¨²二t個(gè)?參?數(shù)ºy為a需¨¨要°a更¨¹新?數(shù)ºy據(jù)Y庫a表À¨ª名?　　objXSTable.Clear()<p&

44、gt;　　Me.zhuce_Click(Nothing, Nothing)　　objDS.AcceptChanges()　　End Sub　　Private Sub zhuce_Click(ByVal sender As System.Object, ByVal e As S

45、ystem.EventArgs) Handles zhuce.Click　　Dim cmd As New SqlClient.SqlCommand　　cmd.Connection = cn '數(shù)ºy據(jù)Y從ä¨®當(dāng)Ì¡À前¡ã建¡§立&

46、#162;¡é的Ì?連¢?接¨®cn中D進(jìn)?入¨?　　If RadioButton1.Checked = True Then　　Dim builder As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(ob

47、jda)　　Try　　cn.Open()　　cmd.CommandText = "select * from teacher"　　objda.SelectCommand = c

48、md　　objda.Fill(objDS, "teacher")　　objXSTable = objDS.Tables("teacher")　　cn.Close()　　Dim response As MsgBoxResult<

49、/p>　　response = MsgBox("確¨¡¤實(shí)º¦Ì要°a注Á¡é冊¨¢嗎e？ê?", vbOKCancel + vbQuestion, "系¦Ì統(tǒng)ª3提¬¨¢示º?&q

50、uot;)　　If response = MsgBoxResult.Ok Then　　Dim myRow As DataRow　　myRow = objXSTable.NewRow　　myRow("tusernum") = TextBox1.Text&

51、lt;/p>　　myRow("tusername") = username1.Text　　myRow("tpwd") = mima1.Text　　objXSTable.Rows.Add(myRow)　　objda.Update(objDS, &q

52、uot;teacher")　　objDS.AcceptChanges()　　refreshdata()　　End If　　Catch ex As Exception

53、　　End Try　　Else　　Dim builder As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(objda)　　cn.Open()</b&g

54、t;　　cmd.CommandText = "select * from student"　　objda.SelectCommand = cmd　　objda.Fill(objDS, "student")　　objXSTable =

55、 objDS.Tables("student")　　cn.Close()　　Dim response As MsgBoxResult　　response = MsgBox("確¨¡¤實(shí)º¦Ì要°a注Á&#

56、161;é冊¨¢嗎e？ê?", vbOKCancel + vbQuestion, "系¦Ì統(tǒng)ª3提¬¨¢示º?")　　If response = MsgBoxResult.Ok Then　　Dim myRow As

57、DataRow　　myRow = objXSTable.NewRow　　myRow("snum") = TextBox1.Text　　myRow("sname") = username1.Text　　myRow("spwd

58、") = mima1.Text　　objXSTable.Rows.Add(myRow)　　objda.Update(objDS, "student")　　objDS.AcceptChanges()　　refreshdata()</p&g

59、t;　　End If　　End If　　Dim denglu As New Form1　　denglu.Show()　　Me.Hide()

60、;　　End Sub　　Private Sub chongzhi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chongzhi.Click　　username1.Text

61、= ""　　mima1.Text = ""　　qmima1.Text = ""　　End Sub　　End Class

62、;　　3.教師界面　　Public Class Form3　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

63、　　Dim kebiao As New Form4　　kebiao.Show()　　Me.Hide()　　End Sub　　Private Sub Button4_Click

64、(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click　　Dim denglu As New Form1　　denglu.Show()　　Me.Hide()</

65、p>　　End Sub　　Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)　　End Sub<p&g

66、t;　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Dim chengjig As New Form5　　chengjig.Show()&l

67、t;b>　　Me.Hide()　　End Sub　　Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)　　End

68、 Sub　　4.課表管理　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim c

69、onn As New SqlConnection　　Dim comm As New SqlCommand　　conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"　　conn.Open()

70、;　　comm.CommandText = "select * from course where coursenum ='" & Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "'"<

71、;p>　　comm.Connection = conn　　comm.CommandText = "select coursename from course where coursenum ='" & Me.TextBox1.Text & "' and courxseclass='" & Me.Text

72、Box2.Text & "'"　　Me.TextBox3.Text = comm.ExecuteScalar　　comm.Connection = conn　　comm.CommandText = "select coursetime from course wher

73、e coursenum ='" & Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "'"　　Me.TextBox4.Text = comm.ExecuteScalar<p&g

74、t;　　comm.Connection = conn　　comm.CommandText = "select courseaddress from course where coursenum ='" & Me.TextBox1.Text & "' and courxseclass='" & Me.TextB

75、ox2.Text & "'"　　Me.TextBox5.Text = comm.ExecuteScalar　　comm.Connection = conn　　conn.Close()　　End Sub

76、;　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Dim jiaoshijiemian As New Form3　　jiaoshijiemi

77、an.Show()　　Me.Hide()　　End Sub　　5.成績管理　　Imports System.Data.SqlClient

78、　　Public Class Form5　　Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click　　Dim jiaoshi As New Form3&

79、lt;p>　　jiaoshi.Show()　　Me.Hide()　　End Sub　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Syste

80、m.EventArgs) Handles Button1.Click　　Dim conn As New SqlConnection　　Dim comm As New SqlCommand　　conn.ConnectionString = "server=(local); uid=sa;pwd=1234;

81、database=shiy"　　conn.Open()　　comm.CommandText = "select * from chengji"　　comm.Connection = conn　　Dim da As New SqlDataAda

82、pter(comm.CommandText, conn)　　Dim ds As New DataSet　　da.Fill(ds, "chengji")　　conn.Close()　　Me.DataGridView1.DataSource = ds.Ta

83、bles(0)　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Dim conn As

84、 New SqlConnection　　Dim comm As New SqlCommand　　conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"　　conn.Open()<

85、;p>　　comm.CommandText = "insert into chengji values('" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "',

86、'" & Me.TextBox5.Text & "')"　　comm.Connection = conn　　comm.ExecuteNonQuery()　　comm.CommandText = "select * from chengji&q

87、uot;　　comm.Connection = conn　　Dim da As New SqlDataAdapter(comm.CommandText, conn)　　Dim ds As New DataSet　　da.Fill(ds, "chengji&quo

88、t;)　　conn.Close()　　Me.DataGridView1.DataSource = ds.Tables(0)　　End Sub　　Private Sub Button3_Click(ByVal sender As Sys

89、tem.Object, ByVal e As System.EventArgs) Handles Button3.Click　　Dim conn As New SqlConnection　　Dim comm As New SqlCommand　　conn.ConnectionString = "serv

90、er=(local); uid=sa;pwd=1234;database=shiy"　　conn.Open()　　comm.CommandText = "update chengji set snum='" & Me.TextBox2.Text & "',coursenum=&quo

91、t; & Me.TextBox3.Text & ",coursename='" & Me.TextBox4.Text & "',coursegrade='" & Me.TextBox5.Text & "' where snum='" & Me.TextBox2.Text &

92、"'"　　comm.Connection = conn　　comm.ExecuteNonQuery()　　comm.CommandText = "select * from chengji"　　comm.Connection

93、 = conn　　Dim da As New SqlDataAdapter(comm.CommandText, conn)　　Dim ds As New DataSet　　da.Fill(ds, "chengji")　　conn.Close()<

94、/p>　　Me.DataGridView1.DataSource = ds.Tables(0)　　End Sub　　Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) H

95、andles Button4.Click　　Dim conn As New SqlConnection　　Dim comm As New SqlCommand　　conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy&

96、quot;　　conn.Open()　　comm.CommandText = "delete from chengji where snum =" & Me.TextBox2.Text　　comm.Connection = conn　　comm

97、.ExecuteNonQuery()　　comm.CommandText = "select * from chengji"　　comm.Connection = conn　　Dim da As New SqlDataAdapter(comm.CommandText, conn)</p&

98、gt;　　Dim ds As New DataSet　　da.Fill(ds, "chengji")　　conn.Close()　　Me.DataGridView1.DataSource = ds.Tables(0)<b&g

99、t;　　End Sub　　6.學(xué)生界面　　Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

100、　　Dim denglu As New Form1　　denglu.Show()　　Me.Hide()　　End Sub　　Private Sub Button1_Click(ByVal send

101、er As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim conn As New SqlConnection　　Dim comm As New SqlCommand　　conn.ConnectionString = &

102、quot;server=(local); uid=sa;pwd=1234;database=shiy"　　conn.Open()　　comm.CommandText = "select * from scourse"　　comm.Connection = conn

103、　　Dim da As New SqlDataAdapter(comm.CommandText, conn)　　Dim ds As New DataSet　　da.Fill(ds, "scourse")　　conn.Close()

104、　　Me.DataGridView1.DataSource = ds.Tables(0)　　End Sub　　Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)<p&g

105、t;　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Dim conn As New SqlConnection</p&g

106、t;　　Dim comm As New SqlCommand　　conn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"　　conn.Open()　　comm.CommandText =

107、 "select * from grchengji"　　comm.Connection = conn　　Dim da As New SqlDataAdapter(comm.CommandText, conn)　　Dim ds As New DataSet

108、;　　da.Fill(ds, "grchengji")　　conn.Close()　　Me.DataGridView1.DataSource = ds.Tables(0)　　End Sub　　Private Sub

109、 Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click　　Dim pingjiao As New Form7　　pingjiao.Show()　　Me.Hid

110、e()　　End Sub　　7.網(wǎng)上評教　　Public Class Form7　　Private Sub Button1_Click(ByVal sender As Syst

111、em.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim denglu As New Form6　　denglu.Show()　　Me.Hide()<b

112、>　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　MsgBox("提¬¨¢交?成¨

113、66;功|")　　End Sub　　End Class　　六、系統(tǒng)實(shí)現(xiàn)結(jié)果　　實(shí)驗(yàn)分工及總結(jié)

眾賞文庫> 全部分類> 畢業(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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

教學(xué)管理系統(tǒng)數(shù)據(jù)庫課程設(shè)計(jì)

文檔簡介

溫馨提示

最新文檔

評論

教學(xué)管理系統(tǒng)數(shù)據(jù)庫課程設(shè)計(jì)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載