《高級程序設(shè)計》(Web教務(wù)管理系統(tǒng))開發(fā)步驟11

1、綜合實訓Web教務(wù)管理系統(tǒng)實訓一：Web教務(wù)管理系統(tǒng)設(shè)計1.1 系統(tǒng)需求分析根據(jù)使用人員的權(quán)限，即不同的登錄權(quán)限擁有不同的操作權(quán)限。系統(tǒng)角色分為教務(wù)員、教師和學生。1.1.1教務(wù)員登錄系統(tǒng)；用戶管理（登記/修改/刪除用戶）；登記/修改課程信息；開設(shè)教學班；按教學班登記學生成績；按教學班查詢學生成績。1.1.2教師登錄系統(tǒng)；查看教師課表；按教學班登記學生成績；按教學班查詢學生成績。1.1.3學生登錄系統(tǒng)；學生選課；查看學生本人課表；查看學生本人成績表。1.2 系統(tǒng)設(shè)計Web教務(wù)管理系統(tǒng)的缺省主頁是登錄頁面。根據(jù)登錄用戶的不同，顯示不同的操作頁面。Web教務(wù)管理系統(tǒng)的執(zhí)行流程如下：Web教務(wù)管理系

2、統(tǒng)由下列ASP.NET頁面組成：文件名稱說明Default.aspx缺省主頁：自動跳轉(zhuǎn)到用戶登錄頁面Login.aspx登錄頁面：用戶輸入用戶ID和密碼，驗證成功后，把用戶信息把存在Session中，并根據(jù)用戶的角色，顯示不同內(nèi)容的功能主菜單JWS.master母版：Web教務(wù)管理系統(tǒng)母版文件（左側(cè)包含主菜單）MainMenu.aspx主菜單：Web教務(wù)管理系統(tǒng)主菜單（基于JWS.master）ChangePassword.aspx修改密碼頁面：登錄用戶可以修改自己的密碼Exit.aspx退出系統(tǒng)頁面：清除保存在Session中的信息，自動跳轉(zhuǎn)到用戶登錄頁面Users.aspx用戶管理：登記、

3、修改、刪除用戶信息Course.aspx課程管理：登記、修改、刪除課程信息JXB.aspx排課管理：開設(shè)教學班GradeByJXB.aspx成績管理：查詢的教學班：可更新學生成績SKebiao.aspx我的課表：學生查詢自己的課表SXuanke.aspx選課：學生自由選擇教學班SGrade.aspx成績查詢：學生查詢自己的成績TKebiao.aspx我的課表：教師查詢自己的課表TGradeByJXB.aspx成績管理：教師查詢自己的教學班：可更新學生成績實訓二：Web教務(wù)管理系統(tǒng)數(shù)據(jù)庫設(shè)計與實現(xiàn)2.1 數(shù)據(jù)庫設(shè)計2.1.1數(shù)據(jù)表結(jié)構(gòu)Web教務(wù)管理系統(tǒng)數(shù)據(jù)庫使用Access 2000格式的Acc

4、ess數(shù)據(jù)庫WebJWS.mdb，主要包括下列數(shù)據(jù)表：（1）用戶表（Users）用戶表用于儲存系統(tǒng)用戶（教務(wù)員、教師以及學生）信息。其結(jié)構(gòu)如表1所示。表1 用戶表（Users）字段名數(shù)據(jù)類型字段說明鍵引用備注UserIDText(20)用戶ID主鍵UserNameText(20)用戶姓名PasswordText(20)用戶密碼FlagText(1)用戶權(quán)限區(qū)分1：學生權(quán)限2：教師權(quán)限9：教務(wù)員權(quán)限（2）教學班表（JXB）教學班表用于儲存學校排課信息。其結(jié)構(gòu)如表2所示。表2 教學班表（JXB）字段名數(shù)據(jù)類型字段說明鍵引用JxbIDText(20)教學班ID主鍵CourseIDText(20)課程

5、編號UserIDText(20)用戶ID（教師身份）JxbTimeText(50)教學班時間地點等信息（3）課程表（Course）課程表用于儲存學校開設(shè)的課程信息。其結(jié)構(gòu)如表3所示。表3 課程表（Course）字段名數(shù)據(jù)類型字段說明鍵引用CourseIDText (20)課程ID主鍵CourseNameText(50)課程名稱DescriptionText(200)課程簡介（4）學生成績表（Grades）學生成績表用于儲存教學班中的學生成績信息。其結(jié)構(gòu)如表4所示。表4學生成績表（Exam）字段名數(shù)據(jù)類型字段說明鍵引用JxbIDText(20)教學班ID主鍵UserIDText(20)用戶ID（

