計算機軟件實踐報告-數(shù)據(jù)庫-3000字

1、計算機軟件技術(shù)實踐報告學(xué)院： 電自學(xué)院 班級： 姓名： 學(xué)號： 2011年1月設(shè)計目的同學(xué)成果管理系統(tǒng)是學(xué)院重要的一部分，其內(nèi)容對于學(xué)院管理者和同學(xué)至關(guān)重要，所以同學(xué)成果管理系統(tǒng)應(yīng)當(dāng)為用戶供應(yīng)所需要的信息及其便利的管理作為主要目標(biāo)?，F(xiàn)代成果查詢系統(tǒng)理論已經(jīng)不拘泥于傳統(tǒng)的理論基礎(chǔ)，不強調(diào)對教學(xué)活動的確定把握，放棄了繁瑣的設(shè)計模式，開頭留意教學(xué)設(shè)計的關(guān)系性機敏性，這些優(yōu)點能夠極大地提高同學(xué)成果查詢的效率，從而更加有利于同學(xué)的管理和提高同學(xué)的主動性。設(shè)計題目編輯學(xué)習(xí)成果管理系統(tǒng)系統(tǒng)需求分析需求分析是設(shè)計數(shù)據(jù)庫的起點，需求分析的結(jié)果是否精確地反映了用戶的實際要求，將直接影響到后面各個階段的設(shè)計，并影響

2、到設(shè)計結(jié)果是否合理和使用。所以，精確而無遺漏地弄清用戶對系統(tǒng)的要求，是系統(tǒng)設(shè)計取得成功的重要前提。1、功能需求：（1）把握每個同學(xué)每一門課的成果信息，并記錄在數(shù)據(jù)庫中以便其他管理信息系統(tǒng)的使用。（2）分權(quán)限的管理。在成果管理中，老師可以對任何一個同學(xué)的成果進行查詢和管理；但是對同學(xué)用戶，它只能對自己的成果進行查看，而且不能對其進行更改。（3）老師類用戶可以對成果依據(jù)同學(xué)進行管理，可以對每一同學(xué)所選的課程成果進行添加、刪除和修改。（4）老師類用戶可以對成果依據(jù)課程進行管理，可以對每一門課所修的同學(xué)進行添加、刪除和修改。（5）可以針對某一門課的同學(xué)列表及其成果生成報表中。（6）可以針對某一個同學(xué)所

3、選課程及其對應(yīng)的成果生成報表。2、組成模塊：（1）登錄系統(tǒng)：模塊功能概述：供應(yīng)身份驗證功能界面描述：本界面有一個登錄框，輸入正確的信息則成功登錄進入到老師頁或同學(xué)頁進行相應(yīng)的操作。假如輸入錯誤，則提示相應(yīng)的錯誤信息。（2）查閱成果模塊功能概述：登錄成功進入主頁時，可以查閱自己的成果。界面描述：本界面是標(biāo)準(zhǔn)的對話框窗口，顯示同學(xué)的考試成果。（3）修改授課考試成果模塊功能概述：當(dāng)老師已經(jīng)進入顯示此課程的成果信息的對話框窗口時，即可在窗口中修改每條記錄，并直接存儲到數(shù)據(jù)庫相應(yīng)的表中。界面描述：同樣是顯示某一課程的成果信息的對話框窗口，在此窗口中修改記錄。四、系統(tǒng)功能模塊五、數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計所謂概念

4、結(jié)構(gòu)設(shè)計即將需求分析得到的用戶需求抽象為信息結(jié)構(gòu)，它是整個數(shù)據(jù)庫設(shè)計的關(guān)鍵。概念結(jié)構(gòu)的主要特點是：能真實、充分地反映現(xiàn)實世界、包括事物與事物之間的聯(lián)系，能滿足用戶對數(shù)據(jù)的處理要求；易于理解；易于更改；易于向關(guān)系、網(wǎng)狀、層次等各種數(shù)據(jù)模型轉(zhuǎn)換。描述概念模型的有力工具是E-R模型。該模型有兩個明顯優(yōu)點：一是接近人的思想，簡潔理解；二是與計算機無關(guān)，用戶簡潔接受。E-R圖供應(yīng)了表示實體型、屬性和聯(lián)系的方法。實體型：用矩形表示，矩形框內(nèi)寫明實體名。屬性：用橢圓形表示，并用無向邊將其與相應(yīng)的實體連接起來。聯(lián)系：用菱形表示，菱形框內(nèi)寫明聯(lián)系名，并用無向邊分別與有關(guān)實體連接起來，同時在無向邊旁標(biāo)上聯(lián)系的類型

