+

VB财务软件系统下载源代码提供自由下载使用学习

            Me.tlbAction.Buttons("Delete").Enabled = False
            Me.tlbAction.Buttons("Save").Enabled = False
            Me.tlbAction.Buttons("Cancel").Enabled = False
            Me.tlbAction.Buttons("Refresh").Enabled = True
            Me.tlbAction.Buttons("AddCol").Enabled = False
            Me.tlbAction.Buttons("DeleteCol").Enabled = False
            Me.picView.Enabled = False
            Me.txtIRateCode.Enabled = False
            Me.ufgIRate.Visible = False
    End Select
    
    Set objEO = objIRateBI.Init(g_sDataSourceName, EO.EOS.EOMetaData.BIType)
    
    '----Set Value
    With m_EO
        '设置属性
        Me.txtIRateCode.MaxLength = .Fields("irate_code").length
        Me.txtIRateCode.Property = SwitchDataType(.Fields("irate_code").DataType)
        
        Me.txtAdjustDate.MaxLength = objEO("adjust_date").length
        Me.txtAdjustDate.Property = SwitchDataType(objEO("adjust_date").DataType)
        
        Me.txtNzy_rate.MaxLength = objEO("nzy_rate").length
        Me.txtNzy_rate.NumPoint = objEO("nzy_rate").Decimals
        Me.txtNzy_rate.Property = SwitchDataType(objEO("nzy_rate").DataType)
        
        Me.txtNcq_rate.MaxLength = objEO("ncq_rate").length
        Me.txtNcq_rate.NumPoint = objEO("ncq_rate").Decimals
        Me.txtNcq_rate.Property = SwitchDataType(objEO("ncq_rate").DataType)
        
        Me.txtNyq_rate.MaxLength = objEO("nyq_rate").length
        Me.txtNyq_rate.NumPoint = objEO("nyq_rate").Decimals
        Me.txtNyq_rate.Property = SwitchDataType(objEO("nyq_rate").DataType)
        
        Me.txtRation_mny.MaxLength = objEO("ration_mny").length
        Me.txtRation_mny.NumPoint = objEO("ration_mny").Decimals
        Me.txtRation_mny.Property = SwitchDataType(objEO("ration_mny").DataType)
        
        Me.txtRation_rate.MaxLength = objEO("ration_rate").length
        Me.txtRation_rate.NumPoint = objEO("ration_rate").Decimals
        Me.txtRation_rate.Property = SwitchDataType(objEO("ration_rate").DataType)
        
        '赋值
        If m_EO.State = U8FDEso.esoInitialized Then
            Me.txtIRateCode.Text = ""
            Me.txtAdjustDate.Text = "" 'IIf(IsNull(.EOS("K" & m_OID.id)("adjust_date")), "", .EOS("K" & m_OID.id)("adjust_date"))
            Me.txtNzy_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nzy_rate")), "", .EOS("K" & m_OID.id)("nzy_rate"))
            Me.txtNcq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("ncq_rate")), "", .EOS("K" & m_OID.id)("ncq_rate"))
            Me.txtNyq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nyq_rate")), "", .EOS("K" & m_OID.id)("nyq_rate"))
            Me.chkRation_flag.Value = 0
            Me.txtRation_mny.Enabled = False
            Me.txtRation_rate.Enabled = False
            Me.txtRation_mny.Text = "" '.EOS("K" & m_OID.id)("ration_mny")
            Me.txtRation_rate.Text = "" '.EOS("K" & m_OID.id)("ration_rate")
        ElseIf m_EO.State = U8FDEso.esoAddNew Then
            Me.txtIRateCode.Text = ""
            Me.txtAdjustDate.Text = "" 'IIf(IsNull(.EOS("K" & m_OID.id)("adjust_date")), "", .EOS("K" & m_OID.id)("adjust_date"))
            Me.txtNzy_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nzy_rate")), "", .EOS("K" & m_OID.id)("nzy_rate"))
            Me.txtNcq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("ncq_rate")), "", .EOS("K" & m_OID.id)("ncq_rate"))
            Me.txtNyq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nyq_rate")), "", .EOS("K" & m_OID.id)("nyq_rate"))
            Me.chkRation_flag.Value = 0
            Me.txtRation_mny.Enabled = False
            Me.txtRation_rate.Enabled = False
            Me.txtRation_mny.Text = "" '.EOS("K" & m_OID.id)("ration_mny")
            Me.txtRation_rate.Text = "" '.EOS("K" & m_OID.id)("ration_rate")
        ElseIf m_EO.State = U8FDEso.esoEdit Then
            Me.txtIRateCode.Text = IIf(IsNull(.Fields("irate_code")), "", .Fields("irate_code"))
            If mID(NodeKey, 2) = m_OID.id Then
                Me.txtAdjustDate.Text = IIf(IsNull(.EOS("K" & m_OID.id)("adjust_date")), "", .EOS("K" & m_OID.id)("adjust_date"))
                Me.txtNzy_rate.Text = Format(IIf(IsNull(.EOS("K" & m_OID.id)("nzy_rate")), "", .EOS("K" & m_OID.id)("nzy_rate")), RateFormat(.EOS("K" & m_OID.id)("nzy_rate").Decimals)) '*100
                Me.txtNcq_rate.Text = Format(IIf(IsNull(.EOS("K" & m_OID.id)("ncq_rate")), "", .EOS("K" & m_OID.id)("ncq_rate")), RateFormat(.EOS("K" & m_OID.id)("ncq_rate").Decimals))
                Me.txtNyq_rate.Text = Format(IIf(IsNull(.EOS("K" & m_OID.id)("nyq_rate")), "", .EOS("K" & m_OID.id)("nyq_rate")), RateFormat(.EOS("K" & m_OID.id)("nyq_rate").Decimals))
                If .EOS("K" & m_OID.id)("ration_flag") Then
                    Me.chkRation_flag.Value = 1
                    Me.txtRation_mny.Enabled = True
                    Me.txtRation_rate.Enabled = True
                    Me.txtRation_mny.Text = Format(.EOS("K" & m_OID.id)("ration_mny"), RateFormat(.EOS("K" & m_OID.id)("ration_mny").Decimals))
                    Me.txtRation_rate.Text = Format(.EOS("K" & m_OID.id)("ration_rate"), RateFormat(.EOS("K" & m_OID.id)("ration_rate").Decimals))
                Else
                    Me.chkRation_flag.Value = 0
                    Me.txtRation_mny.Enabled = False
                    Me.txtRation_rate.Enabled = False
                    Me.txtRation_mny.Text = "" '.EOS("K" & m_OID.id)("ration_mny")
                    Me.txtRation_rate.Text = "" '.EOS("K" & m_OID.id)("ration_rate")
                End If
            Else
                Me.txtAdjustDate.Text = "" 'IIf(IsNull(.EOS("K" & m_OID.id)("adjust_date")), "", .EOS("K" & m_OID.id)("adjust_date"))
                Me.txtNzy_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nzy_rate")), "", .EOS("K" & m_OID.id)("nzy_rate"))
                Me.txtNcq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("ncq_rate")), "", .EOS("K" & m_OID.id)("ncq_rate"))
                Me.txtNyq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nyq_rate")), "", .EOS("K" & m_OID.id)("nyq_rate"))
                Me.chkRation_flag.Value = 0
                Me.txtRation_mny.Enabled = False
                Me.txtRation_rate.Enabled = False
                Me.txtRation_mny.Text = "" '.EOS("K" & m_OID.id)("ration_mny")
                Me.txtRation_rate.Text = "" '.EOS("K" & m_OID.id)("ration_rate")
            End If
            If m_EditCol = 1 Then
                Me.txtAdjustDate.Text = "" 'IIf(IsNull(.EOS("K" & m_OID.id)("adjust_date")), "", .EOS("K" & m_OID.id)("adjust_date"))
                Me.txtNzy_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nzy_rate")), "", .EOS("K" & m_OID.id)("nzy_rate"))
                Me.txtNcq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("ncq_rate")), "", .EOS("K" & m_OID.id)("ncq_rate"))
                Me.txtNyq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nyq_rate")), "", .EOS("K" & m_OID.id)("nyq_rate"))
                Me.chkRation_flag.Value = 0
                Me.txtRation_mny.Enabled = False
                Me.txtRation_rate.Enabled = False
                Me.txtRation_mny.Text = "" '.EOS("K" & m_OID.id)("ration_mny")
                Me.txtRation_rate.Text = "" '.EOS("K" & m_OID.id)("ration_rate")
            End If
        Else
            Me.txtIRateCode.Text = IIf(IsNull(.Fields("irate_code")), "", .Fields("irate_code"))
            If mID(NodeKey, 2) = m_OID.id Then
                Me.txtAdjustDate.Text = IIf(IsNull(.EOS("K" & m_OID.id)("adjust_date")), "", .EOS("K" & m_OID.id)("adjust_date"))
                Me.txtNzy_rate.Text = Format(IIf(IsNull(.EOS("K" & m_OID.id)("nzy_rate")), "", .EOS("K" & m_OID.id)("nzy_rate")), RateFormat(.EOS("K" & m_OID.id)("nzy_rate").Decimals))
                Me.txtNcq_rate.Text = Format(IIf(IsNull(.EOS("K" & m_OID.id)("ncq_rate")), "", .EOS("K" & m_OID.id)("ncq_rate")), RateFormat(.EOS("K" & m_OID.id)("ncq_rate").Decimals))
                Me.txtNyq_rate.Text = Format(IIf(IsNull(.EOS("K" & m_OID.id)("nyq_rate")), "", .EOS("K" & m_OID.id)("nyq_rate")), RateFormat(.EOS("K" & m_OID.id)("nyq_rate").Decimals))
                If .EOS("K" & m_OID.id)("ration_flag") Then
                    Me.chkRation_flag.Value = 1
                    Me.txtRation_mny.Enabled = True
                    Me.txtRation_rate.Enabled = True
                    Me.txtRation_mny.Text = Format(.EOS("K" & m_OID.id)("ration_mny"), RateFormat(.EOS("K" & m_OID.id)("ration_mny").Decimals))
                    Me.txtRation_rate.Text = Format(.EOS("K" & m_OID.id)("ration_rate"), RateFormat(.EOS("K" & m_OID.id)("ration_rate").Decimals))
                Else
                    Me.chkRation_flag.Value = 0
                    Me.txtRation_mny.Enabled = False
                    Me.txtRation_rate.Enabled = False
                    Me.txtRation_mny.Text = "" '.EOS("K" & m_OID.id)("ration_mny")
                    Me.txtRation_rate.Text = "" '.EOS("K" & m_OID.id)("ration_rate")
                End If
            Else
                Me.txtAdjustDate.Text = "" 'IIf(IsNull(.EOS("K" & m_OID.id)("adjust_date")), "", .EOS("K" & m_OID.id)("adjust_date"))
                Me.txtNzy_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nzy_rate")), "", .EOS("K" & m_OID.id)("nzy_rate"))
                Me.txtNcq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("ncq_rate")), "", .EOS("K" & m_OID.id)("ncq_rate"))
                Me.txtNyq_rate.Text = "" ' IIf(IsNull(.EOS("K" & m_OID.id)("nyq_rate")), "", .EOS("K" & m_OID.id)("nyq_rate"))
                Me.chkRation_flag.Value = 0
                Me.txtRation_mny.Enabled = False
                Me.txtRation_rate.Enabled = False
                Me.txtRation_mny.Text = "" '.EOS("K" & m_OID.id)("ration_mny")
                Me.txtRation_rate.Text = "" '.EOS("K" & m_OID.id)("ration_rate")
            End If
        End If
    End With
            
    If objIRateBI.IsUsed(g_sDataSourceName, objOID.id) Then
        ufgIRate.Visible = True
        Me.tlbAction.Buttons("DeleteCol").Enabled = False
    Else
        ufgIRate.Visible = False
    End If

    Set objIRateBI = Nothing
    Set objEO = Nothing
    SetTlbStyle Me, False
    ocxCtbTool.RefreshEnable
