【文章內容簡介】 了一個公共變量 UserName,用戶登錄成功時就把當前用戶名賦給了這個變量。當此用戶要修改密碼時，在連接到數(shù)據(jù)庫查詢用戶表 tabuser 時就可以利用該變量準確查找到當前用戶記錄所在的位置，確保進行對表的正確操作。 相應的主要代碼如下： txtSQL = select * from tabuser where username= 39。 amp。 UserName amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = MsgBox 密碼修改成功！ , vbOKOnly + vbExclamation, 修改密碼 畢 業(yè) 論 文 第 – 21 –頁 （三）刪除用戶 單擊菜單“刪除用戶”，彈出如下所示的刪除用戶窗體 frmdeluser： 當系統(tǒng)用戶有且僅有一個時，系統(tǒng)不允許刪除用戶。除此之外，當前用戶只要輸入正確的用戶名和密碼，且用戶名和密碼 相匹配時，就可以刪除自己或其它用戶的信息。相應的代碼為： txtSQL = select * from tabuser where username = 39。 amp。 amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If Trim() = Trim((0)) And Trim() = Trim((1)) Then end if 二、記錄查詢模塊設計 如下圖所示，單擊“教師基本信息”，就可以看到該模塊可以對教師基本信息進行查詢、添加、修改和刪除操作。 畢 業(yè) 論 文 第 – 22 –頁 單擊“基本信息查詢”，彈出下面基本信息查詢窗體 frmxxcx： 在復選框中勾選查詢記錄需滿足的條件，選擇或填入相應信息，單擊“查詢”首先得到并在窗體右上角顯示需查詢記錄所要滿足的條件，如上圖的“姓名為李麗的基本信息表”，方便用戶的查看。之后就可以根據(jù)所得的查詢條件查詢到滿足條件的記錄并在控件 msglist 中顯示出相應記錄，同 時顯示查詢到的記錄的條數(shù)。相應代碼為： txtSQL = select * from tabjbxx where amp。 sQSql Set mrc = ExecuteSQL(txtSQL, MsgText) With msglist .Rows = 1 If = False Then Do While Not .Rows = .Rows + 1 For i = 0 To 15 .CellAlignment = 4 .TextMatrix(.Rows 1, i) = (i) Next i Loop End If End With MsgBox MsgText, vbOKOnly + vbExclamation, 提示 單擊窗體 frmxxcx 上的“ 全部顯示”按鈕，在控件 msglist 里就可以顯示出教師基本信息表 tabjbxx 中的所有記錄。代碼如下： 畢 業(yè) 論 文 第 – 23 –頁 txtSQL = select * from tabjbxx Set mrc = ExecuteSQL(txtSQL, MsgText) 選擇作為排序標準的字段，然后單擊“升序排序”按鈕，在 msglist 控件中的記錄就會按所選中的字段重新排序。主要程序段為： txtSQL = txtSQL amp。 order by amp。 sMeg Set mrc = ExecuteSQL(txtSQL, MsgText) 三、記錄添加模塊設計 在一個信息系統(tǒng)中，記錄的添加功能是必不可少的，如何實現(xiàn)該功能呢？單擊主窗體“基本信息添加”菜單，彈出如下圖所示的教師信息窗體 frmjbxx： 用戶在相應的文本框填上教師的基本資料，單擊“添加”按鈕程序一樣會檢測填入的信息是否有空值，還需判斷數(shù)據(jù)類型和格式是否正確等。只有所填資料不為空和數(shù)據(jù)類型格式正確，才會將此記錄添加到 teacher 數(shù)據(jù)庫的 tabjbxx表中（系統(tǒng)會自動檢索到此表編號的最大值加 1 賦給新記錄的編號字段）；否則就會彈出消息框告訴用 戶該如何填寫資料。這樣就避免了因數(shù)據(jù)的空值和類型不匹配而發(fā)生錯誤的情況。主要程序段如下： txtSQL = select * from tabjbxx order by bh Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then (0) = 1 畢 業(yè) 論 文 第 – 24 –頁 Else temp = (0) (0) = temp + 1 End If (1) = Trim(Text1(0).Text) (2) = Trim() For i = 1 To 13 (i + 2) = Trim(Text1(i)) Next i MsgBox 添加記錄成功！ , vbOKOnly + vbExclamation, 添加記錄 由上面代碼可見，如果記錄添加成功后，將彈出“添加 記錄成功！”的消息框。為了讓用戶能夠立即看到剛剛添加的那條記錄，本人增加了一段代碼，即讓控件 msglist 清空，然后重新對更新的數(shù)據(jù)庫進行查詢，使查詢結果在 msglist 中顯示出來，而且讓新增加記錄的姓名將自動添加動查詢條件的“姓名”組合框中。這樣可讓用戶更加簡便地對數(shù)據(jù)進行操作，實現(xiàn)了記錄的動態(tài)查詢。 若打開了教師基本信息查詢窗體 frmxxcx，用戶可以不用單擊主窗體 frmmain上的“基本信息添加”菜單，而在控件 msglist 上單擊右鍵，在彈出的快捷菜單中選擇“基本信息添加”命令，也一樣可以彈出基本信息 添加窗體 frmjbxx進行記錄的添加。如下圖所示： 在進行記錄修改和刪除操作時，也可以先選擇要操作的記錄，選擇其它相應命令進行操作。 畢 業(yè) 論 文 第 – 25 –頁 實現(xiàn)此功能代碼如下： Private Sub msglist_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 And Shift = 0 Then PopupMenu End If End Sub 四、記 錄修改模塊設計 記錄修改也是信息系統(tǒng)必須實現(xiàn)的功能之一，在教師基本信息查詢窗體frmxxcx的 msglist 控件上選擇要修改的記錄并單擊右鍵，選擇“基本信息修改”命令，則會彈出“真的要修改這條記錄么？”的對話框，若選擇“是”，就彈出下圖所示的基本信息修改窗體 frmjbxx，而且還會把選擇中記錄的除性別外的各個字段顯示到該窗體。若沒有選擇任何記錄就選擇“基本信息修改”命令，系統(tǒng)就會彈出消息框提示用戶選擇要修改的記錄。 同樣地，在用戶填寫好修改資料后單擊“修改”按鈕的同時，只有所填資料不為空和數(shù)據(jù)類型格式正 確，系統(tǒng)才會將此記錄保存到 teacher 數(shù)據(jù)庫的 tabjbxx表中，并替代原來的那條記錄。實現(xiàn)該功能的代碼如下： txtSQL=select * from tabjbxx where bh=39。 amp。Trim( _x(, 0))amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Trim(Text1(0).Text) (2) = Trim() For i = 1 To 13 (i + 2) = Trim(Text1(i)) Next i 畢 業(yè) 論 文 第 – 26 –頁 MsgBox 修改記錄成功！ , vbOKOnly + vbExclamation, 修改記錄 如果記錄修改成功后，同樣會彈出“修改記錄成功！”的消息框，而且替換后的記錄的姓名字段將自動在“姓名”組合框中更新。這樣可讓用戶更快地看到數(shù)據(jù)的變化，方便用戶操作。 五、記錄刪除模塊設計 在教師基本信息查詢窗體 frmxxcx 的 msglist 上選擇要刪除的記錄并單擊右鍵，在彈出的快捷菜單中選擇“基本信息刪除”命令，則會彈出下圖所示的對話框，若選擇“是”則直接刪除此記錄。 實現(xiàn)此功能的代碼如下： txtSQL= select * from tabjbxx where bh=39。 amp。 _Trim((, 0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then intCount = (0) End If 六、報表輸出模塊設計 首先選擇 VB“工程”菜單，單擊“添加 Data Environment”添加一個數(shù)據(jù)環(huán)境，選中“ Connection”并單擊右鍵，選擇“屬性”命令，彈出如下圖所示的對話框，對其進行相應設置，使其連接到 teacher 數(shù)據(jù)庫。 畢 業(yè) 論 文 第 – 27 –頁 在如數(shù)據(jù)環(huán)境（ Data Environment1）窗口中添加一個命令，同樣選中此命令單擊右鍵，選擇“屬性”命令，設置連接屬性 ，使其連接到 teacher 數(shù)據(jù)庫中的tabjbxx表，如下圖： 設置這些后，數(shù)據(jù)環(huán)境（ Data Environment1）窗口如下圖所示： 畢 業(yè) 論 文 第 – 28 –頁 向工程中添加 數(shù)據(jù)報表“ Data Report ” , 設置其 DataMember 為Command1,DataSource 為 Data Environment1，使其顯示 teacher 數(shù)據(jù)庫中 tabjbxx 表中的內容。把要顯示的字段拖到報表里面，添加報表的標題，設計界面如下： 由于教師基本信息表 tabjbxx 的字段太多，就用了兩個數(shù)據(jù)報表實現(xiàn)教師基本信息報表輸出。系 統(tǒng)運行后，單擊基本信息查詢窗體 frmxxcx的“報表（ 1）”和“報表（ 2）”按鈕，報表輸出如下圖： 畢 業(yè) 論 文 第 – 29 –頁 實現(xiàn)此輸出功能的代碼為： Private Sub cmddayin_Click(Index As Integer) End Sub Private Sub cmddayin_Click(Index As Integer) End Sub 在上面報表中，可以實現(xiàn)數(shù)據(jù)報表的打印和導出；單擊上面的“ ”，就可以進行打印設置。 畢 業(yè) 論 文 第 – 30 –頁 總 結 該系統(tǒng)在功能上實現(xiàn)了多個用戶對教師基本資料、任課情況、科研情況以及獎懲情況的記錄查詢、添加、修改、刪除和打印，而且應客戶的要求，每個模塊都實現(xiàn)了數(shù)據(jù)的動態(tài)查詢和按任意字段進行排序。所查詢到的記錄都可以在表格控件中整齊有序的顯示出來，并且還可以對查詢結果在表格控件中任意地進行添加、修改、刪除和打印操作，這樣大大地方便了用戶對數(shù)據(jù)庫的操作。 由于本人粗心及其它原因，在系統(tǒng)設計過程中也碰到了不少問題。但因本人以前編寫過一些小程序，對 VB 比較熟悉，一般的問題都是可以自己一一解決的。例如在調試程序時，經(jīng)常會 遇到記錄的空值所引發(fā)的錯誤，這花費了很多時間去處理，所以在編程時細心一點，編譯時就少報些錯誤，這樣就可以節(jié)省大量時間。當在表格控件上單擊右鍵進行數(shù)據(jù)操作時，不知道該根據(jù)什么來判斷是記錄是否選中，無論選中沒選中提示信息都是一樣的。在漆老師的指導下，我就讓系統(tǒng)根據(jù)所選行的第一列在數(shù)據(jù)表中檢索數(shù)據(jù)表中是否存在第一個字段等于所選行第一列的記錄，若有則表明選中了記錄，反之則無。在以后的編譯中，碰到的大部分問題在系統(tǒng)的提示下都得到了很好的解決。 通過對教師信息管理系統(tǒng)的設計，讓我對 VB 可視化編程的掌握更上了一個臺階，同 時也讓我對 VB 是如何訪問 SQL Server 數(shù)據(jù)庫有了進一步的了解。當然，由于本人水平、經(jīng)驗有限，再加上時間倉促，該系統(tǒng)錯誤和不足之處在所難免。如數(shù)據(jù)安全方面沒有實現(xiàn)，數(shù)據(jù)操作日志也沒有實現(xiàn)等，希望各位讀者和專家能給我提出寶貴意見。 在本人系統(tǒng)開發(fā)過程中，得到了許多同學和老師的大力支持，特別是指導老師漆志群老師，在此整個系統(tǒng)開發(fā)過程中提出許多寶貴意見和給予了我大力的支持，在此向漆老師表示我誠摯的謝意。 畢 業(yè) 論 文 第 – 31 –頁 參考文獻 [1] 譚浩強 , 薛淑斌 , 袁玫 . 《 Visual Basic 程序設計》 . 清華 大學出版社 , 2021