5、（1:1,1：n，m：n）。在設(shè)計概念結(jié)構(gòu)的時候，我們接受的策略是自底向上的方法，即首先定義各局部應(yīng)用的概念結(jié)構(gòu)，然后將它們集成起來，得到全局概念結(jié)構(gòu)。局部E-R模型:這里最關(guān)鍵的步驟是確定實體和屬性。就是說，首先要打算在每一個應(yīng)用中包含哪些實體，這些實體又包含哪些屬性。當(dāng)各子系統(tǒng)的分E-R模型設(shè)計好以后，就要將各個應(yīng)用的分E-R模型綜合成系統(tǒng)總的概念模型，接受的是合并分E-R圖的方法，但由于通常各個局部的E-R圖是由不同的設(shè)計人員設(shè)計的，導(dǎo)致各個分E-R圖之間必定會存在一些不全都的地方，稱之為沖突，各分E-R圖之間的沖突主要有三類：屬性沖突、命名沖突、結(jié)構(gòu)沖突。屬性沖突：包括屬性值的類型、取

6、值范圍、取值單位的不同。命名沖突：包括實體名、聯(lián)系名、屬性名之間異名同義或同名異義等。結(jié)構(gòu)沖突：例猶如一對象在一個局部E-R圖中作為實體，而在另一個局部E-R圖中作為屬性，同一實體在不同的E-R圖中屬性個數(shù)和類型不同等。在繪制總E-R圖時，要留意合理消退各分E-R圖的沖突，這是合并分E-R圖的主要工作與關(guān)鍵所在。總的E-R圖：六、數(shù)據(jù)庫的規(guī)律結(jié)構(gòu)在關(guān)系模型中，現(xiàn)實世界的實體以及實體間的各種聯(lián)系均用關(guān)系來表示。在用戶看來，關(guān)系模型中數(shù)據(jù)的規(guī)律結(jié)構(gòu)是一張二維表。關(guān)系模型中常用的關(guān)系操作包括：選擇、投影、連接、除、并、交、差等查詢操作，以及增、刪、改等更新操作兩大部分。而查詢的表達力氣是其中最主要的

7、部分。依據(jù)E-R圖，需要制作5張數(shù)據(jù)表來存放同學(xué)成果信息，數(shù)據(jù)表如下：1. 成果表的設(shè)計成果表（Score）字段字段說明類型寬度備注Id同學(xué)學(xué)號字符10主鍵1，對應(yīng)于stuinfo表中的Id字段Num課程編號字符6主鍵2，對應(yīng)于course表中的Num字段score分?jǐn)?shù)短整型12. 同學(xué)表的設(shè)計同學(xué)表（Student）字段字段說明類型寬度備注Id同學(xué)學(xué)號字符10主鍵1，對應(yīng)于stuinfo表中的Id字段Name姓名長字符10NOT NULLSex性別字符2NOT NULLAge年齡數(shù)字1NOT NULLPro專業(yè)名長字符20NOT NULL3. 課程表和課程類型表課程表（Course）字段字段

8、說明類型寬度備注Num課程編號字符6主鍵2，對應(yīng)于course表中的Num字段Name課程名長字符20NOT NULLCredit學(xué)分整型4NOT NULL5. 以上各表的關(guān)系上述所涉及的各個表之間存在著緊密的聯(lián)系。依據(jù)這一狀況，需要建立各個表相應(yīng)字段之間的關(guān)系，如下圖所示。七、功能實現(xiàn)及運行結(jié)果登錄界面系統(tǒng)主界面同學(xué)管理信息系統(tǒng)添加、修改同學(xué)信息界面同學(xué)成果查詢界面選課信息界面同學(xué)個人成果狀況系統(tǒng)八、系統(tǒng)核心代碼的設(shè)計前臺程序與數(shù)據(jù)庫的關(guān)聯(lián)模塊Public conn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic S

