123

Posted 2020-12-22 summer-csai-learner

事件 开关控制.创建完毕()
    数据库表="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"  & "
"
    发送文本.标题=发送内容  & 取现行日期文本("-") & " " & 取现行时间文本(":")
    客户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 则
            弹出提示("再按一次退出程序")
            启动时间 = 取启动时间()
        否则 
            结束程序()
        结束 如果
    结束 如果
结束 事件

双击退出代码实现