【正文】 s DataBase = New DataBase Dim strSQL As String = strSQL = select 姓名, 班級名稱, 學(xué)籍編號from 學(xué)生信息as a, strSQL += 班級信息as b where = strSQL += and 學(xué)號=39。 + + %39。執(zhí)行SQL語句 Dim db As DataBase = New DataBase Dim dv As DataView = (strSQL + strFilter) = False = False = False = False dtSubject = 39。 + + %39。 Dim db As DataBase = New DataBase (strSQL) Dim dv As DataView strSQL = select , strSQL += , 選課表 strSQL += as c, 課程表as a, 課程信息as b where strSQL += = = strSQL += and 學(xué)號=39。,39。 and 課序號in(select 課序號from 課程表where 課程編號=39。 (i)(籍貫) = dv(0)(1) dv = = 學(xué)籍編號=39。設(shè)置數(shù)據(jù)源 = bmData = (DataSet11, 學(xué)生信息) = 記錄數(shù): + () SetDetailData() End Sub Private Sub SetDetailData() Dim dtClassId, dtPolity, dtNation, _ dtBirthPlace, dtStatus As DataTable Dim db As DataBase = New DataBase dtClassId = _ (select 班級編號,班級名稱from 班級信息order by 班級名稱).Table dtPolity = _ (select 政治面貌編號,政治面貌from 政治面貌代碼表).Table dtNation = _ (select 民族編號,民族from 民族代碼表).Table dtBirthPlace = _ (select 籍貫編號,籍貫from 籍貫代碼表).Table dtStatus = _ (select 學(xué)籍編號,學(xué)籍名稱from 學(xué)籍代碼表).Table Dim dv As DataView For i As Integer = 0 To 1 dv = = 班級編號=39。清空DataSet11 () = Dim strSQL As String _ = select * from 學(xué)生信息 + strFilter 39。 strFilter += + %39。設(shè)置TextBox函數(shù) Public Overridable Sub SetTextBoxState(ByVal bState As Boolean) End Sub Public Overridable Sub SetData() End Sub End Class 學(xué)生信息維護(hù)實(shí)現(xiàn)的功能包括： 查看首記錄 ，上記錄， 下記錄， 查尾記錄，新增，修改，刪除等可實(shí)現(xiàn)模糊搜索功能 如下所示：Public Class frmStudent Inherits Public Overrides Sub Prepare() = 學(xué)生信息維護(hù) = 學(xué)號 = 姓名 = 年級 39。設(shè)置Button的是否能夠單擊 (0).Enabled = bState (1).Enabled = bState (2).Enabled = bState (3).Enabled = bState (4).Enabled = bState (5).Enabled = bState (6).Enabled = bState (7).Enabled = Not bState (8).Enabled = Not bState End Sub Public Overridable Sub Prepare() End Sub 39。bAdd = false 為修改 Protected bAdd As Boolean Private Sub frmBase_Load(ByVal sender As Object, _ ByVal e As ) Handles Prepare() SetDataGrid() SetTextBoxState(True) End Sub Private Sub ToolBar1_ButtonClick(ByVal sender As Object, _ ByVal e As ToolBarButtonClickEventArgs) _ Handles Select Case Case 首記錄 39。修改 Pass Word := 。在這里每個(gè)模塊都要用到的功能沒必要在每個(gè)子模塊里重復(fù)闡述，在每個(gè)子模塊里只列出區(qū)別于其它子模塊的功能實(shí)現(xiàn)。《教務(wù)管理系統(tǒng)_系統(tǒng)概要設(shè)計(jì)說明書》。管理員登陸 業(yè)務(wù)調(diào)度 班信維護(hù)課信維護(hù) 學(xué)信維護(hù)?師信維護(hù)學(xué)生選課成績輸入???DAO組件XML解析數(shù)據(jù)連接持久實(shí)體課表查詢本系統(tǒng)組件圖如圖13所示2. 接口設(shè)計(jì) 用戶接口用戶接口語法結(jié)構(gòu)軟件回答信息教務(wù)系統(tǒng)管理員登錄以英文和漢字開頭，不超過6個(gè)字符進(jìn)入主界面信息管理相關(guān)操作進(jìn)行相應(yīng)的操作3. 運(yùn)行設(shè)計(jì) 運(yùn)行模塊組合具體軟件的運(yùn)行模塊組合為程序多窗口的運(yùn)行環(huán)境，各個(gè)模塊在軟件運(yùn)行過程中能較好的交換信息，處理數(shù)據(jù)。一旦Action類處理完業(yè)務(wù)邏輯，它把控制權(quán)返回給ActionServlet，Action類提供一個(gè)鍵值作為返回的一部分，它指明了處理的結(jié)果。 概要設(shè)計(jì)說明書1. 總體設(shè)計(jì) 需求規(guī)定教務(wù)管理系統(tǒng)可分為學(xué)生信息管理系統(tǒng)和教師管理信息系統(tǒng)，系統(tǒng)開發(fā)的整體任務(wù)是實(shí)現(xiàn)學(xué)校教師和學(xué)生信息管理的系統(tǒng)化、規(guī)范化、自動化和智能化，從而達(dá)到提高學(xué)校管理效率的目的。Action類執(zhí)行建立在模型組件基礎(chǔ)上的業(yè)務(wù)邏輯，模型組件是和應(yīng)用程序關(guān)聯(lián)的。來管理hibernate。. 參考資料《教務(wù)管理系統(tǒng)_系統(tǒng)軟件需求說明書》。整個(gè)業(yè)務(wù)流程就是由這幾種基本功能實(shí)現(xiàn)的。修改 User ID = 。bAdd = true 為新增 39。判斷bmData是否為Nothing If bmData Is Nothing Then Exit Sub End If If Then = SetData() End If Catch ex As Exception () End Try End Sub Private Sub SetToolBarState(ByVal bState As Boolean) 39。清除函數(shù) Public Overridable Sub Clear() End Sub 39。 End If End If Else strFilter = where 學(xué)號like 39。 End If End If End If 39。 = False 39。 + (i)(籍貫編號) + 39。 + strSQL += 39。 strSQL += + 39。 + strCId + 39。根據(jù)查詢條件組合SQL語句 Dim strSQL As String = select , strSQL += , 課程表 strSQL += as a, 課程信息as b where = Dim strFilter As String = If 0 Then strFilter += and 拼音碼like 39。 End If If = 0 Then Exit Sub End If strFilter += order by 課序號 39。 End If If 0 Then strFilter += and 39。 + + 39。 strSQL += + 39。 strSQL += + 39。(數(shù)據(jù)添加失敗!) End Try LoadData() = End Sub Public Overrides Sub DeleteData() Try 39。 + (i)(政治面貌編號) + 39。If i = 6 Then 39。 If 0 Then strFilter += and 年級like 39。 End If Else strFilter = where 姓名like 39。 = End Sub 39。彈出詢問對話框 Dim dlgResult As DialogResult = _ (你確認(rèn)刪除此數(shù)據(jù)？, _ 刪除, ) If dlgResult = Then DeleteData() End If Case 保存 SetToolBarState(True) SetTextBoxState(True) If bAdd = True Then 39。獲得frmMain窗體的子窗體的數(shù)量 Dim i As Integer = 39。②瀏覽權(quán)限Enable = True。從使用和操作的功能上分，有三種用戶：該校學(xué)生；業(yè)務(wù)數(shù)據(jù)管理人員（學(xué)生工作輔導(dǎo)員、教務(wù)干事）；系統(tǒng)管理員。4. 系統(tǒng)數(shù)據(jù)結(jié)構(gòu) 邏輯設(shè)計(jì)教務(wù)管理系統(tǒng)ER圖選課表FK1PK 編號學(xué)號課序號PK課程名稱課程簡稱拼音碼本學(xué)期課程教師開課系別年份課程表PK 編號 邏輯結(jié)構(gòu)設(shè)計(jì)表表名稱：bkb 表類型：約束表