批量记住密码

啊门

exit11 发表于 2011-9-27 08:40
纯属代码问题

[e].版本 2
.子程序 _记住密码选择框_被单击
.局部变量 文件号, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 文件号2, 整数型

.如果 (记住密码选择框.选中 ＝ 真)
    .如果真 (文件是否存在 (配置路径7) ≠ 真 或 文件是否存在 (配置路径8) ≠ 真)
        处理事件 ()
        文件号 ＝ 打开文件 (“miman.ini”, 4, )
        处理事件 ()
        文件号2 ＝ 打开文件 (“miman2.ini”, 4, )
        处理事件 ()
        关闭文件 (文件号)
    .如果真结束
    .如果真 (删首空 (程序登录用户名组合框.内容) ＝ “” 或 删首空 (程序登录ID组合框.内容) ＝ “”)
        信息框 (“账号或ID不能为空”, 0, )
    .如果真结束
    .如果 (服务器显示标签.标题 ＝ “登录成功”)
        写配置项 (配置路径8, 程序登录用户名组合框.内容, “admin”, 程序登录用户名密码编辑框.内容)
        写配置项 (配置路径7, 程序登录ID组合框.内容, “admin”, 程序登录ID密码编辑框.内容)
        a ＝ 取配置节名 (配置路径7)
        .计次循环首 (取数组成员数 (a), x)
            程序登录ID组合框.加入项目 (a [x], )
        .计次循环尾 ()
        _程序登录用户名组合框_列表项被选择 ()
        a ＝ 取配置节名 (配置路径8)
        .计次循环首 (取数组成员数 (a), x)
            程序登录用户名组合框.加入项目 (a [x], )
        .计次循环尾 ()
        _程序登录ID组合框_列表项被选择 ()
    .否则
    .如果结束
.否则
    删除 (配置路径7)
    删除 (配置路径8)
[/e]

.版本 2
.子程序 _程序登录ID组合框_列表项被选择
.判断开始 (记住密码选择框.选中 ＝ 真)
    程序登录id密码编辑框.内容 ＝ 读配置项 (配置路径7, 程序登录ID组合框.取项目文本 (程序登录ID组合框.现行选中项), “admin”, )
.默认
.判断结束

.子程序 _程序登录用户名组合框_列表项被选择
.判断开始 (记住密码选择框.选中 ＝ 真)
    程序登录用户名密码编辑框.内容 ＝ 读配置项 (配置路径8, 程序登录用户名组合框.取项目文本 (程序登录用户名组合框.现行选中项), “admin”, )
.默认

界面是:



大大帮我看下 这个代码哪里出问题 读取密码正常 但是登录成功后 会自动 取消密码框的内容 显示为空 只能再次选择账号才显示 而且在登录那个代码里要调用子程序 _记住密码选择框_被单击  不然不能保存密码
<多个组合框 跟编辑框 是覆盖的 当选择ID 就显示ID组合框 跟ID编辑框 当选择账号就显示 账号组合框 跟账号编辑框>