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

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

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

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　數(shù)據庫課程設計報告　　教學管理系統(tǒng)　　實驗題目：教學管理系統(tǒng) 　　教學管理系統(tǒng)　　目錄</b&g

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

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

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

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

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

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

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

9、b>　　PC機　　三、實驗主要內容　　1、主要數(shù)據表　　課程信息表，學生信息表單，教師信息表，學生成績表等。&

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

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

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

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

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

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

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

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

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

19、gt;　　學生課表　　五、代碼實現(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;§立¢¡é連¢?接¨®對?象¨®，ê?同ª?時º¡À說¦Ì明¡Â連¢?接¨®字Á?符¤?串ä?　　Dim cmd As New SqlClient.S

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

26、ä臨¢¨´時º¡À存ä?放¤?執(zhí)¡ä行D語®?句?后¨®的Ì?結¨¢果?　　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("驗¨¦證¡è碼?錯ä¨ª誤¨®")

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("驗¨¦證¡è碼?錯ä¨ª誤¨

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個?參?數(shù)ºy為a需¨¨要°a更¨¹新?數(shù)ºy據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據Y從ä¨®當Ì¡À前¡ã建¡§立&

46、#162;¡é的Ì?連¢?接¨®cn中D進?入¨?　　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("確¨¡¤實º¦Ì要°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("確¨¡¤實º¦Ì要°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.學生界面　　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.網上評教　　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)實現(xiàn)結果　　實驗分工及總結

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

溫馨提示

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

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載