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

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

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

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

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

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

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

8、說明類型寬度備注Num課程編號字符6主鍵2，對應于course表中的Num字段Name課程名長字符20NOT NULLCredit學分整型4NOT NULL5. 以上各表的關系上述所涉及的各個表之間存在著緊密的聯系。依據這一狀況，需要建立各個表相應字段之間的關系，如下圖所示。七、功能實現及運行結果登錄界面系統主界面同學管理信息系統添加、修改同學信息界面同學成果查詢界面選課信息界面同學個人成果狀況系統八、系統核心代碼的設計前臺程序與數據庫的關聯模塊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=同學管理系統;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同學管理查找按鈕Private Sub cmdFind_Click() 查詢功能If cboFind.Text = 學號 Then If txtInput.Text = Then MsgBox (學號輸入不能為空!) 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 (查不到相關信息) 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 (查不到相關信息) 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 (請輸入學號!) 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 (學號不能為空!) 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