您的位置:首页 > 其它

组合框自动记录

2015-11-06 20:44 337 查看
程序集名保留保留备注
组合框自动记录公开
变量名类型数组备注
记录url文本型
账号记录文本型0
T整数型
子程序名返回值类型公开备注
初始化当基于本类的对象被创建后,此方法会被自动调用
记录url = 取运行目录 () + “\gudong.dll”
调试输出 (记录url)
T = 创建进入许可证 ()
子程序名返回值类型公开备注
销毁当基于本类的对象被销毁前,此方法会被自动调用
清除数组 (账号记录)
删除进入许可证 (T)
子程序名返回值类型公开备注
读取信息逻辑型填充下拉 成功返回真,失败返回假
参数名类型参考可空数组备注
组合框组合框
变量名类型静态数组备注
i
历史集合文本型
Temp历史文本型0
进入许可区 (T)
历史集合 = 到文本 (读入文件 (记录url))
账号记录 = 分割文本 (历史集合, #换行符, )
组合框.清空 ()
退出许可区 (T)
计次循环首 (取数组成员数 (账号记录), i)
Temp历史 = 分割文本 (账号记录 [i], “)(”, )
如果真 (取数组成员数 (Temp历史) < 1)
返回 (假)
如果真结束
组合框.加入项目 (Temp历史 [1], )
计次循环尾 ()
返回 (真)
子程序名返回值类型公开备注
取数据文本型成功返回 索引数据,失败返回空
参数名类型参考可空数组备注
索引整数型
如果真 (索引 + 1 ≤ 取数组成员数 (账号记录))
返回 (账号记录 [索引 + 1])
如果真结束
返回 (“”)
子程序名返回值类型公开备注
保存信息逻辑型保存返回真,存在返回假 【)(】分割
参数名类型参考可空数组备注
账号信息文本型唯一 标识[主键]
附加信息文本型附加信息
变量名类型静态数组备注
i
y是否有历史 0.没有 1.有
Temp历史文本型0
账号字节集字节集
uaerinfo文本型
历史集合文本型
临时账号字节集
进入许可区 (T)
历史集合 = 到文本 (读入文件 (记录url))
账号记录 = 分割文本 (历史集合, #换行符, )
计次循环首 (取数组成员数 (账号记录), i)
Temp历史 = 分割文本 (账号记录 [i], “)(”, )
如果真 (取数组成员数 (Temp历史) < 1)
返回 (假)
如果真结束
如果真 (Temp历史 [1] = 账号信息)
y = 1
如果真结束
计次循环尾 ()
退出许可区 (T)
如果真 (y = 0)
账号字节集 = 读入文件 (记录url)
uaerinfo = 账号信息 + “)(” + 附加信息 + #换行符
调试输出 (“写入数据”, uaerinfo)
临时账号 = 到字节集 (uaerinfo)
写到文件 (记录url, 账号字节集 + 临时账号)
返回 (真)
如果真结束
返回 (假)
i本程序使用的支持库列表
spec(特殊功能支持库)
EThread(多线程支持库)
i声明
版权声明本文为博主原创文章,未经博主允许不得转载。
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: