【正文】 判斷是否是修改窗口 Set uv = () = = = = = = = ().authType = = False End If End Sub 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 35 參考文獻(xiàn)（ References） [1]論文：姜春暉 .電信企業(yè)客戶維系信息管理系統(tǒng)的應(yīng)用研究 .2021 [2]著作：李芬芬著 .電腦知識與技術(shù) .2021 [3]論文：魏漢添 .江西省大中型水庫移民管理信息系統(tǒng)的研發(fā) .2021 [4]論文：李建斌 .論高職院校信息管理專業(yè)建設(shè) [5]論文：黃明吉 .基于數(shù)據(jù)庫的雕刻學(xué)校特征建立方法 。調(diào)用修改 Dim man As New If (uv) Then MsgBox 修改成功 Else MsgBox 修改失敗 End If End Sub Private Sub Command2_Click() Unload userInfo End Sub Private Sub Form_Load() 39。給一個屬性賦值 userId1 = vNewValue End Property 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 30 Public Property Get authId() As Integer authId = authId1 End Property Public Property Let authId(ByVal vNewValue As Integer) authId1 = vNewValue End Property Public Property Get authType() As String authType = authType1 End Property Public Property Let authType(ByVal vNewValue As String) authType1 = vNewValue End Property Public Property Get loginID() As String loginID = loginID1 End Property Public Property Let loginID(ByVal vNewValue As String) loginID1 = vNewValue End Property Public Property Get loginPWD() As String loginPWD = loginPWD1 End Property Public Property Let loginPWD(ByVal vNewValue As String) loginPWD1 = vNewValue 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 31 End Property Public Property Get userName() As String userName = userName1 End Property Public Property Let userName(ByVal vNewValue As String) userName1 = vNewValue End Property Public Property Get sex() As String sex = sex1 End Property Public Property Let sex(ByVal vNewValue As String) sex1 = vNewValue End Property Public Property Get age() As String age = age1 End Property Public Property Let age(ByVal vNewValue As String) age1 = vNewValue End Property Public Property Get idCard() As String idCard = idCard1 End Property Public Property Let idCard(ByVal vNewValue As String) 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 32 idCard1 = vNewValue End Property 附錄 C： Public cmd As String Public logId As String Public authId As Integer Private Sub Command1_Click() Dim uv As New = = = = = = = If 1 Then = End If If = add Then Call add(uv) ElseIf = update Then Call update(uv) End If Unload userInfo End Sub Private Sub add(uv As userVO) 39。 即將結(jié)束在此學(xué)習(xí)的生活，相信等待我的是一片充滿機遇、風(fēng)險與快樂的土地；也相信我和同仁們的事業(yè)必將如涅磐之鳳、浴火之凰；更加相信，不朽的民族精神終將引領(lǐng)我們創(chuàng)造新的奇跡！ 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 28 附 錄 附錄 A： Private Sub MDIForm_Load() (1).Text = 操作員： + If = 1 Then = True = True ElseIf = 2 Then = True = False ElseIf = 3 Then = True = False Else = False = False End If End Sub Private Sub MDIForm_Resize() = 10005 = 6630 End Sub Private Sub Timer1_Timer() (3).Text = Now End Sub 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 29 Private Sub quit_Click() Unload main End Sub Private Sub exit_Click() Unload Me End Sub Private Sub help_Click() MsgBox 請直接問本人 End Sub 附錄 B： Private userId1 As Integer Private authId1 As Integer Private authType1 As String Private loginID1 As String Private loginPWD1 As String Private userName1 As String Private sex1 As String Private age1 As String Private idCard1 As String Public Property Get userId() As Integer 39。同時同學(xué)們的關(guān)心、支持，也是我是我在克服難關(guān)的道路上的支撐桿，正因為有你們的幫助，才會有讓我能順利的完成每一項任務(wù)。 回首四年，取得的一些成績，生活中有快樂也有艱辛。程老師一絲不茍的作風(fēng)，嚴(yán)謹(jǐn)?shù)目茖W(xué)觀，積極的治學(xué)精神，激勵著我的日常學(xué)習(xí)與工作。 在這里首先要感謝我的導(dǎo)師程登良老師。正在這段時間的首要感謝導(dǎo)師對我的督促與教導(dǎo)以及同學(xué)的支持和幫助，使得我能較為順利的完成這次畢業(yè)設(shè)計。如圖 、 如圖 所示 如圖 出車申請表 如圖 車輛申請表設(shè)計 5 運營信息表（ trip） 該表中有六個字段，分別是 tripId（運營信息編號）、 userId（用戶編號）、 carId（車輛編號）、 reqData（申請時間）、 backDate（回車時間）和 state（出車狀況），其中 tripId 是主鍵。 1 代表管理員、 2 代表審核員、 3 代表司機，在本系統(tǒng)中只需用到此三個權(quán)限即可，不同的權(quán)限有著不同的功能，在系統(tǒng)的管理中才能很好的各盡其職。 圖 車輛管理系統(tǒng)信息流程圖 系統(tǒng)管理員 工 作 人 員 審 核 員 系統(tǒng)界面 系統(tǒng)界面 幫 助 注銷 退出 人員信息資料 車輛信息資料 提交申請 運營資料 申請信息 系統(tǒng) 駕駛員管理 車輛管理 運營管理 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 24 1 用戶信息表（ userInfo） 該表用來記錄各用戶的詳細(xì)個人信息，表中的字段包括： userId（用戶編號）、 authId（用戶權(quán)限）、 loginID（用戶登陸名）、 loginPWD（用戶登陸密碼）、 userName（用戶名）、sex（用戶性別）、 age（用戶年齡）和 idCard（證件號），其中 userId 是主鍵。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。效果圖如圖 所示： 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 22 圖 車輛運營信息修改界面 出車的審核界面包括申請人、申請時間、申請內(nèi)容和是否批準(zhǔn)的選框，其中申請人、申請時間和申請內(nèi)容是不可修改的，審核員只能在是否批準(zhǔn)的選框內(nèi)點選。用戶信息的添加、刪除和修改模塊的詳細(xì)代碼（見附錄 C），效果圖如圖 所示 : 圖 用戶信息修改界面 運營信息的添加、刪除和修改只能由管理員來執(zhí)行操作，用戶可以瀏覽查閱運營信息。其對包含字符串和圖片的表格提供了靈活的排序、插入數(shù)據(jù)和格式編排功能。菜單編輯器如圖 所示： 2021 屆湖北汽車工業(yè)學(xué)院科技學(xué)院畢業(yè)論文 20 圖 菜單編輯器 在主界面下方添加時鐘和操作人員的名字這個功能方便并且十分人性化，并且設(shè)定了窗口的大小，不能隨意調(diào)整窗口大小。如圖 所示： 圖 主界面 在 中有個菜單編輯器可以自動生成菜 單。因此，在 MDI 中調(diào)用的窗體都是它的子窗體，子窗體的 MDICHILD 屬性為真，則子窗體不能超出 MDI的范圍。用戶登陸界面