删除数据库中指定行

蓝尘阳光

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_帐号管理窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
字段信息	字段信息		3

XP风格 (1)
判断 (文件是否存在 (取当前目录 () ＋ “\帐号管理.edb”) ＝ 假)  ' 判断数据库是否存在
字段信息 [1].名称 ＝ “帐号”
字段信息 [1].类型 ＝ #文本型
字段信息 [1].最大文本长度 ＝ 20
字段信息 [2].名称 ＝ “密码”
字段信息 [2].类型 ＝ #文本型
字段信息 [2].最大文本长度 ＝ 20
字段信息 [3].名称 ＝ “备注”
字段信息 [3].类型 ＝ #文本型
字段信息 [3].最大文本长度 ＝ 50
如果真 (创建 (取当前目录 () ＋ “\帐号管理.edb”, 字段信息))  ' 创建数据库
调试输出 (“创建成功”)

调试输出 (“数据库已存在”)
置数据库密码 (“rmy211314”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

' 打开 (取当前目录 () ＋ “\帐号管理.edb”, , , , , “rmy211314”, ) ’防止帐号重复
. ' 如果真 (查找 (读 (“帐号”) ＝ 编辑框1.内容))
' _按钮3_被单击 ()
打开 (取当前目录 () ＋ “\帐号管理.edb”, , , , , , )
如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)  ' 向数据库加入数据
加记录 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容)
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框1.获取焦点 ()
关闭 (取当前目录 () ＋ “\帐号管理.edb”)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
n	整数型
r	整数型

打开 (取当前目录 () ＋ “\帐号管理.edb”, , , , , , )
超级列表框1.全部删除 ()
计次循环首 (取记录数 (), n)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n － 1, 0, 读 (“帐号”))
超级列表框1.置标题 (n － 1, 1, 读 (“密码”))
超级列表框1.置标题 (n － 1, 2, 读 (“备注”))
跳过 ()
计次循环尾 ()
关闭 (取当前目录 () ＋ “\帐号管理.edb”)

子程序名	返回值类型	公开	备 注
_按钮3_被单击

打开 (取当前目录 () ＋ “\帐号管理.edb”, , , , , , )  ' 循环判断是否删除完已经选中的列表项
判断循环首 (超级列表框1.现行选中项 ≠ -1)  ' 循环判断是否删除完选中项
超级列表框1.删除表项 (超级列表框1.现行选中项)
判断循环尾 ()
关闭 (取当前目录 () ＋ “\帐号管理.edb”)

i支持库列表	支持库注释
xplib	XP风格界面库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 xplib<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_帐号管理窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 字段信息, 字段信息, , "3"<br /> <br /> XP风格 (1)<br /> .判断开始 (文件是否存在 (取当前目录 () ＋ “\帐号管理.edb”) ＝ 假)  ' 判断数据库是否存在<br />     字段信息 [1].名称 ＝ “帐号”<br />     字段信息 [1].类型 ＝ #文本型<br />     字段信息 [1].最大文本长度 ＝ 20<br />     字段信息 [2].名称 ＝ “密码”<br />     字段信息 [2].类型 ＝ #文本型<br />     字段信息 [2].最大文本长度 ＝ 20<br />     字段信息 [3].名称 ＝ “备注”<br />     字段信息 [3].类型 ＝ #文本型<br />     字段信息 [3].最大文本长度 ＝ 50<br />     .如果真 (创建 (取当前目录 () ＋ “\帐号管理.edb”, 字段信息))  ' 创建数据库<br />         调试输出 (“创建成功”)<br />     .如果真结束<br /> <br /> .默认<br />     调试输出 (“数据库已存在”)<br /> .判断结束<br /> 置数据库密码 (“rmy211314”)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> ' 打开 (取当前目录 () ＋ “\帐号管理.edb”, , , , , “rmy211314”, ) ’防止帐号重复<br /> .' 如果真 (查找 (读 (“帐号”) ＝ 编辑框1.内容))<br />     ' _按钮3_被单击 ()<br /> .如果真结束<br /> 打开 (取当前目录 () ＋ “\帐号管理.edb”, , , , , , )<br /> .如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)  ' 向数据库加入数据<br />     加记录 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容)<br />     编辑框1.内容 ＝ “”<br />     编辑框2.内容 ＝ “”<br />     编辑框3.内容 ＝ “”<br /> .如果真结束<br /> 编辑框1.获取焦点 ()<br /> 关闭 (取当前目录 () ＋ “\帐号管理.edb”)<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 r, 整数型<br /> <br /> 打开 (取当前目录 () ＋ “\帐号管理.edb”, , , , , , )<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取记录数 (), n)<br />     超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (n － 1, 0, 读 (“帐号”))<br />     超级列表框1.置标题 (n － 1, 1, 读 (“密码”))<br />     超级列表框1.置标题 (n － 1, 2, 读 (“备注”))<br />     跳过 ()<br /> .计次循环尾 ()<br /> 关闭 (取当前目录 () ＋ “\帐号管理.edb”)<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 打开 (取当前目录 () ＋ “\帐号管理.edb”, , , , , , )  ' 循环判断是否删除完已经选中的列表项<br /> .判断循环首 (超级列表框1.现行选中项 ≠ -1)  ' 循环判断是否删除完选中项<br />     超级列表框1.删除表项 (超级列表框1.现行选中项)<br /> .判断循环尾 ()<br /> 关闭 (取当前目录 () ＋ “\帐号管理.edb”)

为什么我删除了超级列表框中选中行后，该行显示还是存在

蓝尘阳光

沧海 发表于 2015-12-4 14:18
把打开的命令去掉 如果你要删除数据库里面的命令 就还要加上数据库内容删除的命令

.版本 2
.支持库 iext
.子程序 _按钮3_被单击
.判断循环首 (超级列表框1.现行选中项 ≠ -1)  ' 循环判断是否删除完选中项
    超级列表框1.删除表项 (超级列表框1.现行选中项)
    删除 ()
    彻底删除 ()
.判断循环尾 ()
关闭 (取当前目录 () ＋ “\帐号管理.edb”)
如果这样的话我也要连接数据库的
另外删除命令的参数类型为条件语句型是什么意思？
参数说表示记录范围，那这个范围怎么来填写才表示为数据库指定的行数？

沧海

用查询命令 查询到你要删除的记录集

蓝尘阳光

沧海 发表于 2015-12-4 14:18
把打开的命令去掉 如果你要删除数据库里面的命令 就还要加上数据库内容删除的命令

也就是删除命令吧，但是怎么删除命令怎么标记指定的记录

沧海

把打开的命令去掉 如果你要删除数据库里面的命令 就还要加上数据库内容删除的命令