基于vbaccess的倉(cāng)庫(kù)進(jìn)銷存管理系統(tǒng)畢業(yè)設(shè)計(jì)論文-閱讀頁(yè)
2024-08-25 08:22本頁(yè)面
【正文】 , AS GGGG, , , , , , , , , , , , FROM SFC_BBB AS A LEFT JOIN J_clcl AS B ON =ORDER BY 。SELECT SFC_ZW_B.*, IIf(isnull([O_Dzfy].[ZWZW]),空,[O_Dzfy].[ZWZW]) AS ZWCCFROM SFC_ZW_B LEFT JOIN O_Dzfy ON [SFC_ZW_B].[FLCC]=[O_Dzfy].[FHFH]。全月一次加權(quán)平均計(jì)算單價(jià)的部分代碼：sql 語(yǔ)句：SELECT , SUM() AS RKSL, SUM() AS RKJEFROM AVER_MTH_RK1 AS AWHERE NOT (ISNULL())GROUP BY [CLBH]。SELECT , , , , * AS JEJEFROM K_clrk_M AS A INNER JOIN K_clrk_D AS B ON =WHERE STATUS=1。功能函數(shù)Public Sub Do_Aver_DJ()Dim da_Rec As Dim da_SQL As StringSet da_Rec = (select * from AVER_DJ)Do While Not da_SQL = update J_clcl set DJDJ = amp。 where BHBH= 39。 (CLBH) amp。 (da_SQL)da_SQL = update K_LLLL_D set JEJE = amp。 * where =39。 _ (CLBH) amp。 and IN (SELECT DHDH FROM AVER_mth_LL2) (da_SQL)LoopEnd Sub收發(fā)存明細(xì),追蹤某中材料某月的進(jìn)出庫(kù)情況，并顯示出是那一帳單據(jù)進(jìn)行操作，如果是領(lǐng)料則在摘要中寫明成本項(xiàng)目。Private Sub CmdMe_Click(Index As Integer)If Index = 0 ThenCall PrintLstv(, LoadResString(804), 材料[ amp。 ] 收發(fā)存明細(xì)A, 1, 1)ElseUnload MeEnd IfEnd SubPrivate Sub DoGroupCube(SlCol As String, JeCol As String)Dim arrSlCol() As StringDim arrJeCol() As StringDim k As IntegerDim total As DoubleCall 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)))) Next ().SubItems(Val(arrSlCol(k))) = total NextFor 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, )NextEnd SubPrivate Sub Form_Load()Dim fl_Num As SingleDim fl_Cash As Double = LoadResPicture(101, vbResIcon) ( ) / 2, ( ) / 4 = 查看[ amp。 ] 的明細(xì)情況Call DoStyleIf GetInitData(fl_Num, fl_Cash) = True Then Call DoShow(fl_Num, fl_Cash)39。 amp。 39。 AND Month(KDRQ)= amp。 AND Year(KDRQ)= amp。 MsgBox 無(wú)效的材料編號(hào)！ Exit SubEnd IfI = 1Set itmX = (, , A amp。 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 (4) = (RKSL).Value (5) = IIf((RKDJ).Value = , , Format((RKDJ).Value, ,)) (6) = IIf((RKJE).Value = , , Format((RKJE).Value, ,)) 39。 (10) = rd_theSL (11) = Format(m_drCash, ,) LoopEnd SubPrivate Sub DoStyle()Dim intWid As IntegerintWid = 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 , , 結(jié)存金額, intWid, lvwColumnRightEnd SubPrivate Sub Form_Resize()On Error Resume Next 0, 100 + 500 + 50, , 650End SubPrivate Function GetInitData(m_giNum As Single, m_giCash As Double) As BooleanDim drRec_1 As Dim drRec_2 As Dim drSQL As StringGetInitData = Truem_giNum = m_giCash = drSQL = select * from T_SFC Where BHBH=39。 m_CLBH amp。drSQL = drSQL amp。 m_Month amp。 m_YearSet drRec_1 = (drSQL)If Then drSQL = select * from T_SFC_QC Where BHBH=39。 m_CLBH amp。 drSQL = drSQL amp。 m_Month 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 End If : Set drRec_2 = NothingElse m_giNum = (QCSL).Value m_giCash = (QCJE).ValueEnd If: Set drRec_1 = NothingEnd FunctionPrivate Sub Form_Unload(Cancel As Integer)m_CLBH = m_Month = 0m_Year = 0End SubPrivate Sub DoRemain(m_drNum As Single, m_drCash As Double)Dim rd_theSL As SingleDim rd_theJE As DoubleDim rd_RKJE As Double, rd_CKJE As Doublerd_theSL = m_drNumrd_theJE = m_drCashFor I = 1 To rd_theSL = rd_theSL + Val((I).SubItems(4)) Val((I).SubItems(7)) (I).SubItems(10) = rd_theSL If rd_theSL 0 Then rd_CKJE = Val(Format((I).SubItems(9), )) rd_theJE = rd_theJE + rd_RKJE rd_CKJE Else rd_theJE = 0 End If(I).SubItems(11) = Format(rd_theJE, ,)NextEnd Sub
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1