【正文】 donly Then ss = MsgBox(對不起，你是只讀用戶不能修改記錄，請與管理員聯系！, vbInformation + vbOKOnly, 警告) Exit Sub End If modi = True 0 End If 對于記錄刪除，可以使用下面程序：Dim mrc As Dim intcount As Integer If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Else If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理員聯系！, vbInformation + vbOKOnly, 警告) Exit Sub End If If MsgBox(確定要刪除學號為 amp。 Trim((, 1)) amp。 的記錄嗎？ amp。 Chr(10) amp。 Chr(13) amp。 該操作會導致該學生交費記錄和成績記錄的丟失！確定嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intcount = txtsql = delete * from xj where 學號=39。 amp。 Trim((, 1)) amp。 39。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 學號=39。 amp。 Trim((, 1)) amp。 39。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from cj where 學號=39。 amp。 Trim((, 1)) amp。 39。25 Set mrc = ExecuteSQL(txtsql) TreeView1_DblClick End If End If瀏覽界面，在此處可以進行查找、修改、刪除和打印工作。效果如圖 68 所示： 圖 68 學生檔案瀏覽下面為查詢界面，可在此處進行記錄的查詢。效果如圖 69 所示：圖 69 學生檔案查詢可使用下面程序完成：Private Sub Command1_Click()Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(0).Text) amp。 39。 Else txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(0).Text) amp。 39。 End IfEnd IfIf Trim(Text1(1).Text) Thenaa = 1 If txtsql = Then26 txtsql = =39。 amp。 Trim(Text1(1).Text) amp。 39。 Else txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(1).Text) amp。 39。 End IfEnd IfIf Trim(Text1(2).Text) Then aa = 1 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(2).Text) amp。 39。 Else txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(2).Text) amp。 39。 End IfEnd IfIf Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = like 39。% amp。 Trim(Text1(3).Text) amp。 %39。End IfIf aa = 0 Then ss = MsgBox(你至少要輸入一個條件以上才能查詢！, , 警告) Text1(0).SetFocus Exit Sub End IfDim str As Stringstr = select * from xj where amp。 txtsqlDim mrc As Set mrc = ExecuteSQL(str)If = True Then zzz = MsgBox(對不起，沒有此學生的檔案記錄！, vbOKOnly, 查詢) (0) (0).SetFocus Exit SubEnd Iftxtsql = select ,,class.年制,, from xj inner join class on = where amp。 txtsql amp。 order by desc, desc, desc = txtsqlfind = True39。select ,,生年月,, from xj inner join 27class on = where =39。01 美術一39。 or 年級=39。01 美術一39。 order by desc, desc, desc = 學生檔案查詢結果End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Activate()find = TrueEnd SubPrivate Sub Form_LostFocus()Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)find = False39。 = 瀏覽學生檔案End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)If KeyAscii = 39 Then KeyAscii = 0End IfEnd Sub 班級管理界面點擊“班級管理”顯示如下界面，效果如圖 610 所示：圖 610 班級管理界面班級管理模塊有班級瀏覽、班級添加、班級查詢三項功能，其中班級瀏覽界面中也有修改、刪除、打印功能。上述所有功能全部類似于學生檔案管理界面中對應的功能。在此不再贅述。28第七章 系統(tǒng)測試系統(tǒng)測試是面向系統(tǒng)中各種構成因素的，按照維護對象的不同，系統(tǒng)測試的內容可分為以下幾類：統(tǒng)應用程序測試；數據測試；代碼測試；硬件設備測試。采用結構化開發(fā)方法與否對系統(tǒng)測試工作有極大影響，具有很高的代價，系統(tǒng)測試工作對測試人員要求較高，對象是整個系統(tǒng)的配置。管理信息系統(tǒng)在完成系統(tǒng)實施、投入正常運行之后，就進入了系統(tǒng)運行與維護階段。因技術、設備有限，只對系統(tǒng)的基本運行環(huán)節(jié)進行了測試。首先運行程序，彈出登錄窗體，輸入用戶名，密碼，進入主界面，然后點擊系統(tǒng)管理，選擇添加用戶，進入新增用戶界面，輸入要添加的用戶名，密碼，選擇用戶權限，點確定，提示添加成功。其它功能測試與添加用戶流程雷同，暫不一一復述。通過對系統(tǒng)基本功能，如：入學登記，學生學費交納查詢，課程設置，學生成績管理等，得出結論，此系統(tǒng)基本能夠實現設計要求，可以用于實踐。29第八章 結束語經過這幾個月的設計和開發(fā)，學生信息管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成學生學籍的存儲和成績的查詢以及學費交納情況的查詢，課程設置、查詢等功能，實現了設計初衷。并提供部分系統(tǒng)測試功能,使用戶方便進行數據備份和恢復、數據刪除。對于數據的一致性的問題也通過程序進行了有效的解決。而且在這次設計中我也受益良多，對 VB 系統(tǒng)的應用更加得心應手，語言更加簡便，應用更加直接，對各控件的把握也有一定提高，雖然中間遇到好多問題，但通過老師的幫助都得到了解決，通過對整個系統(tǒng)的整體設計，也認識到了自己對系統(tǒng)設計方面所存在的不足，比如想事情不夠周到，不能夠把細節(jié)做的很好等。但是由于本人水平所限，所以該系統(tǒng)還有許多不盡如人意的地方，比如預先設計的報表打印功能，教師授課設置等由于技術原因沒能實現，這些都有待進一步改善。30參考文獻[１] Bob Reselman .Visual Basic 使用指南 ,電子工業(yè)出版社 2022[２] Craig Access 2022 24 學時教程,機械工業(yè)出版社 2022[３] BASIC 經典范例,清華大學出版社 2022[４] ,清華大學出版社 2022[５] ,清華大學出版社 2022[６] 2022 ,科學出版社 202