車輛管理信息系統(tǒng)課程設(shè)計-資料下載頁
2025-09-01 12:09本頁面
【導(dǎo)讀】本程序的預(yù)期使用者為客戶、測試人員、用戶文檔編寫者、項目管理人員，本程序的使用對象為使用此車輛信息管理系統(tǒng)軟件的用戶。編號、轉(zhuǎn)讓價格、轉(zhuǎn)讓時間）等。面信息、訪問數(shù)據(jù)庫服務(wù)器；Server（服務(wù)器）端用于提供數(shù)據(jù)服務(wù)。
【正文】 就出現(xiàn)了很多錯，還有很多不足，需要努力。 通過車輛信息管理系統(tǒng)的設(shè)計，提高了對整個軟件開發(fā)過程的能力，也體會到軟件工程在實踐中的指導(dǎo)作用。通過課程設(shè)計，加深了按軟件 工程的要求完成規(guī)范的各項軟件開發(fā)文檔，對提高 軟件開發(fā)能力和項目管理能力有重要的現(xiàn)實意義。 華科學(xué)院軟件工程課程設(shè)計 24 參考文獻(xiàn) [1] 張海藩．軟件工程導(dǎo)論．清華大學(xué)出版社， 2020 年 [2] 何斌，王運堅． Visual Basic 應(yīng)用指南．北京人民郵電出版社， 2020 年 [3]．王晟． Visual Basic 數(shù)據(jù)庫開發(fā)經(jīng)典案例分析．第 1版．清華大學(xué)出版社，2020： 74124 [4] 陳弘原． Visual Basic 實用教程．北京中國水利水電出版社， 2020 年 華科學(xué)院軟件工程課程設(shè)計 25 附錄 using System。 using 。 using 。 using 。 using 。 using 。 using 。 namespace CarRental { public partial class frmMain : Form { public frmMain() { InitializeComponent()。 } Private Sub ckbf_Click() If Then = True Else = False End If End Sub Private Sub ckbx_Click() If Then = True Else = False End If End Sub Private Sub ckcp_Click() If Then = True Else = False End If End Sub Private Sub ckdw_Click() If Then 華科學(xué)院軟件工程課程設(shè)計 26 = True Else = False End If End Sub Private Sub cklx_Click() If Then = True Else = False End If End Sub Private Sub ckyd_Click() If Then = True Else = False End If End Sub Private Sub cmdAll_Click() = False = 0 = 0 = 0 = 0 = 0 = 0 Call Rebind = True = False = False End Sub Private Sub QingKong() = 您所要查詢的車輛檔案如下： 39。清空 datagrid1控件里的記錄 = Provider=。Data Source= amp。 amp。 \ amp。 。Persist Security Info=False = select * from 車輛檔案 where 0=1 華科學(xué)院軟件工程課程設(shè)計 27 End Sub Dim i As Integer Private Sub cmdAdd_Click() Unlockctl Dim temp1 temp1 = CStr(Year(Now)) = select * from 用戶檔案 order by 用戶編號 If 0 Then = Year(Now) amp。 Format(Val(Right((0), 4) + 1), 0000) Else = Year(Now) amp。 0001 End If = = = = = = = = = = True = True = False = False = True = False i = 1 End Sub Private Sub cmdCancel_Click() On Error Resume Next 39。當(dāng)沒有添加數(shù)據(jù)的時候 處理異常 Lockctl = = False = False = True = True = True 華科學(xué)院軟件工程課程設(shè)計 28 = True End Sub Private Sub cmdDelete_Click() If MsgBox(您確實要刪除記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then (delete from 用戶檔案 where 用戶編號 =39。 amp。 Text1 amp。 39。) MsgBox 記錄已刪除！ , , 系統(tǒng)提示 = = = = = = = = = = End If End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdFind_Click() Dim str As String str = InputBox$(輸入你要查詢的用戶編號： , 系統(tǒng)提示 ) If str = Then Exit Sub = select * from 用戶檔案 where 用戶 編號 =39。 + str + 39。 If 0 Then = (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = (10) = (11) 華科學(xué)院軟件工程課程設(shè)計 29 = (12) = True = True Else MsgBox 沒有你需要的信息！ , , 系統(tǒng)提示 = False = False End If End Sub Lockctl = False = False = True = True = True = True End Sub Private Sub cmdUpdate_Click() Unlockctl i = 2 = True = True = False = False = True = False End Sub
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1