【正文】 Else () End If End Sub Private Sub BtnEdit_Click(ByVal sender As , ByVal e As ) Handles If () = Then (系編號不能為空) () ElseIf Not JudgeInt() Then (系編號必須為整數(shù)) () ElseIf Not JudgeKeyExist(departmentinfo, departmentid, ) Then (要更新的記錄集不存在) () ElseIf () = Then (系名不能為空) () ElseIf () = Then (系主任不能為空) () Else () End If End SubPrivate Sub InsertData() Dim DepID As Int16 = () Dim DepName As String = Dim DepMan As String = Dim value As String = + ,39。用戶名39。主窗體首先啟動“登錄”窗體，“登錄”窗體運(yùn)行界面如圖1所示：圖1代碼如下：Public Class LOGIN Inherits Public flag = False Private Sub btok_Click(ByVal sender As , ByVal e As ) Handles If () = Then (姓名不能為空) () ElseIf () = Then (密碼不能為空) () Else Dim sql As String = SELECT * FROM USERINFO WHERE USERID = 39。 Public SqlCon As New SqlConnection (“Data Source=201009080956。在彈出的快捷菜單中執(zhí)行“新建表”命令，出現(xiàn)表設(shè)計器。 用戶管理模塊：僅系統(tǒng)管理員可用，對這個系統(tǒng)的所有用戶進(jìn)行管理。a、成績查詢子模塊任務(wù)要求以Visual Basic。a、課程管理子模塊b、學(xué)籍管理子模塊 c、班級管理子模塊d、系別管理子模塊e、課程管理子模塊f、成績管理子模塊 教務(wù)信息查詢模塊：在各基本表的基礎(chǔ)上進(jìn)行信息的查詢。⑴在用戶管理部分, 具體功能包括增加用戶、修改用戶和刪除用戶⑵在系別管理部分, 具體功能包括增加系別、修改系別和刪除系別⑶在班級管理部分, 具體功能包括增加班級、修改班級和刪除班級⑷在課程管理部分, 具體功能包括增加課程、修改課程和刪除課程⑸在學(xué)籍管理部分, 具體功能包括增加學(xué)生信息、修改學(xué)生信息和刪除學(xué)生信息[6]在成績管理部分, 具體功能包括增加成績信息、修改成績信息和刪除成績信息教務(wù)管理系統(tǒng)登陸管理用戶管理教務(wù)信息管理教務(wù)信息查詢系別管理班級管理課程管理學(xué)籍管理成績管理成績查詢 教務(wù)管理系統(tǒng)模塊圖 系統(tǒng)開發(fā)平臺前臺： 硬件要求：CPU: Pentium 4 內(nèi)存：512MB以上容量顯卡：32MB或以上顯存之AGP接口顯卡軟件要求：操作系統(tǒng)：Microsoft Windows 2000/XP開發(fā)工具：Microsoft Visual 數(shù)據(jù)庫服務(wù)器： 硬件要求：CPU: Pentium4 內(nèi)存：1024MB以上容量顯卡：32MB或以上顯存之AGP接口顯卡 軟件要求：操作系統(tǒng)：Microsoft Windows XP數(shù)據(jù)庫服務(wù)器：Microsoft SQL Server 2000第二章 總體設(shè)計 設(shè)計系統(tǒng)模塊 根據(jù)需求，系統(tǒng)要實現(xiàn)如下功能： （1）登錄管理 （2）用戶管理（3）教務(wù)基本信息管理（4）教務(wù)信息管理 系統(tǒng)功能模塊劃分 系統(tǒng)功能模塊劃分如下所示： 登錄管理模塊：為了系統(tǒng)的安全性，根據(jù)不同權(quán)限給出不同服務(wù)。(1)在服務(wù)器資源管理器中右擊數(shù)據(jù)庫STUDENT下的“表”文件夾。 SqlCon變量的類型為SqlConnection,是全局的數(shù)據(jù)庫連接變量。第三章 詳細(xì)設(shè)計本系統(tǒng)集成了“登錄”模塊，因此在系統(tǒng)加載時，需要先啟動“登錄”模塊的“登錄”窗體，只有用戶輸入了正確的用戶名和密碼后才能進(jìn)入到系統(tǒng)。“用戶管理”窗體在運(yùn)行中的界面如圖5所示代碼如下：Imports Imports Public Class FrmUser Inherits Dim Usertype As Int16 Dim UserPwd As StringRegion Windows 窗體設(shè)計器生成的代碼 End Region Private Sub FrmUser_Load(ByVal sender As Object, ByVal e As ) Handles BindData() End Sub Public Sub BindData() Try Dim sql As String = select userid as 39。 Dim sqlCmd As New SqlCommand = SqlCon = sql Try () () (刪除記錄成功) Catch ex As Exception (刪除記錄失敗) WriteErr(ex) Finally () End Try BindData() End Sub Private Sub MenuItem1_Click(ByVal sender As , ByVal e As ) Handles Dim FrmInsert As New FrmUserInsert = 用戶添加 User = () If = And UserFlag Then BindData() End If End Sub Private Sub MenuItem2_Click(ByVal sender As , ByVal e As ) Handles Dim FrmInsert As New FrmUserInsert = 用戶修改 If = 1 Then (請選擇用戶) Else User = () If = And UserFlag Then BindData() End If End If End Sub Private Sub MenuItem3_Click(ByVal sender As , ByVal e As ) Handles If = 1 Then (請選擇用戶) Else User = If (確定要刪除？, 刪除確認(rèn), , , ) = Then () End If End If End SubEnd Class“系別管理”窗體界面運(yùn)行如圖5所示：圖5該窗體是用Windows窗體設(shè)計器生成的代碼，因此在此不作說明。 WHERE CLASSID= + Dim sqlCmd As New SqlCommand = SqlCon = sql Try () () (修改記錄成功) Catch ex As Exception (修改記錄失敗) WriteErr(ex) Finally () End Try BindTree() End Sub 課程管理“課程管理”窗體界面運(yùn)行如圖7所示：圖7該窗體是用Windows窗體設(shè)計器生成的代碼，因此在此不作說明。學(xué)生姓名39。 + name + 39。分?jǐn)?shù)39。而這一點(diǎn)又是我們所缺乏的。該系統(tǒng)的界面比較單一，如果在界面上增加歡迎圖片，應(yīng)該會有不錯的，會下去繼續(xù)進(jìn)行，還有課表模塊的添加。三人行必有我?guī)?。本系統(tǒng)本來是含有課表的模塊，但是因為要和EXCEl相聯(lián)系，而我在這方面沒有知識，不太會弄，本想作為一個亮點(diǎn)，卻因為各種因素，不得不放棄。學(xué)生姓名39。評分教師39。課程39。 + DepMan + 39。,usertype as 39。 + () + 39。PWD=sa”)JudgeInt函數(shù)：判斷輸入文本是否為整數(shù)。表 名列 名數(shù)據(jù)類型含義USERINFOUSERIDnvarchar用戶編號（主鍵）USERPWDnvarchar用戶密碼USERTYPEint用戶類別DEPARTMENTINFODEPARTMENTIDint系編號DEPARTMENTnvarchar系名DEPMANAGERnvarchar系主任CLASSINF