單位車輛管理系統(tǒng)論文(參考版)
2025-01-25 08:44本頁面
【正文】 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，將在日后的時(shí)間繼續(xù)完善。并提供部分系統(tǒng)維護(hù)功能 ,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。但也有設(shè)計(jì)不足的地方，還需進(jìn)一步分析改進(jìn)，完善單位車輛管理系統(tǒng)。 本系統(tǒng)采用 Visual Basic ，和 SQL Server 數(shù)據(jù)庫設(shè)計(jì)，操作方便簡單，系統(tǒng)界面美觀，易于使用者操作。 ? End If ? = False 共 25頁 第 22 頁 ? = False End If If = vbChecked Then ? Call hidecheck If Trim() = Then MsgBox 查詢第 23 頁 設(shè)計(jì)總結(jié) 經(jīng)過一個(gè)多月的設(shè)計(jì)和開發(fā)，單位車輛管理系統(tǒng)基本開發(fā)完畢。 ? End If ? = False ? = False End If If = vbChecked Then ?Call hidecheck If Trim() = Then MsgBox 查詢 Else txtsql = sj_id=? amp。 ? Set mrc = ExecuteSQL(txtsql, msgtext) 共 25頁 第 21 頁 (1) = Trim() MsgBox 密碼修改成功 vbOKOnly + vbExclamation,修改密碼 End If End If End If End Sub 二、司機(jī)信息查詢代碼 Private Sub cmdok_Click() Dim txtsql As String If = vbChecked Then ? Call hidecheck If Trim() = Then MsgBox 查詢 Else txtsql = sj_name=? amp。系統(tǒng)功能模塊圖如下： 共 25頁 第 20 頁 圖 第六章 代碼與注釋 一、修改密碼的設(shè)計(jì)代碼 Private Sub cmdok_Click() Dim txtsql As String Dim msgtext As String Dim mrc As If Trim() password Then MsgBox 對不起，你輸入的舊密碼不正確！ , vbOKOnly + vbExclamation, 警告 = = = Else If Trim() = Then MsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = = = Else If Trim() Trim() Then MsgBox 兩次新密碼輸入不一致 , vbOKOnly + vbExclamation, 警告 = = = Else txtsql = select * from users where user_id=? amp。 共 25頁 第 19 頁 五、司機(jī)信息管理模塊設(shè)計(jì) 司機(jī) 信息管理模塊主要由三個(gè)窗體組成，分別是 frmdriver、 frmdriverlist、frmdriverfind。 gintvmode此變量主要用于標(biāo)志當(dāng)前處于添加狀態(tài)還是修改狀態(tài)，當(dāng)然在 form_load的時(shí)候，如果是添加則初始化控件數(shù)組 txtitem(i)為空 。這就是對輸入數(shù)據(jù)合理性進(jìn)行了審核。車型、車主、牌照和發(fā)動(dòng)機(jī)號則 不允許被省略，目的是為了別的模塊的連接和本身的查詢。 系統(tǒng)所建表如下圖所示： 圖 共 25頁 第 15 頁 圖 圖 共 25頁 第 16 頁
高考資料相關(guān)推薦
鄂ICP備17016276號-1