6、學生身份）Gradeint學生成績RemarkText(50)備注2.1.2數(shù)據(jù)表內(nèi)容供參考。無需事先創(chuàng)建，在程序調(diào)試過程中作為測試數(shù)據(jù)逐步創(chuàng)建。表1 用戶表（Users）表2 教學班表（JXB）表3 課程表（Course）表4學生成績表（Exam）2.2數(shù)據(jù)庫實現(xiàn)【操作實訓1】數(shù)據(jù)庫實現(xiàn)1打開Office中的Access程序。2創(chuàng)建空白數(shù)據(jù)庫，另存或?qū)С鰹閃ebJWS.mdb（Access 2000格式）。3依次創(chuàng)建2.1中設(shè)計的數(shù)據(jù)表結(jié)構(gòu)：Users、Course、JXB、Grades。4手動添加第1條數(shù)據(jù)，教務(wù)管理員9001號的具體信息。UserIDUserNamePasswordFla

7、g9001張教務(wù)1239實訓三：Web教務(wù)管理系統(tǒng)共同頁面設(shè)計與實現(xiàn)3.1 Web教務(wù)管理系統(tǒng)默認主頁的設(shè)計和實現(xiàn)3.1.1設(shè)計默認主頁為Default.aspx，將自動調(diào)轉(zhuǎn)到Login.aspx。3.1.2實現(xiàn)注意：（1）在系統(tǒng)設(shè)計和實現(xiàn)的整個過程中，請務(wù)必不勾選“將代碼放在單獨的文件中”復選框。即：（2）在頁面設(shè)計過程中，對頁面的任何布局，VS系統(tǒng)會自動生成style。建議在代碼中刪除這些style，并切換到設(shè)計界面，選中操作對象，在屬性面板中手工設(shè)置屬性?！静僮鲗嵱?】創(chuàng)建Web教務(wù)系統(tǒng)網(wǎng)站1運行Visual Web Developer 2008應(yīng)用程序。2新建ASP.NET Web站點

8、：C:WebJWS。3拷貝2.2創(chuàng)建的數(shù)據(jù)庫文件WebJWS.mdb到C:WebJWSApp_Data目錄下。4刷新（）網(wǎng)站內(nèi)容?！静僮鲗嵱?】修改Default.aspx修改Default.aspx Web教務(wù)管理系統(tǒng)缺省主頁，利用Page_Load事件函數(shù)直接跳轉(zhuǎn)到登錄頁面，代碼如下：Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)Response.Redirect("Login.aspx")End Sub3.2 Web教務(wù)管理系統(tǒng)登錄頁面的設(shè)計和實現(xiàn)3.2.1設(shè)計輸

9、入用戶ID和密碼，然后按“登錄”按鈕。登錄失敗，報錯；登錄成功，跳轉(zhuǎn)到MainMenu.aspx。3.2.1實現(xiàn)【操作實訓4】創(chuàng)建登錄頁面1創(chuàng)建一個名為Login.aspx的ASP.NET頁面。2設(shè)計頁面布局：類型ID說明TextBoxtxtUserName用戶ID文本框TextBoxtxtPassword口令文本框（TextMode為：Password）ButtonBtnLogin登錄按鈕LabellblMsg顯示用戶不存在或密碼不一致時的錯誤提示信息（Text為：空）HR水平線Table2行2列的表格，居中（center）歡迎使用Web教務(wù)管理系統(tǒng)，24pt3引用指定名稱空間。在Login

10、.aspx代碼的頭部添加下列引用指定名稱空間的語句，以訪問Microsoft Access數(shù)據(jù)源：<% Import Namespace="System.Data.OleDb" %>4編寫登錄按鈕事件處理代碼BtnLogin_Click。 Protected Sub BtnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) '連接到數(shù)據(jù)庫WebDBStudents Dim con As OleDbConnection Dim cmd As OleDbCommand Dim dt

