汽車銷售系統—畢業設計論文-資料下載頁

【導讀】勢，是社會生產力發展到一定階段的必然產物。信息是國家制定政策、進行。宏觀調控，企業從事日常事務處理、生產控制、生產決策的重要戰略資源，最新生產力，它正從總體上引導著世界經濟和社會發展的進程。誰能夠充分利用信息，誰就能在社會競爭及經濟發展中求得生存。的開發實際上是一項龐大的系統工程，即信息系統工程。本文論述了在可視。化開發環境VisualBasic下分析、設計、開發的汽車銷售管理系統。該系統基本滿足了在中小企業銷售管理方面的需求，用戶界面友好，功能強大，大大減少了人力資源，增加了信息分析的準確性。

　　

【正文】 辭 幾個月 的 畢業設計已經進入尾聲，在這里我要真誠地感謝幫助過我的老師和同學們，有了他們的幫助我才能順利的完成這次畢業設計。有了他們的幫助，我在設計中所遇到的問題才能得到圓滿的解決。 在此，我特別感謝 高成強、 黃華豐、黃海濤、朱小社 老師，他給予我莫大的幫助。在畢業設計期間，黃老師幫我分析問題的所在，指出設計中存在的不足，提出了改進的方案，才使得我的系統得已完善。我再次衷心地感謝黃老師對我的幫助。 同時，我還要感謝學校領導， 為了大家的畢業設計，他們盡心盡力地為大家安排機房，提供必要的條件，滿足同學們的要求。 最后，我再一次衷 心地感謝 各位領導、指導老師和同學們，謝謝！ 參考文獻： [1] Microsoft 公司編著 Visual Basic 中文程序員指南 北京希望電子出版社 [2] Microsoft 公司編著 Visual Basic 控件參考手冊 北京希望電子出版社 [3] Microsoft 公司編著 Visual Basic 組件工具指南 北京希望電子出版社 [4] 張海藩 編著軟件工程人民郵電出社 [5] 劉萌等編著 Visual Basic 企業辦公系統開發實例導航 人民郵電出社 [6] 高春艷等編著 Visual Basic 數據庫開發關鍵技術與實例應用人民郵電出版社 [7] Steven Jordan 牛力等編著 Visual Basic 編程寶典電子工業出版社 附： 系統具體源代碼如下： 公共模塊部分 Option Explicit Public conn As New Public all As Boolean 39。查詢現存商品中使用的 Public allsell As Boolean 39。查詢已售商品時使用 Public allem As Boolean 39。查詢員工業績時使用 Public strgname As String 39。查詢現存商品中使用的商品名 Public strtype As String 39。查詢現存商品中使用的型號名 主窗體 Private Sub MDIForm_Load() 39。在主窗體中打開對數據庫的連接 Dim connectionstring As String 39。定義一個連接串變量 connectionstring = provider=。 amp。 _ data source= connectionstring 39。沒 有登錄前設置各菜單不可用 = False = False = False = False = False = False = False = False = False (2).Text = 版權所有：南通紡織職業技術學院（朱林軍） End Sub Private Sub mnbuy_Click() End Sub Private Sub mnchart_Click() End Sub Private Sub mnclientlog_Click() End Sub Private Sub mnclientquery_Click() End Sub Private Sub mned_Click() End Sub Private Sub mnelog_Click() End Sub Private Sub mnsell_Click() End Sub Private Sub Timer1_Timer() (1).Text = Format(Date, long date) amp。 amp。 Time End Sub Private Sub MDIForm_Unload(Cancel As Integer) End Sub Private Sub mnbuylog_Click() End Sub Private Sub mnchpwd_Click() End Sub Private Sub mnem_Click() End Sub Private Sub mnemlogin_Click() End Sub Private Sub mnexit_Click() Unload Me End Sub Private Sub mnfc_Click() End Sub Private Sub mngoodstable_Click() End Sub Private Sub mngrade_Click() End Sub Private Sub mnretable_Click() End Sub Private Sub mnretreat_Click() End Sub Private Sub mnselllog_Click() End Sub Private Sub mnselltable_Click() End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = mnselllog Case Is = mnbuylog Case Is = mngoodstable Case Is = mnsell Case Is = mnchart Case Is = mngrade Case Is = mnchpwd Case Is = mnbak Case Is = mnexit Unload Me End Select End Sub 登錄窗體 Option Explicit Dim t As Integer 39。記錄確定次數 Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdLogin_Click() 39。首先檢查用戶是否輸入了用戶名和密碼 If = Then MsgBox 請輸入用戶名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請輸入密碼！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim rstUser As New Dim sql As String sql = select * from userdb where 用戶名 = 39。 amp。 amp。 39。 and _ amp。 密碼 = 39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then t = t + 1 If t 3 Then MsgBox 用戶名或密碼錯誤！ , vbOKOnly + vbInformation, 注意 End If If t = 3 Then MsgBox 三次輸入密碼錯誤！ , vbOKOnly + vbInformation, 系統自動退出 Unload Me Unload MDIfrmMain End If Exit Sub Else MsgBox 正確登錄 , vbOKOnly + vbExclamation, 39。打開窗體 = True = True = True = True = True = True = True = True = True Unload Me End If End Sub 修改密碼窗體 Private Sub cmdChPwdCancel_Click() Unload Me End Sub Private Sub cmdChPwdOk_Click() Dim rstUser As New Dim sql As String 39。先檢測兩次輸入的新密碼時候一樣 If Then MsgBox 兩次輸入的密碼不同！請重新輸入 , vbOKOnly + vbInformation, 39。光標定位于新密碼 textbox 中 Exit Sub End If sql = select * from userdb where 用戶名 = 39。 amp。 amp。 39。 and _ amp。 密碼 = 39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 用戶名或老密碼錯誤 , vbOKOnly + vbExclamation, = = Exit Sub Else (2) = MsgBox 修改密碼成功！ , vbOKOnly + vbInformation, Unload Me 39。退出本窗口 End If End Sub 進貨登記窗體 Dim rs_addfc As New Dim rs_add As New Private Sub cmdaddfc_Click() = False If = Then MsgBox 請填寫廠商名稱！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請填寫廠商法人代表！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請填寫電話！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請填寫廠商地址！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlfc As String sqlfc = select * from manufacturer sqlfc, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = MsgBox 添加廠商成功 , vbOKOnly + vbExclamation, End Sub Private Sub cmdadd_Click() = False I