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

　　

【正文】 寫廠商地 址！ , 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。使 txtFc 獲得光標焦點 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐穬r格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售年份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then 南通紡院畢業(yè) (設(shè)計 )論文 41 MsgBox 請?zhí)顚戜N售月份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售日！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憳I(yè)務(wù)員姓名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?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 時間： 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 商品型號： amp。 B = B + D = 100 + a = B + 200 商品單價： amp。 Format(, ) B = B + D = 100 + a = B + 200 商品數(shù)量： amp。 B = B + D = 100 + a = B + 200 商品總價： 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 請?zhí)顚憦S商名稱 ！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then 南通紡院畢業(yè) (設(shè)計 )論文 43 MsgBox 請?zhí)顚懮唐访Q！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚?商品型號！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐穬r格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售年份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售月份！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售日！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憳I(yè)務(wù)員姓名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?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 型號 =39。 amp。 amp。 39。 = adUseClient 39。設(shè)定游標類型 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。添加入銷售表 (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 表中原來的此商品進貨總額 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。需要進行三次數(shù)據(jù)庫操作，加入退貨表，加入現(xiàn)存商品表，從銷售表中減去 = False If = Then 南通紡院畢業(yè) (設(shè)計 )論文 45 MsgBox 請?zhí)顚憦S商名稱！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐穬r格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮?品數(shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懲素浤攴荩?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懲素浽路荩?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then