End Sub

Private Function RateFormat(ByVal PointNum As Integer)
    Dim i As Integer
    RateFormat = "#0."
    For i = 1 To PointNum
        RateFormat = RateFormat & "0"
    Next
End Function

Private Sub ocxCtbTool_OnCommand(ByVal enumType As prjTBCtrl.ENUM_MENU_OR_BUTTON, ByVal cButtonId As String, ByVal cMenuId As String)
    tlbAction_ButtonClick tlbAction.Buttons(cButtonId)
End Sub

Private Sub tlbAction_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.key
        Case "Print"
            PrintData
        Case "Preview"
            PrintView
        Case "Export"
            Export
'        Case "Print", "Preview", "Export"
'            If Not InitPrnGrid Then Exit Sub
'            Print_Doc Me, Button.key, TAB_INTRSET
        Case "AddNew"
            AddNew
        Case "Edit"
            m_EditCol = 0
            Edit
        Case "Delete"
            Delete
        Case "Save"
            Save
        Case "Cancel"
            CancelDo
        Case "Refresh"
            RefreshUI
        Case "AddCol"
            m_EditCol = 1
            AddCol
        Case "DeleteCol"
            m_EditCol = 2
            DeleteCol
        Case "Help"
            SendKeys "{F1 3}"
        Case "Exit"
            Unload Me
    End Select
