學(xué)生課程管理Oracle數(shù)據(jù)庫(kù)論文

1、 大型數(shù)據(jù)庫(kù)系統(tǒng)應(yīng)用集中實(shí)訓(xùn)報(bào)告系統(tǒng)名稱： 學(xué)生課程管理系統(tǒng) 專 業(yè)： 信息管理與信息系統(tǒng) 班 級(jí)： 信管B1201 學(xué) 號(hào)： 123629 姓 名： 李曉雪 指導(dǎo)教師： 王希娟 2015年6月11日目錄1前言11.1課題簡(jiǎn)介11.2 方案及其論證12需求分析22.1可行性分析22.2性能需求23概念結(jié)構(gòu)設(shè)計(jì)33.1功能模塊設(shè)計(jì)33.2 E-R圖44邏輯結(jié)構(gòu)設(shè)計(jì)54.1關(guān)系模式54.2規(guī)范處理54.3視圖設(shè)計(jì)55詳細(xì)設(shè)計(jì)65.1數(shù)據(jù)庫(kù)設(shè)計(jì)部分代碼65.2前臺(tái)界面開(kāi)發(fā)部分代碼75.3數(shù)據(jù)庫(kù)連接部分代碼116總結(jié)與體會(huì)127參考文獻(xiàn)121前言1.1 課題簡(jiǎn)介（1）開(kāi)發(fā)系統(tǒng)的名稱：學(xué)生課程管理系統(tǒng)（

2、2）實(shí)訓(xùn)目的：通過(guò)大型數(shù)據(jù)庫(kù)系統(tǒng)應(yīng)用課程的學(xué)習(xí)，將數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)庫(kù)應(yīng)用在具體的編程方面，更加了解課程所學(xué)習(xí)的內(nèi)容及思維邏輯。（3）實(shí)訓(xùn)意義：利用信息系統(tǒng)開(kāi)發(fā)與實(shí)踐課程設(shè)計(jì)，了解學(xué)生對(duì)Oracle數(shù)據(jù)庫(kù)的理解、應(yīng)用，以及加強(qiáng)學(xué)生對(duì)軟件開(kāi)發(fā)方面的應(yīng)用知識(shí)。希望今后學(xué)生好好利用所學(xué)的軟件開(kāi)發(fā)方面的知識(shí)和思想，解決各方面的編程難題。（4）實(shí)訓(xùn)內(nèi)容:按照系統(tǒng)開(kāi)發(fā)基本原理，綜合運(yùn)用所學(xué)的知識(shí)，設(shè)計(jì)開(kāi)發(fā)一個(gè)小型的管理系統(tǒng)。（5）實(shí)訓(xùn)預(yù)期實(shí)現(xiàn)效果:系統(tǒng)開(kāi)發(fā)文檔+能運(yùn)行的小系統(tǒng)或者部分模塊1.2 方案及其論證語(yǔ)言：VB+Oracle 11g運(yùn)行環(huán)境：Microsoft Visual Studio 20102需求

3、分析 2.1可行性分析（1）技術(shù)可行性：學(xué)生選課系統(tǒng)，數(shù)據(jù)庫(kù)方面采用Oracle 11g，采用VB語(yǔ)言。（2）經(jīng)濟(jì)可行性：隨著網(wǎng)絡(luò)技術(shù)的發(fā)展，各高校紛紛建立自己的高速校園網(wǎng)，并建有屬于的學(xué)生選課系統(tǒng)，利用計(jì)算機(jī)對(duì)學(xué)生的信息進(jìn)行管理，減少了人力的投資；而且學(xué)校對(duì)選課系統(tǒng)大力支持，開(kāi)發(fā)經(jīng)費(fèi)沒(méi)有問(wèn)題。從長(zhǎng)遠(yuǎn)來(lái)看，其好處是樂(lè)觀的。（3）操作可行性：界面設(shè)計(jì)時(shí)充分考慮管理人員的習(xí)慣，使得操作簡(jiǎn)單；數(shù)據(jù)錄入迅速、規(guī)范、可靠；統(tǒng)計(jì)準(zhǔn)確；制表靈活；適應(yīng)力強(qiáng)；容易擴(kuò)充。2.2性能需求為了保證系統(tǒng)能夠長(zhǎng)期、安全、穩(wěn)定、可靠、高校地運(yùn)行，學(xué)生選課管理系統(tǒng)應(yīng)該滿足以下幾個(gè)性能需求。（1）數(shù)據(jù)精確度系統(tǒng)對(duì)數(shù)據(jù)處理的準(zhǔn)確

