台达 DOP-100 系列触摸屏 (LUA 程序编写用户管理应用)
发布于: 2021 年 07 月 12 日
前言
台达 DOP-100 系列的触摸屏全系内置的 Lua 程序开发环境，提供了一整套完善的用户的类。把之前我需要的功能也完善了。不错不错，欢迎各路看官可以试用。
正文
触摸屏效果图
Lua 程序
--[[地址交互-$140.0 登录用户-$140.1 创建用户-$140.2 删除用户-$140.3 变更用户名称-$140.4 变更用户密码-$140.5 变更用户权限-$140.6 变更用户天数-$140.7 变更密码天数-$141 状态提示 -$142 读取用户权限-$143 读取用户状态-$150 读取用户名称-$155 读取用户密码-$160 写入用户-$165 写入用户新名称-$170 写入用户密码-$175 写入用户权限-$176 写入用户天数-$177 写入密码天数]]
while true do --用户管理 AccoutPage = screen.IsOpen(111) if AccoutPage == 1 then iGetCurrentLogin, StrName, iLevel = account.GetCurrentLogin() if iGetCurrentLogin == 1 then mem.inter.WriteAscii(150, StrName, 8) mem.inter.Write(142, iLevel) iGetPassword, StrPassword = account.GetPassword(StrName) iGetStatus = account.GetStatus(StrName) if iGetStatus == 1 then mem.inter.Write(143, 1) else mem.inter.Write(143, 0) end if iGetPassword == 1 then mem.inter.WriteAscii(155, StrPassword, 8) end end
StrAccount = mem.inter.ReadAscii(160, 8) StrNewName = mem.inter.ReadAscii(165, 8) StrNewPassword = mem.inter.ReadAscii(170, 8) iNewLevel = mem.inter.Read(175) iNewUserDays = mem.inter.Read(176) iNewPwdDays = mem.inter.Read(177) bLoginAccout = mem.inter.ReadBit(140, 0) bAddAccout = mem.inter.ReadBit(140, 1) bSubAccout = mem.inter.ReadBit(140, 2) bChangeName = mem.inter.ReadBit(140, 3) bChangePW = mem.inter.ReadBit(140, 4) bChangeLevel = mem.inter.ReadBit(140, 5) bChangeUserDays = mem.inter.ReadBit(140, 6) bChangePwdDays = mem.inter.ReadBit(140, 7) bExist = account.IsExist(StrAccount) --用户是否存在 if bExist == 1 then mem.inter.Write(141,9)--用户已存在，请登录 end --登录用户 if (bLoginAccout == 1) then iLogin = account.Login(StrAccount, StrNewPassword) if (iLogin == 1) then mem.inter.Write(141,20) --登录用户成功 mem.inter.WriteBit(140, 0, 0) --复位登录按钮 end end --创建用户 if (bExist == 0) and (bAddAccout == 1) then iAdd = account.Add(StrAccount, StrNewPassword, iNewLevel) if iAdd == 1 then mem.inter.Write(141,21) --创建用户成功 mem.inter.WriteBit(140, 1, 0)--复位创建按钮 end end
--删除用户 if (bExist == 1) and (bSubAccout == 1) then iSub = account.Delete(StrAccount) if iSub == 1 then mem.inter.Write(141,22) --删除用户成功 mem.inter.WriteBit(140, 2, 0)--复位删除按钮 end end --变更用户名 if (bChangeName == 1) then iChangeName = account.ChangeName(StrAccount, StrNewName) if iChangeName == 1 then mem.inter.Write(141,23) --变更用户名成功 mem.inter.WriteBit(140, 3, 0)--复位变更用户名按钮 end end --变更密码 if (bChangePW == 1) then iChangePW = account.ChangePassword(StrAccount, StrNewPassword) if iChangePW == 1 then mem.inter.Write(141,24) --变更密码成功 mem.inter.WriteBit(140, 4, 0)--复位变更密码按钮 end end --变更权限 if (bChangeLevel == 1) then iChangeLevel = account.ChangeLevel(StrAccount, iNewLevel) if iChangeLevel == 1 then mem.inter.Write(141,25) --变更密码成功 mem.inter.WriteBit(140, 5, 0)--复位变更密码按钮 end end
--变更用户使用天数 if (bChangeUserDays == 1) then iChangeUserDays = account.ChangeUserExpiredDays(StrAccount, iNewUserDays) if iChangeUserDays == 1 then mem.inter.Write(141,26) --变更密码成功 mem.inter.WriteBit(140, 6, 0)--复位变更密码按钮 end end
--变更密码使用天数 if (bChangePwdDays == 1) then iChangePwdDays = account.ChangePwdExpiredDays(StrAccount, iNewPwdDays) if iChangePwdDays == 1 then mem.inter.Write(141,27) --变更密码成功 mem.inter.WriteBit(140, 7, 0)--复位变更密码按钮 end end end end
复制代码
通过上述程序可以看出使用 Lua 程序的便利性。
结尾
后期我还会继续把我一些常用的 Lua 程序分享出来给大家。
划线
评论
复制
发布于: 2021 年 07 月 12 日阅读数: 71
版权声明: 本文为 InfoQ 作者【林建】的原创文章。
原文链接:【http://xie.infoq.cn/article/c95f409b94a7ade283d7e6ea5】。未经作者许可，禁止转载。
林建
关注
还未添加个人签名 2021.06.19 加入
还未添加个人简介
评论