vb進銷存管理系統(tǒng)畢業(yè)論文-文庫吧資料
2024-09-15 18:29本頁面
【正文】 KJE).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。 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)))) 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 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()) 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 (=) 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。 五、編碼實現(xiàn)與測試 編碼摘要 材料收發(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
公司管理相關(guān)推薦
鄂ICP備17016276號-1