frmaccinfo.frm

财务信息管理系统,适合做毕业论文的人使用

    sqlstr = sqlstr & "dbo.FD_AccSet fd_accset_5 ON dbo.FD_AccDef.accdef_id = fd_accset_5.accdef_id AND fd_accset_5.type_flag = 5 LEFT OUTER JOIN "
    sqlstr = sqlstr & "dbo.FD_AccUnit ON dbo.FD_AccDef.accunit_id = dbo.FD_AccUnit.accunit_id"
    sqlwhere = ""
    
    SetTBStyle Me
    
    initField
    createtrestyle
    initGrid
    'InitTreStyle
    ocxCTBTool.RefreshEnable
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If con.State = adStateOpen Then
        con.Close
    End If
    Set con = Nothing
End Sub

Private Sub Form_Resize()
    If Me.WindowState <> 1 Then
        SuperGrid1.top = tlbTool.Height + 100
        treStyle.top = SuperGrid1.top
        If Me.width > treStyle.width + 100 Then SuperGrid1.width = Me.width - treStyle.width - 100
        If Me.Height > tlbTool.Height + 500 Then SuperGrid1.Height = Me.Height - tlbTool.Height - 500
        treStyle.Height = SuperGrid1.Height - Option1(0).Height - 100
        Option1(0).top = treStyle.top + treStyle.Height + 50
        Option1(1).top = treStyle.top + treStyle.Height + 50
        Option1(2).top = treStyle.top + treStyle.Height + 50
    End If
    ResizeTlb Me
End Sub

Private Sub ocxctbtool_OnCommand(ByVal enumType As prjTBCtrl.ENUM_MENU_OR_BUTTON, ByVal cButtonId As String, ByVal cMenuId As String)
    tlbTool_ButtonClick tlbTool.Buttons(cButtonId)
End Sub

Private Sub Option1_Click(Index As Integer)
    Select Case Index
        Case 0
            m_ShowDestroy = 2
        Case 1
            m_ShowDestroy = 3
        Case 2
            m_ShowDestroy = 1
    End Select
End Sub

'定义显示字段
Private Sub initField()
    Dim i As Integer
    
    ReDim m_fields(14)
    For i = 0 To 14
        m_fields(i).fshow = True
    Next
    show_count = 15
    
    '调整日期
    m_fields(0).fcaption = "调整日期"
    m_fields(0).ffield = ""
    m_fields(0).fWidth = 10
    '原始账户号
    m_fields(1).fcaption = "原始账户号"
    m_fields(1).ffield = ""
    m_fields(1).fWidth = 20
    '账户号
    m_fields(2).fcaption = "账户号"
    m_fields(2).ffield = ""
    m_fields(2).fWidth = 20
    '账户名称
    m_fields(3).fcaption = "账户名称"
    m_fields(3).ffield = ""
    m_fields(3).fWidth = 30
    '开户银行
    m_fields(4).fcaption = "开户银行"
    m_fields(4).ffield = ""
    m_fields(4).fWidth = 40
    '利率代码
    m_fields(5).fcaption = "利率代码"
    m_fields(5).ffield = ""
    m_fields(5).fWidth = 8
    '结息日代码
    m_fields(6).fcaption = "结息日代码"
    m_fields(6).ffield = ""
    m_fields(6).fWidth = 8
    '备注
    m_fields(7).fcaption = "备注"
    m_fields(7).ffield = ""
    m_fields(7).fWidth = 60
    '赤字金额
    m_fields(8).fcaption = "赤字金额"
    m_fields(8).ffield = ""
    m_fields(8).fWidth = 15
    '预提日代码
    m_fields(9).fcaption = "预提日代码"
    m_fields(9).ffield = ""
    m_fields(9).fWidth = 8
    '本金科目
    m_fields(10).fcaption = "本金科目"
    m_fields(10).ffield = ""
    m_fields(10).fWidth = 40
    '应收利息科目
    m_fields(11).fcaption = "应收利息科目"
    m_fields(11).ffield = ""
    m_fields(0).fWidth = 40
    '应付利息科目
    m_fields(12).fcaption = "应付利息科目"
    m_fields(12).ffield = ""
    m_fields(0).fWidth = 40
    '利息收入科目
    m_fields(13).fcaption = "利息收入科目"
    m_fields(13).ffield = ""
    m_fields(0).fWidth = 40
    '利息支出科目
    m_fields(14).fcaption = "利息支出科目"
    m_fields(14).ffield = ""
    m_fields(0).fWidth = 40
