📄

📁 VB开发的ERP系统
💻
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
        WglrGrid.TextMatrix(jsqte, Sydz("023", GridStr(), Szzls)) = Trim(.Fields("TotalRatioAmount") & "")         '累计与计划比(+/-)
        WglrGrid.TextMatrix(jsqte, Sydz("024", GridStr(), Szzls)) = Trim(.Fields("TotalRatioMoney") & "")          '累计与计划比(+/-)
    End With
End Sub
Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)             '用户点击工具条
     
    '屏蔽文本框,下拉组合框有效性判断,即在网格单元内录入数据时,点帮助信息等,不执行文本框等验证,即不执行YdText或YdCombo的LostFocus事件.
    Valilock = True
    
    '屏蔽网格失去焦点产生的有效性判断
    Changelock = True
    Select Case Button.Key
        Case "ymsz"                                          '页面设置
            Dyymctbl.Show 1
        Case "yl"                                            '预 览
            Call bbyl(True)
        Case "dy"                                            '打 印
            Call bbyl(False)
        Case "bz"                                            '帮 助
            Call F1bz
        Case "fh"                                            '退 出
            Unload Me
    End Select
    '解 锁
    Valilock = False
    Changelock = False
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)                        '支持热键操作，更确切地讲，是工具栏热键
    If Shift = 2 Then   'Ctrl的位屏蔽值=2
        Select Case UCase(Chr(KeyCode))
            Case "P"                   'Ctrl+P 打印
                If Tlb_Action.Buttons("dy").Enabled Then Call bbyl(False)
        End Select
    End If
End Sub
Private Sub Sub_OperStatus(Str_Status As String)                                    '工具条依据不同状态所进行的变化
    With Tlb_Action
        Select Case Str_Status
            Case "10"   '浏览(系统进入、放弃新增单据、填制凭证时删除单据,凭证审核)
                '工具条
                '.Buttons("dy").Enabled = False      '打印
                '.Buttons("yl").Enabled = False      '预览
            Case "11"   '浏览(放弃修改单据,查询单据)
                 '工具条
                .Buttons("dy").Enabled = True      '打印
                .Buttons("yl").Enabled = True      '预览
                .Buttons("xg").Enabled = True      '修改
                .Buttons("Auto").Enabled = True    '自动填充
                
            Case "30"   '修改
                '工具条
                .Buttons("dy").Enabled = False      '打印
                .Buttons("yl").Enabled = False      '预览
                .Buttons("xg").Enabled = False      '修改
                .Buttons("Auto").Enabled = False    '自动填充
        End Select
    End With
End Sub
Private Sub WglrGrid_EnterCell()                                        '显示当前数据行相关信息
    With WglrGrid
        If .Row >= .FixedRows Then
            Lab_Row = Trim(Str(.Row - .FixedRows + 1))
        End If
    End With
End Sub
Private Sub WglrGrid_GotFocus()                                         '网格得到焦点
    '网格得到焦点,如果当前选择行为非数据行
    '则调整当前焦点至有效数据行
    With WglrGrid
        If .Row < .FixedRows And .Rows > .FixedRows Then
            Changelock = True
            .Select .FixedRows, .Col
            Changelock = False
        End If
        If .Col < Qslz Then
            Changelock = True
            .Select .Row, Qslz
            Changelock = False
        End If
    End With
End Sub
Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
    Select Case Button.Key
        Case "bcgs"                              '保存表格格式
            Call Bcwggs(WglrGrid, GridCode, GridStr())
        Case "hfmrgs"                            '恢复默认格式
            Call Hfmrgs(WglrGrid, GridCode, GridStr())
        Case "szxsxm"                            '设置显示项目
            Call Szxsxm(WglrGrid, GridCode)
    End Select
