【文章內(nèi)容簡(jiǎn)介】 checkUser 代碼如下： 39。功能：驗(yàn)證用戶信息是否正確 39。參數(shù)： username 用戶名， 39。 password 密碼 39。返回值：正確則返回 1，不正確返回 0 39。 設(shè)置 Cookies 用戶 ID（ UserID）和登錄狀態(tài) (Login) Function checkUser(userid,password) Dim dbc_Class Set dbc_Class = New DBConn 39。建立存儲(chǔ)過(guò)程的輸入?yún)?shù) Set Cmd1 = () Set Param = (@ID,adVarChar,adParamInput,20,userid) Param Set Param=(@PassWord,adVarChar,adParamInput,20,password) Param 39。運(yùn)行名為 sp_CheckUser 的存儲(chǔ)過(guò)程 Call (sp_CheckUser,Cmd1) If Then 39。失敗時(shí)的返回值 Session(UserType) = Session(UserID) = checkUser = 0 Else While Not 39。建立 Cookies 客戶端變量以識(shí)別 登錄的用戶 (UserName) = (Name) Session(UserID) = (ID) 第 10 頁(yè) 共 29 頁(yè) Session(UserType) = (Type) Wend 39。成功時(shí)的返回值 checkUser = 1 End If Set Cmd1 = nothing () End Function 函數(shù) checkUser 調(diào)用 的存儲(chǔ)過(guò)程代碼如下： CREATE PROCEDURE sp_CheckUser @ID varchar(20), @Password varchar(20) AS SELECT * FROM admin WHERE ID=@ID and Password=@Password GO 管理員和教師頁(yè)面 管理員頁(yè)面 擁有管理員權(quán)限的用戶登錄后即進(jìn)入管理員頁(yè)面 ，頁(yè)面上 方將顯示登錄用戶的用戶名。用戶可以點(diǎn)擊左上方的“退出”鏈接退出系統(tǒng)，系統(tǒng)將轉(zhuǎn)到 頁(yè)面，清空 Cookies 集合和 Session 變量后返回到系統(tǒng)首頁(yè)。管理員可通過(guò)此頁(yè)面進(jìn)入系統(tǒng)數(shù)據(jù)管理模塊，對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行管理操作，還可以進(jìn)入成績(jī)查詢與分析模塊，對(duì)成績(jī)數(shù)據(jù)進(jìn)行相應(yīng)的查詢與分析操作，并返回查詢分析報(bào)表。系統(tǒng)管理員頁(yè)面效果如圖 42 所示。 第 11 頁(yè) 共 29 頁(yè) 圖 42 系統(tǒng)管理員頁(yè) 教師頁(yè)面 擁有非管理員權(quán)限的教師用戶登錄后即進(jìn)入管理員頁(yè)面 ，頁(yè)面上方將顯示登錄用戶的用戶名。用戶可以點(diǎn) 擊左上方的“退出”鏈接退出系統(tǒng)，系統(tǒng)將轉(zhuǎn)到 頁(yè)面，清空 Cookies 集合和 Session 變量后返回到系統(tǒng)首頁(yè)。教師用戶可通過(guò)此頁(yè)面進(jìn)入成績(jī)查詢與分析模塊，對(duì)成績(jī)數(shù)據(jù)進(jìn)行相應(yīng)的查詢與分析操作，并返回查詢分析報(bào)表。教師頁(yè)面效果如圖 43 所示。 圖 43 教師頁(yè) 第 12 頁(yè) 共 29 頁(yè) 系統(tǒng)數(shù)據(jù)管理模塊 系統(tǒng)數(shù)據(jù)管理模塊只有擁有管理員權(quán)限的用戶才能進(jìn)入進(jìn)行操作，通過(guò)此模塊可以對(duì)包括成績(jī)錄入等一系列的系統(tǒng)數(shù)據(jù)進(jìn)行管理。此模塊又分為學(xué)生管理、課程管理、成績(jī)管理和用戶管理四個(gè)小模塊。 學(xué)生管理 學(xué)生管理模塊完 成了對(duì)學(xué)生信息進(jìn)行添加、修改、刪除操作，以達(dá)到對(duì)學(xué)生信息管理的目的。此模塊的主頁(yè)面為 ，管理員可通過(guò)輸入需要管理的班級(jí)的班級(jí)號(hào)，查詢得到現(xiàn)有的學(xué)生信息列表，通過(guò)列表中相應(yīng)的鏈接對(duì)學(xué)生信息進(jìn)行修改和刪除操作。學(xué)生管理主頁(yè)面效果如圖 44所示。 圖 44學(xué)生管理主頁(yè)面 （ 1）修改學(xué)生數(shù)據(jù)信息： 管理員可通過(guò)點(diǎn)擊如圖 44 所示學(xué)生管理頁(yè)面的相應(yīng)學(xué)生的操作列中的筆型按鈕，即可進(jìn)入學(xué)生信息修改頁(yè)面 ，并將待修改學(xué)生的學(xué)號(hào)ID 同時(shí)傳遞到該頁(yè)面。在 頁(yè)面上，顯示有數(shù)據(jù)庫(kù)中記錄的待修改學(xué)生的全部信息，修改完該學(xué)生的信息點(diǎn)擊“提交”按鈕完成修改。提交修改后，系統(tǒng)會(huì)對(duì)提交的信息進(jìn)行檢查，若修改過(guò)程中存在沒(méi)有填寫完整的項(xiàng)，系統(tǒng)會(huì)提示該項(xiàng)信息不能為空，然后返回學(xué)生管理 主頁(yè)面 ；若修改學(xué)生信息對(duì)數(shù)據(jù)庫(kù)操作失敗，系統(tǒng)將會(huì)提示“更新數(shù)據(jù)時(shí)失敗” ，并返回學(xué)生 管理 主頁(yè)面 。 學(xué)生信息修改頁(yè)面效果如圖 45所示。 第 13 頁(yè) 共 29 頁(yè) 圖 45 學(xué)生信息修改頁(yè)面 修改學(xué)生信息調(diào)用的存儲(chǔ)過(guò)程代碼如下： CREATE PROCEDURE sp_UpdateStudent 為要更新的變量聲明參數(shù) @ID varchar(20), @Name varchar(20), @Gender int, @Grade varchar(20), @Class int AS 將待更新的變量更新為參數(shù)傳入的值 Update Student Set ID = @ID, Name = @Name, Gender = @Gender, Grade = @Grade, Class = @Class Where ID=@ID GO （ 2）刪除學(xué)生數(shù)據(jù)信息： 管理員可通過(guò)點(diǎn)擊如圖 44 所示學(xué)生管理頁(yè)面相應(yīng)學(xué)生的操作列中的叉型按鈕，即可完成對(duì)該行對(duì)應(yīng)學(xué)生的信息進(jìn)行刪除，刪除成功后系統(tǒng)將返回學(xué)生管理 主頁(yè)面 。 刪除學(xué)生信息調(diào)用的存儲(chǔ)過(guò)程代碼如下： 第 14 頁(yè) 共 29 頁(yè) CREATE PROCEDURE sp_DelStudent @ID varchar(20) AS 先刪除從表數(shù)據(jù)再刪主表數(shù)據(jù) 刪除該學(xué)生的成績(jī)數(shù)據(jù) DELETE FROM Score WHERE StudentID = @ID 刪除學(xué)生基本數(shù)據(jù) DELETE FROM Student WHERE = @ID GO （ 3）添加學(xué)生數(shù)據(jù)信息： 管理員可通過(guò)點(diǎn)擊 學(xué)生 管理 頁(yè)面 或 管理員頁(yè)面 下方 的“添 加學(xué)生” 按鈕，即 可進(jìn)入添 加學(xué)生信 息頁(yè)面。在該頁(yè)面填寫完該學(xué)生的信息點(diǎn)擊“提交”按鈕完成對(duì)學(xué)生信息的添加。提交后，系統(tǒng)會(huì)對(duì)提交的信息進(jìn)行檢查，若存在沒(méi)有填寫完整的項(xiàng)，系統(tǒng)會(huì)提 示該項(xiàng)信息不能為空，然后返回添加學(xué)生信息頁(yè)面 ；若添加學(xué)生信息時(shí)對(duì)數(shù)據(jù)庫(kù)操作失敗，系統(tǒng)將會(huì)提示“錄入數(shù)據(jù)時(shí)失敗” ，并返回 添加學(xué)生信息頁(yè)面 。 添加 學(xué)生信息調(diào)用的存儲(chǔ)過(guò)程如下： CREATE PROCEDURE sp_AddStudent 為要更新的字段聲明參數(shù) @ID varchar(20), @Name varchar(20), @Gender int, @Grade varchar(20), @Class int AS 添 加將相應(yīng)的字段的記錄為對(duì)應(yīng)的輸入?yún)?shù)的值 Insert Into Student (ID,Name,Gender,Grade,Class) Values(@ID,@Name,@Gender,@Grade,@Class) GO 課程管理 課程管理模塊可以對(duì)課程信息進(jìn)行添加、修改、刪除操作，以達(dá)到對(duì)課程開(kāi)設(shè)進(jìn)行管理的目的。此模塊的主頁(yè)面為 ，管理員可通過(guò)頁(yè)面中第 15 頁(yè) 共 29 頁(yè) 的下拉菜單選擇相應(yīng)的課程，點(diǎn)擊“課程信息”按鈕后頁(yè)面會(huì)返回該課程的詳細(xì)信息，管理員可以通過(guò)列表中相應(yīng)的鏈接對(duì) 課程信息進(jìn)行修改和刪除操作。課程管理主頁(yè)面效果如圖 46所示。 圖 46課程管理頁(yè)面 （ 1）修改課程數(shù)據(jù)信息： 管理員可通過(guò)點(diǎn)擊如圖 46 所示的相應(yīng)課程的操作列中的筆型按鈕，即可進(jìn)入課程信息修改頁(yè)面 ，并將待修改課程 ID同時(shí)傳遞到該頁(yè)面。轉(zhuǎn)到 頁(yè)面后，頁(yè)面顯示有數(shù)據(jù)庫(kù)中記錄的待修改課程的全部信息，修改完該課程的信息點(diǎn)擊“提交”按鈕完成修改。提交修改后，系統(tǒng)會(huì)對(duì)提交的信息進(jìn)行檢查，若修改過(guò)程中存在沒(méi)有填寫完整的項(xiàng)，系統(tǒng)會(huì)提示該項(xiàng)信息不能為空，然后返回課程 管理 頁(yè)面 ；若修改課程信息對(duì)數(shù)據(jù)庫(kù)操作失敗，系統(tǒng)將會(huì)提示“更新數(shù)據(jù)時(shí)失敗” ，并返回課程 管理 頁(yè)面。 修改課程信息調(diào)用的存儲(chǔ)過(guò)程代碼如下： CREATE PROCEDURE sp_UpdateCourse 為要修改的字段聲明參數(shù) @ID varchar(20), @Name varchar(20), @TeacherID varchar(20), @Remark varchar(50), @Term int AS Update Course Set ID = @ID, Name = @Name, TeacherID = @TeacherID, Remark = @Remark, Term = @Term 第 16 頁(yè) 共 29 頁(yè) Where ID=@ID GO （ 2）刪除課程數(shù)據(jù)信息： 管理員可通過(guò)點(diǎn)擊如圖 46 所示相應(yīng)課程操作列中的叉型按鈕，即可完成對(duì)該課程信息的刪除，刪除成功后系統(tǒng)將返回課程管理 主頁(yè)面 。 刪除課程信息調(diào)用的存儲(chǔ)過(guò)程代碼如下： CREATE PROCEDURE sp_DelCourse @ID varchar(20) AS 應(yīng)先刪除從表數(shù)據(jù)再刪主表數(shù)據(jù) 刪除該課程相關(guān)的成績(jī)數(shù)據(jù) DELETE FROM Score WHERE CourseID = @ID 刪除課程基本數(shù)據(jù) DELETE FROM Course WHERE = @ID GO （ 3）添加課程數(shù)據(jù)信息： 管理員可通過(guò)點(diǎn)擊 課程 管理 頁(yè)面 或 管理員頁(yè)面 下方 的“添 加課程” 按鈕，即 可進(jìn) 入添 加課程信 息頁(yè)面。在該頁(yè)面填寫完該課程的信息點(diǎn)擊“提交”按鈕完成對(duì)課程信息的添加。提交后，系統(tǒng)會(huì)對(duì)提交的信息進(jìn)行檢查，若存在沒(méi)有填寫完整的項(xiàng)，系統(tǒng)會(huì)提示該項(xiàng)信息不能為空，然后返回添加課程信息頁(yè)面 ；若添加課程信息時(shí)對(duì)數(shù)據(jù)庫(kù)操作失敗，系統(tǒng)將會(huì)提示“錄入數(shù)據(jù)時(shí)失敗” ，并返回 添加課程信息頁(yè)面 。 添加 課程信息調(diào)用的存儲(chǔ)過(guò)程如下： CREATE PROCEDURE sp_AddCourse @ID varchar(20), @Name varchar(20), @TeacherID varchar(20), @Term int AS Insert Into Course (ID,Name,TeacherID,Term) Values(@ID,@Name,@TeacherID,@Term) GO 第 17 頁(yè) 共 29 頁(yè) 成績(jī)管理 成績(jī)管理模塊完成了對(duì)成績(jī)信息進(jìn)行添加、修改、刪除操作，以達(dá)到對(duì)成績(jī)信息進(jìn)行管理的目的。此模塊的主頁(yè)面為 ，管理員通過(guò)輸入需要對(duì)成績(jī)進(jìn)行管 理的班級(jí)的班級(jí)號(hào)，并從頁(yè)面的下來(lái)菜單中選擇相應(yīng)的學(xué)期和課程，查詢得到某個(gè)班級(jí)某學(xué)期某門課程的成績(jī)信息列表，通過(guò)列表中相應(yīng)的鏈接對(duì)成績(jī)信息進(jìn)行修改和刪除操作。成績(jī)管理主頁(yè)面效果如圖 47 所示。 圖 47 成績(jī)管理頁(yè)面 （ 1）修改成績(jī)數(shù)據(jù)信息： 管理員可通過(guò)點(diǎn)擊如圖 47 所示的相應(yīng)成績(jī)的操作列中的筆型按鈕，即可進(jìn)入成績(jī)信息修改頁(yè)面 ，并將待修改成績(jī)對(duì)應(yīng)的學(xué)號(hào)和課程 ID 同時(shí)傳遞到該頁(yè)面。瀏覽器轉(zhuǎn)到 頁(yè)面后，顯示有數(shù)據(jù)庫(kù)中記錄的待修改成績(jī)相關(guān)的全部信息，修改后點(diǎn) 擊“提交”按鈕完成修改。提交修改后，系統(tǒng)會(huì)對(duì)提交的信息進(jìn)行檢查，若修改過(guò)程中存在沒(méi)有填寫完整的項(xiàng)，系統(tǒng)會(huì)提示該項(xiàng)信息不能為空，然后返回成績(jī)管理 頁(yè)面 ；若修改成績(jī)信息對(duì)數(shù)據(jù)庫(kù)操作失敗，系統(tǒng)將會(huì)提示“更新數(shù)據(jù)時(shí)失敗” ，并返回成績(jī) 管理 頁(yè)面 。 修改成績(jī)數(shù)據(jù)信息調(diào)用的存儲(chǔ)過(guò)程代碼如下： CREATE PROCEDURE sp_UpdateScore 為要修改的字段聲明參數(shù) @StudentID varchar(20), 第 18 頁(yè) 共 29 頁(yè) @CourseID varchar(20), @Score int, @Type int AS Update Score Set Score = @Score, Type = @Type Where StudentID=@StudentID and CourseID=@CourseID GO （ 2）刪除成績(jī)數(shù)據(jù)信息： 管理員可通過(guò)點(diǎn)擊如圖 47 所示成績(jī)管理頁(yè)面相應(yīng)成績(jī)操作列中的叉型按鈕，即可完成對(duì)該成績(jī)信息的刪除，刪除成功后系統(tǒng)將返回課程成績(jī)管理 主頁(yè)面。 刪除成績(jī) 信息調(diào)用的存儲(chǔ)過(guò)程代碼如下： CREATE PROC