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

　　

【正文】 辭 幾個月 的 畢業(yè)設(shè)計已經(jīng)進(jìn)入尾聲，在這里我要真誠地感謝幫助過我的老師和同學(xué)們，有了他們的幫助我才能順利的完成這次畢業(yè)設(shè)計。有了他們的幫助，我在設(shè)計中所遇到的問題才能得到圓滿的解決。 在此，我特別感謝 高成強、 黃華豐、黃海濤、朱小社 老師，他給予我莫大的幫助。在畢業(yè)設(shè)計期間，黃老師幫我分析問題的所在，指出設(shè)計中存在的不足，提出了改進(jìn)的方案，才使得我的系統(tǒng)得已完善。我再次衷心地感謝黃老師對我的幫助。 同時，我還要感謝學(xué)校領(lǐng)導(dǎo)， 為了大家的畢業(yè)設(shè)計，他們盡心盡力地為大家安排機房，提供必要的條件，滿足同學(xué)們的要求。 最后，我再一次衷 心地感謝 各位領(lǐng)導(dǎo)、指導(dǎo)老師和同學(xué)們，謝謝！ 參考文獻(xiàn)： [1] Microsoft 公司編著 Visual Basic 中文程序員指南 北京希望電子出版社 [2] Microsoft 公司編著 Visual Basic 控件參考手冊 北京希望電子出版社 [3] Microsoft 公司編著 Visual Basic 組件工具指南 北京希望電子出版社 [4] 張海藩 編著軟件工程人民郵電出社 [5] 劉萌等編著 Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實例導(dǎo)航 人民郵電出社 [6] 高春艷等編著 Visual Basic 數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應(yīng)用人民郵電出版社 [7] Steven Jordan 牛力等編著 Visual Basic 編程寶典電子工業(yè)出版社 附： 系統(tǒng)具體源代碼如下： 公共模塊部分 Option Explicit Public conn As New Public all As Boolean 39。查詢現(xiàn)存商品中使用的 Public allsell As Boolean 39。查詢已售商品時使用 Public allem As Boolean 39。查詢員工業(yè)績時使用 Public strgname As String 39。查詢現(xiàn)存商品中使用的商品名 Public strtype As String 39。查詢現(xiàn)存商品中使用的型號名 主窗體 Private Sub MDIForm_Load() 39。在主窗體中打開對數(shù)據(jù)庫的連接 Dim connectionstring As String 39。定義一個連接串變量 connectionstring = provider=。 amp。 _ data source= connectionstring 39。沒 有登錄前設(shè)置各菜單不可用 = False = False = False = False = False = False = False = False = False (2).Text = 版權(quán)所有：南通紡織職業(yè)技術(shù)學(xué)院（朱林軍） 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。記錄確定次數(shù) 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, 系統(tǒng)自動退出 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。光標(biāo)定位于新密碼 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 進(jìn)貨登記窗體 Dim rs_addfc As New Dim rs_add As New Private Sub cmdaddfc_Click() = False If = Then MsgBox 請?zhí)顚憦S商名稱！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憦S商法人代表！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戨娫挘?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憦S商地址！ , 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