VB开发的ERP系统

               Key             =   "szxsxm"
               ImageKey        =   "xsxm"
            EndProperty
         EndProperty
      End
   End
   Begin VB.Label Lab_Pzclzt 
      BackColor       =   &H0000FFFF&
      Caption         =   "2"
      ForeColor       =   &H00808080&
      Height          =   322
      Left            =   9012
      TabIndex        =   7
      Top             =   553
      Visible         =   0   'False
      Width           =   403
   End
End
Attribute VB_Name = "FX_FrmCostReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************************************************
'*    模 块 名 称 :生产成本明细表
'*    功 能 描 述 :生产成本明细表
'*    程序员姓名  :xjl
'*    最后修改人  :xjl
'*    最后修改时间:2002/1/22
'*    备        注:
'*********************************************************************************************************
 
 '[以下为根据实际情况设置变量
    Dim Rec_Defi As New ADODB.Recordset             '定义表
    Dim Bln_BillChange As Boolean                   '标识单据是否发生改动
    Dim jsqte  As Long                              '临时计数器
    Dim SqlStr As String                            '临时的SQL字符串
    Dim RecTemp As New ADODB.Recordset              '临时使用动态集
    Dim Pr_ObjectCode() As String                   '归集对象编码
    Dim ShowBillLock As Boolean                     '显示数据锁
    Dim KJQJLock As Boolean                         '会计期间锁
    Dim PrivateYear As Integer                      '当前年
    Dim PrivateMm As Integer                        '当前月
 ']
 
 '以下为固定使用变量(网格)
    Dim Cxnrrec As New ADODB.Recordset              '显示查询内容动态集
    Dim Dyymctbl As New DY_Dyymsz                   '打印页面窗体变量
    Dim GridCode As String                          '显示网格网格代码
    Dim GridInf() As Variant                        '整个网格设置信息
    Dim ReportTitle As String                       '报表主标题
    Dim Tsxx As String                              '系统提示信息
    Dim Pmbcsjhs As Long                            '屏幕网格保持数据行数(大于等于1)
    Dim Fzxwghs As Integer                          '辅助项网格行数(包括合计行)
    Dim Sfxshjwg As Boolean                         '是否显示合计网格
    Dim Qslz As Long                                '网格隐藏(非操作显示)列数
    Dim Sjhgd As Double                             '网格数据行高度
    Dim GridBoolean() As Boolean                    '网格列信息(布尔型)
    Dim GridStr()  As String                        '网格列信息(字符型)
    Dim GridInt() As Integer                        '网格列信息(整型)
    Dim Sfblbzkd As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
    Dim Dqlrwgh As Long                             '当前录入数据网格行
    Dim Dqlrwgl As Long                             '当前录入数据网格列
    Dim Dqlkwgh As Long                             '刚刚离开网格行(不一定为录入行)
    Dim Dqlkwgl As Long                             '刚刚离开网格列
    Dim Dqtoprow As Long                            '当前录入状态时最上端可视行
    Dim Dqleftcol As Long                           '当前录入状态时最左端可视列
    Dim Zdlrqnr As String                           '字段录入修改前内容(用来判断内容是否修改)
    Dim Wbkbhlock As Boolean                        '文本框改变值锁
    Dim Changelock As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
    Dim Gdtlock As Boolean                          '滚动条滚动控制(用来区别用户改变.程序改变)
    Dim Yxxpdlock As Boolean                        '字段有效性判断锁(内容不修改不需进行字段有效性判断)
    Dim Hyxxpdlock As Boolean                       '行有效性判断锁(字段内容不修改不需进行行有效性判断)
    Dim Valilock As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
    Dim Shsfts As Boolean                           '删除记录行是否提示
    Dim Szzls As Integer                            '网格信息数组最大下标值(网格列数-1)
Private Sub Cbo_Object_Click()                  '选择成本对象显示数据
    If ShowBillLock = False Then Exit Sub
    Call Lab_List               '显示LAB数据
    Call ShowCostReport         '显示明细数据
End Sub
Private Sub Combo_KJQJ_Click()                  '选择会计科目显示数据
    If KJQJLock = False Then
        Exit Sub
    End If
    PrivateYear = Mid(Trim(CStr(Combo_KJQJ.List(Combo_KJQJ.ListIndex))), 1, 4)
    PrivateMm = Right(Trim(CStr(Combo_KJQJ.List(Combo_KJQJ.ListIndex))), 2)
    Call Lab_List               '显示LAB数据
    Call ShowCostReport         '显示明细数据
