【正文】 H) amp。 ] 的明細(xì)情況 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 沒(méi)有盤點(diǎn)，沒(méi)有期初期末數(shù)據(jù)！ GetInitData = False Else m_giNum = (QCSL).Value m_giCash = (QCJE).Value 附錄 第 43 頁(yè) (共 44 頁(yè) ) 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 , , 序號(hào) , 600 , , 日期 , 1000, lvwColumnRight , , 憑證編號(hào) , intWid, lvwColumnRight , , 摘要 , intWid, lvwColumnRight , , 收入數(shù)量 , intWid, lvwColumnRight , , 收入單價(jià) , intWid, lvwColumnRight , , 收入金額 , intWid, lvwColumnRight , , 發(fā)出數(shù)量 , intWid, lvwColumnRight , , 發(fā)出單價(jià) , intWid, lvwColumnRight , , 發(fā)出金額 , intWid, lvwColumnRight , , 結(jié)存數(shù)量 , intWid, lvwColumnRight 倉(cāng)庫(kù)進(jìn)銷存管理系統(tǒng) 第 42 頁(yè) (共 44 頁(yè) ) , , 結(jié)存金額 , 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ā)存明細(xì) 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) = 總計(jì) For k = 0 To UBound(arrSlCol) total = 0 For J = 1 To total = total + Val((J).SubItems(Val(arrSlCol(k)))) 附錄 第 39 頁(yè) (共 44 頁(yè) ) 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。 我還要特別感謝各位同學(xué)給予了我無(wú)私的幫助，正是在他們的鼓勵(lì)和幫助之下，我得以順利完成論文。 還有就是操作界面的方面問(wèn)題，盡管在設(shè)計(jì)的過(guò)程中，我們時(shí)刻考慮到了操作界面的友好性，但實(shí)際情況是遠(yuǎn)遠(yuǎn)不能滿足客戶的要求， 考慮到軟件使用群體將是一群幾乎沒(méi)有任何電腦操作經(jīng)驗(yàn)的人，我們正在考慮設(shè)計(jì)出一種傻瓜式的界面。例如本系統(tǒng)的幫助系統(tǒng)還很欠缺。因此系統(tǒng)有基本目標(biāo)和長(zhǎng)遠(yuǎn)目標(biāo)。用書(shū)面格式書(shū)寫(xiě)清楚并組織有關(guān)的學(xué)習(xí)，然后輸入到計(jì)算機(jī)并開(kāi)始實(shí)施新的代碼體系。采取保護(hù)措施，可以把原庫(kù)內(nèi)容拷貝到一個(gè)空庫(kù)中，待修改完畢，在拷回原庫(kù)中。 系統(tǒng)維護(hù) （ 1）程序維護(hù) 指修改一部分或全部程序。 （ 6）部分模塊內(nèi)的一些編輯操作可以通過(guò)快捷鍵進(jìn)行。 人員查詢界面如圖 16 所示： 圖 16 人員查詢界面 操作員設(shè)置界面如圖 17 所示： 倉(cāng)庫(kù)進(jìn)銷存管理系統(tǒng) 第 26 頁(yè) (共 44 頁(yè) ) 圖 17 操作員設(shè)置界面 物品信息管理設(shè)計(jì) 物品信息管理窗體含有三個(gè)子窗體，主要功能能查詢物品出入庫(kù)的詳細(xì)信息，如：出入庫(kù)日期，月份及經(jīng)手人員。 計(jì)算公式如下： 移動(dòng)平均法亦稱移動(dòng)加權(quán)平均法，指本次收貨的成本加原有庫(kù)存的成本，除以本次收貨數(shù)量加原有收貨數(shù)量，據(jù)以計(jì)算加權(quán)單價(jià)，并對(duì)發(fā)出存貨進(jìn)行計(jì)價(jià)的一種方法。由于同一種存貨，盡管價(jià)格不同，但均能滿足銷售或生產(chǎn)需要，在存貨減少時(shí)，毋需辨別是哪一批實(shí)物被發(fā)出，哪一批庫(kù)存，成本的流轉(zhuǎn)順序倉(cāng)庫(kù)進(jìn)銷存管理系統(tǒng) 第 22 頁(yè) (共 44 頁(yè) ) 和實(shí)物的流轉(zhuǎn)順序可以分離，只要知道發(fā)出成本和庫(kù)存成本即可。當(dāng)輸入的人員信息沒(méi)有管理員賦予的操作權(quán)限時(shí)，則無(wú)法顯示出各種信息。 倉(cāng)庫(kù)進(jìn)銷存管理系統(tǒng) 第 18 頁(yè) (共 44 頁(yè) ) 2 出貨管理 功能：能有效率的把所出售的材料，按各種基本信息，經(jīng)手人員信息，日期及數(shù)量準(zhǔn)確的出庫(kù)。該模塊能夠根據(jù)基本資料來(lái)進(jìn)行商品的進(jìn)貨，然后還 能根據(jù)添加的每次進(jìn)貨信息進(jìn)行修改和刪除，也可以按照一定的條件來(lái)進(jìn)行查詢。 ER 圖 倉(cāng)庫(kù)進(jìn)銷存管理系統(tǒng) 第 12 頁(yè) (共 44 頁(yè) ) 程序總體 ER 圖如圖 4 所示： 圖 4 程序總體 ER 圖 人員管理模塊如圖 5 所示： 圖 5 人員管理模塊 材料管理模塊如圖 6 所示： 系統(tǒng)總體設(shè)計(jì) 第 13 頁(yè) (共 44 頁(yè) ) 圖 6 材料管理模塊 功能模塊 程序?qū)哟? 程序?qū)哟稳鐖D 7 所示： 登陸界面 管理系統(tǒng)界面 進(jìn)庫(kù)管理 出庫(kù)管理 修改密碼 按日期查詢 按物品查詢 基本管理 查 詢 按人員查詢 系統(tǒng)設(shè)置 人員設(shè)置 操作員設(shè)置 數(shù)據(jù)整理 打印統(tǒng)計(jì)幫助等 圖 7 程序?qū)哟螆D 模塊功 能說(shuō)明 篇幅所限，僅挑選部分功能說(shuō)明。 文件條目 文件名 稱： 。 （ 2）物料控制半自動(dòng)化，加強(qiáng)了各個(gè)部門之間的聯(lián)系。在 ERP 系統(tǒng)完全投入實(shí)際運(yùn)行后，企業(yè)應(yīng)根據(jù)管理需要，利用 ERP 系統(tǒng)提供的信息資源設(shè)計(jì)出一套動(dòng)態(tài)監(jiān)控管理績(jī)效變化的報(bào)表體系，以期即時(shí)反饋和糾正管理中存在的問(wèn)題。為了達(dá)到預(yù)期設(shè)定的應(yīng)用目標(biāo)，最基本的要求是系統(tǒng)能夠運(yùn)行起來(lái)，實(shí)現(xiàn)集成化應(yīng)用，建立企業(yè)決策完善的數(shù)據(jù)體系和信息共享機(jī)制。 同時(shí) 對(duì)產(chǎn)品進(jìn)行管理 ， 可以隨時(shí)查詢采購(gòu)，銷售和庫(kù)存的記錄及時(shí)了解商品信息 ， 查詢了解供應(yīng)商和客戶信息 。 （ 4）最大限度的保證訂貨任務(wù)的按期完成 。使企業(yè)處于全面受控狀態(tài)，壓縮投資規(guī)模，加快資金周圍，在實(shí)時(shí)反映的基礎(chǔ)上，修正企業(yè)在日常生產(chǎn)經(jīng)營(yíng)過(guò)程中各個(gè)環(huán)節(jié)上的偏差，降低產(chǎn)品成本和不必要的原料和在制品積壓。 本公司（現(xiàn)國(guó)內(nèi)大多實(shí)業(yè)公司的代表）存在的問(wèn)題：信息化不足，計(jì)算機(jī)使用率低，大量的日常工作皆是手工處 理，因此工作效率低落，企業(yè)內(nèi)部溝通不良等等問(wèn)題很難克服。 使用 Microsoft Visual Basic 及 Microsoft Office Access 2021 作為開(kāi)發(fā)工具，利用面向?qū)ο蟮慕Y(jié)構(gòu)和自上而下的 程序設(shè)計(jì)方法，基本實(shí)現(xiàn)了倉(cāng)庫(kù)的日常管理和進(jìn)貨出貨的查詢 課題研究的目的和意義 根據(jù)指導(dǎo)老師、公司和客戶的要求，本次畢業(yè)設(shè)計(jì)是倉(cāng)庫(kù)進(jìn)銷存管理系統(tǒng)，要求利用 Visual Basic 完成管理平臺(tái)設(shè)計(jì)，構(gòu)造所用的類庫(kù)；使用 Access 數(shù)據(jù)庫(kù)存儲(chǔ)數(shù)據(jù)，限單機(jī)使用。 目錄 畢業(yè)設(shè)計(jì)任務(wù)書(shū) ..................................................................................................................Ⅰ 開(kāi)題報(bào)告 ..............................................................................................................................Ⅱ 指導(dǎo)老師審核意見(jiàn) ..............................................................................................................Ⅲ 答辯會(huì)議記錄 ......................................................................................................................Ⅴ 摘要 ......................................................................................................................................Ⅵ