【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 牌號碼 “ 湘 AT3265”。 預想結果： 查詢信息正確 是否相符：是 測試結果：見 圖 24。 圖 24 車輛異動查詢 測試圖 （ 5） 車輛報廢記錄子模塊 第 34 頁 共 43 頁 程序名稱： 車輛 報廢 錄入 輸入數據： 車牌號碼 “ 吉 AP3625”。 預想結果： 錄入成功 是否相符：是 測試結果：見 圖 25。 圖 25 車輛報廢錄入測試圖 （ 6） 車輛報廢查詢子模塊 程序名稱： 車輛 報廢查詢 輸入數據： 車牌號碼 “ 吉 AP3625”。 預想結果： 查詢信息正確 是否相 符：是 測試結果：見 圖 26。 圖 26 車輛報廢查詢測試圖 系統(tǒng)使用說明 系統(tǒng) 功能模塊組成簡單說明 第 35 頁 共 43 頁 主頁： 檔案管理 運營管理 車輛管理 駕駛員管理 系統(tǒng)維護 系統(tǒng) 登錄用戶名及密碼說明 用戶 ： daifei 密 碼： 123456 理 員： daiqiufei 管理密碼： 123456 7. 項目總結 實踐概括 本設計通過系統(tǒng)了解國內外關于車輛管理系統(tǒng)的理念、方法、發(fā)展及現狀，綜合運用管理科學、信息技術與信息 系統(tǒng)的開發(fā)方法，在經過對系統(tǒng)功能需求分析，設計與實施的基礎上，最終成功開發(fā)了基于 B/S 結構的車輛管理信息系統(tǒng) 。通過對 該 車輛管理信息系統(tǒng)的研究開發(fā)，結果表明 ： 法，對于領導做出正確決策是非常關鍵的，它利用計算機和其他先進的技術，處理反映本單位 日 常活動的數據和以信息的形式加以組織的數據，是一個促進決策的過程。 MIS 系統(tǒng)采用 B/S 結構具有非常明顯的優(yōu)勢，這種分布式系統(tǒng)所具有的較高的可伸縮性和維護性是傳統(tǒng)的 C/S 結構所無 法比擬的。 系統(tǒng) 存在的主要問題 車輛管理信息系統(tǒng)的開發(fā)，由于時間及技術水平等原因，還需要繼續(xù)完善。從目前系統(tǒng)運行的情況看，主要還存在如下問題 : ，具體情況如下 ： 功能的完善 ： 如某些查詢的使用上應該更符合用戶習慣，頁面的顯示第 36 頁 共 43 頁 內容及樣式更容易改變。 。具體有 ： （ 1） 數據中存在冗余字段，有些表不符合關系數據庫的范式規(guī)范，不利于網上通過 SQL 語句查詢數據。 （ 2） 數據庫中各表含有大量的字段，當時編寫代碼 時為了避免混淆和出錯，字段代碼全部采用了中文字段名。 （ 3） 系統(tǒng)提供大量的報表主要 采用制表平臺、 EtCell 組件、 EtCell插件等一系列的 COM 組件，這需要及時對其組件進行更新升級。 （ 4） 軟件部分程序采用的不是最優(yōu)算法導致系統(tǒng)的運行速度不是很快。 系統(tǒng)改善構想 車輛管理信息系統(tǒng)的建設與開發(fā)不是在短時間內就能完成的，隨著技術的發(fā)展、企業(yè)業(yè)務的拓展，系統(tǒng)的建設也需不斷進行。 （ 1） 在數據庫系統(tǒng)建設上，對不符合規(guī)范的數據庫系統(tǒng)，應逐漸拋棄，并且建立 制度 ，統(tǒng)一認識，使用完全一致的基礎數據 庫，這需要依靠各部門的協(xié)調工作。 （ 2） “車輛管理信息系統(tǒng)”是“ 公司管理信息系統(tǒng)”的 核心和基礎部分，為其它子系統(tǒng)提供各種基礎數據和支持 ；隨著 企業(yè)逐步實施移動通信、車輛跟蹤、貨物查詢、聯(lián)網查詢、經營分析等業(yè)務，車輛管理信息系統(tǒng)在功能上應不斷擴大、完善，將越來越多的管理工作轉移到系統(tǒng)平臺下操作實現，真正達到建設的目的。 附錄：系統(tǒng)程序源代碼 附錄 1：登錄窗體源代碼 登錄窗體源代碼如下所示。 Dim i As Integer Private Sub Adodc1_WillMove(ByVal adReason As , adStatus As , ByVal pRecordset As ) End Sub 第 37 頁 共 43 頁 Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Command1_Click() If = Then MsgBox 您還沒有注冊系統(tǒng)用戶！ , , 系統(tǒng)提示 Unload Me Exit Sub End If Set adors = (select * from 用戶表 where 用戶姓名 =ltrim(39。 amp。 Text1 amp。 39。) and 密碼 =ltrim(39。 amp。 Text2 amp。 39。) and 用戶類型 =ltrim(39。 amp。 amp。 39。)) If Then MsgBox 您輸入的信息有誤，請重新輸入！ , , 系統(tǒng)提示 Text1 = Text2 = i = i + 1 If i = 3 Then MsgBox 對不起，您已無權使用本系統(tǒng)！ , , 系統(tǒng)提示 Unload Me End If Else Select Case adors!用戶類型 Case 管理員 Case 普通用戶 = False = False = False End Select Unload Me End If End Sub Private Sub Command2_Click() Unload Me 39。 End Sub 第 38 頁 共 43 頁 Private Sub Form_Load() = 0 End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label3_Click() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 附錄 2：主窗體源代碼 主窗體源代碼如下所示。 Private Sub MDIForm_Load() End Sub Private Sub mnuaddlj_Click() (1).Text = 零件添加窗體 End Sub Private Sub mnubf_Click() (1).Text = 數據備份窗體 End Sub Private Sub mnucarbf_Click() (1).Text = 車輛報廢錄入窗體 第 39 頁 共 43 頁 End Sub Private Sub mnucarbfcha_Click() (1).Text = 車輛報廢查 詢窗體 End Sub Private Sub mnucardaadd_Click() (1).Text = 車輛檔案錄入窗體 End Sub Private Sub mnucardacha_Click() (1).Text = 車輛檔案查詢窗體 End Sub Private Sub mnucarsgcha_Click() (1).Text = 車輛事故查詢窗體 End Sub Private Sub mnucarsglist_Click() (1).Text = 車輛事故錄入窗體 End Sub Private Sub mnucarwxcha_Click() (1).Text = 車輛維修查詢窗體 End Sub Private Sub mnucarwxlist_Click() (1).Text = 車輛維修錄入窗體 End Sub Private Sub mnucarwzcha_Click() (1).Text = 車輛違章查詢窗體 End Sub Private Sub mnucarwzlist_Click() (1).Text = 車輛違章錄入窗體 第 40 頁 共 43 頁 End Sub Private Sub mnucaryd_Click() (1).Text = 車輛異動錄入窗體 End Sub Private Sub mnucarydcha_Click() (1).Text = 車輛異動查詢窗體 End Sub Private Sub mnucaryycha_Click() (1).Text = 車輛運營查詢窗體 End Sub Private Sub mnuexit1_Click() Unload Me End Sub Private Sub mnuexit3_Click() Unload Me End Sub Private Sub mnuglyset_Click() (1).Text = 管理員設置窗體 End Sub Private Sub mnuhf_Click() (1).Text = 數據恢復窗體 End Sub Private Sub mnujsycha_Click() (1).Text = 駕駛員檔案查詢窗體 End Sub Private Sub mnujsyjc_Click() (1).Text = 獎金評定窗體 End Sub 第 41 頁 共 43 頁 Private Sub mnujsylist_Click() (1).Text = 駕駛員檔案錄入窗體 End Sub Private Sub mnusyscsh_Click() If MsgBox(執(zhí)行此命令會清空數據庫里所有記錄，確實要執(zhí)行嗎？ , vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 車輛檔案 ) (delete from 車輛報廢表 ) (delete from 車輛事故表 ) (delete from 車輛違章表 ) (delete from 車輛維修表 ) (delete from 車輛異動表 ) (delete from 車輛運營表 ) (delete from 駕駛員檔案 ) (delete from 零件表 ) (delete from 用戶表 ) (delete from 獎罰表 ) Else Exit Sub End If End Sub Private Sub mnuyydelete_Click() If MsgBox(真的要清空運營表嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then (delete from 車輛運營表 ) Else Exit Sub End If End Sub Private Sub mnuyylist_Click() (1).Text = 車輛運營錄入窗體 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Call mnucardaadd_