【正文】 amp。控制控件的位置 Ⅳ 42 = = ( ) / 2 = + + / 2 = 200 = + 100 = 200 End If End Sub Public Sub RecordEdit() Dim intCount As Integer If 1 Then gintmode = EDIT intCount = gsSql = where sjid=39。 Trim(txtItem(0)) amp。 ) Then If Not IsDate(txtItem(5)) Then MsgBox 初次領(lǐng)證時(shí)應(yīng)輸入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 txtItem(5).SetFocus Exit Sub Else txtItem(5) = Format(txtItem(5), yyyymmdd) End If End If 39。使我學(xué)到了很多實(shí)用的東西，也體會(huì)到了開(kāi)發(fā)一個(gè)完整系統(tǒng)的不易。 39。 and wxdate=39。 End If If chkItem(1).Value = vbChecked Then dBeginDate = Format(CDate(cboYear(0) amp。 msTableName amp。 39。 msTableName amp。 Trim((, 1)) amp。 amp。 ) amp。 amp。 功能概述 （ 1） 管理員登錄 （ 2） 密碼修改 （ 3） 司機(jī)檔案信息的添加、修改、刪除、查詢(xún) （ 4） 車(chē)輛檔案信息的添加、修改、刪除、查詢(xún) （ 5） 運(yùn)營(yíng)信息的添加、修改、查詢(xún) （ 6） 車(chē)輛管理的信息 功 能詳細(xì)設(shè)計(jì) 登錄界面 （ 1） 用戶(hù)輸入用戶(hù)名和密碼登錄，系統(tǒng)根據(jù)不同的用戶(hù)名賦予不同的權(quán)限。其中部分： （ 1） 在進(jìn)入系統(tǒng)之后首先是登陸系統(tǒng)，根據(jù)用戶(hù)輸入的內(nèi)容判斷用戶(hù)的合法身份 （ 2） 進(jìn)入 司機(jī)檔案管理 管理界面可以進(jìn)行 司機(jī)檔案管理：（司機(jī)信息添加、修改、查詢(xún)、打?。? （ 3） 進(jìn)入 車(chē)輛檔案管理 管理界面可以進(jìn)行 車(chē)輛檔案管理 ：（車(chē)輛信息添加、修改、查詢(xún)、打印） （ 4） 進(jìn)入車(chē)輛管理界面：車(chē)輛維修信息的管理（添加、修改、查詢(xún)、打?。?chē)輛事故信息的管理（添加、修改、查詢(xún)、打?。? （ 5） 進(jìn)入 運(yùn)營(yíng)業(yè)務(wù)管理界面 :企業(yè)車(chē)輛運(yùn)營(yíng)業(yè)務(wù)的管理（添加、修改、查詢(xún)、打?。? 功能分析 系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)總體任務(wù)的基礎(chǔ)上完成的。所以很多長(zhǎng)期從事車(chē)輛管 理工作的人員一直希望使用電腦來(lái)處理這些繁重的工作，也正因?yàn)檫@樣，目前絕大部分運(yùn)輸企業(yè)都已經(jīng)使用了軟件來(lái)管理。 5. Sysdatabases 表 系統(tǒng)表 sysdatabases對(duì) SQL Server 系統(tǒng)上的每個(gè)系統(tǒng)數(shù)據(jù)庫(kù)和用戶(hù)自定義的數(shù)據(jù)庫(kù)含有一行記錄，它只出現(xiàn)在 master 數(shù)據(jù)庫(kù)中。 （ 4） Tempdb 是一個(gè)臨時(shí)數(shù)據(jù)庫(kù)，它為所有的臨時(shí)表、臨時(shí)存儲(chǔ)過(guò)程及其它臨時(shí)操作提供存儲(chǔ)空間。 SQL Server2021 還支持基于標(biāo)準(zhǔn)的、與WindowsDNA 集成的程序設(shè)計(jì)模型，使 SQL Server 數(shù)據(jù)庫(kù)和數(shù)據(jù)倉(cāng)庫(kù)的使用成為生成強(qiáng)大的可伸縮系統(tǒng)的無(wú)縫部分。 可伸縮性和可用性 同一個(gè)數(shù)據(jù)庫(kù)引擎可以在不同的平臺(tái)上使用，從運(yùn)行 Windows 98 的便攜式電腦，到運(yùn)行 Windows 2021 數(shù)據(jù)中心的大型多處理器服務(wù)器。 在每個(gè)已注冊(cè)的服務(wù)器上定義并執(zhí)行所有 SQL Server 管理任務(wù)。 定義 SQL Server 實(shí)例組。越來(lái)越多的開(kāi)發(fā)工具提供了與 SQL Server的接口。 數(shù)據(jù)庫(kù)功能的增強(qiáng) 新增了功能強(qiáng)大、使用方便的 ADO 技術(shù)， ADO 是微軟制訂的應(yīng)用程序級(jí)數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)接口，支持所有 OLD DB 數(shù)據(jù)庫(kù)廠(chǎng)商。 支持多種數(shù)據(jù)庫(kù)系統(tǒng)的訪(fǎng)問(wèn) 利用數(shù)據(jù)控件或 OBBC 能夠訪(fǎng)問(wèn)的數(shù)據(jù)庫(kù)系統(tǒng)有， MICROSOFT ACCESS、 BTRIEVE、DBASE、 MICROSOFT FOXPRO 和 PARADOX 等，也可訪(fǎng)問(wèn) MICROSOFT EXCEL、 LOTUS 等多種電子表格。程序員的編程工作僅編寫(xiě)針對(duì)對(duì)象要完成哪些功能的程序，因而程序設(shè)計(jì)的效率可提高許多。但一直以來(lái)人們使用傳統(tǒng)人工的方式進(jìn)行車(chē)輛管理，這種管理方式存在著許多 缺點(diǎn) ,如 :效率低、實(shí)時(shí)性差等 ,另外時(shí)間一長(zhǎng) ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。車(chē)輛管理系統(tǒng)就是在這樣的一個(gè)環(huán)境中誕生的，交通的日益發(fā)達(dá)，使得一個(gè)商業(yè)單位不再是簡(jiǎn)單的一輛商務(wù)車(chē)，而是有很多輛車(chē)組成，而且車(chē)型也不再單一，這使得單位車(chē)輛信息復(fù)雜化。 The Control。正規(guī)化的數(shù)據(jù)庫(kù)設(shè)計(jì)，使得數(shù)據(jù)的添加、修改、刪除、查詢(xún)更加合理、便捷、高效。這樣的應(yīng)用程序代碼較短，使得程序即易于編寫(xiě)又易于維護(hù)。 Visual Basic 新功能特點(diǎn) Ⅳ 5 新增控件 新增了許多控件，如工具條控件 COOLBAR、數(shù)據(jù)庫(kù)控件 ADO DATA、日歷界面時(shí)間控件 DATATIMEPICKER 和 MONTH VIEW、圖形組合控件 IMAGECOMBO 等。 新增了多個(gè)應(yīng)用程序向?qū)? VB 新增的應(yīng)用程序向?qū)Э梢宰詣?dòng)創(chuàng)建不同類(lèi)型、不同功能的應(yīng)用程序。 MSSQL Server 不但可以應(yīng)用于大中型數(shù)據(jù)庫(kù)管理中，建立分布式關(guān)系數(shù)據(jù)庫(kù)，并且也可以開(kāi)發(fā)桌面數(shù)據(jù)庫(kù)。 SQL Server 2021 的特性 Microsoft SQL Server 2021 包括以下特性： Inter 集成 SOLServer 2021 數(shù)據(jù)庫(kù)引擎提供完整的 XML 支持。復(fù)制同樣使用戶(hù)得以維護(hù)多個(gè)數(shù)據(jù)副本，同時(shí)確保單獨(dú)的數(shù)據(jù)副本與數(shù)據(jù)保持同步。這些系統(tǒng)信息包括所有的登錄信息、系統(tǒng)設(shè)置信息、 SQL Server的初始化信息和其它系統(tǒng)數(shù)據(jù)庫(kù)及用戶(hù)數(shù)據(jù)庫(kù)的相關(guān)信息。 2. Syscolumns 表 系統(tǒng)表 syscolumns 出現(xiàn)在 master 數(shù)據(jù)庫(kù)和每個(gè)用戶(hù)自定義的數(shù)據(jù)庫(kù)中，它對(duì)基表或者視圖的每個(gè)列和存儲(chǔ)過(guò)程中的每個(gè)參數(shù)含有一行記錄。 主要內(nèi)容 該管理系統(tǒng)具備方便、實(shí)用、快捷等優(yōu)點(diǎn)。 Ⅳ 10 5 需求分析 運(yùn)輸企業(yè)車(chē)輛管理信息系統(tǒng)的開(kāi)發(fā)不僅僅是一個(gè)應(yīng)用程序編寫(xiě)的過(guò)程，更重要的是在系統(tǒng)分析和設(shè)計(jì)階段所作的工作。 數(shù)據(jù)流 系統(tǒng)名：運(yùn)輸企業(yè)車(chē)輛管理系統(tǒng) 編號(hào)： 條目名：司機(jī)登記單 別名： 來(lái)源：預(yù)訂管理 去處：顧客 數(shù)據(jù)流結(jié)構(gòu)： 預(yù)訂單： {sjid＋ sjname＋ sjsex＋ sjtype＋ sjbirday＋ sjaddress＋ sjfirstdate＋sjbegindate＋ sjenddate } 簡(jiǎn)要說(shuō)明： 司機(jī)登記單記錄司機(jī)的主要信息 修改記錄： 編寫(xiě) 王傳遞 日期 2021320 審核 王傳遞 日期 2021320 數(shù)據(jù)存儲(chǔ) 系統(tǒng)名：運(yùn)輸企業(yè)車(chē)輛管理系統(tǒng) 編號(hào)： 條目名： D1 司機(jī)信息 別名： 存儲(chǔ)組織： 每次登記一筆記錄 記錄數(shù)：不限 主關(guān)鍵字：司機(jī)執(zhí)照號(hào)碼 記錄組成： 項(xiàng)名： SJID SJNAME SJSEX SJBIRTHDAY SJADDRESS…… SJENDDATE 字節(jié)： 簡(jiǎn)要說(shuō)明： 修改記錄： 編寫(xiě) 王傳遞 日期 2021320 審核 王傳遞 日期 2021320 系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì) 系統(tǒng)功能分解圖 Ⅳ 14 運(yùn)輸企業(yè)車(chē)輛管理系統(tǒng) 系統(tǒng)管理 用戶(hù)管理 密碼管理 車(chē)輛檔案管理 司機(jī)信息添加 司機(jī)信息修改 司機(jī)信息查詢(xún) 司機(jī)信息打印 司機(jī)檔案管理 車(chē)輛信息添加 車(chē)輛信息修改 車(chē)輛信息查詢(xún) 車(chē)輛信息打印 車(chē)輛管理 運(yùn)營(yíng)信息添加 運(yùn)營(yíng)信息修改 運(yùn)營(yíng)信息查詢(xún) 運(yùn)營(yíng)信息打印 運(yùn)營(yíng)業(yè)務(wù)管理 維修信息管理 事故信息管理 Ⅳ 15 7 系統(tǒng)配置 根據(jù)用戶(hù)對(duì)系統(tǒng)的穩(wěn)定性要求、系統(tǒng)的容量以及用戶(hù)的維護(hù)水平，確定了運(yùn)輸企業(yè)車(chē)輛管理信息系統(tǒng)的系統(tǒng)配置 。 39。 and sjtype =39。 Trim((, 1)) amp。 msTableName amp。 39。 and wxdate=39。 至 amp。 Trim(txtItem(0) amp。 amp。 and (wxdate=39。) End If Else End If If Trim(txtSQL) = Then MsgBox 請(qǐng)?jiān)O(shè)置查詢(xún)方式！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If flagrEdit Then Unload frmRepair End If = select * from repair where amp。 ) Then If Not IsDate(txtItem(8)) Then MsgBox 有效期結(jié)束時(shí)間應(yīng)輸入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 txtItem(8).SetFocus Exit Sub Else txtItem(8) = Format(txtItem(8), yyyymmdd) End If End If If Trim(txtItem(7) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此執(zhí)照號(hào)碼的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If Ⅳ 40 End If 39。 ) Then txtItem(intCount) = .Fields(intCount) End If Next intCount End With txtItem(0).Enabled = False End If = amp。刪除記錄 Public Sub RecordDelete() Dim sSql As String Dim intCount As Integer On Error GoTo myErr If 1 Then If MsgBox(真的要?jiǎng)h除這條文件記錄么？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = sSq