【正文】 再一次對幫助過我的老師，同學，朋友表示衷心的感謝，希望把今天的喜悅與你們一同分享。老師淵博的知識、敏銳的思維、深刻的洞察力、淡泊的心境、平易的待人方式和富有感召力的人格力量給我許多啟發(fā)和幫助，使我領略到一個老師的風采和高尚的情操，使我在學習和設計工作中，都受益匪淺，在畢業(yè)設計過程中，老師在每個階段都給予我細心的指導、提出寶貴的意見。men.internalized：人民郵電出版社,2004: 5678[17]：清華大學出版社,2003: 112118[15] 周蘇,王文 嚴蔚敏,：清華大學出版社,2001: 3645[12] 美Cantu, Teixeira，Xaviver 楊宗志. basic總體來說，本系統(tǒng)還不是很完善，有很多地方需要改進。但是由于畢業(yè)設計時間較短，加之本人水平所限，此系統(tǒng)只能初步運用Visual Basic強大功能的一些基本控件，在創(chuàng)建這個系統(tǒng)時也遇到過一些困難，是幾經調試才能正常運行的。經反復測試，系統(tǒng)完成了預計的基本功能，并在某些方面有突出的特點。其次是集成測試，把已經測試過的模塊組裝起來，主要對與設計相關的軟件體系結構的構造進行測試。測試軟件的運行性能。繼承是面向以對程序的重要特點，繼承使得代碼的重用率提高，同時也使錯誤傳播的概率提高。在進行黑盒測試時，開發(fā)者以使用者的身份對其軟件進行測試，多次輸入符合條件的數據，看結果是否與預期相符，如果相符則說明程序對輸入的條件反映正確，如果不符則說明程序有錯，所以這種黑盒測試只能證明程序有錯而不能證明程序無錯。在人工測試中用的是個人復查，即當源程序編完以后，由自己進行檢查，但這種測試方法存在不足之處：由于心理上對自己程序的偏愛，因此有些習慣性的錯誤不易發(fā)現(xiàn)，如果對功能理解有誤，自己也不易糾正，所以在個人復查的基礎上又用了機器測試中的白盒測試和黑盒測試。自有程序設計的那天起測試就一直伴隨著。即將一個功能內所有程序按次序串聯(lián)起來調試。在一個系統(tǒng)中調試應該包括程序調試、功能調試（分調）、總調，在庫存管理系統(tǒng)中用的調試方法也包括這些：包括語法調試和邏輯檢查，測試數據除采用正常數據外，還應用一些異常資料，用來考驗程序的正確性。： 管理員設置主要代碼：Dim i As IntegerDim adoRs1 As New Private Sub cmdAdd_Click() Unlockctl Text1 = Text2 = Text3 = = = True = True = False = False = False i = 1 End SubPrivate Sub cmdDelete_Click() If MsgBox(確實要刪除這條記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then On Error Resume Next If 0 Then showdata Else = = = = End If End IfEnd SubPrivate Sub cmdNext_Click() On Error Resume Next If Not Then Else MsgBox 已到末記錄！, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command1_Click(Index As Integer) On Error Resume Next Select Case Index Case 0 Case 1 If = False Then End If Case 2 If = False Then End If Case 3 End Select showdataEnd Sub（2）數據備份對數據庫里的數據進行備份，單擊開始備份就執(zhí)行此操作，完畢后退出，便返回主界面。： 駕駛員獎罰（3） 駕駛員車輛事故記錄查詢可以按照車牌號碼和事故時間對駕駛員開車發(fā)生的事故進行查詢，操作完畢后，按退出返回主界面。and 證件有效期 like 39。and 出生年月 like 39。 syx If sql = select * from 駕駛員檔案 where 姓名 like 39。 sborn amp。 sname amp。 amp。 amp。 txtJL amp?？梢园凑招彰?、駕齡、性別、證件有效期以及出生日期等信息。： 車輛維修查詢（7） 車輛維修列表本窗體的功能就是將維修車輛的車牌號碼，更換零件及數量、維修日期、費用、以及備注等信息輸入到數據庫里，并可對其進行添加、刪除、修改和統(tǒng)計所花費用的功能。) If Then MsgBox 這輛車不屬于本公司的！, , 系統(tǒng)提示 = Exit Sub Else = (1).Value End If Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = Then MsgBox 事故概要不能為空！, , 系統(tǒng)提示 Exit Sub End If End IfEnd SubPrivate Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = Then MsgBox 事故確認者不能為空??！, , 系統(tǒng)提示 Exit Sub End If End IfEnd Sub（3） 車輛添加零件本窗體可以對零件的名稱和單價進行添加、修改和刪除。) MsgBox 記錄已刪除！, , 系統(tǒng)提示 End IfEnd Sub End If End IfEnd SubPrivate Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub Text2_LostFocus() If = Then Exit Sub Dim rss As New Set rss = (select * from 車輛檔案 where 車牌號碼=39。： 車輛事故列表主要代碼：Private Sub cmdDelete_Click() If MsgBox(您確實要刪除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 車輛事故表 where 事故編號=39。： 系統(tǒng)功能界面主要代碼：Private Sub mnuabout_Click() (1).Text = 關于窗體End SubPrivate Sub mnubf_Click() (1).Text = 數據備份窗體End SubPrivate Sub mnusyscsh_Click() If MsgBox(執(zhí)行此命令會清空數據庫里所有記錄，確實要執(zhí)行嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 車輛檔案) (delete from 車輛運營表) (delete from 駕駛員檔案) (delete from 零件表) (delete from 用戶表) Else Exit Sub End IfEnd SubPrivate Sub mnuyydelete_Click() If MsgBox(真的要清空運營表嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 車輛運營表)