11、r As OleDbDataReadercon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|WebJWS.mdb")con.Open() '創(chuàng)建查詢Users表的SQL命令 Dim userID As String = txtUserName.Text Dim password As String = txtPassword.Text Dim sSql As String = "select UserID, UserName, Fla

12、g, Password from users where UserID='" & userID & "'" sSql = sSql + "and Password='" & password & "'"cmd = New OleDbCommand(sSql, con) '執(zhí)行SQL命令并返回結(jié)果dtr = cmd.ExecuteReader() '判斷該用戶是否存在 If (dtr.HasRows() Then '存在dtr.Read()

13、 'UserID、UserName、UserType信息存于Session中Session("UserID") = dtr.GetString(0)Session("UserName") = dtr.GetString(1)Session("UserType") = dtr.GetString(2) '跳轉(zhuǎn)到系統(tǒng)主菜單頁面Response.Redirect("MainMenu.aspx") Else '該用戶不存在 lblMsg.Text = "用戶ID或密碼有錯，請重新輸入！&q

14、uot; End If End Sub3.3 Web教務(wù)管理系統(tǒng)母版頁面的設(shè)計和實現(xiàn)3.3.1設(shè)計Web教務(wù)管理系統(tǒng)母版頁整體的布局如下：類型ID說明第1行第1列LabellblUser顯示登錄用戶名（Text為空）第1行第2列歡迎使用教務(wù)管理系統(tǒng)第2行第1列PanelPanelJW教務(wù)用菜單HyperLinkhlUser用戶管理（鏈接到Users.aspx）HyperLinkhlCourse課程管理（鏈接到Course.aspx）HyperLinkhlJXB排課管理（鏈接到JXB.aspx）HyperLinkhlGrade成績管理（鏈接到GradeByJXB.aspx）PanelPanelT

15、eacher教師用菜單HyperLinkhlTKebiao我的課程（鏈接到TKebiao.aspx）PanelPanelStudent學生用菜單HyperLinkhlSKebiao我的課程（鏈接到SKebiao.aspx）第2行第2列ContentPlaceHolderContentPlaceHolder1預定義布局：Web教務(wù)管理系統(tǒng)第3行第1列HyperLinkhlChangePassword修改密碼（鏈接到ChangePassword.aspx）HyperLinkhlExit退出系統(tǒng)（鏈接到Exit.aspx）Table3行2列（注意：不要在ContentPlaceHolder1中插入表

16、格）3.3.2實現(xiàn)【操作實訓5】創(chuàng)建主菜單頁面1 創(chuàng)建一個名為JWS.master的母版頁面。2 設(shè)計頁面布局：參見設(shè)計部分。注：使用3行2列的表格進行布局。3 編寫Page_Load事件：如果沒有登陸，則跳轉(zhuǎn)到Login.aspx；否則顯示用戶名，并根據(jù)不同用戶標志（1：學生；2：教師；9：教務(wù)）顯示或隱藏相應(yīng)的菜單Panel。 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) If Session("UserID") Is Nothing Then Response.

17、Redirect("Login.aspx") Else lblUser.Text = "歡迎您！" & Session("UserName") If Session("UserType") = 1 Then '學生 PanelJW.Visible = False PanelTeacher.Visible = False PanelStudent.Visible = True End If If Session("UserType") = 2 Then '教師 PanelJ

18、W.Visible = False PanelTeacher.Visible = True PanelStudent.Visible = False End If If Session("UserType") = 9 Then '教務(wù) PanelJW.Visible = True PanelTeacher.Visible = False PanelStudent.Visible = False End If End If End Sub3.4 Web教務(wù)管理系統(tǒng)主菜單頁面的設(shè)計和實現(xiàn)3.4.1設(shè)計使用JWS.master的母版頁，實現(xiàn)Web教務(wù)管理系統(tǒng)主菜單Main

19、Menu.aspx。3.4.2實現(xiàn)【操作實訓6】創(chuàng)建系統(tǒng)主菜單頁面。1創(chuàng)建一個名為MainMenu.aspx的ASP.NET頁面(使用母版頁JWS.master)。2在“ContentPlaceHolder1(Custom)”中輸入：“請選擇功能菜單！”，font-size： xx-large、font-weight：bold、color： #3399FF。3.5 Web教務(wù)管理系統(tǒng)退出頁面的設(shè)計和實現(xiàn)3.5.1設(shè)計點擊“退出系統(tǒng)”鏈接，首先清除Session的內(nèi)容，然后跳轉(zhuǎn)到登錄頁面Login.aspx。3.5.2實現(xiàn)【操作實訓7】創(chuàng)建退出頁面1創(chuàng)建一個名為Exit.aspx的ASP.NET

