源码:
.版本 2
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #回车键)
写注册项 (#现行用户, “Software\SFZLQC\QYMC\Main”, 编辑框1.内容)
信息框 (“设置完成!”, 0, , )
销毁 ()
.默认
.判断结束
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _编辑框5_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
本次身份证号码 = 取随机数 (4103262021123, 4103263000123)
.判断开始 (键代码 = #回车键)
写注册项 (#现行用户, “Software\SFZlqc\” + 到文本 (本次身份证号码) + 编辑框1.内容 + “\”, 编辑框1.内容 + “割字” + 编辑框2.内容 + “割字” + 编辑框3.内容 + “割字” + 编辑框4.内容 + “割字” + 编辑框5.内容)
信息框 (“身份证号为:” + 到文本 (本次身份证号码) + “。”, 0, , )
.默认
.判断结束
.子程序 __启动窗口_创建完毕
.判断开始 (注册项是否存在 (#现行用户, “Software\SFZLQC\QYMC\Main”) = 真)
_启动窗口.标题 = 取文本注册项 (#现行用户, “Software\SFZLQC\QYMC\Main”, )
.默认
.判断结束
.判断开始 (注册项是否存在 (#现行用户, “Software\SFZLQC\QYMC\Main”) = 假)
_启动窗口.标题 = “未设置名称”
.默认
.判断结束
.子程序 _按钮1_被单击
.判断开始 (注册项是否存在 (#现行用户, “Software\SFZLQC\QYMC\Main”) = 真)
_启动窗口.标题 = 取文本注册项 (#现行用户, “Software\SFZLQC\QYMC\Main”, )
.默认
.判断结束
载入 (窗口1, , 真)
.版本 2
.全局变量 本次身份证号码, 双精度小数型
|