易语言管理系统mysql版

易语言 2020-08-14 13:14:30

易语言管理系统mysql版

就是mysql数据库操作,不会的朋友可以看看学习,高高手勿喷。

自己测试没有问题才发的,先把MYSQL装好,再把数据库导入进去。很完整的源码,在不会用,自己去学习下基础知识。

.如果真 (超级列表框_表单数据.现行选中项 = -1)
信息框 (“请选择要操作的项目”, #信息图标, “友情提醒”)
返回 ()
.如果真结束
.如果真 (超级列表框_表单数据.取标题 (超级列表框_表单数据.现行选中项, 6) ≠ “未处理”)
信息框 (“已进行设置,无法再设置操作”, #信息图标, “友情提醒”)
返回 ()
.如果真结束
index = 超级列表框_表单数据.现行选中项
.判断开始 (超级列表框_表单数据.取标题 (index, 1) = “普通会员”)
grade = 1
.判断 (超级列表框_表单数据.取标题 (index, 1) = “VIP会员”)
grade = 2
.判断 (超级列表框_表单数据.取标题 (index, 1) = “黄金会员”)
grade = 3
.默认

.判断结束
sql = “update t_data set AgentName='” + 超级列表框_表单数据.取标题 (index, 0) + “', AgentGrade='” + 到文本 (grade) + “', QQ_accounts='” + 超级列表框_表单数据.取标题 (index, 2) + “' , QQ_password='” + 超级列表框_表单数据.取标题 (index, 3) + “', Business_Information='” + 超级列表框_表单数据.取标题 (index, 4) + “', amount_payable='” + 超级列表框_表单数据.取标题 (index, 5) + “', state='充值成功', ApplicationDate='” + 超级列表框_表单数据.取标题 (index, 7) + “' where id=” + 超级列表框_表单数据.取标题 (index, 8)
输出调试文本 (sql)
.判断开始 (执行SQL语句 (MysqlHanble, sql))
超级列表框_表单数据.置标题 (index, 6, “充值成功”)
.默认
信息框 (“设置状态失败!”, #信息图标, “友情提醒”)