【正文】 amp。 Text8 amp。 Text9 amp。 amp。 amp。 End If Dim slx As String If Then slx = 車輛型號(hào) like39。 Else slx = 車輛型號(hào) like 39。 and amp。%39。Data Source= amp。Persist Security Info=False Unload Me 數(shù)據(jù)庫恢復(fù)程序代碼： “恢復(fù)”代碼： FileCopy amp。 amp。 amp。焦點(diǎn)返回用戶框 出租車信息管理系統(tǒng)畢業(yè)論文 28 Exit Sub End If End With = = = = “刪除用戶”代碼： Dim str As String str = InputBox$(請輸入用戶名： , 系統(tǒng)提示 ) If str = Then Exit Sub If MsgBox(確實(shí)要?jiǎng)h除這條記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then On Error Resume Next (delete from 用戶表 where 用戶姓名 =39。給我提供了大量數(shù)據(jù)資料和建議，告訴我應(yīng)該注意的細(xì)節(jié)問題，細(xì)心的給我指出錯(cuò)誤，修改論文。 。 ***老師誨人不倦 的工作作風(fēng)，一絲不茍的工作態(tài)度，嚴(yán)肅認(rèn)真的治學(xué)風(fēng)格給我留下深刻的影響，值得我永遠(yuǎn)學(xué)習(xí)。) MsgBox 記錄已刪除！ , , 系統(tǒng)提示 = = = = 系統(tǒng)初始化代碼： If MsgBox(執(zhí)行該命令將清空數(shù)據(jù)庫里所有記錄 ,確實(shí)要執(zhí)行嗎 ?, vbOKCancel) = vbOK Then (delete from 車輛信息表 ) (delete from 員工信息表 ) (delete from 買票信息 ) (delete from 買費(fèi)信息 ) (delete from 公司收支表 ) (delete from 公司財(cái)產(chǎn)表 ) 出租車信息管理系統(tǒng)畢業(yè)論文 29 參考文獻(xiàn) [1]亓萊濱 .Visual Basic 程序設(shè)計(jì) [M].北京 :清華大學(xué)出版社 . [2]劉瑞新 . Visual Basic 實(shí)用教程 [M] .北京 :電子工業(yè)出版 社 .2020 [3]馬威 .Access2020 實(shí)用培訓(xùn)教程 [M].北京 :清華大學(xué)出版社 .2020 [4]孫秀梅 .Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā) [M].北京 :人民郵電出版社 .2020 出租車信息管理系統(tǒng)畢業(yè)論文 30 致 謝 值此本科學(xué)位論文完成之際，首先要感謝我的導(dǎo)師 ***老師。 39。 。 \ MsgBox 恢復(fù)成功！ , , 系統(tǒng)提示 “退出”代碼： Set pubCnn = New Provider=。 \ amp。 \, amp。%39。 End If sql = select * from 車輛信息表 where amp。 amp。 Else scp = 車牌號(hào) like 39。Persist Security Info=False = adUseClient = adCmdText = select distinct 車牌號(hào) from 車輛信息表 On Error Resume Next Set rs = (select distinct 車牌號(hào) from 車輛信息表 ) Do (0) Loop Until Set rs = (select distinct 車輛型號(hào) from 車輛信息表 ) Do (0) Loop Until = = “查詢”代碼： Dim sql As String Dim scp As String If Then scp = 車牌號(hào) like 39。) MsgBox 記錄修改成功！ , , 系統(tǒng)提示 End Select locktcl Text1 = : Text2 = : = : = : Text5 = : Text6 = : Text7 = = : = = False: = False = True: = True = True 車輛信息查詢程序代碼： 窗體 form_load 代碼： = 4335 出租車信息管理系統(tǒng)畢業(yè)論文 26 = 5235 = Provider=。,備注 =39。,違章記錄 =39。,計(jì)價(jià)器號(hào) =39。, 購車日期 =39。,底盤號(hào) =39。,發(fā)動(dòng)機(jī)號(hào) =39。,顏色 =39。,司機(jī)編號(hào) =39。,車輛型號(hào) =39。)) MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 (update 車輛信息表 set 車牌號(hào) = 39。,39。,39。,39。,39。,39。,39。,39。,39。,39。) If = False Then MsgBox 此車牌號(hào)碼已經(jīng)存在！ , , 系統(tǒng)提示 Text1 = Exit Sub End If End If If = Then MsgBox 車輛型號(hào)不能為空 , , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 司機(jī)編號(hào)不能為空 , , 系統(tǒng)提示 Exit Sub End If (insert into 車輛信息表 values (39。 If 0 Then On Error Resume Next = (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) End If = False: = False = True: = True = False i = 2 “刪除”代碼： If = Then MsgBox 沒有要?jiǎng)h除的記錄 !, vbExclamation 出租車信息管理系統(tǒng)畢業(yè)論文 25 ElseIf MsgBox(您確實(shí)要?jiǎng)h除記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then MsgBox 記錄已刪除！ , , 系統(tǒng)提示 End If “保存”代碼： On Error Resume Next Dim rs As New Select Case i Case 1 If Text1 = Then MsgBox 車牌號(hào)不能為空 , , 系統(tǒng)提示 Exit Sub Else Set rs = (select * from 車輛信息表 where 車牌號(hào) =39。 \ amp。 amp。 39。 39。 。 出租車信息管理系統(tǒng)畢業(yè)論文 23 附 錄 Moudel1模塊程序代碼： 主程序 main() Set pubCnn = New = adUseClient Provider=。從開始的設(shè)計(jì)系統(tǒng)的結(jié)構(gòu)，分析如何下手，如何進(jìn)行設(shè)計(jì)，使我掌握了如何去分布式的開發(fā)一個(gè)應(yīng)用軟件。其功能基本符合需求， 實(shí)現(xiàn)對車輛買費(fèi)信息和買票信息的管理、查詢等操作及對司機(jī)和車輛檔案的操作，其次還實(shí)現(xiàn)了對公司財(cái)產(chǎn)信息以及收支信息等幾個(gè)方面的管理功能。此外，數(shù)據(jù)的備份與恢復(fù)等，都是數(shù)據(jù)維護(hù)的工作內(nèi)容 。 系統(tǒng)維護(hù)的工 作內(nèi)容 系統(tǒng)維護(hù)是面向系統(tǒng)中各種構(gòu)成要素的，根據(jù)維護(hù)對象的不同，系統(tǒng)維護(hù)的內(nèi)容可分為以下幾類： 1)系統(tǒng)應(yīng)用程序維護(hù)。確認(rèn)測試則是要檢查已實(shí)現(xiàn)的軟件系統(tǒng)是否滿足了需求規(guī)格說明中確定了的各種需求，以及軟件配置是否完全、正確。 對于用戶的刪除，充分考慮了系統(tǒng)安全問題，只有管理員才能對用戶進(jìn)行刪除，其它用戶只能添加或修改用戶。窗口界面如圖 513 所示： 圖 513 公司財(cái)產(chǎn)管理 (4) 公司財(cái)產(chǎn)查詢 公司財(cái)產(chǎn)查詢主要是通過編號(hào)、物品名稱或購買日期來查詢公司現(xiàn)有財(cái)產(chǎn)的基本信息，查詢結(jié)果通過 DataGrid 控件顯示。窗口界面如下圖 510 所示： 出租車信息管理系統(tǒng)畢業(yè)論文 18 圖 510 買費(fèi)信息查詢 公司管理模塊設(shè)計(jì) (1) 公司收支管 理 公司收支管理主要是用來記錄出租車公司的各項(xiàng)收入支出，便于公司更好的管理。 出租車信息管理系統(tǒng)畢業(yè)論文 16 (2) 查詢窗體的設(shè)計(jì) ① 車輛信息查詢 車輛信息查詢主要用于通過車牌號(hào)或車輛型號(hào)來查詢某出租車的基本信息，查詢的信息通過 DataGrid 控件顯示 (2) 查詢窗體的設(shè)計(jì) ① 車輛信息查詢 車輛信息查詢主要用于通過車牌號(hào)或車輛型號(hào)來查詢某出租車的基本信息，查詢的信息通過 DataGrid 控件顯示。窗口界面如圖 54 所示： 圖 54 司機(jī)信息管理 ④ 車輛買票管理 車輛買票管理用于對出租車的買票情況進(jìn)行登記以及維護(hù)，可通 過首記錄、上一條、下一條、末記錄等來查看以及修改操作。 (2) 窗口的設(shè)計(jì) ① 車輛信息錄入 車輛信息錄入操作窗體用于添加、修改、刪除車輛基本信息。 ② 用戶可以點(diǎn)擊上一條或下一條記錄來選擇要修改或要?jiǎng)h除的記錄，然后單擊【修改】 /【刪除】按鈕對記錄進(jìn)行修改 /刪除操作。 圖 51 登錄窗體 系統(tǒng)主窗體設(shè)計(jì) 用戶登錄成功后會(huì)出面該界面，它可以對整個(gè)系統(tǒng)進(jìn)行操作，該界面為主窗體，將其它窗體設(shè)為子窗體后，該界面將始終出現(xiàn)在系統(tǒng)操作過程中，其它界面嵌套其中。 圖 48 用戶表 字段名稱 數(shù)據(jù)類型 字段大小 允許