End Sub

Private Sub initGrid()
    Dim i As Integer
    Dim j As Integer
    j = 0
    With SuperGrid1
        .clear
        .Rows = 2
        .Cols = show_count
        .FixedRows = 1
        .FixedCols = 0
        For i = 0 To 14
            If m_fields(i).fshow Then
                .TextMatrix(0, j) = m_fields(i).fcaption
                .SetColProperty j, m_fields(i).fWidth
                .ColAlignment(j) = 1
                j = j + 1
            End If
        Next
    .ReadOnly = True
    End With
End Sub

Private Sub InitTreStyle(Optional ByVal CurrentKey As String, Optional ByVal Parentkey As String, Optional ByVal SelectCode As String, Optional ByVal Refresh As Boolean = False)
    Dim objAccUnitBI As New U8FDBso.clsAccUnitBI
    Dim objAccDefBI  As New U8FDBso.clsAccDefBI
    Dim objOID       As New U8FDEso.OIDObject
    Dim objEO        As U8FDEso.EntityObject
    Dim NodeFlag     As Boolean
    
'    Me.jkrTree.Width = 100
    m_EditStatus = False
    
    Me.treStyle.Nodes.Add , , "K0", "个人"
    Me.treStyle.Nodes.Add , , "K1", "部门"
    Me.treStyle.Nodes.Add , , "K2", "银行"
    Me.treStyle.Nodes.Add , , "K3", "客户"
    Me.treStyle.Nodes.Add , , "K4", "供应商"
    Me.treStyle.Nodes.Add , , "K5", "项目"
    
    Me.treStyle.LineStyle = tvwRootLines
    Me.treStyle.Style = tvwTreelinesPlusMinusPictureText
    Me.treStyle.LabelEdit = tvwManual
    Me.treStyle.Indentation = 300
    
    Set objEO = objAccUnitBI.MoveTo(g_sDataSourceName, U8FDEso.esoFirst)
    
'    Me.treStyle.Nodes("K0").Selected = True
'    NodeKey = Me.treStyle.SelectedItem.key
    Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoFirst)
    
    Dim i As Integer, RecordCount As Long
    
    RecordCount = objAccUnitBI.RecordCount(g_sDataSourceName, objEO)
    
    For i = 1 To RecordCount

        Me.treStyle.Nodes.Add "K" & objEO("type_flag"), tvwChild, "K" & objEO("accunit_id"), "【" & objEO("accunit_code") & "】" & objEO("accunit_name") '& objEO("type_flag")
        If CurrentKey = objEO("accunit_id") Then
            NodeFlag = True
            NodeKey = "K" & objEO("accunit_id")
            objOID = mID(NodeKey, 2)
            Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , objOID)
        End If

        objOID = objEO("accunit_id")
        Set objEO = objAccUnitBI.MoveTo(g_sDataSourceName, U8FDEso.esoNext, , objOID)
    Next
    
    '加账户名称
    Set objEO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoFirst)

    RecordCount = objAccDefBI.RecordCount(g_sDataSourceName, objEO)
    For i = 1 To RecordCount
        If m_ShowDestroy = 2 Then '已销户
            If objEO.Fields("destroy_flag") = True Then
                Me.treStyle.Nodes.Add "K" & objEO("accunit_id"), tvwChild, "K" & objEO.Fields("accdef_id"), "【" & objEO.Fields("accdef_code") & "】" & objEO.Fields("accdef_name")
                If CurrentKey = objEO("accdef_id") Then
                    NodeFlag = True
                    NodeKey = "K" & objEO("accdef_id")
                    objOID = mID(NodeKey, 2)
                    Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , objOID)
                End If
            End If
        ElseIf m_ShowDestroy = 3 Then '未销户
            If objEO.Fields("destroy_flag") = False Then
                Me.treStyle.Nodes.Add "K" & objEO("accunit_id"), tvwChild, "K" & objEO.Fields("accdef_id"), "【" & objEO.Fields("accdef_code") & "】" & objEO.Fields("accdef_name")
                If CurrentKey = objEO("accdef_id") Then
                    NodeFlag = True
                    NodeKey = "K" & objEO("accdef_id")
                    objOID = mID(NodeKey, 2)
                    Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , objOID)
                End If
            End If
        Else
            Me.treStyle.Nodes.Add "K" & objEO("accunit_id"), tvwChild, "K" & objEO.Fields("accdef_id"), "【" & objEO.Fields("accdef_code") & "】" & objEO.Fields("accdef_name")
            If CurrentKey = objEO("accdef_id") Then
                NodeFlag = True
                NodeKey = "K" & objEO("accdef_id")
                objOID = mID(NodeKey, 2)
                Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , objOID)
            End If
        End If
        objOID = objEO("accdef_id")
        Set objEO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoNext, m_conBIStyle, objOID)
    Next
    
    For i = 1 To treStyle.Nodes.count
        If treStyle.Nodes(i).children > 0 Then
            treStyle.Nodes(i).Image = 1
       Else
            treStyle.Nodes(i).Image = 3
        End If
    Next