End Sub
Private Sub Combo_ReportType_Click()            '选择报表类型
    Call GridHidden(Combo_ReportType.ListIndex)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)  '控制焦点转移
    Dim jdzygs As Integer
    jdzygs = 3
    Select Case KeyAscii
        Case vbKeyReturn
            If Kjjdzy(jdzygs) Then
            KeyAscii = 0
            End If
        Case 39           '屏蔽字符"'"
            KeyAscii = 0
    End Select
End Sub
Private Sub Form_Load()                         '窗体装入

    '初始化各种锁值
    Changelock = False             '网格行列改变控制锁
    Gdtlock = False                '滚动条滚动控制
    Yxxpdlock = True               '字段有效性判断锁
    Hyxxpdlock = True              '行有效性判断锁
    Wbkbhlock = False              '文本框内容改变锁
    KJQJLock = False
    ShowBillLock = False
    PrivateYear = Xtyear
    PrivateMm = Xtmm
    
    '报表主标题及报表编码
    ReportTitle = "生产成本明细表"
    XtReportCode = "Cb_CostReport"
    Load Dyymctbl

    '调入网格
    GridCode = "Cb_CostReport"                                  '网格属性编码
    Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
    
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Pmbcsjhs = GridInf(3)
    Fzxwghs = GridInf(4)
    Sfblbzkd = GridInf(5)
    Shsfts = GridInf(6)
    Sfxshjwg = GridInf(7)
    Szzls = WglrGrid.Cols - 1
    For jsqte = WglrGrid.FixedRows To WglrGrid.Rows - 1
        WglrGrid.RowHeight(jsqte) = Sjhgd
    Next jsqte
    
    Call Sub_CostObject                                         '显示成本对象
    Call Sub_FillPeriod(Combo_KJQJ, PrivateYear, PrivateMm)     '会计期间
    Combo_ReportType.ListIndex = 0                              '报表类型
    
    If Cbo_Object.ListCount > 0 Then
        Call Lab_List                                               '显示LAB数据
        Call ShowCostReport                                         '显示明细数据
        KJQJLock = True
    Else
        Call Sub_OperStatus("10")
    End If
    ShowBillLock = True
End Sub
Private Sub Form_Resize()                           '调整窗体
    On Error Resume Next
    With WglrGrid
        .Width = Me.Width - 160
        .Height = Me.Height - .Top - 400
    End With
    With Pic_Title
        .Width = Me.Width - 160
    End With
    
    GsToolbar.Left = Me.Width - GsToolbar.Width - 140
End Sub
Private Sub Form_Unload(Cancel As Integer)           '窗体卸载
    '卸载打印页面窗体
    Unload Dyymctbl
        
    '判断凭证是否发生变化
    If Bln_BillChange Then
        Xtfhcs = "1"
    Else
        Xtfhcs = "0"
    End If
    Set RecTemp = Nothing
