1、精選文檔 大型數(shù)據(jù)庫(kù)系統(tǒng)應(yīng)用集中實(shí)訓(xùn)報(bào)告系統(tǒng)名稱(chēng)： 同學(xué)課程管理系統(tǒng) 專(zhuān) 業(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規(guī)律結(jié)構(gòu)設(shè)計(jì)54.1關(guān)系模式54.2規(guī)范處理54.3視圖設(shè)計(jì)55具體設(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)的名稱(chēng)：同學(xué)課程管

2、理系統(tǒng)（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)容及思維規(guī)律。（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)用學(xué)問(wèn)。期望今后同學(xué)好好利用所學(xué)的軟件開(kāi)發(fā)方面的學(xué)問(wèn)和思想，解決各方面的編程難題。（4）實(shí)訓(xùn)內(nèi)容:依據(jù)系統(tǒng)開(kāi)發(fā)基本原理，綜合運(yùn)用所學(xué)的學(xué)問(wèn)，設(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 201

3、02需求分析 2.1可行性分析（1）技術(shù)可行性：同學(xué)選課系統(tǒng)，數(shù)據(jù)庫(kù)方面接受Oracle 11g，接受VB語(yǔ)言。（2）經(jīng)濟(jì)可行性：隨著網(wǎng)絡(luò)技術(shù)的進(jìn)展，各高校紛紛建立自己的高速校內(nèi)網(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ì)精確；制表機(jī)敏；適應(yīng)力強(qiáng)；簡(jiǎn)潔擴(kuò)充。2.2性能需求為了保證系統(tǒng)能夠長(zhǎng)期、平安、穩(wěn)定、牢靠、高校地運(yùn)行，同學(xué)選課管理系統(tǒng)應(yīng)當(dāng)滿(mǎn)足以下幾共性能需求。（1）數(shù)據(jù)精確度系統(tǒng)對(duì)數(shù)據(jù)處

4、理的精確性和精度要求高。（2）適應(yīng)性（運(yùn)行環(huán)境、方案發(fā)生變化等應(yīng)具有的適應(yīng)力量）在開(kāi)發(fā)過(guò)程中，應(yīng)當(dāng)充分考慮以后的可擴(kuò)充性。例如管理系統(tǒng)的方式的轉(zhuǎn)變，用戶(hù)查詢(xún)的需求也會(huì)不斷地更新和完善。全部這些，都要求系統(tǒng)供應(yī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)要供應(yīng)便利的手段供系統(tǒng)維護(hù)人員進(jìn)行數(shù)據(jù)的輩分，日常的平安管理系統(tǒng)意外崩潰時(shí)的數(shù)據(jù)恢復(fù)等工作。系統(tǒng)應(yīng)具有相當(dāng)健壯性，避開(kāi)或降

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

6、師管理員同學(xué)課程管理系統(tǒng)同學(xué)信息老師信息管理員信息課程信息同學(xué)信息老師信息管理員信息查詢(xún)/管理圖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規(guī)律結(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ù)表的每一列都是不行分割的原子

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

8、設(shè)計(jì)l_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具體設(shè)計(jì)5.1數(shù)據(jù)庫(kù)設(shè)計(jì)部分代碼創(chuàng)建l_Course表：createtablel_Course(cou_idintprimarykey,cou_namevarchar2(20)notnu

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

10、l);commit;插入mana表：insertintol_studentvalues(1,lxx,123);5.2前臺(tái)界面開(kāi)發(fā)部分代碼用戶(hù)登錄代碼：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(用戶(hù)名和密碼不能為空) Else checkLoginName() End If End Sub Sub checkLoginName

11、() Dim strcon As String = provider=oraoledb.oracle.1;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_pa

12、ssword = & TextBox2.Text.ToString().Trim() & 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)檢查你用戶(hù)名，密碼，以及權(quán)限是否正確) End If End Sub Private Sub Button2_Click(ByVal sender As System.Obje

13、ct, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class圖5.1 用戶(hù)登錄添加用戶(hù)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim yno As String = Me.TextBox1.Text Dim yname As String = Me.TextBox2.Text Dim ypwd As String

14、 = Me.TextBox3.Text Dim addclass As String = String.Format(insert into mana(mana_id,mana_name,mana_password) values(0,1,2), yno, yname, ypwd) Dim strcon As String = provider=oraoledb.oracle.1;password=System001;persist security info=true;user id=system;data source=o Dim con As OleDbConnection = New

15、OleDbConnection(strcon) con.Open() Dim cmd As OleDbCommand = New OleDbCommand(addclass, con) Dim result As Integer = cmd.ExecuteNonQuery() If (result 1) Then MessageBox.Show(添加失敗!, 操作提示, MessageBoxButtons.OK, MessageBoxIcon.Warning) Else MessageBox.Show(添加成功!, 操作提示, MessageBoxButtons.OK, MessageBoxI

16、con.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 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End SubEnd Class圖5.2 用戶(hù)添

17、加 查詢(xún)課程代碼： Private Sub frmSearchStudent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 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 =

18、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.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim

19、 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 Button1_Click(ByVal sender As System.Object, ByVal e As System

20、.EventArgs) Handles Button1.Click Dim con As OleDbConnection = New OleDbConnection(strcon) con.Open() Dim yhNum As String = Me.TextBox1.Text Dim selectEmp As String = select * from mana where mana_id= + yhNum + Dim ds As DataSet = New DataSet() Dim da As OleDbDataAdapter = New OleDbDataAdapter(selec

21、tEmp, 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 System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Dim stuid As String = Me.DataGrid

22、View1.Rows(e.RowIndex).Cells(0).Value.ToString().Trim() If MessageBox.Show(確定要?jiǎng)h除該用戶(hù)嗎？, 操作警告, MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then Dim deleteEmp As String = String.Format(DELETE FROM Stu WHERE S_ID= + stuid + ) Dim con As OleDbConnection = New OleDbCo

23、nnection(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.Show(刪除成功!, 操作結(jié)果, Message

24、BoxButtons.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 查詢(xún)5.3數(shù)據(jù)庫(kù)連接部分代碼Sub checkL