4、性和精度要求高。（2）適應(yīng)性（運(yùn)行環(huán)境、計(jì)劃發(fā)生變化等應(yīng)具有的適應(yīng)能力）在開(kāi)發(fā)過(guò)程中，應(yīng)該充分考慮以后的可擴(kuò)充性。例如管理系統(tǒng)的方式的改變，用戶查詢的需求也會(huì)不斷地更新和完善。所有這些，都要求系統(tǒng)提供足夠的手段進(jìn)行功能的調(diào)整和擴(kuò)充。而要實(shí)現(xiàn)這一點(diǎn)，應(yīng)通過(guò)系統(tǒng)的開(kāi)放性來(lái)完成。即系統(tǒng)應(yīng)是一個(gè)開(kāi)放系統(tǒng)，可以在符合一定規(guī)范的前提下，簡(jiǎn)單的加入和減少系統(tǒng)的模塊，配置系統(tǒng)的硬件，通過(guò)軟件的修補(bǔ)、替換完成系統(tǒng)的升級(jí)和更新?lián)Q代。（3）出錯(cuò)處理系統(tǒng)中涉及到的數(shù)據(jù)是學(xué)校重要的信息，系統(tǒng)要提供方便的手段供系統(tǒng)維護(hù)人員進(jìn)行數(shù)據(jù)的輩分，日常的安全管理系統(tǒng)意外崩潰時(shí)的數(shù)據(jù)恢復(fù)等工作。系統(tǒng)應(yīng)具有相當(dāng)健壯性，避免或降低由系統(tǒng)

5、錯(cuò)誤所造成的數(shù)據(jù)庫(kù)損壞。對(duì)關(guān)鍵性操作，如刪除等警告和確認(rèn)機(jī)制。（4）安全系統(tǒng)提供嚴(yán)格的身份驗(yàn)證機(jī)制和密碼管理。（5）維護(hù)系統(tǒng)嚴(yán)格按照設(shè)計(jì)規(guī)范進(jìn)行設(shè)計(jì)，并保持各階段文檔的完整性，為以后對(duì)軟件的維護(hù)打好基礎(chǔ)。3概念結(jié)構(gòu)設(shè)計(jì)3.1功能模塊設(shè)計(jì) 學(xué)生選課系統(tǒng)必須能夠完成學(xué)生管理、管理員管理，教師管理，課程管理。按照用戶需求，可將“學(xué)生選課管理系統(tǒng)”設(shè)計(jì)成以下層次：學(xué)生課程管理系統(tǒng)學(xué)生模塊查詢學(xué)生信息選修課程查詢學(xué)生信息課程信息管理教師信息管理學(xué)生信息管理修改密碼登錄與注銷查詢所授課程教師模塊公共模塊管理員模塊圖3.1 學(xué)生選課管理系統(tǒng)層次結(jié)構(gòu)圖 通過(guò)分析，得到“學(xué)生管理系統(tǒng)”的數(shù)據(jù)流圖：學(xué)生教師管理員

6、學(xué)生課程管理系統(tǒng)學(xué)生信息教師信息管理員信息課程信息學(xué)生信息教師信息管理員信息查詢/管理圖3.3 學(xué)生選課管理系統(tǒng)頂層數(shù)據(jù)流圖學(xué)生#學(xué)號(hào)*姓名*性別*班級(jí)課程#課程號(hào)*課程名*課程內(nèi)容管理員#管理員號(hào)*姓名*密碼教師#職工號(hào)*姓名*性別3.2 E-R圖圖3.6 學(xué)生、課程實(shí)體e-r圖4邏輯結(jié)構(gòu)設(shè)計(jì)4.1關(guān)系模式（1）管理員（管理員號(hào)，姓名，密碼） 主鍵：管理員號(hào)（2）課程表（課程號(hào)，課程名，課程內(nèi)容） 主鍵：課程號(hào)（3）學(xué)生（學(xué)號(hào)，姓名，性別，班級(jí)） 主鍵：學(xué)號(hào)（4）教師表（教職工號(hào)，姓名，性別） 主鍵：教職工號(hào)4.2規(guī)范處理第一范式（無(wú)重復(fù)的列）定義：數(shù)據(jù)庫(kù)表的每一列都是不可分割的原子數(shù)據(jù)項(xiàng)，

7、而不能是集合，數(shù)組，記錄等非原子數(shù)據(jù)項(xiàng)。如果實(shí)體中的某個(gè)屬性有多個(gè)值時(shí)，必須拆分為不同的屬性通俗解釋：一個(gè)字段只存儲(chǔ)一項(xiàng)信息。第二范式（屬性完全依賴于主鍵）定義：滿足第一范式前提，當(dāng)存在多個(gè)主鍵的時(shí)候，才會(huì)發(fā)生不符合第二范式的情況。比如有兩個(gè)主鍵，不能存在這樣的屬性，它只依賴于其中一個(gè)主鍵，這就是不符合第二范式通俗解釋：任意一個(gè)字段都只依賴表中的同一個(gè)字段。第三范式（屬性不能傳遞依賴于主屬性）定義：滿足第二范式前提，如果某一屬性依賴于其他非主鍵屬性，而其他非主鍵屬性又依賴于主鍵，那么這個(gè)屬性就是間接依賴于主鍵，這被稱作傳遞依賴于主屬性。通俗理解：一張表最多只存2層同類型信息。4.3視圖設(shè)計(jì)l_