End Sub
Private Sub Sub_ShowBill(Index As Integer)          '查找当前期间需盘存的项目
    Dim DimYear As Integer
    Dim DimMM As Integer
    DimMM = PrivateMm - 1
    If DimMM = 0 Then
        DimYear = PrivateYear - 1
        DimMM = 12
    Else
        DimYear = PrivateYear
    End If
    If Index = 0 Then   '未结帐
        SqlStr = "Select * From (Select Objectcode,ItemCode,Substring(ParentCode,3,3) as ParentCode,Year,Period,ItemName,UnitCode,UnitName,PlanUnitPrice,PlanQuantity,PlanMoney," _
                & "PreMonAmount,PreMonMoney,ScatterQuantity As ThmonAmount,ScatterMoney AS ThmonMoney,InvQuantity As ThmonInvAmount,InvValue As ThmonInvMoney,ThmonConsumeAmount, " _
                & "ThmonConsumeMoney,ThMonFactUnAmount,ThMonFactUnMoney,TotalConsumeAmount,TotalConsumeMoney, " _
                & "TotalConsumeUnAmount,TotalConsumeUnMoney,ThMonRatioAmount,ThMonRatioMoney,TotalRationAmount As TotalRatioAmount, " _
                & "TotalRationMoney As TotalRatioMoney,IsShow,IsSum From Cb_Fn_Sccb('" + CStr(Pr_ObjectCode(Cbo_Object.ListIndex)) + "', " _
                & "" + CStr(PrivateYear) + "," + CStr(PrivateMm) + "," + CStr(DimYear) + "," + CStr(DimMM) + "," + CStr(Val(Lab_YCL.Caption)) + "," + CStr(Val(Lab_LJCL.Caption)) + ") " _
                & "Union " _
                & "Select '','',Substring(ParentCode,3,3),'','','小计','','元',0,0,Sum(PlanMoney),0,Sum(PreMonMoney),0, " _
                & "Sum(ScatterMoney),0,Sum(InvValue),0,Sum(ThmonConsumeMoney), " _
                & "0,Sum(ThMonFactUnMoney),0,Sum(TotalConsumeMoney),0,Sum(TotalConsumeUnMoney),0,Sum(ThMonRatioMoney), " _
                & "0,Sum(TotalRationMoney),'','' " _
                & "From Cb_Fn_Sccb('" + CStr(Pr_ObjectCode(Cbo_Object.ListIndex)) + "'," + CStr(PrivateYear) + "," + CStr(PrivateMm) + ", " _
                & "" + CStr(DimYear) + "," + CStr(DimMM) + "," + CStr(Val(Lab_YCL.Caption)) + "," + CStr(Val(Lab_LJCL.Caption)) + ") Group By Substring(ParentCode,3,3) " _
                & "Union " _
                & "Select '','','总计','','','总计','','元',0,0,Sum(PlanMoney),0,Sum(PreMonMoney),0,Sum(ScatterMoney),0,Sum(InvValue),0,Sum(ThmonConsumeMoney), " _
                & "0,Sum(ThMonFactUnMoney),0,Sum(TotalConsumeMoney),0,Sum(TotalConsumeUnMoney),0,Sum(ThMonRatioMoney), " _
                & "0,Sum(TotalRationMoney),'','' " _
                & "From Cb_Fn_Sccb('" + CStr(Pr_ObjectCode(Cbo_Object.ListIndex)) + "'," + CStr(PrivateYear) + "," + CStr(PrivateMm) + ", " _
                & "" + CStr(DimYear) + "," + CStr(DimMM) + "," + CStr(Val(Lab_YCL.Caption)) + "," + CStr(Val(Lab_LJCL.Caption)) + ")) A Order By ParentCode ,ObjectCode desc"
                
    Else                '已结帐
        SqlStr = "Select * From (Select Objectcode,ItemCode,ParentCode,Year,Period,ItemName,UnitCode,UnitName,PlanUnitPrice,PlanQuantity," _
                & "PlanMoney,PreMonAmount,PreMonMoney,ThmonAmount,ThmonMoney,ThmonInvAmount,ThmonInvMoney, " _
                & "ThmonConsumeAmount,ThmonConsumeMoney,ThmonFactunAmount,ThmonFactunMoney,TotalConsumeAmount, " _
                & "TotalConsumeMoney,TotalConsumeUnAmount,TotalConsumeUnMoney,ThmonRatioAmount,ThmonRatioMoney, " _
                & "TotalRatioAmount,TotalRatioMoney,IsSum,IsShow From Cb_V_CostReprot " _
                & "Where ObjectCode='" + CStr(Pr_ObjectCode(Cbo_Object.ListIndex)) + "' And Year=" + CStr(PrivateYear) + " And Period=" + CStr(PrivateMm) + " " _
                & "Union " _
                & "Select '','',ParentCode,'','','小计','','元',0,0,Sum(PlanMoney),0,Sum(PreMonMoney),0, " _
                & "Sum(ThmonMoney),0,Sum(ThmonInvMoney),0,Sum(ThmonConsumeMoney), 0,Sum(ThmonFactunMoney),0, " _
                & "Sum(TotalConsumeMoney),0,Sum(TotalConsumeUnMoney),0,Sum(ThmonRatioMoney), 0,Sum(TotalRatioMoney),'','' " _
                & "From Cb_V_CostReprot " _
                & "Where ObjectCode='" + CStr(Pr_ObjectCode(Cbo_Object.ListIndex)) + "' And Year=" + CStr(PrivateYear) + " And Period=" + CStr(PrivateMm) + " " _
                & "Group By ParentCode " _
                & "Union " _
                & "Select '','','总计','','','总计','','元',0,0,Sum(PlanMoney),0,Sum(PreMonMoney),0,Sum(ThmonMoney),0, " _
                & "Sum(ThmonInvMoney),0,Sum(ThmonConsumeMoney), 0,Sum(ThmonFactunMoney),0,Sum(TotalConsumeMoney),0, " _
                & "Sum(TotalConsumeUnMoney),0,Sum(ThmonRatioMoney), 0,Sum(TotalRatioMoney),'','' " _
                & "From Cb_V_CostReprot " _
                & "Where ObjectCode='" + CStr(Pr_ObjectCode(Cbo_Object.ListIndex)) + "' And Year=" + CStr(PrivateYear) + " And Period=" + CStr(PrivateMm) + " " _
                & ") A Order By ParentCode ,ObjectCode Desc"
    End If
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    With RecTemp
        WglrGrid.Clear 1
        If .EOF Then
            Exit Sub
        Else
            WglrGrid.Rows = .RecordCount + WglrGrid.FixedRows
            '[>>显示单据头
            jsqte = WglrGrid.FixedRows
            
            Do While Not .EOF
                If jsqte >= WglrGrid.Rows Then
                    WglrGrid.AddItem ""
                End If
                '[>>显示分录
                If Index = 0 Then
                    Call Jltcwg(RecTemp, jsqte)     '写网格
                    Call WriteCostData(RecTemp)     '写入成本数据
                Else
                    Call Jltcwg(RecTemp, jsqte)     '写网格
                End If
                If Trim(.Fields("Itemcode")) = "" Then
                    WglrGrid.Cell(flexcpBackColor, jsqte, 0, jsqte, WglrGrid.Cols - 1) = Lab_Color(1).BackColor
                End If
                If Trim(.Fields("ParentCode")) = "总计" Then
                    WglrGrid.Cell(flexcpBackColor, jsqte, 0, jsqte, WglrGrid.Cols - 1) = Lab_Color(0).BackColor
                End If
                
                '<<]
                WglrGrid.RowHeight(jsqte) = Sjhgd
                .MoveNext
                jsqte = jsqte + 1
            Loop
        End If
    End With