20、頁面。2雙擊頁面空白處，編寫Page_Load事件處理代碼：Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)Session.Abandon()Response.Redirect("Login.aspx")End Sub3.6 Web教務(wù)管理系統(tǒng)修改密碼頁面的設(shè)計和實現(xiàn)3.6.1設(shè)計使用JWS.master的母版頁，實現(xiàn)Web教務(wù)管理系統(tǒng)的修改密碼頁面ChangePassword.aspx。登錄用戶可以修改自己的密碼。修改失敗，報錯；修改成功，跳轉(zhuǎn)到MainMenu.asp

21、x。3.6.2實現(xiàn)【操作實訓8】創(chuàng)建修改密碼頁面1創(chuàng)建一個名為ChangePassword.aspx的ASP.NET頁面(使用母版頁JWS.master)。2在“ContentPlaceHolder1(Custom)”中設(shè)計頁面布局。類型ID說明TextBoxtxtPassword密碼文本框（TextMode為：Password）TextBoxtxtPassword2確認密碼文本框（TextMode為：Password）ButtonbtnUpdateOK按鈕ButtonBtnCancelCancel按鈕LabellblMsg顯示用戶不存在或密碼不一致時的錯誤提示信息（Text為：空；color

22、：#FF3300）修改密碼：24ptHR水平線Table2行2列的表格，居中（align="center"）3引用指定名稱空間。在ChangePassword.aspx代碼的頭部添加下列引用指定名稱空間的語句，以訪問Microsoft Access數(shù)據(jù)源：<% Import Namespace="System.Data.OleDb" %>4編寫事件處理代碼。Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim con As

23、OleDbConnection Dim strUpdate As String Dim cmdUpdate As OleDbCommand Dim pass1 As String = txtPassword.Text Dim pass2 As String = txtPassword2.Text If pass1 <> pass2 Then lblMsg.Text = "確認密碼不一致！" Exit Sub End Ifcon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data S

24、ource=|DataDirectory|WebJWS.mdb")strUpdate = "Update Users set Password=？ Where UserId =? "cmdUpdate = New OleDbCommand(strUpdate, con)cmdUpdate.Parameters.AddWithValue("?", txtPassword.Text)cmdUpdate.Parameters.AddWithValue("?", Session("UserID") Trycon.

25、Open()cmdUpdate.ExecuteNonQuery()Response.Redirect("MainMenu.aspx") Catch ex As Exception lblMsg.Text = "<font color=red>Error: </font><br/>" & vbCrLf & ex.Message Finallycon.Close() End TryResponse.Redirect("MainMenu.aspx") End Sub Protected S

26、ub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Response.Redirect("MainMenu.aspx") End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)If Session("UserID") Is Nothing ThenResponse.Redirect("Login.aspx") End If End

27、Sub實訓四：Web教務(wù)管理系統(tǒng)教務(wù)員用頁面設(shè)計與實現(xiàn)4.1 用戶管理的設(shè)計和實現(xiàn)4.1.1設(shè)計1. 只有教務(wù)員才能使用用戶管理頁面。使用JWS.master的母版頁，實現(xiàn)Web教務(wù)管理系統(tǒng)的用戶管理頁面Users.aspx：顯示用戶信息一覽（可修改、刪除）。通過“新用戶”超鏈接，可調(diào)轉(zhuǎn)到UserInsert.aspx頁面（添加新用戶）。用戶管理頁面Users.aspxUserInsert.aspx頁面（添加新用戶）4.1.2實現(xiàn)【操作實訓9】創(chuàng)建Users.aspx1創(chuàng)建一個名為Users.aspx的ASP.NET頁面(使用母版頁JWS.master)。2在“ContentPlaceHold

28、er1(Custom)”中設(shè)計頁面布局：類型ID說明HyperLinkHyperLink1新用戶（鏈接到InsertUser.aspx）GridViewGridView1用戶信息一覽AccessDataSourceAccessDataSource1GridView數(shù)據(jù)源用戶管理：bold、text-align：center、 font-size： xx-large（1）添加1個超鏈接（新用戶），指向InsertUser.aspx。（2）添加1個GridView（配置數(shù)據(jù)源(Acess數(shù)據(jù)源)，指向App_DataWebJWS.mdb，選擇表Users。（i）第一步：方法1：先高級配置1次，即啟

