【文章內(nèi)容簡介】 25 (3)單擊“取消”按鈕，文本框清空重新輸入信息。 (4)單擊“刪除”按鈕，刪除班級(jí)信息界面調(diào)出，單擊“確定” 刪除 成功，單擊“取消”返回班級(jí)信息刪除界 面，單擊“退出”退出該窗口。 (5)單擊“退出”按鈕，退出本窗口，返回主程序界面。 班級(jí)信息刪除界面如圖 31 318 所示 。 圖 317班級(jí)信息刪除界面 圖 318班級(jí)信息刪除界面 課程 信息管理 模塊設(shè)計(jì) 設(shè)計(jì)（論文）說明書 26 (一 ) 課程信息添加模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“課程信息管理”菜單下的“課程信息添加”項(xiàng)，將進(jìn)入課程信添加模塊。在課程信息添加模塊中主要實(shí)現(xiàn)如下功能： (1)完成課程信息的添加。 (2)單擊“點(diǎn)擊此處進(jìn)行課程信息添加”，“添加”按鈕顯示可執(zhí)行操，在文本框中輸入課程的詳細(xì)信息。 (3)單擊“取消”按鈕， 文本框清空重新輸入信息。 (4)單擊“添加”按鈕，把信息輸入課程信息列表中。 (5)單擊“退出”按鈕，退出本窗口，返回主程序界面。 課程信息添加界面如圖 319 所示 ： 圖 319課程信息添加界面 (二 ) 課程信息查詢模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“課程信息管理”菜單下的“課程信息查詢”項(xiàng)，將進(jìn)入課程查詢模塊。在課程查詢模塊中主要實(shí)現(xiàn)如下功能： (1)完成課程信息的查詢。 (2)單擊“點(diǎn)擊此處進(jìn)行 課程 查詢”，“查詢”按鈕顯示可執(zhí)行操，輸入 課程 號(hào)。 (3)單擊“取消”按鈕，文本框清空重新輸入信息。 設(shè)計(jì)（論文）說明書 27 (4)單擊“查詢”按鈕，查詢的 課程 詳細(xì) 信息顯示在文本框中。 (5)單擊“退出”按鈕，退出本窗口，返回主程序界面。 課程 信息查詢界面如圖 320 所示 。 圖 320課程信息查詢界面 (三 ) 課程信息刪除模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“課程信息管理”菜單下的“課程刪除”項(xiàng)，將進(jìn)入課程刪除模塊。在課程刪除模塊中主要實(shí)現(xiàn)如下功能： (1)完成課程信息的刪除。 (2)單擊“點(diǎn)擊此處進(jìn)行課程刪除”，“刪除”按鈕顯示可執(zhí)行操，輸入課程號(hào)。 (3)單擊“取消”按鈕，文本框清空重新輸入信息。 (4)單擊“刪除”按鈕，提示課程已刪除。 (5)單擊“退出”按鈕，退出本窗口，返回主程序界面。 課 程信息刪除界面如圖 321 所示 。 設(shè)計(jì)（論文）說明書 28 圖 321課程信息刪除界面 運(yùn)行 調(diào)試情況 本文系統(tǒng)中的后臺(tái)數(shù)據(jù)庫是采用的 Microsoft SQL Server，可以實(shí)現(xiàn)對(duì)學(xué)生學(xué)籍、課程信息、成績信息、考試信息、班級(jí)信息等的數(shù)據(jù)進(jìn)行管理和儲(chǔ)存。Microsoft SQL Server 數(shù)據(jù)庫 比較適合進(jìn)行中小型數(shù)據(jù)庫管理，是一個(gè)強(qiáng)大的數(shù)據(jù)庫管理系統(tǒng)，具有界面友好、易學(xué)易用、開發(fā)簡單、接口靈活等特點(diǎn)。 程序運(yùn)行過程出現(xiàn)找不到庫或工程的問題時(shí)要再次檢查數(shù)據(jù)庫連接 、數(shù)據(jù)庫連接控件的添加問題。 軟件調(diào)試：本系統(tǒng)的 調(diào)試采用了原因排除方法，對(duì)每個(gè)模塊中程序進(jìn)行了對(duì)分查找和歸納演繹的調(diào)試途徑，盡所可能發(fā)現(xiàn)并解決各個(gè)模塊中的問題，以保證系統(tǒng)功能的實(shí)現(xiàn)。 設(shè)計(jì)（論文）說明書 29 參考文獻(xiàn) [1] 張紅軍，王虹 . Visual Basic 中文版高級(jí)應(yīng)用與開發(fā)指南 .北京 :人民郵電出版社， 2021:1263. [2] 林陳雷 .Visual :人民郵電出版社 [3] 龔沛曾 .面向?qū)ο蟪绦蛟O(shè)計(jì)系列教材 .北京 :高等教育出版社 [4] 何文俊 .Visual 編程實(shí)例精解 .北京 :高等教育出版社 [5] 潭 浩 .學(xué)用 Visual Basic 編程 .西安 :西安電子科技大學(xué)出版社 [6] 敬 錚 .Visual 數(shù)據(jù)庫開發(fā)與專業(yè)應(yīng)用 .北京 :國防工業(yè)出版社 [7] 溫賢發(fā) .Visual 數(shù)據(jù)庫程序設(shè)計(jì)高手 .北京 :科學(xué)出版社 附 錄 登錄窗口代碼： Option Explicit Private Declare Function GetUserName Lib Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As Long Public OK As Boolean Dim txtSQL As String Dim mrc As Dim MsgText As String Dim miCount As Integer Private Sub Form_Load() Dim i As Integer i = 0 txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) With txtUserName Do While Not i = i + 1 .AddItem Trim(mrc!user_ID) Loop .ListIndex = i 1 設(shè)計(jì)（論文）說明書 30 End With OK = False miCount = 0 End Sub Private Sub cmdCancel_Click() OK = False End End Sub Private Sub cmdOK_Click() txtSQL = select * from user_Form where user_ID = 39。 amp。 amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個(gè)用戶，請(qǐng)重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If 設(shè)計(jì)（論文）說明書 31 miCount = miCount + 1 If miCount = 3 Then End If Exit Sub End Sub Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End If End Sub Private Sub txtUserName_Click() = End Sub Private Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub 用戶修改界面代碼： Private Sub Label2_Click(Index As Integer) = 用戶信息 = amp。 amp。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。HFFFFFF Picture1(Index).Visible = True For i = 0 To 8 設(shè)計(jì)（論文）說明書 32 Text1(i) = Next End Sub Private Sub Command3_Click() Dim txtSQL As String If Text1(3) = Then MsgBox 請(qǐng)你選擇用戶名稱 !, vbOKOnly, 提示 Exit Sub End If If Text1(4) = Then MsgBox 修改密碼要舊密碼 !, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If If Text1(5) = Then MsgBox 新的密碼不能為空 !, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 兩次密碼輸入不同 !, vbOKOnly, 提示 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End If txtSQL = select * from user_Form where user_ID=39。 amp。 Trim(Text1(3)) amp。 39。and user_PWD=39。 amp。 Trim(Text1(4)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) 設(shè)計(jì)（論文）說明書 33 If = False Then txtSQL = delete from user_Form where user_ID=39。 amp。 Trim(Text1(3)) amp。 39。 Else MsgBox 用戶密碼輸入錯(cuò)誤 !, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(3)) (1) = Trim(Text1(5)) For i = 3 To 6 Text1(i) = Next MsgBox 用戶信息修改成功 !, vbOKOnly, 提示 End Sub 學(xué)生信息添加 界面代碼： Private Sub Label1_Click(Index As Integer) = 學(xué)籍信息 = amp。 Trim(Label1(Index).Caption) Label1(0).BackColor = amp。HE0E0E0 Label1(1).BackColor = amp。HE0E0E0 Label1(2).BackColor = amp。HE0E0E0 Label1(3).BackColor = amp。HE0E0E0 Label1(Index).BackColor = amp。HFFFFFF Label2(4).Caption = 在此選擇學(xué)號(hào) Label2(5).Caption = 在此輸入聯(lián)系電話 Label2(6).Caption = 在此輸入入學(xué)日期 設(shè)計(jì)（論文）說明書 34 If Index = 0 The