E4A怎么实现 按钮每天只能点击一次

设置一个文件，或者注册表项，记录点击的次数及日期。

在该按钮的onclick函数里面，增加检查该记录项的功能，如果日期早于今日，置次数为1，日期为今日，执行一次相应功能；

如果日期为今日，次数为1，提示“今日已经点击过。”，“确定”之后直接退出函数。

E4A自带SQL *** 作例程的

常量 数据库文件名 为 文本型 = "/sdcard/mydata.db"

常量 数据库表名 为 文本型 = "mytable"

事件 按钮4.被单击()

如果 创建文件(数据库文件名) = 真 则 '在SD卡上创建一个空的数据库文件,也可以事先把做好的数据库放到资源中,然后再写到SD卡上

d出提示("创建数据库文件成功！")

否则

d出提示("创建数据库文件失败！")

结束 如果

结束 事件

事件 按钮1.被单击()

数据库执行(数据库文件名,"CREATE TABLE " &数据库表名 &" (id text,value text)") '创建数据库表,表的结构有两个列,第一列为id,第二列为value

d出提示("创建数据库表成功！")

结束 事件

事件 按钮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')")

d出提示("插入成功！")

结束 事件

事件 按钮3.被单击()

编辑框1.内容 = 数据库查询(数据库文件名,"SELECT * FROM " &数据库表名 &" WHERE id='1'","-","\n") '查询id='1'的那条记录,每条记录的子项之间用-隔开,各条记录之间用换行符隔开

d出提示("查询成功！")

结束 事件

事件 按钮6.被单击()

数据库执行(数据库文件名,"UPDATE " &数据库表名 &" SET value='这是修改后的值' WHERE id='1'") '修改id='1'的那条记录

d出提示("修改成功！")

结束 事件

事件 按钮5.被单击()

数据库执行(数据库文件名,"DELETE FROM " &数据库表名 &" WHERE id='1'") '删除id='1'的那条记录

d出提示("删除成功！")

结束 事件

事件 按钮7.被单击()

数据库执行(数据库文件名,"DROP TABLE " &数据库表名) '删除整个数据库表

d出提示("删除数据库表成功！")

结束 事件

事件 按钮8.被单击()

d出提示("记录总数为：" &取记录数(数据库文件名,数据库表名) &"条")

结束 事件

事件 按钮9.被单击()

编辑框1.内容 = 数据库查询(数据库文件名,"SELECT * FROM " &数据库表名 &" WHERE value LIKE '%163.com'","-","\n") '查询所有value以"163.com"结尾的记录

d出提示("查询成功！")

结束 事件

事件 按钮10.被单击()

编辑框1.内容 = 数据库查询(数据库文件名,"SELECT * FROM " &数据库表名 &" LIMIT 0,3","-","\n") '查询从第0条(第一条)开始的3条记录

d出提示("查询成功！")

结束 事件

事件 按钮11.被单击()

结束程序()

结束 事件

---