29、動“生成INSERT、UPDATE和DELETE語句”；然后檢查自定義配置，利用查詢生成器確保生成正確的update/delete SQL語句。方法2：先高級配置1次，即啟動“生成INSERT、UPDATE和DELETE語句”；然后手動修改代碼中的update/delete SQL語句。具體如下：完成。刷新數(shù)據(jù)源。（ii）第二步：（2005不需要/2008或者2010中需要）配置數(shù)據(jù)源。指定自定義SQL語句或存儲過程（最好使用查詢生成器）：SELECT UserID, UserName, Password, Flag FROM UsersUpdateUPDATE Users SET UserI

30、D =, UserName = ?, Password = ?, Flag = ? WHERE (UserID = ?) DELETE FROM Users WHERE (UserID = ?)（iii）第三步：完成數(shù)據(jù)源配置后，啟用GridView的分頁、排序、編輯和刪除功能?！静僮鲗嵱?0】創(chuàng)建InsertUser.aspx1創(chuàng)建一個名為InsertUser.aspx的ASP.NET頁面(使用母版頁JWS.master)。2在“ContentPlaceHolder1(Custom)”中設(shè)計頁面布局：類型ID說明TextBoxtxtUserID用戶編號文本框TextBoxtxtName用戶名

31、稱文本框TextBoxtxtPassword密碼文本框（TextMode="Password"）DropDownListDropDownListFlag區(qū)分下拉表框（學生：1 selected/教師：2/教務(wù)：9）ButtonbtnInsertOK按鈕ButtonBtnCancelCancel按鈕LabellblMsg錯誤提示信息（Text為：空、ForeColor="#FF3300"）新建用戶：24ptHR水平線Table4行2列的表格，居中（align="center"）3引用指定名稱空間。在InsertUser.aspx代碼的頭

32、部添加下列引用指定名稱空間的語句，以訪問Microsoft Access數(shù)據(jù)源：<% Import Namespace="System.Data.OleDb" %>4編寫事件處理程序： Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim con As OleDbConnection Dim strInsert As String Dim cmdInsert As OleDbCommandcon = New OleDbConnection(&q

33、uot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|WebJWS.mdb")strInsert = "Insert into users(UserID, UserName, Password, Flag) Values(?, ?, ?, ?)"cmdInsert = New OleDbCommand(strInsert, con)cmdInsert.Parameters.AddWithValue("?", txtUserID.Text)cmdInsert.Parame

34、ters.AddWithValue("?", txtName.Text)cmdInsert.Parameters.AddWithValue("?", txtPassword.Text)cmdInsert.Parameters.AddWithValue("?", DropDownListFlag.SelectedValue) Trycon.Open()cmdInsert.ExecuteNonQuery()Response.Redirect("Users.aspx") Catch ex As Exception lbl

35、Msg.Text = "<font color=red>Error: </font><br/>" & vbCrLf & ex.Message Finallycon.Close() End Try End Sub Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs)Response.Redirect("Users.aspx") End Sub4.2 課程管理的設(shè)計和實現(xiàn)4.2.1設(shè)計只有教務(wù)員才

36、能使用課程管理頁面。使用JWS.master的母版頁，實現(xiàn)Web教務(wù)管理系統(tǒng)的課程管理頁面Course.aspx：顯示課程信息一覽（可修改、刪除）。通過“新課程”超鏈接，可調(diào)轉(zhuǎn)到InsertCourse.aspx頁面（添加新課程）。4.2.2實現(xiàn)【操作實訓11】創(chuàng)建Course.aspx1創(chuàng)建一個名為Course.aspx的ASP.NET頁面(使用母版頁JWS.master)。2在“ContentPlaceHolder1(Custom)”中設(shè)計頁面布局：類型ID說明HyperLinkHyperLink1新課程（鏈接到InsertCourse.aspx）GridViewGridView1課程信息

