【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

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