【正文】 H) amp。 ] 的明細情況 Call DoStyle If GetInitData(fl_Num, fl_Cash) = True Then Call DoShow(fl_Num, fl_Cash) 39。 AND Year(KDRQ)= amp。 m_CLBH amp。 m_CLBH amp。 m_Year Set drRec_2 = (drSQL) If Then MsgBox 沒有盤點，沒有期初期末數(shù)據(jù)！ GetInitData = False Else m_giNum = (QCSL).Value m_giCash = (QCJE).Value 附錄 第 43 頁 (共 44 頁 ) End If : Set drRec_2 = Nothing Else m_giNum = (QCSL).Value m_giCash = (QCJE).Value End If : Set drRec_1 = Nothing End Function Private Sub Form_Unload(Cancel As Integer) m_CLBH = m_Month = 0 m_Year = 0 End Sub Private Sub DoRemain(m_drNum As Single, m_drCash As Double) Dim rd_theSL As Single Dim rd_theJE As Double Dim rd_RKJE As Double, rd_CKJE As Double rd_theSL = m_drNum rd_theJE = m_drCash For I = 1 To rd。 m_Year Set drRec_1 = (drSQL) If Then drSQL = select * from T_SFC_QC Where BHBH=39。 (10) = rd_theSL (11) = Format(m_drCash, ,) Loop End Sub Private Sub DoStyle() Dim intWid As Integer intWid = 1200 , , 序號 , 600 , , 日期 , 1000, lvwColumnRight , , 憑證編號 , intWid, lvwColumnRight , , 摘要 , intWid, lvwColumnRight , , 收入數(shù)量 , intWid, lvwColumnRight , , 收入單價 , intWid, lvwColumnRight , , 收入金額 , intWid, lvwColumnRight , , 發(fā)出數(shù)量 , intWid, lvwColumnRight , , 發(fā)出單價 , intWid, lvwColumnRight , , 發(fā)出金額 , intWid, lvwColumnRight , , 結存數(shù)量 , intWid, lvwColumnRight 倉庫進銷存管理系統(tǒng) 第 42 頁 (共 44 頁 ) , , 結存金額 , intWid, lvwColumnRight End Sub Private Sub Form_Resize() On Error Resume Next 0, 100 + 500 + 50, , 650 End Sub Private Function GetInitData(m_giNum As Single, m_giCash As Double) As Boolean Dim drRec_1 As Dim drRec_2 As Dim drSQL As String GetInitData = True m_giNum = m_giCash = drSQL = select * from T_SFC Where BHBH=39。 AND Month(KDRQ)= amp。 ] 收發(fā)存明細 A, 1, 1) Else Unload Me End If End Sub Private Sub DoGroupCube(SlCol As String, JeCol As String) Dim arrSlCol() As String Dim arrJeCol() As String Dim k As Integer Dim total As Double Call ON_GetArray(SlCol, arrSlCol) Call ON_GetArray(JeCol, arrJeCol) , , ().SubItems(1) = 總計 For k = 0 To UBound(arrSlCol) total = 0 For J = 1 To total = total + Val((J).SubItems(Val(arrSlCol(k)))) 附錄 第 39 頁 (共 44 頁 ) Next ().SubItems(Val(arrSlCol(k))) = total Next For k = 0 To UBound(arrJeCol) total = 0 For J = 1 To total = total + Val((J).SubItems(Val(arrJeCol(k)))) Next ().SubItems(Val(arrJeCol(k))) = Format(total, ) Next End Sub Private Sub Form_Load() Dim fl_Num As Single Dim fl_Cash As Double = LoadResPicture(101, vbResIcon) ( ) / 2, ( ) / 4 = 查看 [ amp。 * where =39。 功能函數(shù) Public Sub Do_Aver_DJ() Dim da_Rec As Dim da_SQL As String Set da_Rec = (select * from AVER_DJ) Do While Not da_SQL = update J_clcl set DJDJ = amp。 SELECT , AS PMPM, AS GGGG, , , , , , , , , , , , FROM SFC_BBB AS A LEFT JOIN J_clcl AS B ON = ORDER BY 。 amp。 1 AS MON FROM SFC_rk AS A GROUP BY , year([KDRQ]) amp。 我還要特別感謝各位同學給予了我無私的幫助，正是在他們的鼓勵和幫助之下，我得以順利完成論文。 還有就是操作界面的方面問題，盡管在設計的過程中，我們時刻考慮到了操作界面的友好性，但實際情況是遠遠不能滿足客戶的要求， 考慮到軟件使用群體將是一群幾乎沒有任何電腦操作經驗的人，我們正在考慮設計出一種傻瓜式的界面。例如本系統(tǒng)的幫助系統(tǒng)還很欠缺。因此系統(tǒng)有基本目標和長遠目標。用書面格式書寫清楚并組織有關的學習，然后輸入到計算機并開始實施新的代碼體系。采取保護措施，可以把原庫內容拷貝到一個空庫中，待修改完畢，在拷回原庫中。 系統(tǒng)維護 （ 1）程序維護 指修改一部分或全部程序。 （ 6）部分模塊內的一些編輯操作可以通過快捷鍵進行。 人員查詢界面如圖 16 所示： 圖 16 人員查詢界面 操作員設置界面如圖 17 所示： 倉庫進銷存管理系統(tǒng) 第 26 頁 (共 44 頁 ) 圖 17 操作員設置界面 物品信息管理設計 物品信息管理窗體含有三個子窗體，主要功能能查詢物品出入庫的詳細信息，如：出入庫日期，月份及經手人員。 計算公式如下： 移動平均法亦稱移動加權平均法，指本次收貨的成本加原有庫存的成本，除以本次收貨數(shù)量加原有收貨數(shù)量，據(jù)以計算加權單價，并對發(fā)出存貨進行計價的一種方法。由于同一種存貨，盡管價格不同，但均能滿足銷售或生產需要，在存貨減少時，毋需辨別是哪一批實物被發(fā)出，哪一批庫存，成本的流轉順序倉庫進銷存管理系統(tǒng) 第 22 頁 (共 44 頁 ) 和實物的流轉順序可以分離，只要知道發(fā)出成本和庫存成本即可。當輸入的人員信息沒有管理員賦予的操作權限時，則無法顯示出各種信息。 倉庫進銷存管理系統(tǒng) 第 18 頁 (共 44 頁 ) 2 出貨管理 功能：能有效率的把所出售的材料，按各種基本信息，經手人員信息，日期及數(shù)量準確的出庫。該模塊能夠根據(jù)基本資料來進行商品的進貨，然后還 能根據(jù)添加的每次進貨信息進行修改和刪除，也可以按照一定的條件來進行查詢。 ER 圖 倉庫進銷存管理系統(tǒng) 第 12 頁 (共 44 頁 ) 程序總體 ER 圖如圖 4 所示： 圖 4 程序總體 ER 圖 人員管理模塊如圖 5 所示： 圖 5 人員管理模塊 材料管理模塊如圖 6 所示： 系統(tǒng)總體設計 第 13 頁 (共 44 頁 ) 圖 6 材料管理模塊 功能模塊 程序層次 程序層次如圖 7 所示： 登陸界面 管理系統(tǒng)界面 進庫管理 出庫管理 修改密碼 按日期查詢 按物品查詢 基本管理 查 詢 按人員查詢 系統(tǒng)設置 人員設置 操作員設置 數(shù)據(jù)整理 打印統(tǒng)計幫助等 圖 7 程序層次圖 模塊功 能說明 篇幅所限，僅挑選部分功能說明。 文件條目 文件名 稱： 。 （ 2）物料控制半自動化，加強了各個部門之間的聯(lián)系。在 ERP 系統(tǒng)完全投入實際運行后，企業(yè)應根據(jù)管理需要，利用 ERP 系統(tǒng)提供的信息資源設計出一套動態(tài)監(jiān)控管理績效變化的報表體系，以期即時反饋和糾正管理中存在的問題。為了達到預期設定的應用目標，最基本的要求是系統(tǒng)能夠運行起來，實現(xiàn)集成化應用，建立企業(yè)決策完善的數(shù)據(jù)體系和信息共享機制。 同時 對產品進行管理 ， 可以隨時查詢采購，銷售和庫存的記錄及時了解商品信息 ， 查詢了解供應商和客戶信息 。 （ 4）最大限度的保證訂貨任務的按期完成 。使企業(yè)處于全面受控狀態(tài)，壓縮投資規(guī)模，加快資金周圍，在實時反映的基礎上，修正企業(yè)在日常生產經營過程中各個環(huán)節(jié)上的偏差，降低產品成本和不必要的原料和在制品積壓。 本公司（現(xiàn)國內大多實業(yè)公司的代表）存在的問題：信息化不足，計算機使用率低，大量的日常工作皆是手工處 理，因此工作效率低落，企業(yè)內部溝通不良等等問題很難克服。 使用 Microsoft Visual Basic 及 Microsoft Office Access 2021 作為開發(fā)工具，利用面向對象的結構和自上而下的 程序設計方法，基本實現(xiàn)了倉庫的日常管理和進貨出貨的查詢 課題研究的目的和意義 根據(jù)指導老師、公司和客戶的要求，本次畢業(yè)設計是倉庫進銷存管理系統(tǒng)，要求利用 Visual Basic 完成管理平臺設計，構造所用的類庫；使用 Access 數(shù)據(jù)庫存儲數(shù)據(jù)，限單機使用。 目錄 畢業(yè)設計任務書 ..................................................................................................................Ⅰ 開題報告 ..............................................................................................................................Ⅱ 指導老師審核意見 ..............................................................................................................Ⅲ 答辯會議記錄 ......................................................................................................................Ⅴ 摘要 ......................................................................................................................................Ⅵ