End Sub
Private Sub Jltcwg(Jlbrec As ADODB.Recordset, jsqte As Long)                                     '记录内容填充网格
    With Jlbrec
        WglrGrid.TextMatrix(jsqte, 0) = "*"                                                                         '行标识
        WglrGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("ItemCode") & "")                  '项目编码
        WglrGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("ItemName") & "")                  '项目名称
        WglrGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("UnitName") & "")                  '计量单位
        WglrGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("PlanUnitPrice") & "")             '单位定额
        WglrGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("PlanQuantity") & "")              '单位定额
        WglrGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("PlanMoney") & "")                 '单位定额
        WglrGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PreMonAmount") & "")              '本月实耗
        WglrGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("PreMonMoney") & "")               '本月实耗
        WglrGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("ThmonAmount") & "")               '本月实耗
        WglrGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("ThmonMoney") & "")                '本月实耗
        WglrGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("ThmonInvAmount") & "")            '本月实耗
        WglrGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("ThmonInvMoney") & "")             '本月实耗
        WglrGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("ThmonConsumeAmount") & "")        '本月实耗
        WglrGrid.TextMatrix(jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("ThmonConsumeMoney") & "")         '本月实耗
        WglrGrid.TextMatrix(jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("ThMonFactUnAmount") & "")         '实单耗
        WglrGrid.TextMatrix(jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("ThMonFactUnMoney") & "")          '实单耗
        WglrGrid.TextMatrix(jsqte, Sydz("017", GridStr(), Szzls)) = Trim(.Fields("TotalConsumeAmount") & "")        '累计成本
        WglrGrid.TextMatrix(jsqte, Sydz("018", GridStr(), Szzls)) = Trim(.Fields("TotalConsumeMoney") & "")         '累计成本
        WglrGrid.TextMatrix(jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("TotalConsumeUnAmount") & "")      '累计成本
        WglrGrid.TextMatrix(jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("TotalConsumeUnMoney") & "")       '累计成本
        WglrGrid.TextMatrix(jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("ThMonRatioAmount") & "")          '月份与计划比(+/-)
        WglrGrid.TextMatrix(jsqte, Sydz("022", GridStr(), Szzls)) = Trim(.Fields("ThMonRatioMoney") & "")           '月份与计划比(+/-)