【文章內(nèi)容簡介】 7 頁 共 21 頁 教師子功能圖如圖 33： 圖 33 教師 子 功能圖 管理員子功能圖如圖 34： 圖 34 管理員 子 功能圖 第 8 頁 共 21 頁 3． 2 數(shù)據(jù)庫設(shè)計 根據(jù)需求分析，本系統(tǒng)后臺數(shù)據(jù)庫共分為 4個表，以下分別給出各個數(shù)據(jù)庫表的簡單描述 . 1． Users 表 。該表 是 儲存學生 信息 的 表。 表 31 ： Users 表 列名 中文名稱 類型 寬度 是否允許為空 ID 編號 int 4 NOT NULL Usernumber 學號 nvarchar 20 NOT NULL Userpass 用戶密碼 nvarchar 20 NOT NULL usertype 用戶類型 nvarchar 6 NOT NULL Grade 年級 nvarchar 10 NOT NULL Class 班級 nvarchar 10 NOT NULL Name 姓名 nvarchar 10 NOT NULL Sex 性別 nvrchar 2 NOT NULL Age 年齡 nvarchar 2 NOT NULL Phone 聯(lián)系電話 nvarchar 20 NOT NULL address 家庭住址 nvarchar 50 NOT NULL 2． Subject 表。該表儲存科目信息 。 表 32： Subject 表 列名 中文名稱 類型 寬度 是否允許為空 Subject ID 科目編號 int 4 NOT NULL Subjectname 科目 nvarchar 10 NOT NULL 3． Achievement 表。該表儲存成績信息 。 表 33： Achievement 表 列名 中文名稱 類型 寬度 是否允許為空 ID 編號 int 4 NOT NULL Usernumber 學號 nvarchar 50 NOT NULL Name 姓名 nvarchar 50 NOT NULL Grade 年級 nvarchar 10 NOT NULL Class 班級 nvarchar 10 NOT NULL Subjectname 科目 nvarchar 10 NOT NULL Achievement 成績 int 10 NOT NULL 第 9 頁 共 21 頁 4． Admin 表。該表儲存的是管理員和教師信息 。 表 34： Admin 表 列名 中文名稱 類型 寬度 是否允許為空 ID 編號 int 4 NOT NULL Usernumber 工號 nchar 20 NOT NULL Userpass 密碼 nvarchar 50 NOT NULL Usertype 用戶類型 nvarchar 10 NOT NULL Username 姓名 nvarchar 50 NOT NULL Userphone 聯(lián)系方式 nvarchar 11 NOT NULL userschool 教授科目 nvarchar 50 NOT NULL 4 系統(tǒng)實現(xiàn) 4． 1 用戶登錄模塊 用戶分為三種類型：學生、教師、管理員。教師和管理員登錄時有身份驗證，當用戶是學生時，直接輸 入用戶名和密碼，如果是教師和管理員登錄時，除了輸入用戶名和密碼，還要在下面的選項框中打鉤，因為教師信息和管理員信息在同一張數(shù)據(jù)庫表里。登錄界面如圖 41： 圖 41 用戶登錄 界面 當用戶都進入系統(tǒng)后，都能看到一樣的界面，但是學生只能進入用戶管理和成績查詢 的界面 ，教師可以進入用戶管理、成績查詢和成績管理 的界面 。管理員則可以全部進入。 第 10 頁 共 21 頁 圖 42 管理頁面 4． 2 用戶管理模塊 4． 2． 1 用戶添加功能的實現(xiàn) 用戶管理模塊中的添加功能是管理員特有的功能 ,添加學生用戶時 ,同時添加用戶名 (也就是學號 )和初始密碼 ,添加教師 師時 ,同時確定教 師教授的科目名 ,添加用戶名 (也就是工號 )和初始密碼 . 圖 43 添加用戶圖 4． 2． 2 年級升級功能的實現(xiàn) 由于學校學生每年年級升級的原因，所以系統(tǒng)針對這個問題設(shè)計了一個年級升級的功能，由此可以進行批量處理，更加方便。一、二年級的變成二、三年級，三年級的學生則顯示為“已畢業(yè)”。 第 11 頁 共 21 頁 圖 44 學生年級升級前的圖 在點擊了“學員升級”按鈕后，如圖 45 學生年級升級后的圖 ： 圖 45 學生年級升級后的圖 主要代碼如下： Protected Sub upgrade_Click(ByVal sender As Object, ByVal e As ) Handles = update users set grade=39。己畢業(yè) 39。 where grade=39。三年級 39。 () = update users set grade=39。三年級 39。 where grade=39。二年級 39。 () = update users set grade=39。二年級 39。 where grade=39。一年級 39。 () 第 12 頁 共 21 頁 Session(userType) = 管理員 () End Sub 4． 2． 3 查詢信息功能的實現(xiàn) 個人信息查詢功能是所有用戶都可以使用的功能，并且可以編輯修改自己的信息。學生和 教 師進入用戶管理后就可以看到自己的信息，管理員進入用戶管理模塊后除了可以看見自己信息還可以通過用戶類型的選擇看見所有學生和 教 師的信息。 4． 3 成績查詢模塊 4． 3． 1 學號查詢功能的實現(xiàn) 學號查詢由老師進行，主要代碼如下： Protected Sub 查 詢學號 _Click(ByVal sender As Object, ByVal e As ) Handles = select * from achieve where 學號 =39。 + + 39。 () End Sub 4． 3． 2 姓名查詢功能的實現(xiàn) 和學號查詢功能相似，主要代碼如下 Protected Sub 查詢姓名 _Click(ByVal sender As Object, ByVal e As ) Handles = select * from achieve where 姓名 =39。 + + 39。 () End Sub 4． 3． 3 查詢班級功能的實現(xiàn) 在進行班級查詢時，先用一個 dropdownlist 下拉框選擇年級，再輸入要查詢的班級，如“二班” 。老師查詢時，顯示的是教 師教授科目下的班級全體學生的成績，同時顯示的結(jié)果是按成績由高到低的順序顯示出來 。管理員查詢時，則顯示所有科目的成績。圖 46是語文 老師查詢某班的成績所顯示的結(jié)果： 第 13 頁 共 21 頁 圖 46 查詢班級圖 主要代碼如下： Protected Sub 查詢班級 _Click(ByVal sender As Object, ByVal e As ) Handles = select * from achieve where 年級 =39。 + + 39。 and 班級 =39。 + + 39。 and 科目 =39。 + Session(UserSchool) + 39。 Order By 成績 Desc () 4． 3． 4 查詢班級某科平均分功能的實現(xiàn) 班級平均分查詢首先通過一個 dropdownlist 下拉框選好年級，輸入要查詢的班級，再有另一個 dropdownlist 下拉框選擇要查詢平均分的科目名稱。但是如果用戶是數(shù)學老師，他查詢其他科目平均成績時則只顯示平均分，不顯示具體的學生成績情況列表。管理員沒有 查詢平均分 這個功能。 圖 47 平均分查詢圖 第 14 頁 共 21 頁 主要代碼如下： Protected Sub 查詢平均分 _Click(ByVal sender As Object, ByVal e As ) Handles conn = New SqlConnection((0).ConnectionString) () Dim m As SqlCommand = New SqlCommand(select avg(成績 )as avgs from achieve where 年級 =39。 + + 39。 and 班級 =39。 + + 39。 and 科目 =39。 + + 39。, conn) Dim dr As SqlDataReader = () If () Then If Not IsDBNull((avgs)) Then = dr(avgs).ToString() End If 4． 4 成績 管理模塊 4． 4． 1 錄入成績功能的實現(xiàn) 錄入成績功能是只有教 師可以實現(xiàn)，在輸 入學號后，光標移到成績的文本框中時，在輸入學號后會顯示這個學生的姓名、年級、班級，以便可以核對學生 信息 防止輸入錯誤的發(fā)生。 教 師只能錄入自己教授科目的成績，在錄入成績的同時，自動錄入時間。有了錄入時間就可以區(qū)別學生在不同學年同一科目的學習成績。 圖 48 錄入成績圖 主要代碼如下： Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As ) Handles conn = New 第 15 頁 共 21 頁 SqlConnection((0).ConnectionString) () Dim m As SqlCommand = New SqlCommand(select name, grade, class from [users] where userNumber =39。 + 學號 .Text + 39。, conn) Dim dr As SqlDataReader = () If () Then If Not IsDBNull((name)) Then = dr(name).ToString() Else = End If If Not IsDBNull((grade)) Then = dr(grade).ToString() Else = End If If Not IsDBNull((class)) Then = dr(class).ToString() Else = End If End If Protected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles () 學號 .Text = 分數(shù) .Text = = = = band() 4． 4． 2 編輯成績功能的實現(xiàn) 可以編輯錄入成績的分數(shù)和時間， 主要代碼如下： Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As ) Handles If Session(userType) = Nothing Then () ElseIf Session(userType) = 學生 Then () End If band() 第 16 頁 共 21 頁 End Sub Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As ) Handl