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