數(shù)據(jù)庫總實(shí)驗(yàn)new

1、數(shù)據(jù)庫原理及應(yīng)用 實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)題目：教學(xué)管理系統(tǒng)指導(dǎo)老師：李萍專業(yè)班級：計(jì)算機(jī)科學(xué)與技術(shù)系1105班組 員：史樂樂（2011100534） 李 輝（2011100535） 閆壯壯（2011100556） 王 偉（2011100538） 2013年 12月10日一、開發(fā)背景 數(shù)據(jù)庫技術(shù)和Internet的飛速發(fā)展，使它們已經(jīng)成為現(xiàn)代信息技術(shù)的重要組成部分，是現(xiàn)在計(jì)算機(jī)信息系統(tǒng)和計(jì)算機(jī)應(yīng)用系統(tǒng)的基礎(chǔ)和核心。隨著學(xué)校規(guī)模的不斷擴(kuò)大，對學(xué)校資源的管理是首要解決的問題。這也挑戰(zhàn)了教學(xué)管理方面的技術(shù)，以前的人工管理方式已經(jīng)不再適應(yīng)現(xiàn)在的環(huán)境，取而代之的是先進(jìn)的教學(xué)管理系統(tǒng)。通過數(shù)據(jù)庫系統(tǒng)對教師、學(xué)生、選課

2、進(jìn)行統(tǒng)一的管理與操作。二、需求分析2.1 系統(tǒng)目標(biāo)：學(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è)小型數(shù)據(jù)庫的目的。2.2 需求定義 教學(xué)管理系統(tǒng)開發(fā)。系統(tǒng)開發(fā)的總的設(shè)計(jì)目標(biāo)是實(shí)現(xiàn)教學(xué)信息管理的系統(tǒng)化、規(guī)范化和自動化，實(shí)現(xiàn)對學(xué)生、選課資料的集中統(tǒng)一的管理。本系統(tǒng)主要實(shí)現(xiàn)對學(xué)生、選課基本信息的管理，本系統(tǒng)結(jié)構(gòu)分為課程信息系統(tǒng)，學(xué)生選課信息系統(tǒng)，學(xué)生成績系統(tǒng)。學(xué)生成績信息系統(tǒng)滿足對學(xué)生基本信息、所選課程和學(xué)生課表的輸出的需求；學(xué)生選課系統(tǒng)滿足對學(xué)生所選課程和學(xué)生基本信息的輸

3、出需求；課程信息系統(tǒng)滿足對課程信息的增加、刪除、查詢和修改的需求。本系統(tǒng)組織結(jié)構(gòu)圖：教學(xué)管理系統(tǒng)選課信息系統(tǒng)課程信息系統(tǒng)學(xué)生信息顯示學(xué)生信息錄入課程信息顯示課程信息設(shè)置課程信息查詢學(xué)生選課選課結(jié)果顯示選課結(jié)果設(shè)置 學(xué)生信息系統(tǒng)2.3 管理系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)字典教學(xué)管理系統(tǒng)管理人員學(xué)生基本信息學(xué)生選課信息學(xué)生基本信息課程基本信息學(xué)生課程基本信息查詢選課信息教室授課信息名稱：學(xué)生別名：無描述：學(xué)生的基本信息組成：學(xué)生sno（學(xué)生學(xué)號）sname（學(xué)生姓名）sage（年齡）ssex（性別）+sdept（所在系）；位置：學(xué)生基本信息、學(xué)生選課信息名稱：課程別名：無描述：課程的基本信息組成：課程cno

4、（課程代號）cname（課程名稱）teacher（授課教師） ctime（課程時(shí)間）grade（課程成績）；位置：課程信息、課程成績3、 概念模型E-R圖實(shí)體（矩形）學(xué)生、課程屬性（圓形）學(xué)生：學(xué)號、姓名、年齡、性別、系課程：課程號、課程名稱、教師、上課時(shí)間、上課教室關(guān)系（菱形）選課：成績3.1 教學(xué)管理系統(tǒng)E-R圖學(xué)生課程選修gradecnocroomteacherctimecnamessexsdeptsagesnamesno3.2 學(xué)生實(shí)體E-R圖學(xué)生snosnamesagesdeptssex 3.3 課程實(shí)體E-R圖課程ctimeteachercnamecnocroom 3.4 選課關(guān)系

5、E-R圖選修grade 3.5 PowerDesigner 環(huán)境下設(shè)計(jì)模型圖 4、 數(shù)據(jù)庫功能實(shí)現(xiàn)截圖與代碼4.1 數(shù)據(jù)庫截圖數(shù)據(jù)表建立：選課表：課程表：學(xué)生表：數(shù)據(jù)庫建立代碼截圖：管理員登陸界面：登陸成功，顯示數(shù)據(jù)表信息：4.2教學(xué)管理系統(tǒng)關(guān)鍵代碼 shuju .vbPublic Class shujuku Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim o As New Class1 Dim ds As New DataSet ds = o.get

6、alldata() Me.DataGridView1.Refresh() Me.DataGridView1.DataSource = ds.Tables("student") End SubEnd ClassClass.vbImports System.Data.SqlClientPublic Class Class1 Dim strconn As String = Me.getstrconn() Public Function yanzheng(ByVal str1 As String) As Integer Dim conn As New SqlConnection c

7、onn.ConnectionString = strconn conn.Open() Dim cmd As New SqlCommand cmd.CommandText = "select * from student where sno='" & str1 & "'" cmd.Connection = conn Dim dr As SqlDataReader dr = cmd.ExecuteReader If dr.Read Then dr.Close() conn.Close() Return 1 Else dr.Cl

8、ose() conn.Close() Return 0 End If End Function Public Function pwdyanzheng(ByVal str As String) As SqlDataReader Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open() Dim cmd As New SqlCommand cmd.CommandText = "select * from student where sno='" & str & &q

9、uot;'" cmd.Connection = conn Dim dr As SqlDataReader = cmd.ExecuteReader Return dr End Function Public Function getstrconn() As String Dim str As String str = "server=.;uid=sa;pwd=123;database=client" Return str End Function Public Function getalldata() As DataSet Dim conn As New

10、SqlConnection conn.ConnectionString = strconn conn.Open() Dim da As New SqlDataAdapter("select * from student", conn) Dim ds As New DataSet da.Fill(ds, "student") conn.Close() Return ds End FunctionEnd classLogin.vbImports System.Data.SqlClientPublic Class login Private Sub Butto

11、n1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim o As New Class1 Dim f As Integer f = o.yanzheng(Me.TextBox1.Text) If f = 0 Then Me.TextBox1.Text = "" Me.TextBox1.Focus() Else If f = 1 Then Dim dr As SqlDataReader dr = o.pwdyanzheng(Me.TextBox1

12、.Text) dr.Read() If RTrim(dr!sname) <> Me.TextBox2.Text Then MsgBox("密¨¹碼?錯(cuò)䨪誤¨®，ê?請?重?新?輸º?入¨?！ê?") Me.TextBox2.Text = "" Me.TextBox2.Focus() Else shujuku.Show() Me.Hide() End If End If End IfEnd SubEnd Class5、 總結(jié) 經(jīng)過近幾天的