【正文】 信息進(jìn)行修改并保存到數(shù)據(jù)庫中或者返回主界面 圖 48 其代碼如下 Private Sub Command1_Click Adte MsgBox 修改成功 End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Command3_Click Adodc1ConnectionString Provider Micro Data Source App Path \學(xué)生學(xué)籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 班級信息表 where 年級 Text1Text Adodc1RecordSource strSQL Adodc1Refresh Text1Text Adds 年級 Text2Text Adds 班主任 Text3Text Adds 班號 Text4Text Adds 教室 End Sub Private Sub Form Load Adodc1ConnectionString Provider Micro Data Source App Path \學(xué)生學(xué)籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 班級信息表 Adodc1RecordSource strSQL Adodc1Refresh Text1Text Adds 年級 Text2Text Adds 班主任 Text3Text Adds 班號 Text4Text Adds 教室 End Sub 關(guān)鍵介紹 通過 Select語句實現(xiàn)了條件查詢通過 ADO控件檢索 text文本對其進(jìn)行了修改 班級信息刪除界面如圖 49 所示 本界面為班級信息刪除界面所有的班級信息都在下面的控件中顯示了出來可以進(jìn)行選擇刪除或者返回主界面 圖 49 其代碼如下 Private Sub Command1_Click hxfyn MsgBox 是否真的刪除 36 If hxfyn vbYes Then If AdrdCount 0 Then Adte End If End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Form Load End Sub Private Sub Label1_Click End Sub 關(guān)鍵介紹 通過 Select語句實現(xiàn)了條件查詢通過 ADO與 DATAGRID控件連接數(shù)據(jù)庫將查詢得到的記錄顯示在 DATAGRID 控件中再使用 Delete 語句進(jìn)行了刪除 課程信息查詢界面如圖 410 所示 本界面是課程信息查詢界面實現(xiàn)了輸入課程編號后可查詢課程信息情況或者返回主界面的功能 圖 410 其代碼如下 Private Sub Command1_Click Adodc1ConnectionString Provider Micro Data Source App Path \學(xué) 生學(xué)籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 課程信息表 where 編號 like Text1Text Adodc1RecordSource strSQL Adodc1Refresh Set DataGrid1DataSource Adodc1 DataGrid1Refresh End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Form Load End Sub 關(guān)鍵介紹 通過 Select語句實現(xiàn)了條件查詢通過 ADO與 DATAGRID控件連接數(shù)據(jù)庫將查詢得到的記錄顯示在 DATAGRID 控件中 信息修改模塊如圖 411 所示 本界面是課程信息修改界面通過該模塊可以先查詢課程信息后再對課程的信息進(jìn)行修改并保存到數(shù)據(jù)庫中或者返回主界面 圖 410 其代碼如下 Private Sub Command1_Click Adte MsgBox 修改成功 End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Command3_Click Adodc1ConnectionString Provider Micro Data Source App Path \學(xué)生學(xué)籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 課程信息表 where 課程編 號 Text1Text Adodc1RecordSource strSQL Adodc1Refresh Text1Text Adds 課程編號 Text2Text Adds 課程名稱 Text3Text Adds 授課老師 End Sub Private Sub Form Load Adodc1ConnectionString Provider Micro Data Source App Path \學(xué)生 學(xué)籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 課程信息表 Adodc1RecordSource strSQL Adodc1Refresh Text1Text Adds 課程編號 Text2Text Adds 課程名稱 Text3Text Adds 授課老師 End Sub 關(guān)鍵介紹 通過 Select語句實現(xiàn)了條件查詢通過 ADO控件檢索 text文本對其進(jìn)行了修改 課程信息刪除界面如圖 412 所示 本界面為課程信息刪除界面所有的課程信息都在下面的控件中顯示了出來可以進(jìn)行選擇刪除或者返回主界面 圖 412 其代碼如下 Private Sub Command1_Click hxfyn MsgBox 是否真的刪除 36 If hxfyn vbYes Then If AdrdCount 0 Then Adte End If End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Form Load End Sub 關(guān)鍵介紹 通過 Select語句實現(xiàn)了條件查詢通過 ADO與 DATAGRID控件連接數(shù)據(jù)庫將查詢得到的記錄顯示在 DATAGRID 控件中再使用 Delete 語句進(jìn)行了刪除 第五章 系統(tǒng)測試 51 軟件測試的目的和原則軟件測試的目的試是程序的執(zhí)行過程目的在于發(fā)現(xiàn)錯誤 一個好的測試用例在于發(fā)現(xiàn)至今未發(fā)現(xiàn)的錯誤 一個成功的測試是發(fā)現(xiàn)了至盡未發(fā)現(xiàn)的錯誤的測試 軟件測試的原則 1 應(yīng)當(dāng)把盡早地和不斷地進(jìn)行軟 件測試作為軟件開發(fā)者的座右銘 2 測試用例應(yīng)由測試輸入數(shù)據(jù)和與之對應(yīng)的預(yù)期輸出結(jié)果兩部分組成 3 程序員應(yīng)避免檢查自己的程序注意不是指對程序的調(diào)試 4 在設(shè)計測試用例時應(yīng)當(dāng)包括合理的輸入條件和不合理的輸入條件不合理的輸入條件是指異常的臨界的可能引起問題異變的輸入條件 5 充分注意測試中的群集現(xiàn)象經(jīng)驗表明測試后程序殘存的錯誤數(shù)目與該程序中以發(fā)現(xiàn)的錯誤數(shù)目或檢錯率成正比應(yīng)該對錯誤群集的程序段進(jìn)行重點測試 6 嚴(yán)格執(zhí)行測試計劃排除測試的隨意性 2 軟件運行與轉(zhuǎn)換 數(shù)據(jù)庫系統(tǒng)與 ACCESS教程申莉莉清華大學(xué) 出版社 ACCESS應(yīng)用系統(tǒng)開發(fā)教程史濟民湯觀全清華大學(xué)出版社 isual Basic 60 編程實例大制作》 李光明 冶金工業(yè)出版社 《管理信息系統(tǒng)開發(fā)與應(yīng)用》 李紅 電子工業(yè)出版社 學(xué)生 學(xué)籍 管理 人員 學(xué)生信息錄入 班級信息錄入 課程信息錄入 數(shù)據(jù)庫 學(xué)生信息表 班級信息表 課程信息表 學(xué)生學(xué)籍管理系統(tǒng) 登錄 學(xué)生信息管理 班級信息管理 課程信息管理 查詢學(xué)生信息 修改學(xué)生信息 刪除學(xué)生信息 查詢班級信息 修改班級信息 刪除班級信息 查詢課程信息 修改課程信息 刪除課程信息 數(shù)據(jù)庫 課管 學(xué) 管 班管 輸入數(shù)據(jù) 處理