【導(dǎo)讀】無法分類統(tǒng)計(jì)客戶信息？無法準(zhǔn)確全面掌握各業(yè)務(wù)進(jìn)展?fàn)顟B(tài)？無法準(zhǔn)確快速考核銷售人員業(yè)績(jī)？業(yè)務(wù)人員對(duì)產(chǎn)品沒有一定認(rèn)識(shí)？無法有效地同服務(wù)部人員溝通？銷售及市場(chǎng)流程不清析，流程變動(dòng)較大？無結(jié)構(gòu)統(tǒng)一的銷售及市場(chǎng)情況報(bào)表？基本銷售及市場(chǎng)費(fèi)用統(tǒng)計(jì)較不完備？企業(yè)的競(jìng)爭(zhēng)已逐漸從產(chǎn)品的競(jìng)爭(zhēng)轉(zhuǎn)變?yōu)榉?wù)的競(jìng)爭(zhēng)，因此中小企業(yè)要發(fā)展就必須。進(jìn)一步優(yōu)化業(yè)務(wù)流程以提高企業(yè)競(jìng)爭(zhēng)能力。高效率、降低成本。出發(fā)，充分“以客戶為中心”，為中小企業(yè)建立彈性化和靈活性的業(yè)務(wù)流程。同時(shí)加強(qiáng)了中小企業(yè)銷售過程中協(xié)同作業(yè)的能力，并實(shí)現(xiàn)。為導(dǎo)向的業(yè)務(wù)模式。幫助中小企業(yè)建立起規(guī)范化的企業(yè)營(yíng)銷體系，以提高企業(yè)營(yíng)銷的。度地提高市場(chǎng)占有率。對(duì)于前者要求建立數(shù)據(jù)一致性和完整性強(qiáng)數(shù)據(jù)安全性好的。件進(jìn)行記錄，以及對(duì)商品倉(cāng)庫(kù)的日常事務(wù)進(jìn)行處理。體部門的實(shí)際需求。提供應(yīng)數(shù)據(jù)庫(kù)的備份與恢復(fù)功能，更好的確保了數(shù)據(jù)的完整性。保持一個(gè)與其他類軟件接口，隨時(shí)滿足用戶的使用要求。

　　

【正文】 寫廠商地 址！ , 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 請(qǐng)?zhí)顚憦S商名稱！ , vbOKOnly + vbInformation, 注意 39。使 txtFc 獲得光標(biāo)焦點(diǎn) Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐访Q！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐沸吞?hào)！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐穬r(jià)格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐窋?shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚戜N售年份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then 南通紡院畢業(yè) (設(shè)計(jì) )論文 41 MsgBox 請(qǐng)?zhí)顚戜N售月份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚戜N售日！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚憳I(yè)務(wù)員姓名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懣偨痤~！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sql As String sql = select * from goods sql, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Val() 39。使用 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。打印發(fā)票 = 8000 = 8000 = 1100 = 300 = 12 企業(yè)銷售管理系統(tǒng) 42 銷售發(fā)票單 Dim a, B, C, D As Integer a = 100 B = 500 C = 4800 D = 400 = 10 = 100 + a = B + 200 時(shí)間： amp。 Date amp。 amp。 Time B = B + D (a, B + 100)(C, B + 100) = 100 + a = B + 200 商品名稱： amp。 B = B + D = 100 + a = B + 200 商品型號(hào)： amp。 B = B + D = 100 + a = B + 200 商品單價(jià)： amp。 Format(, ) B = B + D = 100 + a = B + 200 商品數(shù)量： amp。 B = B + D = 100 + a = B + 200 商品總價(jià)： amp。 Format(, ) B = B + D (a, B + 100)(C, B + 100) = 1000 + a = B + 200 歡迎您下次光臨 End Sub Private Sub cmdSell_Click() = False If = Then MsgBox 請(qǐng)?zhí)顚憦S商名稱 ！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then 南通紡院畢業(yè) (設(shè)計(jì) )論文 43 MsgBox 請(qǐng)?zhí)顚懮唐访Q！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚?商品型號(hào)！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐穬r(jià)格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐窋?shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚戜N售年份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚戜N售月份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚戜N售日！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚憳I(yè)務(wù)員姓名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懣偨痤~！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlcheck As String sqlcheck = select * from goods where 商品名 =39。 amp。 amp。 _ 39。and 生產(chǎn)廠商 =39。 amp。 amp。 39。and 型號(hào) =39。 amp。 amp。 39。 = adUseClient 39。設(shè)定游標(biāo)類型 sqlcheck, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 對(duì)不起，此商品型號(hào)已無貨！請(qǐng)選擇其他型！ , vbOKOnly + vbInformation, 注意 企業(yè)銷售管理系統(tǒng) 44 Exit Sub ElseIf (5) Val() Then MsgBox 此型號(hào)商品不足！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlsell As String sqlsell = select * from sell sqlsell, conn, adOpenKeyset, adLockPessimistic 39。添加入銷售表 (1) = (2) = (3) = (4) = (5) = Val() (6) = Val() (7) = (8) = (9) = (10) = 39。從現(xiàn)存商品表中減去 Dim oldquantity As Long 39。用于存放 goods 表中原來的此商品數(shù)量 Dim oldmoney As Long 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。需要進(jìn)行三次數(shù)據(jù)庫(kù)操作，加入退貨表，加入現(xiàn)存商品表，從銷售表中減去 = False If = Then 南通紡院畢業(yè) (設(shè)計(jì) )論文 45 MsgBox 請(qǐng)?zhí)顚憦S商名稱！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐访Q！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐沸吞?hào)！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐穬r(jià)格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮?品數(shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懲素浤攴荩?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懲素浽路荩?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then