37、一覽AccessDataSourceAccessDataSource1GridView數(shù)據(jù)源課程管理：bold、text-align：center、font-size：xx-large（1）添加1個超鏈接（新課程），指向InsertCourse.aspx。（2）添加1個GridView（配置數(shù)據(jù)源(Acess數(shù)據(jù)源)，指向App_DataWebJWS.mdb，選擇表Course。（i）第一步：方法1：先高級配置1次，即啟動“生成INSERT、UPDATE和DELETE語句”；然后檢查自定義配置，利用查詢生成器確保生成正確的update/delete SQL語句。方法2：先高級配置1次，即啟動“

38、生成INSERT、UPDATE和DELETE語句”；然后手動修改代碼中的update/delete SQL語句。具體如下：SELECT CourseID, CourseName, Description FROM CourseUPDATE Course SET CourseName = ?, Description = ? WHERE CourseID = ?DELETE FROM Course WHERE CourseID = ?（ii）第二步：完成數(shù)據(jù)源配置后，啟用GridView的分頁、排序、編輯和刪除功能。【操作實訓12】創(chuàng)建InsertCourse.aspx1創(chuàng)建一個名為Insert

39、Course.aspx的ASP.NET頁面(使用母版頁JWS.master)。2在“ContentPlaceHolder1(Custom)”中設(shè)計頁面布局：類型ID說明TextBoxtxtCourseID課程編號文本框TextBoxtxtCourseName課程名稱文本框TextBoxtxtDescription課程說明文本框（TextMode="MultiLine）ButtonbtnInsertOK按鈕ButtonBtnCancelCancel按鈕LabellblMsg錯誤提示信息（Text為：空、ForeColor="#FF3300"）新建課程：24ptHR水

40、平線Table3行2列的表格，居中（align="center"）3引用指定名稱空間。在InsertUser.aspx代碼的頭部添加下列引用指定名稱空間的語句，以訪問Microsoft Access數(shù)據(jù)源：<% Import Namespace="System.Data.OleDb" %>4編寫事件處理程序： Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim con As OleDbConnection Dim strI

41、nsert As String Dim cmdInsert As OleDbCommandcon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|WebJWS.mdb")strInsert = "Insert into Course (CourseID, CourseName, Description) Values ( ?, ?, ?)"cmdInsert = New OleDbCommand(strInsert, con)cmdIn

42、sert.Parameters.AddWithValue("?", txtCourseID.Text)cmdInsert.Parameters.AddWithValue("?", txtCourseName.Text)cmdInsert.Parameters.AddWithValue("?", txtDescription.Text) Trycon.Open()cmdInsert.ExecuteNonQuery()Response.Redirect("Course.aspx") Catch ex As Except

43、ion lblMsg.Text = "<font color=red>Error: </font><br/>" & vbCrLf & ex.Message Finallycon.Close() End Try End Sub Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs)Response.Redirect("Course.aspx") End Sub4.3排課管理的設(shè)計和實現(xiàn)4.3.1設(shè)

44、計只有教務(wù)員才能使用排課管理（教學安排）頁面。排課管理頁面JXB.aspx，顯示排課信息一覽（可修改、刪除）。通過“新課程安排”超鏈接，可跳轉(zhuǎn)到JXBInsert.aspx頁面（添加新課程安排）。4.3.2實現(xiàn)【操作實訓13】創(chuàng)建JXB.aspx1創(chuàng)建一個名為JXB.aspx的ASP.NET頁面(使用母版頁JWS.master)。2在“ContentPlaceHolder1(Custom)”中設(shè)計頁面布局：類型ID說明HyperLinkHyperLink1新課程安排（鏈接到InsertJXB.aspx）GridViewGridView1排課信息一覽AccessDataSourceAccessD

45、ataSource1GridView數(shù)據(jù)源排課管理：bold、text-align：center、font-size：xx-large（1）添加1個超鏈接（新課程安排），指向InsertJXB.aspx。（2）添加1個GridView（配置數(shù)據(jù)源(Acess數(shù)據(jù)源)，指向App_DataWebJWS.mdb，選擇表JXB。（i）第一步：方法1：先高級配置1次，即啟動“生成INSERT、UPDATE和DELETE語句”；然后檢查自定義配置，利用查詢生成器確保生成正確的update/delete SQL語句。方法2：先高級配置1次，即啟動“生成INSERT、UPDATE和DELETE語句”；然后手

