【正文】 商品入庫 商品出庫(二)、商品銷售、退貨 商品銷售 銷售退貨(一)、商品入庫、出庫Start流程圖：登記選擇供應(yīng)商，經(jīng)手人，入庫倉號，商品信息等 信息是否輸入完整？ .F. .T. 是否保存？ .F. .T.End功能：完成商品入庫工作，付供應(yīng)商貨款方式可采用現(xiàn)金和支票，并可掛帳。說明：入庫采用智能化表單錄入，可一次錄入多種商品，在“商品名稱”欄內(nèi)輸入商品名稱或簡稱的前幾個字或找〈PageDown〉鍵，系統(tǒng)將自動利用表格顯示相關(guān)商品信息。使用方向鍵〈↑〉、〈↓〉 選擇商品，按回車鍵，該商品信息將自動錄入到表格中，只需輸入如哭數(shù)量（系統(tǒng)自動計算商品金額），回車后即可入庫下一商品。系統(tǒng)自動生成入庫票號，可利用組合鍵選擇供應(yīng)商信息、經(jīng)手人、倉庫。自動統(tǒng)計商品入庫功能：完成退還給供應(yīng)商貨物的工作。說明：同商品入庫工作相似，同商品入庫成正反關(guān)系。(二)、商品銷售、退貨流程圖：Start登記選擇供應(yīng)商，經(jīng)手人，入庫倉號，商品信息等 信息是否輸入完整？ .F. .T. 是否保存？ .F. .T.End功能：完成商品銷售工作，客戶貨款方式可采用現(xiàn)金和支票，并可掛帳。說明：銷售采用錄入方式同商品入庫錄入方式，自動生成銷售票號，自動統(tǒng)計商品銷售品種、數(shù)量、金額、計算折扣、稅率。但如果銷售商品數(shù)量大于庫存商品數(shù)量時，此筆交易將被取消，所以在商品銷售模中銷售的商品數(shù)量一定要小于等于該商品的庫存數(shù)量。功能：完成客戶退貨的工作。說明：退貨采用錄入方式同商品銷售。功能：四）、庫存管理（一）、庫存商品查詢功能：查詢商品庫中所有商品的信息。說明：可選擇不同字段查詢商品庫存信息，并支持模糊查詢和鍵盤操作。（二）、庫存盤點功能：查詢各倉庫中商品庫存情況。說明：選擇倉庫名稱、查詢該倉庫中庫存商品的情況。五）、查詢統(tǒng)計管理（一）、入庫查詢功能：查詢商品入庫信息。說明：選擇字段查詢商品入庫信息，支持模糊查詢，按任意時間段查詢商品入庫信息，統(tǒng)計入庫品種、入庫數(shù)量、入庫金額。（二）、出庫查詢功能：查詢退供應(yīng)商貨物信息。說明：選擇字段查詢商品入庫信息，支持模糊查詢，按任意時間段查詢商品入庫信息，統(tǒng)計入庫品種、入庫數(shù)量、入庫金額。（三）、銷售查詢功能：查詢商品銷售信息。說明：選擇任意字段、不同條件查詢商品銷售信息，也可按任意時間段查詢商品銷售信息，支持模糊查詢和精確查詢，可統(tǒng)計銷售品種、數(shù)量、金額。（四）、銷售退貨功能：查詢客戶退貨信息。說明：選擇任意字段、不同條件查詢商品銷售信息，也可按任意時間段查詢商品銷售信息，支持模糊查詢和精確查詢，可統(tǒng)計銷售品種、數(shù)量、金額。六）、應(yīng)收應(yīng)付管理（一）、付款單功能：實現(xiàn)向供應(yīng)商付款的功能。說明：可查詢與供應(yīng)商之間的往來帳款信息，提供供應(yīng)商列表選擇，并計算欠供應(yīng)商的累計余額。（二）、收款單功能：實現(xiàn)向客戶收款的功能。說明：可查詢與客戶之間的往來帳款信息，提供客戶列表選擇、并計算應(yīng)收客戶累計余額。（三）、應(yīng)收款查詢功能：查詢客戶付款信息。說明：查詢?nèi)我鈺r間段內(nèi)與客戶往來帳款信息，輸入或選擇客戶名稱查詢應(yīng)收款，統(tǒng)計欠款金額，尚欠余額。（四）、應(yīng)付款查詢功能：查詢向供應(yīng)商付款信息。說明：查詢?nèi)我鈺r間段內(nèi)與供應(yīng)商之間的往來帳款信息，提供供應(yīng)商列表供用戶選擇、支持鍵盤操作，統(tǒng)計欠款余額，付款金額，尚欠余額。七）、統(tǒng)計報表管理（一）、銷售日報表功能：查詢當(dāng)天的商品銷售日報，同時統(tǒng)計商品銷售品種、銷售數(shù)量、銷售金額。（二）、銷售月報表功能：查詢?nèi)我庖粋€月或任意時間段的商品銷售報表，統(tǒng)計銷售品種、銷售數(shù)量、銷售余額。（三）、客戶銷售報表功能：統(tǒng)計所有客戶銷售商品的情況。說明：可以按商品名稱、倉庫、職員或任意時間段統(tǒng)計所有客戶銷售商品的情況，采用組合式查詢方法。（四）、職員銷售報表功能：統(tǒng)計公司所有職員銷售商品的情況。說明：可以按商品名稱、倉庫或客戶名稱或任意時間段統(tǒng)計所有職員銷售商品的情況。八）、基礎(chǔ)信息管理（一）、商品信息管理功能：完成商品基本信息的錄入、保存、修改、刪除，支持鍵盤操作，選擇字段查詢商品基本信息，并可列表瀏覽商品信息。說明：錄入時單擊“登記”按鈕，將自動生成8位商品編號，在處理數(shù)據(jù)時，列表瀏覽商品信息不可用。（二）、職員信息管理功能：完成職員基本信息的錄入、保存、修改、刪除，可按任意字段查詢職員基本情況，支持列表瀏覽職員信息。說明：登記職員信息時自動生成職員編號。（三）、倉庫信息管理功能：完成倉庫基本信息的錄入、保存、修改、刪除，可按列表方式查詢倉庫信息。（四）、供應(yīng)商信息管理功能：完成供應(yīng)商基本信息的錄入、保存、修改、刪除，可以按任意字段查詢供應(yīng)商基本信息。（五）、客戶信息管理功能：完成客戶基本信息的錄入、保存、修改、刪除，可以按任意字段查詢客戶基本信息。九）、系統(tǒng)設(shè)置（一）、本單位定義功能：定義本單位的基本信息，可以修改。（二）、操作員及密碼功能：操作員信息的添加、修改、刪除、密碼的修改及操作員信息瀏覽。（三）、權(quán)限設(shè)置功能：對操作員進(jìn)行不同的權(quán)限設(shè)置。（四）、系統(tǒng)初始化功能：對系統(tǒng)數(shù)據(jù)庫進(jìn)行清空記錄說明：第一次進(jìn)入系統(tǒng)時清空測試數(shù)據(jù)，可以選擇初始化對象。十）、幫助（一）、幫助功能：幫助提示信息。（二）、關(guān)于功能：版權(quán)說明及查看計算機(jī)系統(tǒng)信息。四、各個重要模塊的程序簡介1. 公用模塊Option ExplicitPublic Function n() As String n = Provider=。Persist Security Info=False。User ID=sa。Data Source=Gcgl。Initial Catalog=GcglEnd FunctionPublic Sub Enter(KeyCode As Integer) If KeyCode = vbKeyReturn Then SendKeys {Tab} End IfEnd Sub2. 系統(tǒng)登錄模塊Dim TIM As Integer 39。聲明一個整型變量Dim rs1 As New 定義一個數(shù)據(jù)集對象Dim myval As String Private Sub Form_Activate()39。顯示軟件名稱及版本信息 = amp。 版本： V amp。 amp。 . amp。 amp。 . amp。 select * from qxsz , n, adOpenKeyset, adLockOptimistic 39。打開數(shù)據(jù)庫If = 0 Then myval = MsgBox(進(jìn)入系統(tǒng)后先設(shè)置操作員和操作員權(quán)限！,0) Load frm_main Unload Me Else End IfEnd SubPrivate Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = True End IfEnd SubPrivate Sub cmd1_Click() select * from qxsz where 操作員名稱=39。 amp。 amp。 39。, n, adOpenKeyset, adLockOptimistic If 0 Then = (商品入庫) (1).Enabled = (商品入庫) = (商品銷售) (8).Enabled = (商品銷售) = (退貨返廠) = (銷售退貨) (10).Enabled = (銷售退貨) = (庫存查詢) (5).Enabled = (庫存查詢) = (庫存盤點) = (入庫查詢) (3).Enabled = (入庫查詢) = (退貨返廠查詢) = (銷售查詢) (12).Enabled = (銷售查詢) = (銷售退貨查詢) = (付款單) (15).Enabled = (付款單) = (收款單) (16).Enabled = (收款單) = (應(yīng)收款查詢) = (應(yīng)付款查詢) = (銷售日報表) = (銷售月報表) = (客戶銷售報表) = (職員銷售報表) = (商品信息管理) = (員工信息管理) = (倉庫信息管理) = (185。供應(yīng)商信息管理) (21).Enabled = (185。供應(yīng)商信息管理) = (客戶信息管理) (19).Enabled = (客戶信息管理) = (本單位定義) = (操作員及密碼) = (權(quán)限設(shè)置) = (系統(tǒng)初始化) Dim MESSAGE As String = TIM = select * from qxsz where 操作員名稱=39。 + + 39。 If And = Trim((密碼)) Then Load frm_main (3).Text = Trim() Unload Me Else If TIM = 3 Then MESSAGE = MsgBox(密碼輸入錯誤,請向系統(tǒng)管理員查詢!, 0, ) If MESSAGE = vbOK Then End End If If = Then MsgBox (請輸入操作員!) Else If Trim() Trim((操作員名稱)) Then MsgBox (查無此操作員,請重新輸入操作員!) Else If (密碼) Then MsgBox (密碼錯誤,請重新輸入密碼!) TIM = TIM + 1 End If End If End If End If End If End SubPrivate Sub cmd2_Click() EndEnd Sub3. 主程序模塊Private Sub ckcx_Click() Load main_cxtj_ckcx = FalseEnd SubPrivate Sub Form_Load() = amp。 版本： V amp。 amp。 . amp。 amp。 . amp。 Dim i As Integer For i = 0 To 1 Label1(i).Caption = Next i = 版本： V amp。 amp。 . amp。 amp。 . amp。 End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case