【正文】 = Exit Sub End If 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 amp。此車是否異動了 Set rss2 = (select * from 車輛異動 表 where 車牌號碼 =39。 39。 amp。) If Then MsgBox 這輛車不屬于本公司的！ , , 系統(tǒng)提示 = Exit Sub End If 39。 amp。此車是否是本公司的 Set rss = (select * from 車輛檔案 where 車牌號碼 =39。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 1 窗口界面設(shè)計 車輛運營列表窗口設(shè)計圖 2 程序代碼設(shè)計 ? 設(shè)計一個 Lockctl過程使控件不可用，該過程為： Private Sub Lockctl() = False: = False = False: = False = False End Sub * 設(shè)計一個 Lockctl過程使控件可用，該過程為： Private Sub Unlockctl() = True: = True = True: = True = True End Sub * 在代碼窗口中定義數(shù)值型變量，作為保存或修 改操作的開關(guān)變量 Dim i As Integer ? 在窗口 Load事件下添加代碼： Private Sub Form_Load() = 2070: = 7755 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 = True: = True End Sub * 在“取消” 的按鈕的 Click事件下添加代碼為： Private Sub cmdCancel_Click() On Error Resume Next 39。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 If = False Then MsgBox 此車牌號碼已經(jīng)存在！ , , 系統(tǒng)提示 Text1 = End If End Sub *在“添加”按鈕的 Click事件下添加代碼為： Private Sub cmdAdd_Click() Unlockctl = Format(Now, yyyymmdd) Text1 = : Text2 = : Combo2 = : Text4 = : Text5 = : Text6 = : Text7 = = = 是 = 是 = 是 = 是 = True: = True = False: = True = False: = False i = 1 End Sub *在“修改” 按鈕 的 Click事件下添加代碼為： Private Sub cmdUpdate_Click() Unlockctl i = 2 = True: = True = False: = False = False: = False End Sub * 在“刪除”的按鈕的 Click 事件下添加代碼為： Private Sub cmdDelete_Click() If MsgBox(您確實要刪除記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 = (1) = (2) End Sub *在 Text1控件的 LostFocus事件下，用戶添加的“車牌號碼”是否與表中的數(shù)據(jù)重復(fù)，其代碼為： Private Sub Text1_LostFocus() Dim rs As New Set rs = (select * from 車輛檔案 where 車牌號碼 =39。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 1 窗口界面設(shè)計 車輛檔案窗口設(shè)計圖 2 程序代碼設(shè)計 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 End Sub *在 ToolBar控件的索引值調(diào)用子窗口，在 ToolBar控件的 ButtonClick事件下添加如下代碼： Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ) Select Case Case 1 Call mnucardacha_Click Case 2 Call mnujsycha_Click Case 3 Call mnucaryycha_Click Case 5 Call mnucarwxcha_Click Case 6 Call mnucarwzcha_Click Case 7 Call mnucarsgcha_Click End Select End Sub 第七章 主要功能模塊詳細(xì)設(shè)計 （ 1）車輛檔案錄入 車輛檔案錄入操作窗口用 于添加，修改，刪除車輛信息。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。)) If Then MsgBox 您輸入的信息有誤，請重新輸入！ , , 系統(tǒng)提示 Text1 = Text2 = i = i + 1 If i = 3 Then MsgBox 對不起，您已無權(quán)使用本系統(tǒng)！ , , 系統(tǒng)提示 Unload Me End If Else Select Case adors!用戶類型 Case 管理員 Case 普通用戶 = False = False = False End Select Unload Me End If End Sub Private Sub Command2_Click() Unload Me 39。 amp。) and 用戶類型 =ltrim(39。 Text2 amp。) and 密碼 =ltrim(39。 Text1 amp。 End If Set adors = (select * from 用戶表 where 用戶姓名 =ltrim(39。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 （ 3） 在窗口上添加 Text 控件。Persist Security Info=False End Sub 第五章 系統(tǒng)登錄 系統(tǒng) 登錄窗口是操作用戶進(jìn)入系統(tǒng)的惟一入口，分為兩種權(quán)限：管理員權(quán)限和普通用戶權(quán)限 .通過在 ”登錄 ”按鈕的 Click事件下使用 SQL語句判斷用戶名稱 ,密碼和用戶類型 ,進(jìn)入系統(tǒng) . 操作用戶的權(quán)限不同的功能模塊也不同 ,管理員可以維護(hù)整個系統(tǒng)和系統(tǒng)操縱身分 ,而普通用戶只能對系統(tǒng)各別功能進(jìn)行操作 . * 窗口界面設(shè)計 系統(tǒng)等錄窗口設(shè)計圖 （ 1） 新建設(shè)又個窗口，設(shè)置該窗口的名稱為“ frrmlogin” ,caption 屬性為“系統(tǒng)登錄”，設(shè)置 Borderstyle 屬性為“ 1fiexed single” , 在該窗口上依次添加控件。 \ amp。Data Source= amp。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 備注 備注 是 是 9. 車輛運營表 字段名稱 數(shù)據(jù)類型 字段大小 必添字段 允許空字符串 車牌號碼 文本 10 是 否 運營日期 日期 /時間 是 運營時間 數(shù)字 整型 是 否 運營收入 數(shù)字 雙精度型 是 是 備注 數(shù)字 否 是 10. 駕駛員檔案表 字段名稱 數(shù)據(jù)類型 字段大小 必添字段 允許空字符串 駕駛員 編號 文本 18 是 否 姓名 文本 8 是 否 性別 文本 2 是 否 出生年月 日期 /時間 是 駕駛證號 文本 30 是 否 領(lǐng)證明日期 數(shù)字 證件有效期 文本 15 是 否 駕齡 日期 /時間 雙精度型 否 準(zhǔn)駕車型 文本 14 否 是 何時參加工作 日期 /時間 否 聯(lián)系電話 文本 16 否 是 年檢記錄 文本 20 否 是 備注 備注 否 是 11. 獎罰表 字段名稱 數(shù)據(jù)類型 字段大小 字段大小 允許空字符串 車牌號碼 文本 8 是 否 姓名 文本 8 是 否 運營收入 數(shù)字 雙精度型 否 運營次數(shù) 數(shù)字 整型 否 維修費用 數(shù)字 雙精度型 否 違章次數(shù) 數(shù)字 整型 否 事故次數(shù) 數(shù)字 整型 否 日期 文本 12 是 否 每月得分 數(shù)字 雙精度型 是 每月獎金 數(shù)字 雙精度型 否 12. 零件表 字段名稱 數(shù)據(jù)類型 字段大小 字段大小 允許空字符串 零件名 文本 30 是 否 單價 數(shù)字 雙精度型 否 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 1．用戶表 字段名稱 數(shù)據(jù)類型 字段大小 必添字段 允許空字符串 用戶姓名 文本 20 是 否 密碼 文本 20 否 是 用戶類型 文本 20 是 否 2．車輛檔案表 字 段名稱 數(shù)據(jù)類型 字段大小 必添字段 允許空字符串 車牌號碼 文本 10 是 否 車輛類型 文本 10 是 否 駕駛員編號 文本 10 否 是 購置日期 時間 /日期 是 廠牌型號 文本 30 否 是 使用人或單位 文本 30 否 是 車輛所在單位 文本 30 否 是 年檢審 文本 2 否 是 保險否 文本 2 否 是 異地否 文本 2 否 是 報廢否 文本 2 否 是 備注 備注 否 是 3 .車輛報廢表 字段名稱 數(shù)據(jù)類型 字段大小 必添字段 允許空字符串 車 牌號碼 文本 10 是 否