标签：class 客户 存在 数据 table order 存储 where color
事件 开关控制.创建完毕() 数据库表="KGKZtable" 如果 数据表是否存在(数据库表) = 假 则 创建数据表(数据库表,"id text,A1 text,A2 text,A3 test") 插入记录(数据库表,"‘1‘,‘OFF‘,‘1‘,‘0‘") 命令1 = 数据库查询("SELECT A1 FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 命令2 = 数据库查询("SELECT A2 FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 命令3 = 数据库查询("SELECT A3 FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 否则 命令1 = 数据库查询("SELECT A1 FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 命令2 = 数据库查询("SELECT A2 FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 命令3 = 数据库查询("SELECT A3 FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 结束 如果 客户1=读取对象("客户") 结束 事件
创建数据库
事件 按钮3.被单击() ‘ORDER:0216+OFF 发送内容="ORDER:0216+OFF" & "\r\n" 发送文本.标题=发送内容 & 取现行日期文本("-") & " " & 取现行时间文本(":") 客户1.发送数据(文本到字节(发送内容,"GBK")) 容错处理首 分支 否则 状态标签.标题="发送出现错误" 容错处理尾 结束 事件
锁屏控制
事件 主窗口.创建完毕() 数据库名="/YJKdata.db" 数据库表="YJKtable" 如果 文件是否存在(取存储卡路径() & 数据库名) = 假 则 创建数据库(取存储卡路径() & 数据库名) 弹出提示("创建数据库成功！") 结束 如果 打开数据库(取存储卡路径() & 数据库名) ‘！！！在进行数据库操作前必须先打开数据库 如果 数据表是否存在(数据库表) = 假 则 创建数据表(数据库表,"id text,ip text,port text,user text,paw test,JZ test,Auto_Login test") 插入记录(数据库表,"‘1‘,‘www.eeecontrol.com‘,‘4509‘,‘test123‘,‘abc123456‘,‘0‘,‘0‘") 否则 编辑框1.内容 = 数据库查询("SELECT ip FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 编辑框2.内容 = 数据库查询("SELECT port FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 编辑框3.内容 = 数据库查询("SELECT user FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 密码编辑框1.内容 = 数据库查询("SELECT paw FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 选择框1.选中=数据库查询("SELECT JZ FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 选择框2.选中=数据库查询("SELECT Auto_Login FROM " & 数据库表 & " WHERE id=‘1‘","","") ‘查询id=‘1‘的那条记录 结束 如果 登陆成功标志=0 如果 选择框2.选中=真 则 自动登陆() 结束 如果 结束 事件
登录功能的实现
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型) 如果 键代码 = 返回键 则 进度圈1.可视=假 如果 取启动时间() - 启动时间 >2000 则 弹出提示("再按一次退出程序") 启动时间 = 取启动时间() 否则 结束程序() 结束 如果 结束 如果 结束 事件
双击退出代码实现
标签：class 客户 存在 数据 table order 存储 where color
原文地址：https://www.cnblogs.com/summer-csai-learner/p/12967796.html
