【正文】 , 2) NULL , [yywaste] [numeric](8, 2) NULL ) ON [PRIMARY] GO Ⅳ 24 9 主程序界面設(shè)計(jì)詳解 在本章中，我將詳細(xì)介紹運(yùn)輸企業(yè)信息管理系統(tǒng)的界面及相關(guān)的程序，并對(duì)其功能加以描述和解釋。 功能概述 （ 1） 管理員登錄 （ 2） 密碼修改 （ 3） 司機(jī)檔案信息的添加、修改、刪除、查詢 （ 4） 車輛檔案信息的添加、修改、刪除、查詢 （ 5） 運(yùn)營(yíng)信息的添加、修改、查詢 （ 6） 車輛管理的信息 功 能詳細(xì)設(shè)計(jì) 登錄界面 （ 1） 用戶輸入用戶名和密碼登錄，系統(tǒng)根據(jù)不同的用戶名賦予不同的權(quán)限。 amp。 ) amp。 End If If chkItem(1).Value = vbChecked Then If Trim(txtSQL amp。 amp。 ) amp。 Else txtSQL = txtSQL amp。 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 End If = select * from driver where amp。 amp。 39。 amp。 39。刪除記錄 Public Sub RecordDelete() Ⅳ 32 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。 where wxid=39。 Trim((, 1)) amp。 and wxdate=cdate(39。 Format((, 2), yyyymmdd) 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。 msTableName amp。 amp。 39。 amp。 39。 msOrderBy 39。 Format(DateAdd(m, 1, Now), yyyymmdd) 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。 msTableName amp。 amp。 amp。 ) amp。 End If If chkItem(1).Value = vbChecked Then dBeginDate = Format(CDate(cboYear(0) amp。 cboMonth(0) amp。 ) = Then txtSQL = wxdate=39。 dBeginDate amp。 and wxdate=39。 dEndDate amp。 Else Ⅳ 34 txtSQL = txtSQL amp。 amp。 39。 amp。 39。 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é)論 通過(guò)這次對(duì)車輛管理系統(tǒng)的設(shè)計(jì)和開發(fā)，使我對(duì) Visual Basic 有了更進(jìn)一步的認(rèn)識(shí)，尤其是對(duì)車輛管理數(shù)據(jù)庫(kù)系統(tǒng)后臺(tái)的設(shè)計(jì)和開發(fā)，使我對(duì)數(shù)據(jù)庫(kù)的掌握和使用有了很大的突破 。使我學(xué)到了很多實(shí)用的東西，也體會(huì)到了開發(fā)一個(gè)完整系統(tǒng)的不易。 ) = Then Select Case intCount Case 0 sMeg = 執(zhí)照號(hào)碼 Case 1 sMeg = 姓名 End Select sMeg = sMeg amp。 ) = Then MsgBox 準(zhǔn)駕車型不能為空！ , vbOKOnly + vbExclamation, 警告 txtItem(6).SetFocus Exit Sub End If If Trim(txtItem(8) 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 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。 amp。 39。先刪除已有記錄 txtSQL = delete from driver where sjid=39。 Trim(txtItem(0)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) 39。 添加 ElseIf gintdMode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With mrc For intCount = 0 To 8 If Trim(.Fields(intCount) 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?？刂瓶丶奈恢? Ⅳ 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((, 1)) amp。 1 ShowData Call MovCursor(intCount, msgList) Else Call RecordAdd End If End Sub Public Sub FormClose() flagdEdit = False gintdMode = 0 Unload Me End Sub 39。 msTableName amp。 amp。