'    Set objAccUnitBI = Nothing
'    Set objOID = Nothing
'    Set objEO = Nothing
'
'    If m_View = True Then
'        Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, m_conBIStyle, m_objOID)
'        NodeKey = "K" & EO(EO.SourceOIDField)
'        Me.treStyle.Nodes(NodeKey).Expanded = True
'        Me.treStyle.Nodes(NodeKey).Parent.Image = 2
'        Me.treStyle.Nodes(NodeKey).Selected = True
'        Exit Sub
'    End If
'
'    If Refresh Then
'        If NodeFlag Then
'            Me.treStyle.Nodes(NodeKey).Selected = True
'            Me.treStyle.Nodes(NodeKey).Expanded = True
'        Else
'            'MsgBox SelectCode & "被删除了！"
'            If Len(ParentKey) < 2 Then
'                Me.treStyle.Nodes("K" & CurrentKey).Selected = True
'                Me.treStyle.Nodes("K" & CurrentKey).Expanded = True
'                NodeKey = "K" & CurrentKey
'            ElseIf Len(ParentKey) = 2 Then
'                Me.treStyle.Nodes("K" & CurrentKey).Selected = True
'                Me.treStyle.Nodes("K" & CurrentKey).Expanded = True
'                If Me.treStyle.Nodes("K" & CurrentKey).children > 0 Then
'                    Me.treStyle.Nodes("K" & CurrentKey).Image = 2
'                Else
'                    Me.treStyle.Nodes("K" & CurrentKey).Image = 3
'                End If
'                NodeKey = "K" & CurrentKey
'            Else
'                NodeKey = ParentKey
'                Me.treStyle.Nodes(NodeKey).Selected = True
'                Me.treStyle.Nodes(NodeKey).Expanded = True
'                If Me.treStyle.Nodes(NodeKey).children > 0 Then
'                    Me.treStyle.Nodes(NodeKey).Image = 2
'                    Me.treStyle.Nodes(NodeKey).child.Selected = True
'                    NodeKey = Me.treStyle.Nodes(NodeKey).child.key
'                Else
'                    Me.treStyle.Nodes(NodeKey).Image = 3
'                End If
'            End If
'            objOID = mID(NodeKey, 2)
'            Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, m_conBIStyle, objOID)
'        End If
'    Else
'        For i = 0 To 5
'            If Me.treStyle.Nodes(i + 1).children > 0 Then
'                Me.treStyle.Nodes(i + 1).Expanded = True
'                Me.treStyle.Nodes(i + 1).Image = 2
'                Me.treStyle.Nodes(i + 1).child.Selected = True
'
'                If Me.treStyle.Nodes(i + 1).child.children > 0 Then
'                    Me.treStyle.Nodes(i + 1).child.Expanded = True
'                    Me.treStyle.Nodes(i + 1).child.Image = 2
'                    Me.treStyle.Nodes(i + 1).child.child.Selected = True
'                    NodeKey = Me.treStyle.Nodes(i + 1).child.child.key
'                    objOID = mID(NodeKey, 2)
'                    Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , objOID)
'                    Exit For
'                Else
'                    NodeKey = Me.treStyle.Nodes(i + 1).child.key
'                    objOID = mID(NodeKey, 2)
'                    Set EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , objOID)
'                End If
'            End If
'        Next
'    End If
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