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