【導讀】出租車管理系統(tǒng)就是在這樣的一個環(huán)境中誕生的，交通的日益發(fā)達，出租車信息。因此我們將發(fā)揮計算機的龐大的存儲空間，高性能的處理能力，高度可靠的。計算機資源的合理利用，真正實現(xiàn)了減少勞動力提高勞動質(zhì)量的目的。論文主要分析了系統(tǒng)的主要組成情況，包括需求情況，系統(tǒng)的設計目標，數(shù)據(jù)。法，給出了出租車管理系統(tǒng)的一般流程，實現(xiàn)了出租車的買票、買費等信息的管理，以及公司收支、財產(chǎn)的管理。以及對系統(tǒng)關鍵技術和部分源代碼的詳細說明。充分考慮了包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序開發(fā)兩個方面?；?，并且在操作上實現(xiàn)簡單、方便、快捷。

　　

【正文】 Text1 = Exit Sub End If End If If = Then MsgBox 車輛型號不能為空 , , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 司機編號不能為空 , , 系統(tǒng)提示 Exit Sub End If (insert into 車輛信息表 values (39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。,39。 amp。 Text4 amp。 39。,39。 amp。 Text5 amp。 39。,39。 amp。 Text6 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Text7 amp。 39。,39。 amp。 Text8 amp。 39。,39。 amp。 Text9 amp。 39。)) MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 (update 車輛信息表 set 車牌號 = 39。 amp。 amp。 39。,車輛型號 =39。 amp。 Text2 amp。 39。,司機編號 =39。 amp。 Text3 amp。 39。,顏色 =39。 amp。 Text4 amp。 39。,發(fā)動機號 =39。 amp。 Text5 amp。 39。,底盤號 =39。 amp。 Text6 amp。 39。, 購車日期 =39。 amp。 amp。 39。,計價器號 =39。 amp。 Text7 amp。 39。,違章記錄 =39。 amp。 Text8 amp。 39。,備注 =39。 amp。 Text9 amp。 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=。Data Source= amp。 amp。 \。Persist Security Info=False = adUseClient = adCmdText = select distinct 車牌號 from 車輛信息表 On Error Resume Next Set rs = (select distinct 車牌號 from 車輛信息表 ) Do (0) Loop Until Set rs = (select distinct 車輛型號 from 車輛信息表 ) Do (0) Loop Until = = “查詢”代碼： Dim sql As String Dim scp As String If Then scp = 車牌號 like 39。 amp。 amp。 %39。 Else scp = 車牌號 like 39。%39。 End If Dim slx As String If Then slx = 車輛型號 like39。% amp。 amp。 %39。 Else slx = 車輛型號 like 39。%39。 End If sql = select * from 車輛信息表 where amp。 scp amp。 and amp。 slx If sql = select * from 車輛信息表 where 車牌號 like 39。%39。and 車輛型號 like 39。%39。 Then MsgBox 請選擇查詢條件 , , 系統(tǒng)提示 Exit Sub End If Dim adors As New Set adors = (sql) If Then MsgBox 沒有符合您查詢車輛的條件！ , , 系統(tǒng)提示 Else = sql End If 數(shù)據(jù)備份程序代碼： “備份”代碼： FileCopy amp。 \, amp。 \數(shù)據(jù)庫備份 \ MsgBox 備份成功！ , , 系統(tǒng)提示 “退出”代碼： Set pubCnn = New Provider=。Data Source= amp。 amp。 \ amp。 出租車信息管理系統(tǒng)畢業(yè)論文 27 。Persist Security Info=False Unload Me 數(shù)據(jù)庫恢復程序代碼： “恢復”代碼： FileCopy amp。 \數(shù)據(jù)庫備份 \, amp。 \ MsgBox 恢復成功！ , , 系統(tǒng)提示 “退出”代碼： Set pubCnn = New Provider=。Data Source= amp。 amp。 \ amp。 。Persist Security Info=False Unload Me 用戶管理程序代碼： “添加用戶”代碼： If Text3 Text2 Then Text2 = Text3 = MsgBox 確認密碼必須與密碼一致！ , , 系統(tǒng)提示 Exit Sub End If If Text1 = Then MsgBox 用戶姓名不能為空 , , 系統(tǒng)提示 Exit Sub End If If Text2 = Then MsgBox 密碼不能為空 , , 系統(tǒng)提示 Exit Sub End If If Text3 = Then MsgBox 確認密碼不能為空 , , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 用戶類型不能為空 , , 系統(tǒng)提示 Exit Sub End If = select * from 用戶表 where 用戶姓名 =39。 amp。 amp。 39。 With If .BOF Then .AddNew .Fields(0).Value = Trim() .Fields(1).Value = Trim() .Fields(2).Value = Trim() .Update MsgBox 注冊成功！ , vbInformation Else MsgBox 此用戶已存在！ , vbExclamation Call focusBack(Text1) 39。焦點返回用戶框 出租車信息管理系統(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(確實要刪除這條記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then On Error Resume Next (delete from 用戶表 where 用戶姓名 =39。 + str + 39。) MsgBox 記錄已刪除！ , , 系統(tǒng)提示 = = = = 系統(tǒng)初始化代碼： If MsgBox(執(zhí)行該命令將清空數(shù)據(jù)庫里所有記錄 ,確實要執(zhí)行嗎 ?, vbOKCancel) = vbOK Then (delete from 車輛信息表 ) (delete from 員工信息表 ) (delete from 買票信息 ) (delete from 買費信息 ) (delete from 公司收支表 ) (delete from 公司財產(chǎn)表 ) 出租車信息管理系統(tǒng)畢業(yè)論文 29 參考文獻 [1]亓萊濱 .Visual Basic 程序設計 [M].北京 :清華大學出版社 . [2]劉瑞新 . Visual Basic 實用教程 [M] .北京 :電子工業(yè)出版 社 .2020 [3]馬威 .Access2020 實用培訓教程 [M].北京 :清華大學出版社 .2020 [4]孫秀梅 .Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā) [M].北京 :人民郵電出版社 .2020 出租車信息管理系統(tǒng)畢業(yè)論文 30 致 謝 值此本科學位論文完成之際，首先要感謝我的導師 ***老師。 ****從一開始的論文方向的選定，到最后的整篇文論的完成，都非常耐心的對我進行指導。給我提供了大量數(shù)據(jù)資料和建議，告訴我應該注意的細節(jié)問題，細心的給我指出錯誤，修改論文。她 對分時電價領域的專業(yè)研究和對該課題深刻的見解，使我受益匪淺 。 ***老師誨人不倦 的工作作風，一絲不茍的工作態(tài)度，嚴肅認真的治學風格給我留下深刻的影響，值得我永遠學習。在此，謹向?qū)?***老師致以崇高的敬意和衷心的感謝！ 在此還要 感謝在整個論文寫作過程中幫助過我的每一位人。