【正文】 39。 msTableName amp。 Trim((, 1)) amp。 修改 End If mblChange = False End Sub 二 . 修 改司機(jī)信息窗體 關(guān)鍵代碼： Private Sub Form_Load() ShowTitle ShowData flagdEdit = True End Sub Private Sub Form_Resize() If vbMinimized And vbMinimized Then 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) 39。先刪除已有記錄 txtSQL = delete from driver where sjid=39。 amp。 ) Then If Not IsDate(txtItem(7)) Then Ⅳ 39 MsgBox 有效期起始時(shí)應(yīng)輸入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 txtItem(7).SetFocus Exit Sub Else txtItem(7) = Format(txtItem(7), yyyymmdd) End If End If If Trim(txtItem(3) amp。 ) = Then Select Case intCount Case 0 sMeg = 執(zhí)照號(hào)碼 Case 1 sMeg = 姓名 End Select sMeg = sMeg amp。 txtSQL End If End Sub Private Sub Form_Load() Dim i As Integer Dim j As Integer Dim txtSQL As String Dim mrc As Dim MsgText As String txtSQL = select distinct datepart(yy,wxdate) from repair Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With mrc Do While Not .EOF cboYear(0).AddItem .Fields(0) cboYear(1).AddItem .Fields(0) .MoveNext Loop End With For i = 0 To 1 cboYear(i).ListIndex = 0 Next i Ⅳ 35 For i = 0 To 1 For j = 1 To 12 cboMonth(i).AddItem j Next j Next i For i = 0 To 1 cboMonth(i).Text = Month(Now()) Next i Else = False End If End Sub 車輛事故業(yè)務(wù)管理 添加事故信息 修改事故信息 刪除事故基本信息 查詢事故信息 一、添加車輛事故信息 二、修改事故信息 Ⅳ 36 三、查詢事故信息 代碼與維修模塊類適 Ⅳ 37 10 結(jié)論 通過這次對(duì)車輛管理系統(tǒng)的設(shè)計(jì)和開發(fā)，使我對(duì) Visual Basic 有了更進(jìn)一步的認(rèn)識(shí)，尤其是對(duì)車輛管理數(shù)據(jù)庫系統(tǒng)后臺(tái)的設(shè)計(jì)和開發(fā)，使我對(duì)數(shù)據(jù)庫的掌握和使用有了很大的突破 。 amp。 amp。 dEndDate amp。 dBeginDate amp。 cboMonth(0) amp。 ) amp。 amp。 Format(Now, yyyymmdd) sOrder0 = + {wxdate} sOrder1 = ShowData End Sub Public Sub RecordAdd() Ⅳ 33 gintmode = Add 1 ShowData End Sub Public Sub RecordFind() 1 If Trim( amp。 msOrderBy 39。 amp。 amp。) sSql, dbSQLPassThrough ShowData If 1 Then If intCount = Then MovCursor 1, msgList Else MovCursor intCount, msgList End If End If End If End If Exit Sub myErr: ShowError End Sub Public Sub RecordRefresh() 39。 and wxdate=cdate(39。 where wxid=39。 39。 39。 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 End If = select * from driver where amp。 amp。 ) amp。 End If If chkItem(1).Value = vbChecked Then If Trim(txtSQL amp。 amp。 軟件配置 數(shù)據(jù)庫軟件 ： SQL Server 2021 備選操作系統(tǒng)： Windows NT , Windows 2021 Server , Windows XP 硬件配置 客戶端硬件選擇 ： CPU:奔騰 4 處理器 256MSDRAM 服務(wù)器端硬件選擇 ： Xeon 雙 CPU/1GB/RAID5 3x72GB Ⅳ 16 8 數(shù)據(jù)庫設(shè)計(jì) 實(shí)體聯(lián)系圖 數(shù)據(jù)表概述 編號(hào) 主要表 主要表（說明） 功能備注 1 driver 司機(jī)基本信息表 存放 司機(jī)基本信息 2 vehicle 車輛基本信息表 存放 車輛基本信息 3 Vehicle2 車輛附加信息表 存放 車輛附加信息 4 statistic 運(yùn)營信息表 存放 運(yùn)營信息 5 repair 車輛維修信息表 存放車輛維修信息 6 acdident 事故信息表 存放事故信息 7 repairunit 維修單位信息表 存放 維修單位信息 8 useers 用戶信息表 存放用戶 信息 表詳細(xì)設(shè)計(jì) 1. driver (司機(jī)基本信息表 ) 司機(jī) 執(zhí)照號(hào)碼 姓名 性別 準(zhǔn)駕車型 出生年月 運(yùn)營 車輛 車號(hào) 類型 顏色 核定載客 車主 維修 維修單位 單位名稱 單位電話 單位地址 事故 Ⅳ 17 屬性名 數(shù)據(jù)類型 可否為空 約束 備注 sjid varchar NOT NULL 主鍵 執(zhí)照號(hào)碼 sjname varchar NOT NULL 姓名 sjsex varchar NULL 男，女 性別 sjbirthday datetime NULL 出生年月 sjaddress varchar NULL 住址 sjfirstdate varchar NULL 初次領(lǐng)證時(shí)間 sjtype Title NOT NULL A， B， C 準(zhǔn)駕車型 sjbegindate datetime NULL 有效期起始時(shí)間 sjenddate datetime NULL 有效期結(jié)束時(shí)間 2． vehicle（ 車輛基本信息表 ） 屬性名 數(shù)據(jù)類型 可否為空 約束 備注 clid varchar NOT NULL 主鍵 車號(hào) clkind varchar NOT NULL 類型 clcolor varchar NULL 顏色 clpassenger numeric NULL 核定載客 3． Vehicle2(車輛附加信息表 ) 屬性 數(shù)據(jù)類型 可否為空 約束 備注 clowner varchar NOT NULL 主鍵 車主名 Clcode1 varchar NOT NULL 發(fā)動(dòng)機(jī)號(hào) Clcode2 varchar NULL 車架號(hào) Clcode3 varchar NULL 廠牌型號(hào) cltotal varchar NULL 總質(zhì)量 Ⅳ 18 Clregistdate datetime NULL 登記時(shí)間 Clcertifidate datetime NULL 發(fā)證時(shí)間 4. statistic (運(yùn)營信息表 ) 屬性 數(shù)據(jù)類型 可否為空 約束 備注 yyid varchar NOT NULL 外鍵 車號(hào) yydriver varchar NOT NULL 司機(jī) Yybegindate datetime NOT NULL 開始時(shí)間 Yyendate datetime NOT NULL 結(jié)束時(shí)間 yywaste numeric NULL 耗油 yydistance numeric NULL 運(yùn)行公里 5. repair (車輛維修信息表 ) 屬性 數(shù)據(jù)類型 可否為空 約束 備注 wxid varchar NOT NULL 外鍵 車號(hào) wxdate datetime NOT NULL 時(shí)間 wxdept numeric NULL 維修單位 wxcontent varchar NULL 維修內(nèi)容 wyprice numeric NULL 價(jià)格 wxslave varchar NULL 配件 wxmemo text NULL 備注 6. accident(事故信息表 ) 屬性 數(shù)據(jù)類型 可否為空 約束 備注 sgid varchar NOT NULL 外鍵 車號(hào) sgdate datetime NOT NULL 時(shí)間 sgplace varchar NOT NULL 地點(diǎn) sgreason varchar NULL 原因 sgdriver varchar NULL 司機(jī) Ⅳ 19 Sgoppdept varchar NULL 對(duì)方單位 Sgoppid varchar NULL 對(duì)方車號(hào) sgmode varchar NULL 處理方式 sgvalue numeric NULL 處罰金額 7． repairunit(維修單位信息表 ) 屬性 數(shù)據(jù)類型 可否為空 約束 備注 wxunit varchar NOT NULL 維修單位 wxaddress var