架构师_程序员

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

[.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382
[.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382
[.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382
[.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382
[.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382
[.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382
[.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382 [.Net/C#]2000人开发交流Qq群:348041382
查看: 4424|回复: 43
打印 上一主题 下一主题

[EA4] E4A 将sqlite数据库查询展示成表格[源码]

[复制链接]
跳转到指定楼层
楼主
发表于 2017-6-4 08:49:09 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
下图是官方例子里面的e4a操作sqlite数据库,基本的增删改查都有,

但是查询的数据一行一行的显示,感觉很丑,能不能用表格展示呢?



下面是我把sqlite数据库查询出来的数据,用表格来展示的,如下图:



由于用表格展示的代码太多了,最下面放了源码给大家


官方例子代码:


  1. 变量 数据库表名 为 文本型
  2. 事件 主窗口.创建完毕()
  3.         数据库表名 = "mytable"
  4. 结束 事件

  5. 事件 按钮4.被单击()
  6.         如果 文件是否存在(取存储卡路径() & "/mydata.db") = 假 则
  7.                 创建数据库(取存储卡路径() & "/mydata.db")
  8.                 弹出提示("创建数据库成功!")
  9.         结束 如果
  10.         打开数据库(取存储卡路径() & "/mydata.db") '!!!在进行数据库操作前必须先打开数据库
  11.         弹出提示("打开数据库成功!")
  12. 结束 事件

  13. 事件 按钮1.被单击()
  14.         如果 数据表是否存在(数据库表名) = 假 则
  15.                 '数据库执行("CREATE TABLE " & 数据库表名 & " (id text,value text)") '创建数据表,表的结构有两个列,第一列为id,第二列为value
  16.                 创建数据表(数据库表名,"id text,value text")
  17.                 '如果要创建自增型id字段,可以这样写 创建数据表(数据库表名,"id integer PRIMARY KEY,value text")
  18.                 弹出提示("创建数据表成功!")
  19.         否则        
  20.                 弹出提示("数据表已存在!")
  21.         结束 如果        
  22. 结束 事件

  23. 事件 按钮2.被单击()
  24. '        数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('1','zhangshang@163.com')") '插入记录
  25. '        数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('2','1234567@qq.com')")
  26. '        数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('3','Lisi@126.com')")
  27. '        数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('4','Wangwu@163.com')")
  28.         插入记录(数据库表名,"'1','zhangshang@163.com'")
  29.         插入记录(数据库表名,"'2','1234567@qq.com'")
  30.         插入记录(数据库表名,"'3','Lisi@126.com'")
  31.         插入记录(数据库表名,"'4','Wangwu@163.com'")
  32.         '如果id是自增型字段,应该这样写 插入记录(数据库表名,"null,'Wangwu@163.com'")
  33.         '要插入编辑框的内容,可以这样写:插入记录(数据库表名,"'" & 编辑框1.内容 & "','" & 编辑框2.内容 & "'")
  34.     弹出提示("插入成功!")
  35. 结束 事件

  36. 事件 按钮3.被单击()
  37.         '编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " WHERE id='1'","-","\n") '查询id='1'的那条记录,每条记录的子项之间用-隔开,各条记录之间用换行符隔开
  38.         '编辑框1.内容 = 条件查询(数据库表名,"id='1'","-","\n")
  39.         如果 删首尾空(编辑框2.内容) = "" 则
  40.                 弹出提示("请输入查询条件")
  41.                 退出
  42.         结束 如果
  43.         编辑框1.内容 = 条件查询(数据库表名,"id='" & 删首尾空(编辑框2.内容) & "'","-","\n")
  44.         弹出提示("查询成功!")
  45. 结束 事件

  46. 事件 按钮6.被单击()
  47.         '数据库执行("UPDATE " & 数据库表名 & " SET value='这是修改后的值' WHERE id='1'") '修改id='1'的那条记录
  48.         修改记录(数据库表名,"value='这是修改后的值'","id='1'")
  49.         弹出提示("修改成功!")        
  50. 结束 事件

  51. 事件 按钮5.被单击()
  52.         '数据库执行("DELETE FROM " & 数据库表名 & " WHERE id='1'") '删除id='1'的那条记录
  53.     删除记录(数据库表名,"id='1'")
  54.         弹出提示("删除成功!")
  55. 结束 事件

  56. 事件 按钮7.被单击()
  57.         '数据库执行("DROP TABLE " & 数据库表名) '删除整个数据库表
  58.         删除数据表(数据库表名)
  59.         弹出提示("删除数据库表成功!")
  60. 结束 事件

  61. 事件 按钮8.被单击()
  62.         弹出提示("记录总数为:" & 取记录数(数据库表名) & "条")
  63. 结束 事件

  64. 事件 按钮9.被单击()
  65.         '编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " WHERE value LIKE '%163.com'","-","\n") '查询所有value以"163.com"结尾的记录
  66.         编辑框1.内容 = 条件查询(数据库表名,"value LIKE '%163.com'","-","\n")
  67.         弹出提示("查询成功!")
  68. 结束 事件

  69. 事件 按钮10.被单击()
  70.         '编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " LIMIT 0,3","-","\n") '查询从第0条(第一条)开始的3条记录
  71.         编辑框1.内容 = 范围查询(数据库表名,0,3,"-","\n")
  72.         弹出提示("查询成功!")
  73. 结束 事件

  74. 事件 按钮11.被单击()
  75.         关闭数据库() '!!!在程序结束时关闭数据库
  76.         结束程序()
  77. 结束 事件
复制代码


表格展示数据源码:

游客,如果您要查看本帖隐藏内容请回复






上一篇:E4A双击返回键退出程序[源码]
下一篇:php返回json字符串
帖子永久地址: 

架构师_程序员 - 论坛版权1、本主题所有言论和图片纯属会员个人意见,与本论坛立场无关
2、本站所有主题由该帖子作者发表,该帖子作者与架构师_程序员享有帖子相关版权
3、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者和架构师_程序员的同意
4、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任
5、本帖部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责
6、如本帖侵犯到任何版权问题,请立即告知本站,本站将及时予与删除并致以最深的歉意
7、架构师_程序员管理员和版主有权不事先通知发贴者而删除本文

码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
推荐
发表于 2018-1-4 21:16:38 | 只看该作者

变量 数据库表名 为 文本型
事件 主窗口.创建完毕()
        数据库表名 = "mytable"
结束 事件

事件 按钮4.被单击()
        如果 文件是否存在(取存储卡路径() & "/mydata.db") = 假 则
                创建数据库(取存储卡路径() & "/mydata.db")
                弹出提示("创建数据库成功!")
        结束 如果
        打开数据库(取存储卡路径() & "/mydata.db") '!!!在进行数据库操作前必须先打开数据库
        弹出提示("打开数据库成功!")
结束 事件

事件 按钮1.被单击()
        如果 数据表是否存在(数据库表名) = 假 则
                '数据库执行("CREATE TABLE " & 数据库表名 & " (id text,value text)") '创建数据表,表的结构有两个列,第一列为id,第二列为value
                创建数据表(数据库表名,"id text,value text")
                '如果要创建自增型id字段,可以这样写 创建数据表(数据库表名,"id integer PRIMARY KEY,value text")
                弹出提示("创建数据表成功!")
        否则        
                弹出提示("数据表已存在!")
        结束 如果        
结束 事件

事件 按钮2.被单击()
'        数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('1','zhangshang@163.com')") '插入记录
'        数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('2','1234567@qq.com')")
'        数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('3','Lisi@126.com')")
'        数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('4','Wangwu@163.com')")
        插入记录(数据库表名,"'1','zhangshang@163.com'")
        插入记录(数据库表名,"'2','1234567@qq.com'")
        插入记录(数据库表名,"'3','Lisi@126.com'")
        插入记录(数据库表名,"'4','Wangwu@163.com'")
        '如果id是自增型字段,应该这样写 插入记录(数据库表名,"null,'Wangwu@163.com'")
        '要插入编辑框的内容,可以这样写:插入记录(数据库表名,"'" & 编辑框1.内容 & "','" & 编辑框2.内容 & "'")
    弹出提示("插入成功!")
结束 事件

事件 按钮3.被单击()
        '编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " WHERE id='1'","-","\n") '查询id='1'的那条记录,每条记录的子项之间用-隔开,各条记录之间用换行符隔开
        '编辑框1.内容 = 条件查询(数据库表名,"id='1'","-","\n")
        如果 删首尾空(编辑框2.内容) = "" 则
                弹出提示("请输入查询条件")
                退出
        结束 如果
        编辑框1.内容 = 条件查询(数据库表名,"id='" & 删首尾空(编辑框2.内容) & "'","-","\n")
        弹出提示("查询成功!")
结束 事件

事件 按钮6.被单击()
        '数据库执行("UPDATE " & 数据库表名 & " SET value='这是修改后的值' WHERE id='1'") '修改id='1'的那条记录
        修改记录(数据库表名,"value='这是修改后的值'","id='1'")
        弹出提示("修改成功!")        
结束 事件

事件 按钮5.被单击()
        '数据库执行("DELETE FROM " & 数据库表名 & " WHERE id='1'") '删除id='1'的那条记录
    删除记录(数据库表名,"id='1'")
        弹出提示("删除成功!")
结束 事件

事件 按钮7.被单击()
        '数据库执行("DROP TABLE " & 数据库表名) '删除整个数据库表
        删除数据表(数据库表名)
        弹出提示("删除数据库表成功!")
结束 事件

事件 按钮8.被单击()
        弹出提示("记录总数为:" & 取记录数(数据库表名) & "条")
结束 事件

事件 按钮9.被单击()
        '编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " WHERE value LIKE '%163.com'","-","\n") '查询所有value以"163.com"结尾的记录
        编辑框1.内容 = 条件查询(数据库表名,"value LIKE '%163.com'","-","\n")
        弹出提示("查询成功!")
结束 事件

事件 按钮10.被单击()
        '编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " LIMIT 0,3","-","\n") '查询从第0条(第一条)开始的3条记录
        编辑框1.内容 = 范围查询(数据库表名,0,3,"-","\n")
        弹出提示("查询成功!")
结束 事件

事件 按钮11.被单击()
        关闭数据库() '!!!在程序结束时关闭数据库
        结束程序()
结束 事件
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
推荐
发表于 2018-3-1 12:04:17 | 只看该作者
这个学习一下                                         
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
推荐
发表于 2017-9-16 22:21:48 | 只看该作者
标记标记标记标记标记标记标记标记标记标记标记标记标记标记标记标记标记标记标记标记
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
5#
发表于 2017-6-7 17:35:36 | 只看该作者
11111111111111111

评分

参与人数 1MB -1 贡献 -1 收起 理由
QWERTYU -1 -1 请勿灌水,提高回帖资料是每位会员应尽的义.

查看全部评分

码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
6#
发表于 2017-6-16 14:40:30 | 只看该作者
谢谢分享,我最喜欢.
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
7#
发表于 2017-6-16 14:57:50 | 只看该作者
看来今天是没法下载了,
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
8#
发表于 2017-9-5 12:45:19 | 只看该作者
感谢分享
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
回复

使用道具 举报

9#
发表于 2017-9-11 21:20:38 | 只看该作者
厉害  支持下
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
10#
发表于 2017-9-18 08:49:41 | 只看该作者
DKFRKFRTHREDER4

评分

参与人数 1MB -1 贡献 -1 收起 理由
QWERTYU -1 -1 请勿灌水,提高回帖资料是每位会员应尽的义.

查看全部评分

码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
11#
发表于 2017-10-27 08:19:00 | 只看该作者
感谢分享,下载看看
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
12#
发表于 2017-11-8 14:00:43 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
码农网,只发表在实践过程中,遇到的技术难题,不误导他人。
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

免责声明:
码农网所发布的一切软件、编程资料或者文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。

Mail To:help@itsvse.com

QQ|Archiver|手机版|小黑屋|架构师 ( 鲁ICP备14021824号-2 )|网站地图

GMT+8, 2018-5-24 19:37

Powered by Discuz! X3.4

© 2001-2014 Comsenz Inc.

快速回复 返回顶部 返回列表