易语言EDB数据库记录删除

yyhas12358asd

我想实现删除数据库中所有满足我设置条件的记录。
例如:有字段全宗号，目录号，案卷号，页数，画幅数等
3个编辑框任意填写数据，分别对应全宗号，目录号，案卷号
实现一个全宗号的删除，或者指定全宗号下所有符合条件的目录号的这类功能
.版本 2
    .如果真 (信息框 (“是否确定删除？”, 33, “请确认”, ) ＝ #确认钮)
        .计次循环首 (取记录数 (), i)
            .如果真 (查找 (读 (1) ＝ 编辑框1.内容) ＝ 真)
                .如果真 (查找 (读 (2) ＝ 编辑框2.内容) ＝ 真)
                    .如果真 (查找 (读 (3) ＝ 编辑框3.内容) ＝ 真)
                        删除 ()
                        彻底删除 ()
                        _刷新_被单击 ()
                        超级列表框排序 (超级列表框1, 0, 真, )
                        到循环尾 ()
                    .如果真结束
                    删除 ()
                    彻底删除 ()
                    _刷新_被单击 ()
                    超级列表框排序 (超级列表框1, 0, 真, )
                    到循环尾 ()
                .如果真结束
                删除 ()
                彻底删除 ()
                _刷新_被单击 ()
                超级列表框排序 (超级列表框1, 0, 真, )
                到循环尾 ()
            .如果真结束
        .计次循环尾 ()
        _刷新_被单击 ()
        超级列表框排序 (超级列表框1, 0, 真, )
代码这样写，不删除任何记录

冯古屋

你删除的数据库里面的，超级列表框里面的数据有没有变动，当然感觉没有变化，你也要让超级列表框也跟着更新读取数据库的数据吧

ovo555

那就用专业的数据库吧，你的需求只要一个SQL语句就实现了；

yyhas12358asd

冯古屋 发表于 2016-11-23 09:55
你删除的数据库里面的，超级列表框里面的数据有没有变动，当然感觉没有变化，你也要让超级列表框也跟着更新 ...

有增加刷新功能的！执行操作后自动刷新

yyhas12358asd

ovo555 发表于 2016-11-23 09:57
那就用专业的数据库吧，你的需求只要一个SQL语句就实现了；

还没学会用SQL语句～

yyhas12358asd

  

计次循环首 (取记录数 (), )
到首记录 ()
删除条件记录 (删全部空 (编辑框1.内容), 删全部空 (编辑框2.内容), 删全部空 (编辑框3.内容))
计次循环尾 ()
_刷新_被单击 ()

.版本 2<br /> <br />     .计次循环首 (取记录数 (), )<br />         到首记录 ()<br />         删除条件记录 (删全部空 (编辑框1.内容), 删全部空 (编辑框2.内容), 删全部空 (编辑框3.内容))<br />     .计次循环尾 ()<br />     _刷新_被单击 ()

  

子程序名	返回值类型	公开	备 注
删除条件记录
参数名	类 型	参考	可空	数组	备 注
全宗号	文本型
目录号	文本型
案卷号	文本型

变量名	类 型	静态	数组	备 注
条件	逻辑型

如果 (全宗号 ≠ “” 且 目录号 ≠ “” 且 案卷号 ≠ “”)
条件 ＝ 查找 (读 (3) ＝ 案卷号 且 读 (2) ＝ 目录号 且 读 (1) ＝ 全宗号)
如果 (条件 ＝ 真)
删除 ()
彻底删除 ()



如果 (全宗号 ≠ “” 且 目录号 ≠ “”)
条件 ＝ 查找 (读 (2) ＝ 目录号 且 读 (1) ＝ 全宗号)
如果 (条件 ＝ 真)
删除 ()
彻底删除 ()



如果 (全宗号 ≠ “”)
条件 ＝ 查找 (读 (1) ＝ 全宗号)
如果 (条件 ＝ 真)
删除 ()
彻底删除 ()

.版本 2<br /> <br /> .子程序 删除条件记录<br /> .参数 全宗号, 文本型, 可空<br /> .参数 目录号, 文本型, 可空<br /> .参数 案卷号, 文本型, 可空<br /> .局部变量 条件, 逻辑型<br /> <br /> .如果 (全宗号 ≠ “” 且 目录号 ≠ “” 且 案卷号 ≠ “”)<br />     条件 ＝ 查找 (读 (3) ＝ 案卷号 且 读 (2) ＝ 目录号 且 读 (1) ＝ 全宗号)<br />     .如果 (条件 ＝ 真)<br />         删除 ()<br />         彻底删除 ()<br />     .否则<br /> <br />     .如果结束<br /> <br /> .否则<br />     .如果 (全宗号 ≠ “” 且 目录号 ≠ “”)<br />         条件 ＝ 查找 (读 (2) ＝ 目录号 且 读 (1) ＝ 全宗号)<br />         .如果 (条件 ＝ 真)<br />             删除 ()<br />             彻底删除 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />     .否则<br />         .如果 (全宗号 ≠ “”)<br />             条件 ＝ 查找 (读 (1) ＝ 全宗号)<br />             .如果 (条件 ＝ 真)<br />                 删除 ()<br />                 彻底删除 ()<br />             .否则<br /> <br />             .如果结束<br /> <br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束

lll5017

我也正在思考这个问题

morning861

感谢分享