用E4A操作数据库

•本节要点

首先是准备工作，同时这部分可以复习前面内容：

1.建立一个mysql数据库，写几个字段。

2.建立一个中间件连接数据库。

3.编写E4A程序连接该数据库。

然后就是几个操作过程：

4.用E4A实现数据库写入记录

5.用E4A实现数据库修改记录

6.用E4A实现数据库删除记录

下面分点写

•建立一个mysql数据库

我这里有宝塔软件，直接用吧，因为我们要用到中间件，所以我这里直接创建一个网站空间，让它附带数据库。这个操作我们可以在浏览器用宝塔web面板完成。

上图为宝塔web面板首页，我们可以在我们本地机上通过浏览器完成这些操作，就不需要远程连接服务器，很是方便。

如上图，一步步设置好，域名我泛解析过就不用A记录了。

接着我们去设置一下数据库的字段，既然是写个程序那就写个简单的卡密验证系统吧。。

我们设置几个字段，分别叫做ID（这个设置整数自增吧，做主键）、卡密（这个设置文本型）、到期时间（文本型）。如下图：

先来建一个表，空库是没有表的

然后创建字段

发现出错，ID最长255个字符，这个就是INT型数字的最大长度，没想起来尴尬了~

然而折腾一阵子发现报错#1007，没有给出错误原因，错误代码查不到原因，算了，懒得搞，到服务器上用Navicat，这是宝塔面板给我们准备的另一利器，相比于phpmyadmin，它更稳定，很少出错，如图：

好了，下面就试试

连接上了看看里面

空空如也表都没建。。算了重建吧。

OK，别忘了设置ID自增：

好了，保存一下，写第一条数据测试看看

写了两条数据，正常，OK先就这样，接下来写中间件。

•建立一个中间件连接数据库

我们先去弄一下MySQL中间件，它就在E4A安装目录下，如图：

这样我们就快速到达了E4A根目录，我们去看看：

就在这里了，我们把它复制一份到桌面，免得弄错了就没得搞了：

它这里自带说明。写得很详细了

这里要填数据库密码，如上图

照着下图填：

写好是这个样子：

接着保存上传，宝塔面板就方便了：

点一下这个路径

可以看到一个文件管理器，上面就有上传按钮，直接上传吧，我表示什么ftp啥的都不需要。。。

访问一下中间件地址看看能不能用

输入中间件地址：mysql.ray-o.cn/openapi_unsafe.php，跳到了百度那就没错了，这是一个障眼法。。。

最后，经测中间件必须使用PHP5.3，不然会出错，这一点目前E4A官方未在说明文档提到，已反馈。

•编写E4A程序客户端APP源码 

这次我就做个例子，随便搞一下子，如下图：

为了达到目的，我需要在上面覆盖一层标签来遮蔽下面的这些东西，就像这样：

然后我们做几个控件让用户可以输入卡密并且验证，如图：

这样就可以了，接下来写代码，我有个习惯，那就是写一点测试一点，不是全部写完再测试，首先我们要做的是测试数据库是否能连上，看如下代码：

做这个前需要先摆上一个mysql数据库的类库，如下图：

接着我们再来写代码：

运行一下子：

OK，接着写输入卡密验证哪一块吧

我在构思代码的时候发现卡密还需要一个使用者字段，不然不知道卡密有没有使用过，所以加一个字段吧

然后写相关代码，做这个中间出了些岔子，看上面终极教程的E4A排除运行闪退故障，下面看代码：

事件 主窗口.创建完毕()
	MySQL数据库1.连接数据库("http://mysql.ray-o.cn/openapi_unsafe.php","localhost:3306","","","mysql_ray_o_cn")
结束 事件

事件 MySQL数据库1.连接数据库完毕(连接结果 为 逻辑型)
	判断 连接结果
		分支 真
			信息框("连接结果","已连接上","知道了")
		分支 假
			信息框("连接结果","连接失败","知道了")
	结束 判断
结束 事件

事件 按钮1.被单击()
	MySQL数据库1.查询记录("卡密表","卡密,使用者","卡密=" & "'" & 编辑框1.内容 & "'")
结束 事件

变量 集合内项目数 为 整数型
事件 MySQL数据库1.查询记录完毕(查询结果 为 集合)
	集合内项目数 = 查询结果.取项目总数()
	如果 集合内项目数 = 0 则
		弹出提示("卡密错误")
	否则如果 集合内项目数 <> 0 则
	    如果 查询结果.取项目(0)(1) = "" 则
		    MySQL数据库1.修改记录("卡密表","使用者=" & "'" & 手机1.取IMEI码() & "'","卡密=" & "'" & 编辑框1.内容 & "'")
		否则如果  查询结果.取项目(0)(1) <> "" 则
		    弹出提示("卡密已被使用过")
		结束 如果
	结束 如果
结束 事件

事件 MySQL数据库1.修改记录完毕(添加结果 为 逻辑型)
	判断 添加结果
		分支 真
			弹出提示("卡密激活成功")
	结束 判断
结束 事件

这里我还用了一个手机组件，看吧：

用它取IMEI码，用来验证用户身份。

下面解释一下代码：

这一块写给我们看的，让我们知道数据库是不是正常连接，发布的时候需要改写或者删除，用户不需要知道数据库正常与否，顶多当服务器坏了的时候提示他们服务器故障，请联系开发者。