End Sub

Private Sub treStyle_Collapse(ByVal Node As MSComctlLib.Node)
    Node.Image = 1
End Sub

Private Sub treStyle_Expand(ByVal Node As MSComctlLib.Node)
    Node.Image = 2
End Sub

Private Sub treStyle_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    RightMenu Me, Button, frmRightMenu.mnuIntrSetR, treStyle, x, y
End Sub

Private Sub treStyle_NodeClick(ByVal Node As MSComctlLib.Node)
    Dim objIRateBI As New U8FDBso.clsIRateBI
    Dim objOID     As New U8FDEso.OIDObject
    Dim iAnswer    As VbMsgBoxResult
    
    If NodeKey <> Node.key Then ' Or m_EO.State = esoAddNew
        If Me.picView.Enabled = True Then
            iAnswer = MsgBox("放弃当前工作吗？", vbQuestion + vbYesNo)
            If iAnswer = vbNo Then
                Me.treStyle.Nodes(NodeKey).Selected = True
                Me.picView.SetFocus
                Exit Sub
            Else
                m_EditStatus = True
                CancelDo
                m_EditStatus = False
                Me.picView.Enabled = False
            End If
        End If
        
        NodeKey = Node.key
        
        If mID(Node.key, 2, 2) = m_conBIStyle Then
            objOID.id = mID(Node.key, 2)
            Set m_EO = objIRateBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, m_conBIStyle, objOID)
            m_OID.id = mID(Node.child.FirstSibling.key, 2)
        Else
            objOID.id = mID(Node.Parent.key, 2)
            Set m_EO = objIRateBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, m_conBIStyle, objOID)
            m_OID.id = mID(Node.key, 2)
        End If
        
        Set objIRateBI = Nothing
        Set objOID = Nothing
        SetUI
    End If