End Sub
Private Sub bbyl(bbylte As Boolean)                                     '打印预览(通用)
    Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
    Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
    Bbxbtgs = 1                                  '报 表 小 标 题 行 数
    Bbbwhgs = 1                                  '报 表 表 尾 行 数
    ReDim Bbxbt(1 To Bbxbtgs)
    ReDim bbxbtzzxs(1 To Bbxbtgs)
    If Bbbwhgs <> 0 Then
        ReDim Bbbwh(1 To Bbbwhgs)
        ReDim Bbbwhzzxs(1 To Bbbwhgs)
    End If
    Bbzbt = ReportTitle
    '报表行组织形式(0-居左 1-居中 2-居右)
    bbxbtzzxs(1) = 0

    '报表行组织形式(0-居左 1-居中 2-居右)
    If Cbo_Object.ListCount > 0 Then
        Bbxbt(1) = Space(2) + Fun_FormatOutPut("成本对象:" + Right(Trim(Cbo_Object.List(Cbo_Object.ListIndex)), Len(Trim(Cbo_Object.List(Cbo_Object.ListIndex))) - 2), 95)
        Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Mid(CStr(Combo_KJQJ.List(Combo_KJQJ.ListIndex)), 1, 4) + "年" + Right(CStr(Combo_KJQJ.List(Combo_KJQJ.ListIndex)), 2) + "月", 35)
        Bbxbt(1) = Bbxbt(1) + "月产量:" + Lab_YCL.Caption + Space(3) + "累计产量:" + Lab_LJCL.Caption + Space(3) + "单位:" + Lab_DW.Caption
    Else
        Bbxbt(1) = Space(2) + "成本对象:"
    End If
    Call Scyxsjb(WglrGrid)                               '生成报表数据
    Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
    If Not bbylte Then
        Unload DY_Tybbyldy
    End If
End Sub
Sub Sub_CostObject()                                                    '显示对象
    SqlStr = " Select Objectcode,ObjectName From Cb_CostObject"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    Cbo_Object.Clear
    If Not RecTemp.EOF Then
        ReDim Pr_ObjectCode(RecTemp.RecordCount - 1)
        Do Until RecTemp.EOF
            Cbo_Object.AddItem Trim(RecTemp(0)) + Trim(RecTemp(1))
            Pr_ObjectCode(Cbo_Object.NewIndex) = Trim(RecTemp(0))
            RecTemp.MoveNext
        Loop
    End If
    If Cbo_Object.ListCount >= 1 Then
        Cbo_Object.ListIndex = 0
    End If
End Sub
Sub GridHidden(Bz As Integer)                                          '调整网格
    For Int_Coljsq = 0 To WglrGrid.Cols - 1
        WglrGrid.ColHidden(Int_Coljsq) = True
    Next Int_Coljsq
    Select Case Bz
        Case 0
            'ReportTitle = "生 产 费 用 表(股份分司)"
            WglrGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False
        Case 1
            'ReportTitle = "生 产 费 用 核 算 表(股份分司)"
            WglrGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False
        Case 2
            'ReportTitle = "生 产 费 用 分 析 表(股份分司)"
            WglrGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = False
            WglrGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False
        End Select
End Sub
Sub Lab_List()                                                          'Lab数据

    '单位
    SqlStr = "Select UnitName From Cb_CostObject A " _
                & "Left Outer Join Gy_UnitSet B On A.MeasureUnitCode=B.UnitCode " _
                & "Where A.ObjectCode='" + Pr_ObjectCode(Cbo_Object.ListIndex) + "'"
                
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    If Not RecTemp.EOF Then
        Lab_DW = RecTemp.Fields("UnitName") & ""
    Else
        Lab_DW = ""
    End If
    
    '月产量
    SqlStr = "Select Quantity From Cb_ObjectComplete Where ObjectCode='" + Pr_ObjectCode(Cbo_Object.ListIndex) + "'  " _
                & "And Year='" + CStr(PrivateYear) + "' And Period='" + CStr(PrivateMm) + "'"
                
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    If Not RecTemp.EOF Then
        Lab_YCL = Format(RecTemp.Fields("Quantity"), "0.0000")
    Else
        Lab_YCL = "0.0000"
    End If
    
    '累计产量
    SqlStr = "Select Sum(Quantity) As CL From Cb_ObjectComplete Where ObjectCode='" + Pr_ObjectCode(Cbo_Object.ListIndex) + "'  " _
                    & "And Year='" + CStr(PrivateYear) + "' And Period<='" + CStr(PrivateMm) + "'"
                    
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    If Not RecTemp.EOF Then
        Lab_LJCL.Caption = Format(RecTemp.Fields("CL"), "0.0000")
    Else
        Lab_LJCL.Caption = "0.0000"
    End If
    