8、Course表COU_IDCOU_NAMECOU_CONTENT11計(jì)算機(jī)基礎(chǔ)第一章22管理學(xué)緒論33數(shù)據(jù)庫(kù)目錄mana表MANA_IDMANA_NAMEMANA_PASSWORD11lxx123l_student表STU_IDSTU_NAMESTU_SEXSTU_CLASS11李曉雪女2班22曉雪女3班l(xiāng)_tea表TEA_IDTEA_NAMETEA_SEX12曉雪女21劉俊德男33曉雪女45劉俊德男5詳細(xì)設(shè)計(jì)5.1數(shù)據(jù)庫(kù)設(shè)計(jì)部分代碼創(chuàng)建l_Course表：createtablel_Course(cou_idintprimarykey,cou_namevarchar2(20)notnull,c

9、ou_contentvarchar2(20)notnull);commit;插入l_Course表：insertintol_Coursevalues(1,計(jì)算機(jī)基礎(chǔ),第一章);insertintol_Coursevalues(2,管理學(xué),緒論);insertintol_Coursevalues(3,數(shù)據(jù)庫(kù),目錄);查詢l_Course表：select*from l_Course;創(chuàng)建mana表：createtablemana(mana_idintprimarykey,mana_namevarchar2(20)notnull,mana_passwordvarchar2(20)notnull);c

10、ommit;插入mana表：insertintol_studentvalues(1,lxx,123);5.2前臺(tái)界面開(kāi)發(fā)部分代碼用戶登錄代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Or TextBox2.Text = Then MsgBox(用戶名和密碼不能為空) Else checkLoginName() End If End Sub Sub checkLoginName() D

11、im strcon;password=System001;persist security info=true;user id=system;data source=o Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim sql As String = select * from mana where mana_name = & TextBox1.Text.ToString().Trim() & and mana_password = & TextBox2.Text.ToString().Trim()

12、& Dim cmd As New OleDbCommand(sql, con) Dim reader As OleDbDataReader reader = cmd.ExecuteReader If reader.Read() = True Then Me.Hide() frmMain.Show() Else MsgBox(登錄失敗，請(qǐng)檢查你用戶名，密碼，以及權(quán)限是否正確) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu

13、tton2.Click Me.Close() End SubEnd Class圖5.1 用戶登錄添加用戶代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim yno Dim yname Dim ypwd Dim addclass As String = String.Format(insert into mana(mana_id,mana_name,mana_password) values(0,1,2), yno, y

14、name, ypwd) Dim strcon;password=System001;persist security info=true;user id=system;data source=o Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim cmd As OleDbCommand = New OleDbCommand(addclass, con) Dim result As Integer = cmd.ExecuteNonQuery() If (result 1) Then MessageBox.

15、Show(添加失敗!, 操作提示, MessageBoxButtons.OK, MessageBoxIcon.Warning) Else MessageBox.Show(添加成功!, 操作提示, MessageBoxButtons.OK, MessageBoxIcon.Information) Me.Close() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub

16、 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End SubEnd Class圖5.2 用戶添加 查詢課程代碼： Private Sub frmSearchStudent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As OleDbConnection = New OleDbConnect

17、ion(strcon) con.Open() Dim selectEmp As String = select * from mana Dim ds As DataSet = New DataSet() Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectEmp, con) da.Fill(ds, mana) Me.DataGridView1.DataSource = ds.Tables(mana) con.Close() End Sub Private Sub Button2_Click(ByVal sender As System

18、.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim selectEmp As String = select * from mana Dim ds As DataSet = New DataSet() Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectEmp, con) da.Fill(ds, mana) Me.DataGr

19、idView1.DataSource = ds.Tables(mana) con.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim yhNum Dim selectEmp As String = select * from mana where mana_i

20、d= + yhNum + Dim ds As DataSet = New DataSet() Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectEmp, con) da.Fill(ds, mana) Me.DataGridView1.DataSource = ds.Tables(mana) con.Close() End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As ) Handles DataGrid

21、View1.CellContentClick Dim stuid As String = Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString().Trim() If MessageBox.Show(確定要?jiǎng)h除該用戶嗎？, 操作警告, MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Then Dim deleteEmp As String = String.Format(DELETE FROM Stu WHERE S_ID= + stuid + ) Dim con As OleD

22、bConnection = New OleDbConnection(strcon) con.Open() Dim cmd As OleDbCommand = New OleDbCommand(deleteEmp, con) Dim result As Integer = Convert.ToInt32(cmd.ExecuteNonQuery() con.Close() If (result 1) Then MessageBox.Show(刪除失敗!, 操作結(jié)果, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else MessageBox.

23、Show(刪除成功!, 操作結(jié)果, MessageBoxButtons.OK, MessageBoxIcon.Information) Me.frmSearchStudent_Load(sender, e) End If End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End SubEnd Class圖5.3 查詢5.3數(shù)據(jù)庫(kù)連接部分代碼Sub