自己做的易语言添加登陆删除用户的一个小软件，希望大家喜欢

戒卜掉思恋

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
字段表	字段信息		3

如果真 (文件是否存在 (取运行目录 () ＋ “\用户管理.edb”) ＝ 假)
字段表 [1].名称 ＝ “用户帐号”
字段表 [1].类型 ＝ #文本型
字段表 [2].名称 ＝ “用户密码”
字段表 [2].类型 ＝ #文本型
字段表 [3].名称 ＝ “用户组”
字段表 [3].类型 ＝ #文本型
创建 (取运行目录 () ＋ “\用户管理.edb”, 字段表)
信息框 (“用户数据库创建成功！”, 64, “温馨提示”)
加记录 (“admin”, “admin”, “系统管理员”)
返回 ()
记住帐号密码 ()
加载皮肤 (33)
破J ()

子程序名	返回值类型	公开	备 注
记住帐号密码

变量名	类 型	静态	数组	备 注
记住帐号	文本型
记住密码	文本型
用户组	文本型
用户账号记录	文本型
用户密码记录	文本型

如果真 (文件是否存在 (取运行目录 () ＋ “/用户临时配置.dll”) ＝ 真)
用户账号记录 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户账号记录”, “用户临时账号”, )
用户密码记录 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户密码记录”, “用户密码记录”, )
记住帐号 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住帐号选中”, “是否选中”, )
记住密码 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住密码选中记录”, “是否选中”, )
用户组 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户组”, “用户临时用户组”, )
如果 (记住帐号 ＝ “真”)
编辑框_用户名.内容 ＝ 用户账号记录
编辑框_用户组.内容 ＝ 用户组
记住帐号.选中 ＝ 真
编辑框_用户名.内容 ＝ “”
记住帐号.选中 ＝ 假
如果 (记住密码 ＝ “真”)
编辑框_用户密码.内容 ＝ 用户密码记录
记住密码.选中 ＝ 真
编辑框_用户密码.内容 ＝ “”
记住密码.选中 ＝ 假

子程序名	返回值类型	公开	备 注
_系统登录_被单击

如果 (记住帐号.选中 ＝ 真)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户账号记录”, “用户临时账号”, 编辑框_用户名.内容)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住帐号选中”, “是否选中”, “真”)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户组”, “用户临时用户组”, 编辑框_用户组.内容)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户账号记录”, “账号”, “”)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住密码选中记录”, “是否选中”, “假”)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户组”, “用户临时用户组”, “”)
如果 (记住密码.选中 ＝ 真)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户密码记录”, “用户密码记录”, 编辑框_用户密码.内容)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住密码选中记录”, “是否选中”, “真”)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户密码记录”, “用户密码记录”, “”)
写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住密码选中记录”, “是否选中”, “假”)

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 字段表, 字段信息, , "3"<br /> <br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\用户管理.edb”) ＝ 假)<br />     字段表 [1].名称 ＝ “用户帐号”<br />     字段表 [1].类型 ＝ #文本型<br />     字段表 [2].名称 ＝ “用户密码”<br />     字段表 [2].类型 ＝ #文本型<br />     字段表 [3].名称 ＝ “用户组”<br />     字段表 [3].类型 ＝ #文本型<br />     创建 (取运行目录 () ＋ “\用户管理.edb”, 字段表)<br />     信息框 (“用户数据库创建成功！”, 64, “温馨提示”)<br />     加记录 (“admin”, “admin”, “系统管理员”)<br />     返回 ()<br /> .如果真结束<br /> 记住帐号密码 ()<br /> 加载皮肤 (33)<br /> 破J ()<br /> <br /> .子程序 记住帐号密码<br /> .局部变量 记住帐号, 文本型<br /> .局部变量 记住密码, 文本型<br /> .局部变量 用户组, 文本型<br /> .局部变量 用户账号记录, 文本型<br /> .局部变量 用户密码记录, 文本型<br /> <br /> .如果真 (文件是否存在 (取运行目录 () ＋ “/用户临时配置.dll”) ＝ 真)<br />     用户账号记录 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户账号记录”, “用户临时账号”, )<br />     用户密码记录 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户密码记录”, “用户密码记录”, )<br />     记住帐号 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住帐号选中”, “是否选中”, )<br />     记住密码 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住密码选中记录”, “是否选中”, )<br />     用户组 ＝ 读配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户组”, “用户临时用户组”, )<br />     .如果 (记住帐号 ＝ “真”)<br />         编辑框_用户名.内容 ＝ 用户账号记录<br />         编辑框_用户组.内容 ＝ 用户组<br />         记住帐号.选中 ＝ 真<br />     .否则<br />         编辑框_用户名.内容 ＝ “”<br />         记住帐号.选中 ＝ 假<br />     .如果结束<br />     .如果 (记住密码 ＝ “真”)<br />         编辑框_用户密码.内容 ＝ 用户密码记录<br />         记住密码.选中 ＝ 真<br />     .否则<br />         编辑框_用户密码.内容 ＝ “”<br />         记住密码.选中 ＝ 假<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _系统登录_被单击<br /> <br /> .如果 (记住帐号.选中 ＝ 真)<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户账号记录”, “用户临时账号”, 编辑框_用户名.内容)<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住帐号选中”, “是否选中”, “真”)<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户组”, “用户临时用户组”, 编辑框_用户组.内容)<br /> .否则<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户账号记录”, “账号”, “”)<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住密码选中记录”, “是否选中”, “假”)<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户组”, “用户临时用户组”, “”)<br /> .如果结束<br /> .如果 (记住密码.选中 ＝ 真)<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户密码记录”, “用户密码记录”, 编辑框_用户密码.内容)<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住密码选中记录”, “是否选中”, “真”)<br /> .否则<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户密码记录”, “用户密码记录”, “”)<br />     写配置项 (取运行目录 () ＋ “/用户临时配置.dll”, “用户记住密码选中记录”, “是否选中”, “假”)<br /> .如果结束

  

