|
楼主 |
发表于 2011-2-20 20:10:58
|
显示全部楼层
广东省汕头市
本帖最后由 QQ168138168 于 2011-2-20 20:14 编辑
本人最推荐无私的共享精神,共同学习,共同进步,现在我得到的代码公布如下,以供象我这样的新手学习{:3_244:}
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “” 且 编辑框2.内容 = “” 且 编辑框3.内容 = “” 且 编辑框4.内容 = “”)
信息框 (“搜索的内容不能全部为空!”, 0, )
返回 ()
.如果真结束
查询信息 ()
.子程序 查询信息
.局部变量 i, 整数型
.局部变量 容器, 整数型
.局部变量 插入判断, 逻辑型
超级列表框1.全部删除 ()
.如果 (打开 (取运行目录 () + “\数据库.edb”, “date”, , 1, , , ) = 真)
置当前库 (“date”)
到首记录 ()
.计次循环首 (取记录数 (), i)
插入判断 = 假
.判断开始 (编辑框1.内容 ≠ “”)
.判断开始 (编辑框2.内容 ≠ “”)
.判断开始 (编辑框3.内容 ≠ “”)
.判断开始 (编辑框4.内容 ≠ “”)
.如果真 (编辑框1.内容 = 读 (“姓名”) 且 编辑框2.内容 = 读 (“性别”) 且 编辑框3.内容 = 读 (“年龄”) 且 编辑框4.内容 = 读 (“学历”))
插入判断 = 真
.如果真结束
.默认
.如果真 (编辑框1.内容 = 读 (“姓名”) 且 编辑框2.内容 = 读 (“性别”) 且 编辑框3.内容 = 读 (“年龄”))
插入判断 = 真
.如果真结束
.判断结束
.判断 (编辑框4.内容 ≠ “”)
.如果真 (编辑框1.内容 = 读 (“姓名”) 且 编辑框2.内容 = 读 (“性别”) 且 编辑框4.内容 = 读 (“学历”))
插入判断 = 真
.如果真结束
.默认
.如果真 (编辑框1.内容 = 读 (“姓名”) 且 编辑框2.内容 = 读 (“性别”))
插入判断 = 真
.如果真结束
.判断结束
.判断 (编辑框3.内容 ≠ “”)
.判断开始 (编辑框4.内容 ≠ “”)
.如果真 (编辑框1.内容 = 读 (“姓名”) 且 编辑框3.内容 = 读 (“年龄”) 且 编辑框4.内容 = 读 (“学历”))
插入判断 = 真
.如果真结束
.默认
.如果真 (编辑框1.内容 = 读 (“姓名”) 且 编辑框3.内容 = 读 (“年龄”))
插入判断 = 真
.如果真结束
.判断结束
.判断 (编辑框4.内容 ≠ “”)
.如果真 (编辑框1.内容 = 读 (“姓名”) 且 编辑框4.内容 = 读 (“学历”))
插入判断 = 真
.如果真结束
.默认
.如果真 (编辑框1.内容 = 读 (“姓名”))
插入判断 = 真
.如果真结束
.判断结束
.判断 (编辑框2.内容 ≠ “”)
.判断开始 (编辑框3.内容 ≠ “”)
.判断开始 (编辑框4.内容 ≠ “”)
.如果真 (编辑框2.内容 = 读 (“性别”) 且 编辑框3.内容 = 读 (“年龄”) 且 编辑框4.内容 = 读 (“学历”))
插入判断 = 真
.如果真结束
.默认
.如果真 (编辑框2.内容 = 读 (“性别”) 且 编辑框3.内容 = 读 (“年龄”))
插入判断 = 真
.如果真结束
.判断结束
.判断 (编辑框4.内容 ≠ “”)
.如果真 (编辑框2.内容 = 读 (“性别”) 且 编辑框4.内容 = 读 (“学历”))
插入判断 = 真
.如果真结束
.默认
.如果真 (编辑框2.内容 = 读 (“性别”))
插入判断 = 真
.如果真结束
.判断结束
.判断 (编辑框3.内容 ≠ “”)
.判断开始 (编辑框4.内容 ≠ “”)
.如果真 (编辑框3.内容 = 读 (“年龄”) 且 编辑框4.内容 = 读 (“学历”))
插入判断 = 真
.如果真结束
.默认
.如果真 (编辑框3.内容 = 读 (“年龄”))
插入判断 = 真
.如果真结束
.判断结束
.判断 (编辑框4.内容 ≠ “”)
.如果真 (编辑框4.内容 = 读 (“学历”))
插入判断 = 真
.如果真结束
.默认
.判断结束
.如果真 (插入判断 = 真)
容器 = 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (容器, 0, 到文本 (读 (“id”)))
超级列表框1.置标题 (容器, 1, 读 (“姓名”))
超级列表框1.置标题 (容器, 2, 读 (“性别”))
超级列表框1.置标题 (容器, 3, 读 (“年龄”))
超级列表框1.置标题 (容器, 4, 读 (“学历”))
.如果真结束
跳过 ()
.计次循环尾 ()
.否则
信息框 (“没有找到数据库!”, 0, “错误提示”)
.如果结束
关闭 (取运行目录 () + “\数据库.edb”) |
|