|
发表于 2017-6-10 13:09:15
|
显示全部楼层
广东省惠州市
用数据库的例子
代码:
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 计次, 整数型
.程序集变量 位置, 整数型
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
打开 (取运行目录 () + “\收藏夹.edb”, , , , , , )
.计次循环首 (取记录数 () + 1, 计次)
跳到 (计次)
.如果真 (编辑框2.内容 = 读 (“网址”))
信息框 (“书签已存在!”, 48, “虎头帮 X @_@~”)
跳出循环 ()
.如果真结束
.如果真 (计次 > 取记录数 ())
加空记录 ()
写 (“书签名称”, 编辑框1.内容)
写 (“网址”, 编辑框2.内容)
位置 = 超级列表框1.插入表项 (0, 编辑框1.内容, , , , )
超级列表框1.置标题 (位置, 1, 编辑框2.内容)
连续赋值 (“”, 编辑框1.内容, 编辑框2.内容)
.如果真结束
.计次循环尾 ()
关闭 ()
返回 ()
.如果真结束
信息框 (“请填写完整信息!”, 48, “虎头帮 X @_@~”)
.子程序 __启动窗口_创建完毕
打开 (取运行目录 () + “\收藏夹.edb”, , , , , , )
.计次循环首 (取记录数 (), 计次)
跳到 (计次)
位置 = 超级列表框1.插入表项 (0, 读 (“书签名称”), , , , )
超级列表框1.置标题 (位置, 0, 读 (“书签名称”))
超级列表框1.置标题 (位置, 1, 读 (“网址”))
.计次循环尾 ()
关闭 () |
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
查看全部评分
|