【正文】 d 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 南通紡院畢業(yè) (設(shè)計(jì) )論文 37 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。 amp。 amp。打開窗體 = 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 南通紡院畢業(yè) (設(shè)計(jì) )論文 39 Dim sql As String 39。 amp。 amp。退出本窗口 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 企業(yè)銷售管理系統(tǒng) 40 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 If = Then MsgBox 請?zhí)顚憦S商名稱！ , vbOKOnly + vbInformation, 注意 39。 Date amp。 B = B + D = 100 + a = B + 200 商品單價(jià)： amp。 amp。 amp。 amp。設(shè)定游標(biāo)類型 sqlcheck, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 對不起，此商品型號已無貨！請選擇其他型！ , vbOKOnly + vbInformation, 注意 企業(yè)銷售管理系統(tǒng) 44 Exit Sub ElseIf (5) Val() Then MsgBox 此型號商品不足！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlsell As String sqlsell = select * from sell sqlsell, conn, adOpenKeyset, adLockPessimistic 39。用于存放 goods 表中原來的此商品進(jìn)貨總額 oldquantity = (5) oldmoney = (6) (5) = oldquantity Val() (6) = oldmoney ((4)) * Val() MsgBox 銷售成功！ , vbOKOnly + vbExclamation, 注意 End Sub 退貨登記 Dim rs_back As New Dim rs_check As New Dim rs_buy As New Private Sub cmdRetreat_Click() 39。從現(xiàn)存商品表中減去 Dim oldquantity As Long 39。 39。 39。 _ 39。 B = B + D = 100 + a = B + 200 商品總價(jià)： amp。 Time B = B + D (a, B + 100)(C, B + 100) = 100 + a = B + 200 商品名稱： amp。使用 Val 函數(shù)把 中的文本型數(shù)據(jù)轉(zhuǎn)換成數(shù)字型數(shù)據(jù) (6) = Val() (7) = (8) = (9) = (10) = MsgBox 添加用戶成功 , vbOKOnly + vbExclamation, End Sub 銷售登記窗體 Dim rs_add As New Dim rs_check As New Private Sub cmdpri_Click() 39。 39。 and _ amp。光標(biāo)定位于新密碼 textbox 中 Exit Sub End If sql = select * from userdb where 用戶名 = 39。 39。 and _ amp。首先檢查用戶是否輸入了用戶名和密碼 If = Then MsgBox 請輸入用 戶名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then 企業(yè)銷售管理系統(tǒng) 38 MsgBox 請輸入密碼！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim rstUser As New Dim sql As String sql = select * from userdb where 用戶名 = 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 企業(yè)銷售管理系統(tǒng) 36 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。在主窗體中打開對數(shù)據(jù)庫的連接 Dim connectionstring As String 39。查詢已售商品時(shí)使用 Public allem As Boolean 39。 Visual Basic 編程寶典 [6] 高春艷等編著人民郵電出社 Visual Basic 組件工具指南 [2] Microsoft 公司編著 同時(shí)，我還要感謝學(xué)校領(lǐng)導(dǎo)， 為了大家的畢業(yè)設(shè)計(jì)，他們盡心盡力地為大家安排機(jī)房，提供必要的條件，滿足同學(xué)們的要求。有了他們的幫助，我在設(shè)計(jì)中所遇到的問題才能得到圓滿的解決。只有按照科學(xué)的開發(fā)方法才能 開發(fā)出令人滿意的系統(tǒng)，而且開發(fā)起來也是事半功倍。通過調(diào)試能發(fā)現(xiàn)許多意想不到的錯(cuò)誤 ,這對于完善系統(tǒng) 是必不可少的。 系統(tǒng)的設(shè)計(jì)過程是循序漸進(jìn)的，先需求分析，再總體設(shè)計(jì)，后詳細(xì)設(shè)計(jì)，最后編寫代碼、上機(jī)調(diào)試、系統(tǒng)測試。在這次的開發(fā)中我有不少體會，具體總結(jié)如下： 系統(tǒng)開發(fā)前的準(zhǔn)備工作一定要做好。商品從入庫到出庫到銷售整個(gè)流通過程中各個(gè)環(huán)節(jié)所發(fā)生的事件進(jìn)行記錄，能隨時(shí)提供倉庫的庫存、商品銷售情況、客戶、廠商等信息，為采購計(jì)劃或市場預(yù)測提供有效的依據(jù)，以提高資金的利用率，避免不必要的損失，同時(shí)也 提高 了企業(yè) 的科學(xué)管理水平。白盒測試又叫結(jié)構(gòu)測試，是對軟件的過程細(xì)節(jié)做細(xì)致的檢查。 4. 徹底檢查每個(gè)測試結(jié)果。最后模塊測試給我們提供同時(shí)測試多個(gè)模塊的良機(jī)，從而在測試過程中提出了并行性問題。其目的是要對模塊的功能與定義模塊的性能規(guī)范或接口規(guī)范進(jìn)行比較。相反 ,測試者 僅僅關(guān)心尋找使程序未按規(guī)范運(yùn)行的情況 ,并且僅僅按程序的規(guī)范導(dǎo)出測試數(shù)據(jù)。所以進(jìn)行測試不應(yīng)是為了顯示程序是好的 ,而應(yīng)該從程序中含有錯(cuò)誤這個(gè)假定出發(fā)去測試程序 ,從中發(fā)現(xiàn)盡可能多的