【文章內容簡介】 有時用戶在對采購入庫的車輛進行查詢，可根據不同的標準進行查詢。： 采購訂單查詢 車輛管理窗口在車輛管理窗口中，允許用戶對車輛的記錄進行增加、刪除、編輯等操作。當有車輛入庫時，需要填寫入庫單。： 車輛入庫： 入庫單同時完善車輛信息如車型、顏色等信息。 車型信息： 車型信息： 車輛銷售 庫存查詢與庫存盤點窗口經過前面的操作，登錄窗口和主窗口就全部設計完畢了。但是主窗口中的各種功能，包括菜單中和工具欄中的，都是沒有事件處理代碼的空架子。當調用這些功能的時候，不會有人和效果。從下面開始就逐步實現系統中的各種功能。菜單中的庫存查詢主要是查詢每一款庫存車輛的信息。在這個窗口中，提供一個下拉列表框，用戶可以從中選擇一種查詢依據，單擊“查詢”按鈕就可以查詢數據。： 庫存盤點就是根據銷售記錄和采購記錄計算出每款汽車的庫存數量。由于公司中采購和銷售活動非常頻繁，而且銷售的車輛種類需要考慮到實際庫存大于零，因此庫存盤點功能也十分常用和重要。： 在系統開發(fā)中，為解決公司人員流動問題，在系統中增添了職工管理子模塊，用來對公司的人員進行信息化管理，以此來提高職工的辦事效率，節(jié)約人力資源。新職工錄入：在公司招進新職工時，對其進行基本信息的存儲，對職工信息進行基本的了解。職工信息維護：當職工信息發(fā)生變化，或者是職工離職，換崗對相關信息發(fā)生變化時，利用此子模塊對其進行信息變更。： ： 密碼設置是權限設置的一部分。已有用戶，可以在系統中為新加入的用戶或職工增加用戶名和密碼。： ： 完成對流程的編碼后最重要的事情就是對系統的測試工作了，測試在系統設計階段有兩個時期，通常在編寫每個模塊后做單元測試，另一個時期是對系統的綜合測試。 模塊測試在模塊測試時主要從以下幾個方面考慮：1. 模塊接口；2. 局部數據結構；3. 重要執(zhí)行通道；4. 出錯處理通道；5. 影響上述方面的邊界條件。測試時進行代碼審查，從數據類型，變量聲明，數據結構進行審查，然后進行功能測試，從輸入一些簡單的數據開始執(zhí)行一遍，觀測運行期間變量的變化，運行中值的變化范圍。改變測試方案來變換另一個角度進行測試，發(fā)現錯誤并記錄，修改代碼，測試條件使程序通過多層分支，判別運行結果從而完成模塊測試。 整體測試總體測試是組裝軟件的系統技術，本系統測試采用漸增集成測試，即測試單一模塊，將測試完的模塊加入系統中，進行一次系統測試，依次類推將所有模塊加入系統中，在具體測試時，采用自頂向下的結合方式，從主控模塊開始，沿各控制層向下移動，逐漸把所有模塊結合了。在測試過程中使用到調試技術：1. 采用debug調試語句，跟蹤數據；2. 嵌入打印語句，輸出中間結果；3. 利用Visual Studio 2003中調試工具，從調試窗口觀測變量的變化；4. 設置斷點，觀察程序在斷點附近的狀況。評估運行的可靠性問題：1. 結果正確；2. 運行速度；3. 空間利用率；4. 算法的可行性?？偨Y在畢業(yè)設計當中認我認識到開發(fā)一項好的軟件并不是那么容易就能完成的。在這過程中勤奮是非常重要，同時多于別的同學溝通也是解決問題的好辦法。在與別的同學交流過程中，可以學習別人的解決的方法和思維。對以后的學習和工作有很大的幫助。其次，在設計的過程中我了解了，在開發(fā)一個項目時一定要先做好規(guī)劃，按照軟件的開發(fā)過程，詳細地寫好每一個必要的文檔。一般的規(guī)則是，寫文檔需要全面的考慮所有的問題。例如，如果預期讀者是系統設計師，需要提供技術細節(jié)，然后按照正確語法組織和編輯內容。軟件文檔的最主要目標是傳達一個系統的技術要素和使用方法。第二個目標是提供軟件開發(fā)過程中的需求，決策，行為，角色和責任的書面記錄。只有實現了這兩個目標，軟件文檔才真正提供了有意義的信息。軟件的概念就是：程序+文檔，程序就是文檔，文檔集成在程序中。它要求在選擇開發(fā)環(huán)境時不僅要考慮環(huán)境對設計、開發(fā)的完美支持，而且要考慮對維護、文檔的支持；它要求軟件人員在設計、開發(fā)過程中要考慮維護問題、文檔問題；它要求程序與文檔存儲在同一位置、同一系統中；它要求使用相同工具進行程序與文檔的書寫、檢索；它要求在編寫和維護程序的同時形成文檔，在書寫文檔時編寫、維護程序。程序與文檔合一的概念不僅存在于系統的設計、開發(fā)階段而且存在于系統的維護階段，它貫穿軟件的生命周期。致謝經過一段時間的艱苦努力，我終于完成了汽車銷售管理系統的全部設計過程，并使該系統達到可實際應用的階段。軟件設計是一個精細漫長的過程。在整個過程中，都需要周密的計劃和安排，每一步驟，都需要按照軟件工程標準來完成。在設計中，我始終堅持理論指導實踐原則，并通過實踐來加強理論的學習，通過實習鍛煉，我熟悉了軟件的一般過程，加強了對實際問題的處理能力。實踐證明，在高科技突飛猛進的時代，光靠課堂所學的知識是遠遠不夠的，必須依靠實踐去不斷的深化認識，尤其是計算機科學，操作性和實踐性很強，只有加強實際的動手能力，才能更好的掌握這一現代化工具。這次實習，無論是從技術上還是對環(huán)境的適應能力上講，對我今后步入社會都打下了一個良好的基礎。在實習過程中，我也遇到了一些困難，主要表現了技術和經驗的欠缺，但通過努力，終于一一克服了。在整個實習期間，曾得到了王桂東老師以及同學的大力支持和幫助，在此表示衷心的感謝！參考文獻[1]求是科技， ：:161226[2]董國平，（Visual Basic版）.北京：:55116[3]王春才， ：:283319[4]賽奎春， ：:4298[5]柴欣， Basic程序設計基礎（第三版）.北京：[6]賀世娟， ：[7] ：[8] 柴欣， ：[9] ：[10]捷新工作室. Visual ：[11] Basic程序設計教程（第二版）.北京：[12] Server 2000時尚編程百例. 北京：機械工業(yè)出版社. [13] . 西安：電子科技大學出版社. [14] （第三版）.北京：[15] Server ： [16] / ：[17] —從入門到精通. 北京： [18] 周緒， Server 2000 中文版 ：[19]鄭若忠，：[20]范國平，陳曉鵬．Access 2002 數據庫系統開發(fā)實例導航[M]．北京：人民郵電出版社．2003附錄登錄窗口主要代碼：Dim conn As New Dim rs As New Dim connsting As StringDim num As IntegerPrivate Sub form_lpad() connstring = Provider=。Password=ecc。Persist Security Info=True。User ID=sa。 amp。 Inital Catalog=PurchaseandSale。Server=(local) lf l Them (connstring) End If Set rs = (select*from users) With rs .MoveFirst Do While Not .EOF DoEvents (!用戶) .MoveNext Loop End With = 0 End SubPrivate Sub cmdOK_Click() If Trim() = Then MsgBox 用戶名不能為空！, vbOKOnly + vbExclamation, 警告! Exit Sub End If connstring = Provider=。Password=ecc。Persist Security Info=True。User ID=sa。 amp。 Inital Catalog=PurchaseandSale。Server=(local) lf l Them (connstring) End If Set rs = (select*from users where 用戶= amp。 Trim() amp。 ) If Then MsgBox 沒有該用戶！amp。vbCrLfamp。請重新輸入！,vbOKOnly+vbExclamation,提示 Exit Sub Else If (密碼).ValueTtrim() Them Unload frmLogin Load frmMain Else If mun 2 Then num = num + 1 msgbox口令不對，請重新輸入！amp。vbCrLfamp。您還有amp。Str(3num)amp。次機會！,vbOKOnly +vbExclamation ,提示 Exit Sub Else MsgBox 對不起，您無權使用本系統！, vbOKOnly + vbExclamation, 提示 Unload frmLogin Exit Sub End If End If End If End SubPrivate Sub codCancel_Click() Unload frmLoginEnd Sub庫存查詢窗口主代碼Private Sub Form_Load() (車輛名稱) (產地) (規(guī)格) (包裝) (庫存) = 0End SubPrivate Sub Command1_Click() On Error GoTo myerr = adCmdText = select* from product where amp。 Trim() amp。 like amp。 Trim() amp。 % myerr:End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) = True End SubPrivate Sub KCCX_Click() Load frmKCCX = FalseEnd SubPrivate Sub tlbMain_ButtonClick(ByVal Button As ) Select Case Case Is = CGD CGD_Click Case Is = XSD XSD_Click Case Is = KCCX KCCX_Click End SelectEnd Sub庫存盤點窗口主代碼：Private Sub Command1_Load() On Error GoTo myerr Dim conn As New Dim rs As New Dim strUpdate As String Dim connstring As String strUpdate update product set 庫存 =(select sum(數量)from purchase where amp。 車輛名稱=)(