现在来整理一下思路：当用户输入了卡密，接下来会干啥？点击验证按钮对吧？验证按钮的组件对象名是按钮1吧？写吧：

我们这句话说的就是把卡密输入框的卡密拿去查数据库，看看有没有这个卡密，同时看看这个卡密的使用者是谁，注意：在MYSQL数据库里面中文字符必须用单引号引出，但是在E4A里面做为查库的条件，单引号是做为文本使用的，它旁边就需要上双引号，为了稳，我们也加上单引号，为了方便你们看我就一步步写清楚了。

然后就是查完库返回一个结果了我们根据结果来判断这个卡密是否有效，如果有效则注册卡密使用者为本机，如果无效给出理由：

这是一个判断结构的语句块，分为以下几个情况：

查不到这个卡密，反馈用户：卡密错误

查到了这个卡密，发现已经被注册，反馈用户这个卡密已被使用

查到了这个卡密，并且无人注册，反馈验证成功给客户

上面我们就完成了卡密验证，接着我们写程序启动或者卡密验证成功后程序测试卡密是否过期，如果没有过期的话就把遮住内容的标签清除的操作，因为有两个点要调用这个代码，所以我们图个方便写个过程吧。

最后写出来大概就是这些代码：

变量 查库命令头 为 文本型
事件 主窗口.创建完毕()
	MySQL数据库1.连接数据库("http://mysql.ray-o.cn/openapi_unsafe.php","localhost:3306","","","mysql_ray_o_cn")
结束 事件

事件 MySQL数据库1.连接数据库完毕(连接结果 为 逻辑型)
	判断 连接结果
		分支 真
            验证()
		分支 假
			信息框("连接结果","连接失败","知道了")
	结束 判断
结束 事件

事件 按钮1.被单击()
	查库命令头 = "查卡密信息"
	MySQL数据库1.查询记录("卡密表","卡密,使用者","卡密=" & "'" & 编辑框1.内容 & "'")
结束 事件

	变量 集合内项目数 为 整数型
	变量 卡密到期时间 为 整数型
	变量 设备时间 为 整数型
	变量 月份 为 文本型
	变量 日 为 文本型
事件 MySQL数据库1.查询记录完毕(查询结果 为 集合)
	集合内项目数 = 查询结果.取项目总数()
	判断 查库命令头
		分支 "查卡密信息"
        	如果 集合内项目数 = 0 则
          		弹出提示("卡密错误")
           	否则如果 集合内项目数 <> 0 则
           	    如果 查询结果.取项目(0)(1) = "" 则
        		    MySQL数据库1.修改记录("卡密表","使用者=" & "'" & 手机1.取IMEI码() & "'","卡密=" & "'" & 编辑框1.内容 & "'")
					验证()
        		否则如果  查询结果.取项目(0)(1) <> "" 则
        		    弹出提示("卡密已被使用过")
        		结束 如果
        	结束 如果
		分支 "查设备在卡密系统注册的信息"
			如果 集合内项目数 = 0 则
          		弹出提示("请输入卡密完成验证")
           	否则如果 集合内项目数 <> 0 则
			    '开始处理时间文本
				卡密到期时间 = 子文本替换(查询结果.取项目(0)(1),".","")
				如果 取文本长度(取月份(取现行时间())) = 1 则
					月份 = 0 & 取月份(取现行时间())
				否则
				    月份 = 取月份(取现行时间())
				结束 如果
				如果 取文本长度(取日(取现行时间())) = 1 则
					日 = 0 & 取日(取现行时间())
				否则
				    日 = 取日(取现行时间())
				结束 如果
				设备时间 = 取年份(取现行时间()) & 月份 & 日
'				信息框("时间信息",卡密到期时间 & "|" & 设备时间,"确定")
				'结束处理时间文本
           	    如果 卡密到期时间 >= 设备时间 则
        		    标签2.可视 = 假
					编辑框1.可视 = 假
					按钮1.可视 = 假
					弹出提示("通过验证,祝您使用愉快")
				否则如果 卡密到期时间 <= 设备时间 则
				    弹出提示("卡密已到期")
        		结束 如果
        	结束 如果
	结束 判断
结束 事件

事件 MySQL数据库1.修改记录完毕(添加结果 为 逻辑型)
	判断 添加结果
		分支 真
			弹出提示("卡密激活成功")
	结束 判断
结束 事件

过程 验证()
	查库命令头 = "查设备在卡密系统注册的信息"
	MySQL数据库1.查询记录("卡密表","使用者,过期时间","使用者=" & "'" & 手机1.取IMEI码() & "'")
结束 过程

说两个地方吧，剩下的自行体会：

首先是命令头，就是这个东西：

这个东西的作用就是我们如果需要两次调用到同一个事件，为了区分事件下应该响应那个代码块而设定的规则。

另一个点就是一定要注意不要数据库连接命令写完了立即调查询命令，因为连接命令执行了此时正在连接还没有连上，你去查询肯定什么都查不到，要等连接数据库完毕后抛出的事件里面写一个判断连接成功下面再写这个查询，如下图：

这里的验证过程会立即调查库指令

好了先就说这么多吧源码我放在论坛了，本站不支持附件。

https://www.eruyi.cn/forum.php?mod=viewthread&tid=3670&page=1&extra=#pid62715