End Sub
Sub WriteCostData(RecTemp As ADODB.Recordset)                       '写入成本数据
    If Trim(RecTemp.Fields("ObjectCode")) & "" <> "" Then
        With Cxnrrec
            Cw_DataEnvi.DataConnect.Execute ("Delete From Cb_Sccbb Where ObjectCode='" & Trim(RecTemp.Fields("ObjectCode")) & "' And ItemCode='" & RecTemp.Fields("ItemCode") & "' And Year='" & PrivateYear & "' And Period='" & PrivateMm & "'")
            If .State = 1 Then .Close
            .Open "Select * From Cb_Sccbb Where 1=2", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
            .AddNew
            .Fields("Objectcode") = Trim(RecTemp.Fields("Objectcode"))                       '对象编码
            .Fields("ItemCode") = Trim(RecTemp.Fields("ItemCode"))                           '项目编码
            .Fields("ParentCode") = Trim(RecTemp.Fields("ParentCode"))                       '一级编码
            .Fields("Year") = Trim(RecTemp.Fields("Year"))                                   '会计年度
            .Fields("Period") = Trim(RecTemp.Fields("Period"))                               '会计期间
            .Fields("UnitCode") = Trim(RecTemp.Fields("UnitCode"))                           '单位编码
            .Fields("PlanUnitPrice") = Trim(RecTemp.Fields("PlanUnitPrice"))                 '计划单价
            .Fields("PlanQuantity") = Trim(RecTemp.Fields("PlanQuantity"))                   '计划数量
            .Fields("PlanMoney") = Trim(RecTemp.Fields("PlanMoney"))                         '计划成本
            .Fields("PreMonAmount") = Trim(RecTemp.Fields("PreMonAmount"))                   '本月实耗
            .Fields("PreMonMoney") = Trim(RecTemp.Fields("PreMonMoney"))                     '本月实耗
            .Fields("ThmonAmount") = Trim(RecTemp.Fields("ThmonAmount"))                     '本月实耗
            .Fields("ThmonMoney") = Trim(RecTemp.Fields("ThmonMoney"))                       '本月实耗
            .Fields("ThmonInvAmount") = Trim(RecTemp.Fields("ThmonInvAmount"))               '本月实耗
            .Fields("ThmonInvMoney") = Trim(RecTemp.Fields("ThmonInvMoney"))                 '本月实耗
            .Fields("ThmonConsumeAmount") = Trim(RecTemp.Fields("ThmonConsumeAmount"))       '本月实耗
            .Fields("ThmonConsumeMoney") = Trim(RecTemp.Fields("ThmonConsumeMoney"))         '本月实耗
            .Fields("ThmonFactunAmount") = Trim(RecTemp.Fields("ThMonFactUnAmount"))         '实单耗
            .Fields("ThmonFactunMoney") = Trim(RecTemp.Fields("ThMonFactUnMoney"))           '实单耗
            .Fields("TotalConsumeAmount") = Trim(RecTemp.Fields("TotalConsumeAmount"))       '累计成本
            .Fields("TotalConsumeMoney") = Trim(RecTemp.Fields("TotalConsumeMoney"))         '累计成本
            .Fields("TotalConsumeUnAmount") = Trim(RecTemp.Fields("TotalConsumeUnAmount"))   '单位成本
            .Fields("TotalConsumeUnMoney") = Trim(RecTemp.Fields("TotalConsumeUnMoney"))     '单位成本
            .Fields("ThmonRatioAmount") = Trim(RecTemp.Fields("ThMonRatioAmount"))           '月份与计划比
            .Fields("ThmonRatioMoney") = Trim(RecTemp.Fields("ThMonRatioMoney"))             '月份与计划比
            .Fields("TotalRatioAmount") = Trim(RecTemp.Fields("TotalRatioAmount"))           '累计与计划比
            .Fields("TotalRatioMoney") = Trim(RecTemp.Fields("TotalRatioMoney"))             '累计与计划比
            .Fields("IsSum") = RecTemp.Fields("IsShow")                                      '显示否
            .Fields("IsShow") = RecTemp.Fields("IsSum")                                      '计算否
            .Update
        End With
    End If
End Sub
Sub ShowCostReport()                                        '显示报表明细数据
    '会计日历
    SqlStr = "Select Count(*) From gy_kjrlb where kjyear='" + Trim(Str(PrivateYear)) + "' And Period='" + CStr(PrivateMm) + "' " _
                    & "And CwzzJzbz='1'"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    If RecTemp.Fields(0) > 0 Then
        '显示数据
        Call Sub_ShowBill(1)
    Else
        '显示数据
        Call Sub_ShowBill(0)
    End If
End Sub
上一页 1 2 34
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -