【正文】
PC201112211238。uid=sa。pwd=123456sql = select * from 調房登記 sql, conn, adOpenDynamic, adLockPessimistic(源房間號) = (目標房間號) = (房間價格) = (姓名) = (備注) = MsgBox 添加信息成功!, vbOKOnly + vbExclamation, 警告End SubPrivate Sub Command3_Click() Unload MeEnd Sub圖5 客戶結賬界面Private Sub Command1_Click(Index As Integer) Unload MeEnd SubPrivate Sub Command2_Click() Dim message As Integer message = MsgBox(確實要添加新記錄嗎?, vbYesNo, 信息確認!) If message = vbYes Then With .AddNew End With End IfEnd Sub圖6 客戶預訂界面Dim conn As New Dim rs As New Dim sql As StringPrivate Sub Command1_Click(Index As Integer) = DSN=hotel。database=酒店客房前臺管理系統(tǒng)。server=PC201112211238。uid=sa。pwd=123456sql = select * from 客房預訂表 sql, conn, adOpenDynamic, adLockPessimistic(姓名) = (身份證號) = (聯系電話) = (客房類型) = (房間價格) = (預住日期) = (預住天數) = (日期) = MsgBox 添加信息成功!, vbOKOnly + vbExclamation, 警告End SubPrivate Sub Command3_Click()Unload MeEnd Sub圖7 客戶查詢界面Private Sub Command2_Click() Dim message As Integer message = MsgBox(確實要刪除當前記錄嗎?, vbYesNo, 信息確認!) If message = vbYes Then With .Delete .MoveNext If .EOF Then .MoveLast End If End With End IfEnd SubPrivate Sub Command1_Click() = select * from 客房表 where 房間號=39。 + + 39。 End SubPrivate Sub Command3_Click() Unload MeEnd Sub圖8 按照房間號查詢出來的結果圖9 對客房的設置Dim conn As New Dim rs As New Dim sql As StringPrivate Sub Command2_Click() = DSN=hotel。database=酒店客房前臺管理系統(tǒng)。server=PC201112211238。uid=sa。pwd=123456sql = select * from 客房設置 sql, conn, adOpenDynamic, adLockPessimistic(房間號) = (房間類型) = (房態(tài)) = (價格) = (備注) = MsgBox 添加信息成功!, vbOKOnly + vbExclamation, 警告End Sub圖10 對客戶掛賬的查詢Private Sub Command1_Click() Unload MeEnd SubPrivate Sub Command2_Click() = select 姓名,金額累計 from 掛賬登記表 where 姓名=39。 + + 39。 End Sub(三)系統(tǒng)測試系統(tǒng)測試的原則(1)所有的測試都應追溯到系統(tǒng)說明書,或者更進一步就是用戶需求。(2)盡早地、不斷地進行系統(tǒng)測試。(3)系統(tǒng)測試是有風險的行為。(4)找到的錯誤越多,就說明系統(tǒng)的缺陷越多。(5)除檢查系統(tǒng)應完成的任務外,還應檢查系統(tǒng)是否做了它不應該做的事。系統(tǒng)測試的主要內容(1)文檔資料的審查驗收(2)余量要求(3)功能測試(4)性能測試(5)強化測試(6)性能降低執(zhí)行方式測試系統(tǒng)測試的方法系統(tǒng)測試用例設計方法分為白盒法和黑盒法。白盒法測試也稱邏輯驅動測試或稱邏輯覆蓋測試。使用白盒法需閱讀程序內部的邏輯,并以此為基礎設計測試用例。黑盒法也稱數據驅動或輸入/輸出驅動法。測試者把程序看成一個黑盒,即完全不考慮程序內部結構和內部特性。測試者尋找使程序按規(guī)范運行的情況導出測試數據。也可以說黑盒法是根據程序的功能說明來設計測試用例。開發(fā)心得 通過這次系統(tǒng)的設計與開發(fā),讓我學到了很多。不僅使我加深了VB語言和SQL語言的理解,提高了自己的編程水平,而且是我認識到系統(tǒng)開發(fā)工作不能一蹴而就,而是一個逐步修正完善的過程。同時我也認識到了自己的只是非常有限,這促使我更加努力的拓寬自己的知識面,以便在以后的工作中能順利完成任務,為將來的發(fā)展打下良好的基礎。28 / 28