动态树形框的例子可以增删改 用ACCESS数据库

yetao107

找了半天了，就是你啦

Z隐

谢谢分享，学习一下！

guayafem12

可以学习学习

guayafem12

有点意思啊

zhaoxinli2715

感谢分享啊

抽烟伤肺

------------------------------------------

抽烟伤肺

下了！~怎么没启动窗口！

抽烟伤肺

.版本 2
.支持库 iext
.支持库 eDB

.子程序 _树型框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (类别操作, , )

.子程序 _创建类别_被选择
.局部变量 局部_SQL语句, 文本型

树型框1.加入项目 (0, “新类别”, 1, , , 假, 1)
局部_SQL语句 ＝ “insert into 商品类别(商品类别) values ('新类别')”
.如果真 (连接数据库.执行SQL (局部_SQL语句, ) ＝ 假)
    信息框 (“添加记录失败！”, 0, , )
    返回 ()
.如果真结束
树型框_绑定数据 (树型框1, 信息记录集, “select * from 商品类别”)

.子程序 _重名类别_被选择
.局部变量 局部_类别, 文本型
.局部变量 局部_SQL, 文本型

树型框1.进入编辑 (树型框1.现行选中项)

.子程序 _树型框1_结束编辑, 逻辑型
.参数 项目索引, 整数型
.局部变量 项目编号, 文本型

.如果真 (树型框1.结束编辑文本 ＝ “”)
    返回 ()
.如果真结束
项目编号 ＝ 到文本 (树型框1.取项目数值 (树型框1.现行选中项))
连接数据库.执行SQL (“update  商品类别 set 商品类别='” ＋ 树型框1.结束编辑文本 ＋ “' where 编号=” ＋ 到文本 (项目编号), )
树型框_绑定数据 (树型框1, 信息记录集, “select * from 商品类别”)

.子程序 _树型框1_双击项目

树型框1.进入编辑 (树型框1.现行选中项)

.子程序 _删除类别_被选择

.如果真 (树型框1.现行选中项 ＝ -1)
    信息框 (“请先选择商品类别”, 0, , )
    返回 ()
.如果真结束
.如果真 (信息框 (“确定删除选定的商品类别吗？”, 1, “删除商品类别”, ) ＝ 1)
    返回 ()
.如果真结束
.如果真 (信息记录集.是否已打开 ＝ 真)
    信息记录集.关闭 ()
.如果真结束
连接数据库.执行SQL (“ delete from 商品类别 where 编号=” ＋ 到文本 (树型框1.取项目数值 (树型框1.现行选中项)), )
树型框_绑定数据 (树型框1, 信息记录集, “select * from 商品类别”)

抽烟伤肺

.版本 2
.支持库 iext
.支持库 eDB

.子程序 _树型框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (类别操作, , )

.子程序 _创建类别_被选择
.局部变量 局部_SQL语句, 文本型

树型框1.加入项目 (0, “新类别”, 1, , , 假, 1)
局部_SQL语句 ＝ “insert into 商品类别(商品类别) values ('新类别')”
.如果真 (连接数据库.执行SQL (局部_SQL语句, ) ＝ 假)
    信息框 (“添加记录失败！”, 0, , )
    返回 ()
.如果真结束
树型框_绑定数据 (树型框1, 信息记录集, “select * from 商品类别”)

.子程序 _重名类别_被选择
.局部变量 局部_类别, 文本型
.局部变量 局部_SQL, 文本型

树型框1.进入编辑 (树型框1.现行选中项)

.子程序 _树型框1_结束编辑, 逻辑型
.参数 项目索引, 整数型
.局部变量 项目编号, 文本型

.如果真 (树型框1.结束编辑文本 ＝ “”)
    返回 ()
.如果真结束
项目编号 ＝ 到文本 (树型框1.取项目数值 (树型框1.现行选中项))
连接数据库.执行SQL (“update  商品类别 set 商品类别='” ＋ 树型框1.结束编辑文本 ＋ “' where 编号=” ＋ 到文本 (项目编号), )
树型框_绑定数据 (树型框1, 信息记录集, “select * from 商品类别”)

.子程序 _树型框1_双击项目

树型框1.进入编辑 (树型框1.现行选中项)

.子程序 _删除类别_被选择

.如果真 (树型框1.现行选中项 ＝ -1)
    信息框 (“请先选择商品类别”, 0, , )
    返回 ()
.如果真结束
.如果真 (信息框 (“确定删除选定的商品类别吗？”, 1, “删除商品类别”, ) ＝ 1)
    返回 ()
.如果真结束
.如果真 (信息记录集.是否已打开 ＝ 真)
    信息记录集.关闭 ()
.如果真结束
连接数据库.执行SQL (“ delete from 商品类别 where 编号=” ＋ 到文本 (树型框1.取项目数值 (树型框1.现行选中项)), )
树型框_绑定数据 (树型框1, 信息记录集, “select * from 商品类别”)

571901145

6666666666666666