【正文】 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_Month amp。 drSQL = drSQL amp。 m_CLBH amp。 m_Year Set drRec_1 = (drSQL) If Then drSQL = select * from T_SFC_QC Where BHBH=39。 m_Month amp。 drSQL = drSQL amp。 m_CLBH amp。 (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 , , 結(jié)存數(shù)量 , intWid, lvwColumnRight 倉庫進銷存管理系統(tǒng) 第 42 頁 (共 44 頁 ) , , 結(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。 I) rd_RKJE = IIf((RKJE).Value = , 0, (RKJE).Value) rd_CKJE = IIf((CKJE).Value = , 0, (CKJE).Value) rd_theSL = rd_theSL + Val((RKSL)) Val((CKSL)) m_drCash = m_drCash + rd_RKJE rd_CKJE (1) = (KDRQ).Value (2) = (DHDH).Value (3) = (CBXM).Value 附錄 第 41 頁 (共 44 頁 ) (4) = (RKSL).Value (5) = IIf((RKDJ).Value = , , Format((RKDJ).Value, ,)) (6) = IIf((RKJE).Value = , , Format((RKJE).Value, ,)) 39。 MsgBox 無效的材料編號！ Exit Sub End If I = 1 Set itmX = (, , A amp。 AND Year(KDRQ)= amp。 AND Month(KDRQ)= amp。 39。 amp。 ] 的明細情況 Call DoStyle If GetInitData(fl_Num, fl_Cash) = True Then Call DoShow(fl_Num, fl_Cash) 39。 ] 收發(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。 Private Sub CmdMe_Click(Index As Integer) If Index = 0 Then Call PrintLstv(, LoadResString(804), 材料 [ amp。 and IN (SELECT DHDH FROM 倉庫進銷存管理系統(tǒng) 第 38 頁 (共 44 頁 ) AVER_mth_LL2) (da_SQL) Loop End Sub 收發(fā)存明細 ,追蹤某中材料某月的進出庫情況，并顯示出是那一帳單據(jù)進行操作，如果是領(lǐng)料則在摘要中寫明成本項目。 _ (CLBH) amp。 * where =39。 (da_SQL) da_SQL = update K_LLLL_D set JEJE = amp。 (CLBH) amp。 where BHBH= 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 JEJE FROM K_clrk_M AS A INNER JOIN K_clrk_D AS B ON = WHERE STATUS=1。 全月一次加權(quán)平均計算單價的部分代碼： sql 語句： SELECT , SUM() AS RKSL, SUM() AS RKJE FROM AVER_MTH_RK1 AS A WHERE NOT (ISNULL()) 附錄 第 37 頁 (共 44 頁 ) GROUP BY [CLBH]。 SELECT SFC_ZW_B.*, IIf(isnull([O_Dzfy].[ZWZW]),空 ,[O_Dzfy].[ZWZW]) AS ZWCC FROM SFC_ZW_B LEFT JOIN O_Dzfy ON [SFC_ZW_B].[FLCC]=[O_Dzfy].[FHFH]。 SELECT , AS PMPM, AS GGGG, , , , , , , , , , , , FROM SFC_BBB AS A LEFT JOIN J_clcl AS B ON = ORDER BY 。 SELECT AS BHBH, AS YFYF, IIf(ISNULL(),0,) AS QCSL, IIf(ISNULL(),0,) AS SRSL, [QCSL]+SRSL AS MISL, IIf(ISNULL(),0,) AS QCJE, IIf(ISNULL(),0,) AS SRJE, [QCJE]+SRJE AS MIJE FROM T_SFC_QC AS A LEFT JOIN SFC_RK_GP AS B ON (=CDATE()) AND (=) 倉庫進銷存管理系統(tǒng) 第 36 頁 (共 44 頁 ) ORDER BY [bhbh]。 amp。 amp。 amp。 amp。 1。 Month([KDRQ]) amp。 1 AS MON FROM SFC_rk AS A GROUP BY , year([KDRQ]) amp。 Month([KDRQ]) amp。 SELECT , Sum() AS ZSL, Sum() AS ZJE, year([KDRQ]) amp。 致謝 附錄 第 35 頁 (共 44 頁 ) 附錄： 材料收發(fā)存分類匯總的部分代碼： 附錄 sql 語句： SELECT [K_llll_D].[CLBH] AS CLBH, [K_llll_M].[KDRQ] AS KDRQ, [K_llll_M].[CBXM] AS CBXM, [K_llll_M].[DHDH], [K_llll_D].[SLSL] AS SLSL, [k_LLLL_D].[JEJE] AS JEJE FROM K_llll_M INNER JOIN K_llll_D ON [K_llll_M].[DHDH]=[K_llll_D].[DHDH] WHERE [K_llll_M].[status]=1。 我還要特別感謝各位同學(xué)給予了我無私的幫助，正是在他們的鼓勵和幫助之下，我得以順利完成論文。無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都是一種巨大的幫助，感謝他耐心的輔導(dǎo)。 [8] 林永 .Visual 用戶編程手冊 [M].人民郵電出版社 , 1999 年 [9] Julia Case 高級編程 [M].常曉波 ,劉穎等翻譯 . 清華大學(xué)出版社 ,2021 年 [10] 溫賢發(fā) .Visual Basic 6 數(shù)據(jù)庫程序設(shè)計高手 [M].科學(xué)出版社， [11] 京輝熱點工作室 .Visual Basic 中文版編程指南 [S].人民郵電出版社， 1999 年 9 月 [12] 李振亭 .Visual Basic 程序設(shè)計教程 [M].北方交通大學(xué)出版社， 2021 年 9 月 [13] 劉圣才 .李春葆主編 Visual Basic 6 程序設(shè)計導(dǎo)學(xué) [M].清華大學(xué)出版社， 2021 年 1 月 [14] 龔沛曾 .Visual Basic 程序設(shè)計教程 [M].高等教育出版社， 2021 年 7