9、ub openconn()On Error GoTo chekSet conn = New ADODB.Connectionconn.ConnectionString = provider=sqloledb.1;integrated security=sspi;Persist Security Info=False;Initial Catalog=同學(xué)管理系統(tǒng);Data Source=conn.OpenExit Subchek:MsgBox 開操作失敗！, vbRetryCancel + vbExclamation, 錯誤提示End Sub登陸登陸按鈕Private Sub

10、cmdLogin_Click()If txtUser.Text = Then MsgBox (請輸入用戶名!) txtUser.SetFocusElse Call openconn sql = select * from login where username= & Trim(txtUser.Text) & and password= & Trim(txtPwd.Text) & rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox 用戶不存在！ Else Unload Me frmMain.Show

11、End IfEnd IfEnd Sub退出按鈕Private Sub cmdRegister_Click()Unload MeEnd Sub同學(xué)管理查找按鈕Private Sub cmdFind_Click() 查詢功能If cboFind.Text = 學(xué)號 Then If txtInput.Text = Then MsgBox (學(xué)號輸入不能為空!) txtInput.SetFocus Else Dim sql1 As String Set rs1 = New ADODB.Recordset sql1 = select * from stuInfo where ID= & txtInput

12、.Text & rs1.CursorLocation = adUseClient rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText If rs.EOF Then MsgBox (查不到相關(guān)信息) txtInput.SetFocus Else Set DataGrid1.DataSource = rs1 DataGrid1.Refresh End If End IfElse If txtInput.Text = Then MsgBox (姓名輸入不能為空!) txtInput.SetFocus Else Dim sql

13、2 As String Set rs2 = New ADODB.Recordset sql2 = select * from stuInfo where name= & txtInput.Text & rs2.CursorLocation = adUseClient rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdText If rs.EOF Then MsgBox (查不到相關(guān)信息) txtInput.SetFocus Else Set DataGrid1.DataSource = rs2 DataGrid1.Refres

14、h End If End IfEnd IfEnd Sub成果查詢確定按鈕Private Sub Command1_Click() lblGrade.Caption = Trim(cboCourse.Text) + 課程成果 Dim sql1 As String Set rs1 = New ADODB.Recordset sql1 = select score.ID,score.Num,score.score from score, course where name= & cboCourse.Text & and score.Num=course.Num sql1 = select * fro

15、m course rs1.CursorLocation = adUseClient rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText Set DataGrid1.DataSource = rs1End Sub選課管理提交按鈕Private Sub cmdSubmit_Click()If txtID = Then MsgBox (請輸入學(xué)號!) txtID.SetFocusElseIf lstCourse.Text = Then MsgBox (請選擇課程!)Else Dim sql1 As String Dim sq

16、l2, name As String Set rs2 = New ADODB.Recordset Set rs1 = New ADODB.Recordset sql1 = select score.ID, score.Num from score , course where ID= & txtID.Text & and name= & lstCourse.Text & and score.Num=course.Num name = lstCourse.Text sql2 = select Num from course where name= & name & rs1.Open sql1,

17、conn, adOpenDynamic, adLockOptimistic rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic If rs1.EOF Then rs1.AddNew rs1(ID) = txtID.Text rs1(Num) = rs2(Num) rs1.Update MsgBox (選課成功!) rs1.Close Else MsgBox (已選過該課!) End IfEnd IfEnd Sub查詢確定按鈕Private Sub cmdOK_Click()If txtID = Then MsgBox (學(xué)號不能為空!) t

18、xtID.SetFocusElse Dim sql As String Dim sum1, sum2 As Single Dim n As Integer Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Call openconn sql = select , score.score , course.credit from score , course where score.ID= & txtID.Text & and score.Num=course.Num rs.CursorLocation = adUseClient rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText Set DataGrid1.DataSource = rs sum1 = 0 sum2 = 0 n = 0 Do While Not rs.EOF sum1 = sum1 + Val(rs(score) sum2 = sum2 + Val(rs(credit) n = n + 1 rs.MoveNe