46、動修改代碼中的update/delete SQL語句。具體如下：SELECT Course.CourseName, JXB.JxbID, JXB.CourseID, JXB.UserID, Users.UserName, JXB.JxbTime FROM (Course INNER JOIN JXB ON Course.CourseID = JXB.CourseID) INNER JOIN Users ON JXB.UserID = Users.UserID)UPDATE JXB SET JxbTime = ? WHERE JxbID = ?DELETE FROM JXB WHERE JxbI

47、D = ?（ii）第二步：完成數(shù)據(jù)源配置后，啟用GridView的分頁、排序、編輯和刪除功能。（iii）第三步：設(shè)置字段CourseName、JxbID、CourseID、UserID和UserName的只讀屬性，使得只有JxbTime字段才能更新。（iv）第四步：因為Access的參數(shù)不是按名稱傳遞，而是按占位符傳遞，故核查程序代碼，確保更新參數(shù)（UpdateParameters）和命令（UpdateCommand）中的參數(shù)相對應(yīng)。即： UpdateCommand="UPDATE JXB SET JxbTime = ? WHERE JxbID = ?"以及： <Up

48、dateParameters> <asp:Parameter Name="JxbTime" Type="String" /> <asp:Parameter Name="JxbID" Type="String" /> </UpdateParameters>（v）第五步：核查GridView的DataKeyNames為主碼：JxbID?！静僮鲗嵱?4】創(chuàng)建InsertJXB.aspx1創(chuàng)建一個名為InsertJXB.aspx的ASP.NET頁面(使用母版頁JWS.master)

49、。2在“ContentPlaceHolder1(Custom)”中設(shè)計頁面布局：類型ID說明TextBoxtxtJxbID教學班號文本框DropDownListDropDownListCourse課程下拉列表框(綁定到數(shù)據(jù)源：表Users，具體參見下文)DropDownListDropDownListTeacher任課教師下拉列表框(綁定到數(shù)據(jù)源：表Course，具體參見下文)TextBoxtxtJxbTime教學班號時間安排文本框（TextMode="MultiLine）ButtonbtnInsertOK按鈕ButtonBtnCancelCancel按鈕LabellblMsg錯誤提

50、示信息（Text為：空、ForeColor="#FF3300"）新建課程安排：24ptHR水平線Table4行2列的表格，居中（align="center"）其中：（1）課程下拉列表框的數(shù)據(jù)綁定：SELECT CourseID, CourseName FROM Course（2）任課教師下拉列表框的數(shù)據(jù)綁定： SELECT UserID, UserName FROM Users WHERE (Flag = 2)3引用指定名稱空間。在InsertJXB.aspx代碼的頭部添加下列引用指定名稱空間的語句，以訪問Microsoft Access數(shù)據(jù)源：<

51、% Import Namespace="System.Data.OleDb" %>4編寫事件處理程序： Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim con As OleDbConnection Dim strInsert As String Dim cmdInsert As OleDbCommandcon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data S

52、ource=|DataDirectory|WebJWS.mdb")strInsert = "Insert into JXB (JxbID, CourseID, UserID, JxbTime) Values (?, ?, ?, ?)"cmdInsert = New OleDbCommand(strInsert, con)cmdInsert.Parameters.AddWithValue("?", txtJxbID.Text)cmdInsert.Parameters.AddWithValue("?", DropDownList

53、Course.SelectedValue)cmdInsert.Parameters.AddWithValue("?", DropDownListTeacher.SelectedValue)cmdInsert.Parameters.AddWithValue("?", txtJxbTime.Text) Trycon.Open()cmdInsert.ExecuteNonQuery()Response.Redirect("JXB.aspx") Catch ex As Exception lblMsg.Text = "<font

54、 color=red>Error: </font><br/>" & vbCrLf & ex.Message Finallycon.Close() End Try End Sub Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs)Response.Redirect("JXB.aspx") End Sub4.4成績管理的設(shè)計和實現(xiàn)4.4.1設(shè)計只有教務(wù)員才能使用成績管理頁面。成績管理頁面GradeByJXB.aspx頁面（成績登錄）。成績登錄頁面，可編輯（登錄）學生成績。4.4.2實現(xiàn)【操作實訓15】創(chuàng)建GradeByJXB.aspx1創(chuàng)建一個名為GradeByJXB.aspx的ASP.NET頁面(使用母版頁JWS.master)。2在“ContentPlaceHolder1(Custom)”中設(shè)計頁面布局：類型ID說明DropDownListDropDownList1教學班號下拉列表（AutoPostBack