Treeview+Ado+Access科目设置

wxyqxxz2007

 从网上东抄西拉,从各位高手那边取经,此系统主要代码和构思来自于无相大师,佩服其精神以及技术之外,自己把代码稍许改动Treeview+Ado+Access相结合,代码烦琐一点,第一次初稿,还没有时间进行模块化,还可优化,请大家指导.

 在表格的黄色区域，双击单元格，就可以调出窗体，再双击 TREEVIEW后，如果有子科目，那么总帐科目和子科目都会填入相应表格内，如果没有子科目，那么只有总帐科目有数值。如果要删除黄色区域某一行，只要删除删除黄色区域一个单元格，那么一整行全部会删除。几个单元格删除，那么就删除几个整行。
可修改科目，删除科目，插入科目，可增加子科目。

 

xLlFxiFe.rar (79.49 KB, 下载次数: 136)

2008-10-26 12:36 上传

点击文件名下载附件
[分享]★Treeview+Ado+Access(科目设置)★-降龙十八掌

wxyqxxz2007

在UserForm4代码修改一下

Private Sub CommandButton1_Click()
    Dim r As Integer
    Set Itm = UserForm2.TreeView1.SelectedItem
    Set cnn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\db1.mdb"

    Nameofaccounts = Me.TextBox4.Value

    If Me.TextBox3.Text <> Mid(Itm.Key, 5) Then
        sql = "SELECT 科目编码 From zykmb where 科目编码= '" & Me.TextBox3.Text & "'"    '判断科目编码=是否已经存在
        rst.Open sql, cnn, 3, 1
        If rst.RecordCount > 0 Then
            MsgBox "你的科目编码已存在,请重新输入"
            Me.TextBox3.SetFocus
            Exit Sub
        End If
        rst.Close
    End If

    If Me.TextBox3.Text = "" Or Len(Me.TextBox3.Text) <> Me.TextBox1 Then
        MsgBox "请输入科目编码或者你的编码长度不够"
        Me.TextBox3.SetFocus
    ElseIf Left(Trim(Me.TextBox3.Text), 1) <> Left(Trim(Me.TextBox5.Text), 1) Then
        MsgBox "请注意编码规律"
    ElseIf Me.TextBox4.Text = "" Then
        MsgBox "请输入科目名称"
        Me.TextBox4.SetFocus
    ElseIf Me.OptionButton1 = False And Me.OptionButton2 = False Then
        MsgBox "请输入科目方向"
        Me.TextBox6.SetFocus
    Else

        If Len(Mid(Trim(Itm.Key), 5)) > 4 Then    '如果大于4,则表明有明细科目,要兼顾总帐科目和明细科目 ,Name of accounts
            If Left(Trim(Me.TextBox3.Text), 4) <> Left(Trim(Me.TextBox5.Text), 4) Then
                MsgBox "明细科目编号前4位与总账科目前4位不同":
                Exit Sub
            End If
            sql = "SELECT 总账科目 From zykmb where 科目编码= '" & Left(Trim(Me.TextBox5.Text), 4) & "'"
            rst.Open sql, cnn, 3, 1
            If rst.RecordCount > 0 Then
                Nameofaccounts = rst.fields(0)
            End If
            rst.Close
        End If

        sql = " update zykmb set  "
        sql = sql & "科目编码= '" & Me.TextBox3.Text & "',"
        sql = sql & "助记码= '" & Me.TextBox6.Text & "',"
        sql = sql & "总账科目= '" & Nameofaccounts & "',"
        sql = sql & "明细科目= '" & IIf(Len(Me.TextBox3.Text) > 4, Me.TextBox4.Text, Empty) & "',"
        sql = sql & "方向= '" & IIf(Me.OptionButton1 = True, "借", "贷") & "',"
        sql = sql & "期初金额 = " & IIf(IsNumeric(Me.TextBox7.Text), Me.TextBox7.Text, 0) & " "
        sql = sql & " where 科目编码 = '" & Mid(Trim(Itm.Key), 5) & "'"
        cnn.Execute sql
        cnn.Close
        Set cnn = Nothing
        Call Tree
        Me.Hide
    End If
End Sub

mxg825

好强 支持

wxyqxxz2007

谢谢mxg825高手，我希望高手能提供意见，因为我想最终完成一套完整财务软件，请提供帮助。

ylyxf

太激动了，这个就是我想要的！

请问如果在窗体上加上搜索功能，快速定位到某节点在技术上实现是否有难度？

jlf2003

Treeview+Ado+Access(科目设置)★

吕?布

想法不错,支持一下

LHWHA

{:3512:}学习

cc8

好，学习一下，谢谢。

zhutianlai123

很好 很强大 支持{:35:}