【正文】 l = delete from amp。 Ⅳ 43 sSql, dbSQLPassThrough 。 39。再加入新記錄 txtSQL = select * from driver Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(txtItem(0)) For intCount = 1 To 8 (intCount) = Trim(txtItem(intCount)) Next intCount If gintdMode = 1 Then For intCount = 0 To 8 txtItem(intCount) = Next intCount mblChange = False ElseIf gintdMode = 2 Then Unload Me If flagdEdit Then Unload frmDriver End If = select * from driver End If End Sub Private Sub Form_Load() Dim sSql As String Dim intCount As Integer Dim MsgText As String If gintdMode = 1 Then Ⅳ 41 = amp。 Trim(txtItem(0)) amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount If Trim(txtItem(6) amp。 dEndDate amp。 39。 1), yyyymmdd) dEndDateTemp = DateAdd(d, 1, DateAdd(m, 1, DateSerial(CInt(cboYear(1)), CInt(cboMonth(1)), 1))) dEndDate = Format(dEndDateTemp, yyyymmdd) If Trim(txtSQL amp。 msOrderBy ShowData End If Unload frmRepair2 End Sub 三、查詢維修信息窗體 Private Sub cmdOK_Click() Dim txtSQL As String Dim dBeginDate As String Dim dEndDateTemp As Date Dim dEndDate As String If chkItem(0).Value = vbChecked Then txtSQL = wxid =39。顯示數(shù)據(jù) msBarText = 當(dāng)前數(shù)據(jù)時(shí)間范圍： amp。 Format(DateAdd(m, 1, Now), yyyymmdd) amp。 amp。) 1 ShowData Call MovCursor(intCount, msgList) Else Call RecordAdd End If End Sub Public Sub FormClose() Unload Me End Sub 39。 txtSQL End If End Sub 車輛檔案管理 車輛檔案管理模塊主要實(shí)現(xiàn)如下功能 : 添加司機(jī)信息 修改司機(jī)信息 打印司機(jī)基本信息 查詢司機(jī)信息 一、添加車輛信息窗體的創(chuàng)建 Ⅳ 29 關(guān)鍵代碼：（見(jiàn)附錄三） 二、修改車輛信息 代碼：（見(jiàn)附錄四） 三、查詢車輛信息窗體 代碼：（見(jiàn)附錄五） 運(yùn)營(yíng)業(yè)務(wù)管理 運(yùn)營(yíng)業(yè)務(wù)管理模塊主要實(shí)現(xiàn)如下功能 : 添加運(yùn)營(yíng)信息 Ⅳ 30 修改運(yùn)營(yíng)信息 刪除運(yùn)營(yíng)基本信息 查詢運(yùn)營(yíng)信 息 一、運(yùn)營(yíng)信息窗體 代碼：與添加司機(jī)基本信息的方法一樣，在此略過(guò) 二、修改運(yùn)營(yíng)信息 代碼：與修改司機(jī)的窗體類適 三、查詢運(yùn)營(yíng)信息 車輛維修業(yè)務(wù)管理 維修業(yè)務(wù)管理模塊主要實(shí)現(xiàn)如下功能 : 添加維修信息 修改維修信息 刪除維修基本信息 查詢維修信息 Ⅳ 31 一、維修信息窗體的建立 關(guān)鍵代碼：（見(jiàn)附錄六） 二、修改維修信息 Public Sub RecordEdit() Dim intCount As Integer If 1 Then gintmode = EDIT intCount = gsSql = where wxid=39。 39。 Trim(txtItem(0) amp。通過(guò)數(shù)據(jù)流圖來(lái)描述管理業(yè)務(wù)活動(dòng)。 ? 經(jīng)濟(jì)可行性分析 行業(yè)發(fā)展迅速，企業(yè)規(guī)模在不斷的擴(kuò)大，其開(kāi)發(fā)費(fèi)用在可承受范圍內(nèi)。 Ⅳ 9 4 可行性研究 可行性研究的前提 研究目標(biāo) 隨著我國(guó)經(jīng)濟(jì)的快速發(fā)展，汽車已成為人們不可缺少的交通工具。 SQL Server 經(jīng)常訪問(wèn)系統(tǒng)目錄，檢索系統(tǒng)正常運(yùn)行所需的必要信息。SQL Server 中還包括一些工具，可用來(lái)直觀地設(shè)計(jì)數(shù)據(jù)庫(kù)并通過(guò) English Query 來(lái)分析數(shù)據(jù)。數(shù)據(jù)庫(kù)引擎充分保護(hù)數(shù)據(jù)完整性，同時(shí)將管理上 千個(gè)并發(fā)修改數(shù)據(jù)庫(kù)的用戶的殲銷減到最小。 SQL Server 2021 是 Microsoft 公司推出的 SQL Server 數(shù)據(jù)庫(kù)管理系統(tǒng)的最新版本，該版本繼承了 SQL Server 版本的優(yōu)點(diǎn)，同時(shí)又比它增加了許多更先進(jìn)的功能、具有使用方便、可伸縮性好與相關(guān) 軟件 集成程度高等優(yōu)點(diǎn)。 增強(qiáng)網(wǎng)絡(luò)功能 最重要的新特性 之一，是提供了 DHTML 設(shè)計(jì)工具。可方便地使用標(biāo)準(zhǔn)的 active 部件，調(diào)用標(biāo)準(zhǔn)的接口，實(shí)現(xiàn)特定的功能。但在圖形用戶界面的應(yīng)用程序中，用戶的動(dòng)作即事件掌握著程序的運(yùn)作流向，每個(gè)事件都能 驅(qū)動(dòng)一段程序的運(yùn)行。 車輛管理信息系統(tǒng)針 對(duì)企業(yè)業(yè)務(wù)流程并為其度身定制了集車輛檔案管理 、駕駛員檔案管理、運(yùn)營(yíng)業(yè)務(wù)管理、車輛管理等為一體的系統(tǒng)，進(jìn)行了統(tǒng)一、規(guī)范的管理設(shè)計(jì)，具有可視化的界面友好，操作方法簡(jiǎn)單易懂等特點(diǎn)，使用戶很快能熟練操作該系統(tǒng)。 【 關(guān)鍵詞 】 車輛管理；信息系統(tǒng)； 控件；窗體 【 Abstract】 As the development of economics and the ing of information epoch, all sorts of information in daily life tend to be digital and explicit. Unit vehicle management system is born in such an environment. Development of transportation increases the number of vehicles instead of only one mercial vehicle and meanwhile multiplies the varieties of them, which makes vehicle information more plicated. Thereby, we intend to make full use of puters39。 本文主要分析了系統(tǒng)的主要組成情況，包括需求情況，系統(tǒng)的設(shè)計(jì)目標(biāo)，數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)流程和系統(tǒng)的主要特點(diǎn)等，重點(diǎn)介紹了系統(tǒng)功能模塊的詳細(xì)思路和實(shí)現(xiàn)方法，以及對(duì)系統(tǒng)關(guān)鍵技術(shù)和部分源代碼的詳細(xì)說(shuō)明。利用計(jì)算機(jī)可以集中管理車輛的運(yùn)營(yíng)、維修、事故、等一系列信息，可以有效管理企業(yè)每臺(tái)汽車的使用狀況，帶動(dòng)企業(yè)進(jìn)入車輛管理信息化、科學(xué)化、同時(shí)也可以節(jié)省人力、物力、財(cái)力、提高工作效率，使企業(yè)車輛管理更加科學(xué)、更加規(guī)范。傳統(tǒng)的編程方式是一種面向過(guò)程，按程序事先設(shè)計(jì)的流程進(jìn)行。 ACTIVE 技術(shù) Active 技術(shù)發(fā)展了原有的 OLE 技術(shù)，它使開(kāi)發(fā)人員擺脫了特定語(yǔ)言的束縛。同時(shí)提供的 ADO 控件，不但可以用最少的代碼創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序，也可以取代 DATA 和 RDO 控件。于 1988 年推出了第一個(gè) OS/2 版本，在 Windows NT 推出后， Microsoft 與 Sybase 在 SQL Server 的開(kāi)發(fā)上就分道揚(yáng)鑣了， Microsoft 將SQL Server 移植到 Windows NT 系統(tǒng)上，專注于開(kāi)發(fā)推廣 SQL Server 的 Windows NT 版本。 將個(gè)別服務(wù)器注冊(cè)到組中。 通過(guò)喚醒調(diào)用 SQL 查詢分析器，交互地設(shè)計(jì)并測(cè)試 SQL 語(yǔ)句、批處理和腳本。 企業(yè)級(jí)數(shù)據(jù)庫(kù)功能 SQL Server 2021 關(guān)系數(shù)據(jù)庫(kù)引擎支持當(dāng)今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。 數(shù)據(jù)倉(cāng)庫(kù) SQL Server 2021 中包括提取和分析匯總數(shù)據(jù)以進(jìn)行聯(lián)機(jī)分析處理 (OLAP)的工具。 3． 3． 2 SQL Server 系統(tǒng)表 系統(tǒng)目錄是由描述 SQL Server 系統(tǒng)的數(shù)據(jù)庫(kù)、基表、視圖和索引等對(duì)象的結(jié)構(gòu)的系統(tǒng)表組成。 7. Sysconstraints 表 系統(tǒng)表 sysconstraints 對(duì)使用 CREATE TABLE 或者 ALTER TABLE 語(yǔ)句為數(shù)據(jù)庫(kù)對(duì)象定義的每個(gè)完整性約束含有一行記錄，它出現(xiàn)在 master 數(shù)據(jù)庫(kù)和每個(gè)用戶自定義的數(shù)據(jù)庫(kù)中。 ? 技術(shù)可行性分析 運(yùn)用 Visual Basic 作為軟件開(kāi)發(fā)環(huán)境、 SQL Server 2021 開(kāi)發(fā)數(shù)據(jù)庫(kù)進(jìn)行系統(tǒng)開(kāi)發(fā)，能夠保證系統(tǒng)的可行性及數(shù)據(jù)的安全性。 ● 系統(tǒng)初始化、用戶管理、密碼管理 ● 司機(jī)檔案管理 （司機(jī)信息添加、修改、查詢、打?。? ● 車輛檔案管理（ 車輛信息的錄入 、車輛信息的查詢、修改、 打?。? ● 車輛管理（車輛維修信息的管理、車輛事故信息的管理） ● 運(yùn)營(yíng)業(yè)務(wù)管理 實(shí)現(xiàn)目標(biāo) ● 由人工管理過(guò)渡到機(jī)械自動(dòng)化、系統(tǒng)化、規(guī)范化管理 ● 維修車輛、事故車輛的信息一目了然 ● 及時(shí)掌握車輛的運(yùn)營(yíng)情況，提高車輛的利用率和企業(yè)的經(jīng)濟(jì)效率 Ⅳ 11 6 系統(tǒng)分析與系統(tǒng)設(shè)計(jì) 系統(tǒng)流程 該運(yùn)輸企業(yè)車輛管理系統(tǒng)的系統(tǒng)流程如圖所示 系統(tǒng)流程圖 系統(tǒng)邏輯模型 結(jié)合運(yùn)輸企業(yè)車輛管理系統(tǒng)實(shí)際的運(yùn)作流程，具體聯(lián)系如下圖（關(guān)聯(lián)圖） F1 司機(jī)登記單 F2 車輛登記單 F6 打印報(bào)表 F3 車輛維修單 F4 運(yùn)營(yíng)登記單 F5 事故登記單 權(quán)限用 戶 系統(tǒng)管理 司機(jī)檔案管理 車輛檔案管理 運(yùn)營(yíng)業(yè)務(wù)管理 車輛管理 司機(jī)信息 車輛 信息 運(yùn)營(yíng)信息 車輛維修 車輛事故 維修信息 事故信息 企業(yè)人事部門 車主 維修單位 司機(jī) 運(yùn)輸企業(yè)車輛管理系統(tǒng) 企業(yè)主管 Ⅳ 12 數(shù)據(jù)流圖 在了解了公司的整體經(jīng)營(yíng)管理活動(dòng)以及管理對(duì)信息系統(tǒng)的要求，在此基礎(chǔ)上，對(duì)各個(gè)部門的逐一調(diào)查，從系統(tǒng)的科學(xué)性、管理得合理性、實(shí)際運(yùn)行的可行性出發(fā)將信息處理功能和彼此的關(guān)系自頂向下，逐層分解，在邏輯上精確地描述系統(tǒng)應(yīng)該有的功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)存儲(chǔ)以及數(shù)據(jù)來(lái)源河去向。 amp。 ) amp。 End If End If If Trim(txtSQL) = Then MsgBox 請(qǐng)?jiān)O(shè)置查詢方式！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If flagdEdit Then Unload frmDriver