窗口程序集名	保 留	保 留	备 注
窗口程序集3

子程序名	返回值类型	公开	备 注
_添加管理员_被单击

打开 (取运行目录 () ＋ “\用户管理.edb”, , , , , , )
计次循环首 (取记录数 (), )
如果真 (编辑框_用户名.内容 ＝ 读 (“用户帐号”) 且 编辑框_用户名.内容 ＝ 读 (“用户密码”) 且 编辑框_用户组.内容 ＝ 读 (“用户组”))
信息框 (“已有相同记录，请核实！”, #信息图标, “友情提示”)
返回 ()
如果真 (读 (“用户帐号”) ＝ “”)
删除 ()
彻底删除 ()
跳过 ()
计次循环尾 ()
加记录 (编辑框_用户名.内容, 编辑框_用户名.内容, 编辑框_用户组.内容)
连续赋值 (“”, 编辑框_用户名.内容, 编辑框_用户密码.内容, 编辑框_用户组.内容)
关闭 ()
读用户数据库 ()

子程序名	返回值类型	公开	备 注
读用户数据库

变量名	类 型	静态	数组	备 注
局部_计次	整数型
局部_当前行	整数型

打开 (取运行目录 () ＋ “\用户管理.edb”, , , , , , )
超级列表框1.全部删除 ()
计次循环首 (取记录数 (), 局部_计次)
局部_当前行 ＝ 超级列表框1.插入表项 (取记录数 (), 到文本 (局部_计次), , , , )
超级列表框1.置标题 (局部_当前行, 1, 读 (“用户帐号”))
超级列表框1.置标题 (局部_当前行, 2, 读 (“用户密码”))
超级列表框1.置标题 (局部_当前行, 3, 读 (“用户组”))
跳过 ()
计次循环尾 ()
关闭 ()

子程序名	返回值类型	公开	备 注
_用户管理窗口_创建完毕

读用户数据库 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

编辑框_用户名.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
编辑框_用户密码.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
编辑框_用户组.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)

子程序名	返回值类型	公开	备 注
_删除用户按钮_被单击

打开 (取运行目录 () ＋ “\用户管理.edb”, , , , , , )
计次循环首 (取记录数 (), )
如果真 (编辑框_用户名.内容 ＝ 读 (“用户帐号”) 且 编辑框_用户名.内容 ＝ 读 (“用户密码”) 且 编辑框_用户组.内容 ＝ 读 (“用户组”))
删除 ()
彻底删除 ()
信息框 (“用户已经彻底删除”, 64, “温馨提示”)
连续赋值 (“”, 编辑框_用户名.内容, 编辑框_用户密码.内容, 编辑框_用户组.内容)
读用户数据库 ()
返回 ()
跳过 ()
计次循环尾 ()
关闭 ()

子程序名	返回值类型	公开	备 注
_修改用户资料_被单击