End Sub

Public Sub Gen_Key(TLB_Key As String)
    On Error Resume Next
    Select Case TLB_Key
        Case "Print", "Preview", "Dataout"
            If Not InitPrnGrid Then Exit Sub
            Print_Doc Me, TLB_Key, TAB_INTRSET
    End Select
End Sub

Private Function InitPrnGrid() As Boolean
    InitPrnGrid = False
    With frmRightMenu.GrdPrn
        frmRightMenu.TabFlg = TAB_INTRSET
        .Redraw = False
        .Cols = 7
        .FixedCols = 0
        .ColWidth(0) = 1000
        .ColWidth(1) = 1200
        .ColWidth(2) = 1200
        .ColWidth(3) = 1600
        .ColWidth(4) = 1600
        .ColWidth(5) = 1100
        .ColWidth(6) = 1600
        
        Dim vt As Variant
        Dim rsl As New UfRecordset
        Dim SQL As String
        'sql = "SELECT cIntrID, dbdate, nzy*100 as zd1,ncq*100 as zd2, nyq*100 as zd3, nde as zd4, ncdell*100 as zd5 FROM FD_Intras order by cIntrID, dbdate"
        
        SQL = "select " & EO.SourceTable & "." & EO("irate_code").SourceField & "," & EO.EOS.EOMetaData("adjust_date").SourceField & "," & EO.EOS.EOMetaData("nzy_rate").SourceField & " as zd1," & EO.EOS.EOMetaData("ncq_rate").SourceField & " as zd2," & EO.EOS.EOMetaData("ncq_rate").SourceField & " as zd3," & EO.EOS.EOMetaData("ration_mny").SourceField & "," & EO.EOS.EOMetaData("ration_rate").SourceField & " as zd5 from " & EO.SourceTable & "," & EO.EOS.EOMetaData.SourceTable & " where " & EO.SourceTable & "." & EO.SourceOIDField & "=" & EO.EOS.EOMetaData.SourceTable & "." & EO.SourceOIDField & " order by " & EO.SourceTable & "." & EO("irate_code").SourceField & "," & EO.EOS.EOMetaData("adjust_date").SourceField
        
        Set rsl = dbsZJ.OpenRecordset(SQL, dbOpenSnapshot)
        If rsl.EOF Then
            MsgBox "没有打印数据!", vbCritical, zjGl_Name
            Exit Function
        Else
            rsl.MoveLast
            rsl.MoveFirst
        End If
        Set vt = rsl.Recordset
        .Rows = 2
        .FixedRows = 2
        .BindRecordSet vt, False, True, True
        CloseRS rsl
        '初始化表头及对齐方式
        .TextMatrix(0, 0) = "利率代码"
        .ColAlignment(0) = UG_ALIGNLEFT
        .JoinCells 0, 0, 1, 0, True
        
        .TextMatrix(0, 1) = "利率变更日期"
        .ColAlignment(1) = UG_ALIGNLEFT
        .JoinCells 0, 1, 1, 1, True
         
        .TextMatrix(0, 2) = "年利率(%)"
        .ColAlignment(2) = UG_ALIGNRIGHT
        .JoinCells 0, 2, 1, 2, True
           
        .TextMatrix(0, 3) = "提前年利率(%)"
        .ColAlignment(3) = UG_ALIGNRIGHT
        .JoinCells 0, 3, 1, 3, True
        
        .TextMatrix(0, 4) = "逾期年利率(%)"
        .ColAlignment(4) = UG_ALIGNRIGHT
        .JoinCells 0, 4, 1, 4, True
                
        .TextMatrix(0, 5) = "定额金额"
        .ColAlignment(5) = UG_ALIGNRIGHT
        .JoinCells 0, 5, 1, 5, True
                
        .TextMatrix(0, 6) = "超定额利率(%)"
        .ColAlignment(6) = UG_ALIGNRIGHT
        .JoinCells 0, 6, 1, 6, True
                
        .HeadForeColor = &H404040
        .HeadFont.Name = "宋体"
        .HeadFont.Siz