易语言组合框查找数据库字段问题!!!例如,我创建了一个edb数据库,编辑框1的内容是取的当前日期,
易语言组合框查找数据库字段问题!!!例如,我创建了一个edb数据库,编辑框1的内容是取的当前日期,编辑框2的内容是要记录的事,点击按钮添加到数据库,如果记录太多了一条一条...
易语言组合框查找数据库字段问题!!!例如,我创建了一个edb数据库,编辑框1的内容是取的当前日期,编辑框2的内容是要记录的事,点击按钮添加到数据库,如果记录太多了一条一条的翻着看太费事啦,怎么通过组合框读取数据库里,编辑框1写进去的日期到组合框的项目,然后点击那个项目就跳到那条数据库的记录,我做了很多遍了都不行教程也看了不少没看懂,希望各位高手给写个源码越简单越好,谢谢啦!
展开
3个回答
展开全部
.版本 2
.子程序 __启动窗口_创建完毕
组合框1.类型 = 2
按钮1.标题 = “写入或读出”
编辑框2.是否允许多行 = 真
.如果真 (文件是否存在 (取运行目录 () + “\日记.edb”) = 假)
创建数据库 ()
.如果真结束
读入项目 ()
.子程序 创建数据库
.局部变量 字段, 字段信息, , "2"
字段 [1].名称 = “日期”
字段 [1].类型 = #文本型
字段 [1].最大文本长度 = 20
字段 [2].名称 = “日记”
字段 [2].类型 = #文本型
字段 [2].最大文本长度 = 1000
创建 (取运行目录 () + “\日记.edb”, 字段)
.子程序 读入项目
.局部变量 记录, 整数型
组合框1.加入项目 (“请选择日期”, 0)
打开 (取运行目录 () + “\日记.edb”, “rj”, , , , , )
到首记录 ()
.计次循环首 (取记录数 (), 记录)
组合框1.加入项目 (读 (“日期”), 记录)
跳过 ()
.计次循环尾 ()
组合框1.现行选中项 = 0
.子程序 _按钮1_被单击, , , 组合框没有选择时则写入.有选择则读出
.如果真 (组合框1.现行选中项 ≠ 0)
读出项目 ()
.如果真结束
加记录 (编辑框1.内容, 编辑框2.内容)
组合框1.清空
读入项目 ()
.子程序 读出项目
置当前库 (“rj”)
跳到 (组合框1.取项目数值 (组合框1.现行选中项))
编辑框1.内容 = 读 (“日记”)
.子程序 __启动窗口_创建完毕
组合框1.类型 = 2
按钮1.标题 = “写入或读出”
编辑框2.是否允许多行 = 真
.如果真 (文件是否存在 (取运行目录 () + “\日记.edb”) = 假)
创建数据库 ()
.如果真结束
读入项目 ()
.子程序 创建数据库
.局部变量 字段, 字段信息, , "2"
字段 [1].名称 = “日期”
字段 [1].类型 = #文本型
字段 [1].最大文本长度 = 20
字段 [2].名称 = “日记”
字段 [2].类型 = #文本型
字段 [2].最大文本长度 = 1000
创建 (取运行目录 () + “\日记.edb”, 字段)
.子程序 读入项目
.局部变量 记录, 整数型
组合框1.加入项目 (“请选择日期”, 0)
打开 (取运行目录 () + “\日记.edb”, “rj”, , , , , )
到首记录 ()
.计次循环首 (取记录数 (), 记录)
组合框1.加入项目 (读 (“日期”), 记录)
跳过 ()
.计次循环尾 ()
组合框1.现行选中项 = 0
.子程序 _按钮1_被单击, , , 组合框没有选择时则写入.有选择则读出
.如果真 (组合框1.现行选中项 ≠ 0)
读出项目 ()
.如果真结束
加记录 (编辑框1.内容, 编辑框2.内容)
组合框1.清空
读入项目 ()
.子程序 读出项目
置当前库 (“rj”)
跳到 (组合框1.取项目数值 (组合框1.现行选中项))
编辑框1.内容 = 读 (“日记”)
更多追问追答
追问
组合框现行选中项怎么读入到内容编辑框
追答
组合框1.现行选中项就是你选中后,点击按扭就能读到
最后一句错了,应为:
编辑框2.内容 = 读 (“日记”)
展开全部
我完全没看懂你想表达点什么,前后矛盾!一会写到数据库,一会翻看,一会又编辑框写进去日期到组合框项目。。。你这表达。。。
能短小精干点吗。。。
能短小精干点吗。。。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
超级列表框。。。先取数据库条数长度,根据长度做计次循环读取,然后假如列表,然后就可以啦,双击表项产生的事件进行取值。
追答
是加入列表,不是假如列表。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询