打开 (取运行目录 () ＋ “\用户管理.edb”, , , , , , )
修改 (编辑框_用户名.内容, 编辑框_用户名.内容, 编辑框_用户组.内容)
关闭 ()
连续赋值 (“”, 编辑框_用户名.内容, 编辑框_用户密码.内容, 编辑框_用户组.内容)
信息框 (“用户数据已修改完毕”, 64, “温馨提示”)
读用户数据库 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集3<br /> <br /> .子程序 _添加管理员_被单击<br /> <br /> 打开 (取运行目录 () ＋ “\用户管理.edb”, , , , , , )<br /> .计次循环首 (取记录数 (), )<br />     .如果真 (编辑框_用户名.内容 ＝ 读 (“用户帐号”) 且 编辑框_用户名.内容 ＝ 读 (“用户密码”) 且 编辑框_用户组.内容 ＝ 读 (“用户组”))<br />         信息框 (“已有相同记录，请核实！”, #信息图标, “友情提示”)<br />         返回 ()<br />     .如果真结束<br />     .如果真 (读 (“用户帐号”) ＝ “”)<br />         删除 ()<br />         彻底删除 ()<br />     .如果真结束<br />     跳过 ()<br /> .计次循环尾 ()<br /> 加记录 (编辑框_用户名.内容, 编辑框_用户名.内容, 编辑框_用户组.内容)<br /> 连续赋值 (“”, 编辑框_用户名.内容, 编辑框_用户密码.内容, 编辑框_用户组.内容)<br /> 关闭 ()<br /> 读用户数据库 ()<br /> <br /> .子程序 读用户数据库<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_当前行, 整数型<br /> <br /> 打开 (取运行目录 () ＋ “\用户管理.edb”, , , , , , )<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取记录数 (), 局部_计次)<br />     局部_当前行 ＝ 超级列表框1.插入表项 (取记录数 (), 到文本 (局部_计次), , , , )<br />     超级列表框1.置标题 (局部_当前行, 1, 读 (“用户帐号”))<br />     超级列表框1.置标题 (局部_当前行, 2, 读 (“用户密码”))<br />     超级列表框1.置标题 (局部_当前行, 3, 读 (“用户组”))<br />     跳过 ()<br /> .计次循环尾 ()<br /> 关闭 ()<br /> <br /> <br /> .子程序 _用户管理窗口_创建完毕<br /> <br /> 读用户数据库 ()<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> <br /> 编辑框_用户名.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br /> 编辑框_用户密码.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)<br /> 编辑框_用户组.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)<br /> <br /> .子程序 _删除用户按钮_被单击<br /> <br /> 打开 (取运行目录 () ＋ “\用户管理.edb”, , , , , , )<br /> .计次循环首 (取记录数 (), )<br />     .如果真 (编辑框_用户名.内容 ＝ 读 (“用户帐号”) 且 编辑框_用户名.内容 ＝ 读 (“用户密码”) 且 编辑框_用户组.内容 ＝ 读 (“用户组”))<br />         删除 ()<br />         彻底删除 ()<br />         信息框 (“用户已经彻底删除”, 64, “温馨提示”)<br />         连续赋值 (“”, 编辑框_用户名.内容, 编辑框_用户密码.内容, 编辑框_用户组.内容)<br />         读用户数据库 ()<br />         返回 ()<br />     .如果真结束<br />     跳过 ()<br /> .计次循环尾 ()<br /> 关闭 ()<br /> <br /> <br /> .子程序 _修改用户资料_被单击<br /> <br /> 打开 (取运行目录 () ＋ “\用户管理.edb”, , , , , , )<br /> 修改 (编辑框_用户名.内容, 编辑框_用户名.内容, 编辑框_用户组.内容)<br /> 关闭 ()<br /> 连续赋值 (“”, 编辑框_用户名.内容, 编辑框_用户密码.内容, 编辑框_用户组.内容)<br /> 信息框 (“用户数据已修改完毕”, 64, “温馨提示”)<br /> 读用户数据库 ()

fakemask

像这样的好东西，一定要支持，希望大家都能写出很好的软件！

qq1433787499

额鹅鹅鹅饿我看看

YI少年

眼花缭乱的

m969316312

???????????????????????

小水哥

看看，好像很复杂。

我爱黑暗

好难关系？？？

戒卜掉思恋

C:\Documents and Settings\Administrator\桌面\QQ截图20140731201644.p'n'g

年少无知丿

.......以点回复，无以回报

半醉半疯癫

看不懂 表示支持~