【正文】 (5, ─)。 ┴。 String(4, ─)。 ┴。 String(4, ─)。 ┴。 String(5, ─)。 ┴。 String(20, ─)。 ┘End With 課程信息設(shè)置子窗體本子窗體模塊實現(xiàn)了對課程信息的相關(guān)設(shè)置功能，包括對課程信息的添加、修改、刪除、查詢等功能，本子窗體所錄入的數(shù)據(jù)為前述的“學(xué)生智育成績設(shè)置”模塊設(shè)置提供數(shù)據(jù)依據(jù)。： 課程信息設(shè)置子窗體本窗體中點擊“查詢”按鈕是所執(zhí)行的代碼如下：Private Sub CmdSch_Click()Dim str2 As StringDim str3 As Stringstr2 = InputBox(請輸入要查詢的課程名稱或其關(guān)鍵字（模糊查詢）！, 查詢課程信息)If Trim(str2) = Then MsgBox 輸入無效！, vbCritical, 系統(tǒng)提示 Exit SubEnd If = select 課程編號,課程名稱,課程類型,課程學(xué)分,課程描述,信息錄入者,信息錄入時間 from 課程信息 where 所屬年級=39。 amp。 Trim(strGrade) amp。 39。 and 所屬班級=39。 amp。 Trim(strClass) amp。 39。 and 課程名稱 like 39。* amp。 Trim(str2) amp。 *39。 order by 課程編號If 1 Then MsgBox 查詢結(jié)束，本班無課程名稱為 amp。 Trim(str2) amp。 的課程信息記錄！, vbExclamation, 查詢結(jié)果 Exit SubEnd Ifstr3 = 查詢結(jié)果： amp。 vbCr amp。 vbCrWith .MoveFirst While Not .EOF str3 = str3 amp。 課程編號： amp。 Trim(.Fields!課程編號) amp。 vbCr amp。 課程名稱： amp。 Trim(.Fields!課程名稱) amp。 vbCr amp。 課程類型： amp。 Trim(.Fields!課程類型) amp。 vbCr amp。 課程學(xué)分： amp。 Trim(.Fields!課程學(xué)分) amp。 vbCr amp。 課程描述： amp。 Trim(.Fields!課程描述) amp。 vbCr amp。 vbCr amp。 信息錄入者： amp。 Trim(.Fields!信息錄入者) amp。 vbCr amp。 vbCr amp。 信息錄入時間： amp。 Trim(.Fields!信息錄入時間) amp。 vbCr amp。 vbCr .MoveNext Wend str3 = str3 amp。 共有 amp。 .RecordCount amp。 條相關(guān)查詢記錄End WithMsgBox str3, vbInformation, 查詢結(jié)束End Sub 德育類型設(shè)置子窗體本子窗體模塊實現(xiàn)了對德育類型信息的相關(guān)設(shè)置功能，包括對德育類型的添加、修改、刪除、查詢等功能，本子窗體所錄入的數(shù)據(jù)為前述的“學(xué)生德育成績設(shè)置”模塊設(shè)置提供數(shù)據(jù)依據(jù)。本窗體中實現(xiàn)德育類型查詢的代碼如下：Private Sub CmdSch_Click()Dim str2 As StringDim str3 As Stringstr2 = InputBox(請輸入要查詢的德育名稱或其關(guān)鍵字（模糊查詢）！, 查詢德育類型信息)If Trim(str2) = Then MsgBox 輸入無效！, vbCritical, 系統(tǒng)提示 Exit SubEnd If = select * from 德育類型 where 名稱 like 39。* amp。 Trim(str2) amp。 *39。 order by 代碼If 1 Then MsgBox 查詢結(jié)束，無德育名稱為 amp。 Trim(str2) amp。 的德育類型信息記錄！, vbExclamation, 查詢結(jié)果 Exit SubEnd Ifstr3 = 查詢結(jié)果： amp。 vbCr amp。 vbCrWith .MoveFirst While Not .EOF str3 = str3 amp。 德育代碼： amp。 Trim(.Fields!代碼) amp。 vbCr amp。 德育名稱： amp。 Trim(.Fields!名稱) amp。 vbCr amp。 德育分類： amp。 Trim(.Fields!分類) amp。 vbCr amp。 信息錄入者： amp。 Trim(.Fields!信息錄入者) amp。 vbCr amp。 信息錄入時間： amp。 Trim(.Fields!信息錄入時間) amp。 vbCr amp。 vbCr .MoveNext Wend str3 = str3 amp。 共有 amp。 .RecordCount amp。 條相關(guān)查詢記錄End WithMsgBox str3, vbInformation, 查詢結(jié)束End Sub 能力類型設(shè)置子窗體本子窗體模塊實現(xiàn)了對能力類型信息的相關(guān)設(shè)置功能，包括對能力類型的添加、修改、刪除、查詢等功能，本子窗體所錄入的數(shù)據(jù)為前述的“學(xué)生能力成績設(shè)置”模塊設(shè)置提供數(shù)據(jù)依據(jù)。 德育類型設(shè)置子窗體 能力類型設(shè)置子窗體本窗體中實現(xiàn)能力類型添加的代碼如下：Private Sub CmdAdd_Click()If IsCh = True Then If MsgBox(是否放棄修改操作？, vbQuestion + vbYesNo, 系統(tǒng)提示) = vbNo Then Exit Sub Else IsCh = False End IfEnd IfstrTime = Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 amp。 TimeIf MsgBox(確認(rèn)添加信息： amp。 vbCr amp。 vbCr amp。 本次信息錄入者： amp。 strUser amp。 vbCr amp。 vbCr amp。 錄入時間： amp。 strTime amp。 vbCr amp。 vbCr amp。 是否繼續(xù)？, vbExclamation + vbYesNo, 系統(tǒng)提示) = vbNo Then = False Exit SubEnd IfMsgBox 請輸入要添加的能力類型信息，然后點擊保存按鈕進(jìn)行保存！, vbInformation, 添加能力類型AllClear = TrueisAdd = TrueEnd Sub 系統(tǒng)用戶管理子窗體本子窗體模塊實現(xiàn)了對本系統(tǒng)用戶的相關(guān)信息進(jìn)行設(shè)置的功能，包括對用戶信息的添加、修改、刪除、查詢等功能。本子窗體設(shè)置產(chǎn)生的記錄為本系統(tǒng)使用者提供了數(shù)據(jù)依據(jù)。 系統(tǒng)用戶管理子窗體本窗體中實現(xiàn)系統(tǒng)用戶信息保存時的部分代碼如下：If isAdd = True Then = select * from 用戶信息 where 用戶名=39。 amp。 Trim(TxtName) amp。 39。 If 0 Then MsgBox 用戶名 amp。 Trim(TxtName) amp。 已經(jīng)存在，請重新輸入用戶名, vbCritical, 系統(tǒng)提示 Exit Sub End If strName = InputBox(為確保萬一，請再次輸入此用戶的用戶密碼！, 添加新用戶) If Trim(strName) = Then MsgBox 輸入無效，添加用戶失敗！請單擊 (保存) 按鈕再次進(jìn)行密碼確認(rèn)！, vbCritical, 添加新用戶 Exit Sub End If If Trim(strName) Trim(txtPwd) Then MsgBox 您兩次輸入的用戶密碼不一致，請單擊 (保存) 按鈕再次進(jìn)行密碼確認(rèn)！, vbCritical, 添加新用戶 Exit Sub End If End IfIf IsCh = True Then k = End IfWith .Fields!用戶名 = Trim(TxtName) .Fields!用戶密碼 = Trim(txtPwd) If Opt(0).Value = True Then .Fields!用戶性別 = 男 Else .Fields!用戶性別 = 女 End If .Fields!用戶身份 = Trim(CmbSF) .Fields!真實姓名 = Trim(TxtTrueName) .Fields!聯(lián)系電話 = Trim(TxtPhone) .Fields!所屬部門 = Trim(TxtBM) .UpdateEnd With 本系統(tǒng)特色功能簡介 動態(tài)模糊查詢功能在用戶查詢信息時，系統(tǒng)采用了動態(tài)查詢技術(shù)，即用戶每輸入一個字符系統(tǒng)便自動執(zhí)行一次查詢操作（實時查詢），省去了用戶輸入完要查詢的字符串后還要點擊確定按鈕的麻煩，再同時采用模糊查詢技術(shù)，即每次執(zhí)行查詢操作時，只要是與輸入關(guān)鍵字匹配的記錄均可被查找到，使用戶查詢信息更加方便，“學(xué)生信息查詢”功能。在“學(xué)生信息查詢”窗體中，用戶可以選擇兩種查詢方式，即按學(xué)生學(xué)號查詢和按學(xué)生姓名查詢，如果用戶選擇了按學(xué)生學(xué)號查詢，則相應(yīng)的學(xué)號輸入文本框就會獲得輸入焦點，并提示需要用戶輸入學(xué)生的學(xué)號；相反，如果用戶選擇了按學(xué)生姓名查詢，則相應(yīng)的姓名文本框就會獲得輸入焦點，并提示需要用戶輸入學(xué)生姓名。在輸入的字符的過程中，系統(tǒng)都會自動執(zhí)行一次模糊查詢操作，并把查詢到的結(jié)果顯示在下方的數(shù)據(jù)列表當(dāng)中，如果沒有查詢結(jié)果，則同樣會有相關(guān)的提示，并清空相關(guān)的列表數(shù)據(jù)。 動態(tài)模糊查詢功能示例 查詢無結(jié)果時的提示實現(xiàn)動態(tài)模糊查詢功能的部分代碼如下所示：If Trim(TxtName) Then = select 學(xué)號,姓名,性別,年齡,民族,籍貫,通信地址,聯(lián)系電話,備注,信息錄入者,信息錄入時間 from 學(xué)生信息 where 所屬年級=39。 amp。 Trim(strGrade) amp。 39。 and 所屬班級=39。 amp。 Trim(strClass) amp。 39。 and 姓名 like 39。* amp。 Trim(TxtName) amp。 *39。 If 1 Then = 查詢結(jié)束，沒有相關(guān)記錄 TxtTishi = 沒有相關(guān)記錄 AllClear Else = 查詢結(jié)果全部顯示（單擊查看詳細(xì)） ShowData End IfElse = select 學(xué)號,姓名,性別,年齡,民族,籍貫,通信地址,聯(lián)系電話,備注,信息錄入者,信息錄入時間 from 學(xué)生信息 where 所屬年級=39。 amp。 Trim(strGrade) amp。 39。 and 所屬班級=39。 amp。 Trim(strClass) amp。 39。 and 姓名=39。 amp。 Trim(TxtName) amp。 39。 = 按學(xué)生姓名查詢 TxtTishi = 按學(xué)生姓名查詢End If 打印功能本系統(tǒng)在很多信息查詢和操作過程上，都設(shè)置了打印功能，方便用戶進(jìn)行信息的保存。本功能的設(shè)計思想與原理：使用窗體自帶的Print方法按照一定的規(guī)則將制表符（┌，┬，┐，┼，└，┴，┘等等）拼接成表格，并向表格中填入數(shù)據(jù)，然后打印在窗體上，用戶若點擊了打印按鈕，則可以進(jìn)行打?。ㄇ疤崾怯嬎銠C(jī)必須和打印機(jī)連接）。 打印功能示例本窗體中實現(xiàn)打印預(yù)覽功能的部分代碼如下：Print strMsg1Print ┌。 String(6, ─)。 ┬。 String(6, ─)。 ┬。 String(2, ─)。 ┬。 String(2, ─)。 ┬。 String(10, ─)。 ┬。 String(10, ─)。 ┬。 String(20, ─)。 ┬。 String(6, ─)。 ┬。 String(25, ─)。 ┬。 String(8, ─)。 ┬。 String(22, ─)。 ┐With .MoveFirst Print │。 Trim(.Fields(0).Name)。 For i = 1 To . 1 Print Tab(stLH(i + 1))。 │。 Trim(.Fields(i).Name)。 Next Print Tab(257)。 │ Print ├。 String(6, ─)。 ┼。 String(6, ─)。 ┼。 String(2, ─)。 ┼。 String(2, ─)。 ┼。 String(10, ─)。 ┼。 String(10, ─)。 ┼。 String(20, ─)。 ┼。 String(6, ─)。 ┼。 String(25, ─)。 ┼。 String(8, ─)。 ┼。 String(22, ─)。 ┤ While Not .EOF Print │。 Trim(.Fields(0))。 For i = 1