【正文】 String If gintdMode = 1 Then Ⅳ 41 = amp。邊界處理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39。 39。 where sjid=39。 Ⅳ 43 sSql, dbSQLPassThrough 。 Trim((, 1)) 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 = sSql = delete from amp。 amp。 ) Then txtItem(intCount) = .Fields(intCount) End If Next intCount End With txtItem(0).Enabled = False End If = amp。 39。 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。添加判斷是否有相同的 ID 記錄 If gintdMode = 1 Then txtSQL = select * from driver where sjid=39。 ) 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。 Ⅳ 38 附 錄 一 . 添加司機(jī)信息窗體的創(chuàng)建 關(guān)鍵代碼： Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim sSql As String Dim MsgText As String For intCount = 0 To 1 If Trim(txtItem(intCount) amp。) End If Else End If If Trim(txtSQL) = Then MsgBox 請(qǐng)?jiān)O(shè)置查詢方式！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If flagrEdit Then Unload frmRepair End If = select * from repair where amp。 and wxdate=39。 and (wxdate=39。 amp。 amp。 amp。 Trim(txtItem(0) amp。 where amp。 至 amp。 amp。 and wxdate=39。 where wxdate=39。 39。 39。 msTableName amp。 Format((, 2), yyyymmdd) amp。 Trim((, 1)) amp。 39。 and sjtype =39。 Trim(txtItem(1) amp。 39。 （ 2） 關(guān)鍵代碼： private sub cmdok_click（） Dim txtSQL As string Dim mrc As Dim MsgText As string UserName=＂＂ If trim（ =＂＂） then MsgBox＂沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名?。?， vbokonly＋ vbexclamation,＂警告＂ Ⅳ 25 Else TxtSQL=＂ select*form user_info where user_ID=＂＆ ＆＂＂ Set mrc=ExecuteSQL（ txtSQL,MsgText） If =True Then MsgBox＂沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名?。?， vbokonly＋ vbexclamation,＂警告＂ Else If trim（ （ 1）） =Trim（ ） Then Ok=true Mrc,Close UserName=Trim（ ） Else MsgBox＂輸入密碼不正確，請(qǐng)重新輸入?。ⅲ?vbokonly＋ vbexclamation,＂警告＂ =＂＂ End if End if End if Micount=micount+1 If miCount=3 Then End IF Exit Sub End sub 進(jìn)入主界面 下圖為成功登錄后的界面： Ⅳ 26 司機(jī)檔案管理 司機(jī)檔案管理模塊主要實(shí)現(xiàn)如下功能 : 添加司機(jī)信息 修改司機(jī)信息 打印司機(jī)基本信息 查詢司機(jī)信息 一、添加司機(jī)信息窗體的創(chuàng)建 關(guān)鍵代碼 :（見(jiàn)附錄一） Ⅳ 27 二、修改司機(jī)信息窗體 關(guān)鍵代碼：（見(jiàn)附錄二） 三、查詢窗體 Ⅳ 28 關(guān)鍵代碼： Private Sub cmdOK_Click() Dim txtSQL As String If chkItem(0).Value = vbChecked Then txtSQL = sjname =39。 數(shù)據(jù)流 系統(tǒng)名：運(yùn)輸企業(yè)車輛管理系統(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è)車輛管理系統(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è)車輛管理系統(tǒng) 系統(tǒng)管理 用戶管理 密碼管理 車輛檔案管理 司機(jī)信息添加 司機(jī)信息修改 司機(jī)信息查詢 司機(jī)信息打印 司機(jī)檔案管理 車輛信息添加 車輛信息修改 車輛信息查詢 車輛信息打印 車輛管理 運(yùn)營(yíng)信息添加 運(yùn)營(yíng)信息修改 運(yùn)營(yíng)信息查詢 運(yùn)營(yíng)信息打印 運(yùn)營(yíng)業(yè)務(wù)管理 維修信息管理 事故信息管理 Ⅳ 15 7 系統(tǒng)配置 根據(jù)用戶對(duì)系統(tǒng)的穩(wěn)定性要求、系統(tǒng)的容量以及用戶的維護(hù)水平，確定了運(yùn)輸企業(yè)車輛管理信息系統(tǒng)的系統(tǒng)配置 。運(yùn)輸企業(yè)車輛管理系統(tǒng)功能主要包括：司機(jī)檔案管理、車輛檔案管理、車輛管理、運(yùn)營(yíng)業(yè)務(wù)管理等功能。 Ⅳ 10 5 需求分析 運(yùn)輸企業(yè)車輛管理信息系統(tǒng)的開(kāi)發(fā)不僅僅是一個(gè)應(yīng)用程序編寫(xiě)的過(guò)程，更重要的是在系統(tǒng)分析和設(shè)計(jì)階段所作的工作。本軟件系統(tǒng)主要由司機(jī)檔案管理，車輛檔案管理，車輛管理、運(yùn)營(yíng)信息管理等功能模塊構(gòu)成，實(shí)現(xiàn)車輛管理信息化。 主要內(nèi)容 該管理系統(tǒng)具備方便、實(shí)用、快捷等優(yōu)點(diǎn)。 6. Sysdepends 表 系統(tǒng)表 Sysdepends 對(duì)表、視圖和存儲(chǔ)過(guò)程之間的每個(gè)依 賴關(guān)系含有一行記錄，它出現(xiàn)在 master 數(shù)據(jù)庫(kù)和每個(gè)用戶自定義的數(shù)據(jù)庫(kù)中。 2. Syscolumns 表 系統(tǒng)表 syscolumns 出現(xiàn)在 master 數(shù)據(jù)庫(kù)和每個(gè)用戶自定義的數(shù)據(jù)庫(kù)中，它對(duì)基表或者視圖的每個(gè)列和存儲(chǔ)過(guò)程中的每個(gè)參數(shù)含有一行記錄。 （ 5） Pubs 和 Northwind 數(shù)據(jù)庫(kù)是兩個(gè)實(shí)例數(shù)據(jù)庫(kù)，它們可以作為 SQL Server 的學(xué) Ⅳ 8 習(xí)工具。這些系統(tǒng)信息包括所有的登錄信息、系統(tǒng)設(shè)置信息、 SQL Server的初始化信息和其它系統(tǒng)數(shù)據(jù)庫(kù)及用戶數(shù)據(jù)庫(kù)的相關(guān)信息。這些功能使用戶得以快速交付 SQL Server 應(yīng)用程序，使客戶只需最少的安裝和管理開(kāi)銷即可實(shí)現(xiàn)這些應(yīng)用程序。復(fù)制同樣使用戶得以維護(hù)多個(gè)數(shù)據(jù)副本，同時(shí)確保單獨(dú)的數(shù)據(jù)副本與數(shù)據(jù)保持同步。 SQL Server 2021 企業(yè)版支持聯(lián)合服務(wù)器、索引視圖和大型內(nèi)存支持等功能，使其得以升級(jí)到最大 Web 站點(diǎn)所需的性能級(jí)別。 SQL Server 2021 的特性 Microsoft SQL Server 2021 包括以下特性： Inter 集成 SOLServer 2021 數(shù)據(jù)庫(kù)引擎提供完整的 XML 支持。 MSSQL Server 不但可以應(yīng)用于大中型數(shù)據(jù)庫(kù)管理中，建立分布式關(guān)系數(shù)據(jù)庫(kù)，并且也可以開(kāi)發(fā)桌面數(shù)據(jù)庫(kù)。 SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，它最初是由 Microsoft、 Sybase 和AshtonTate 三家公司共同開(kāi)發(fā)的。 新增了多個(gè)應(yīng)用程序向?qū)? VB 新增的應(yīng)用程序向?qū)Э梢宰詣?dòng)創(chuàng)建不同類型、不同功能的應(yīng)用程序。 ADO 包括了現(xiàn)有的 ODBC，而且占用內(nèi)存少，訪問(wèn)速度更快。 Visual Basic 新功能特點(diǎn) Ⅳ 5 新增控件 新增了許多控件，如工具條控件 COOLBAR、數(shù)據(jù)庫(kù)控件 ADO DATA、日歷界面時(shí)間控件 DATATIMEPICKER 和 MONTH VIEW、圖形組合控件 IMAGECOMBO 等。 OLE 技術(shù)