精易论坛

标题: ***领取处软件，zc表保存 [打印本页]

作者: YangJunkeji 时间: 2021-12-22 20:24
标题: ***领取处软件，zc表保存
源码：
.版本 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
.全局变量本次身份证号码, 双精度小数型

作者: YangJunkeji 时间: 2021-12-22 20:27
本帖最后由 YangJunkeji 于 2021-12-22 20:29 编辑

窗口组件：
_启动窗口颜色红：标签1，背景颜色红，编辑框5个照图即可，一个按钮，代码写上了
窗口1：编辑框

教程E程序.e

5.99 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: YangJunkeji 时间: 2021-12-22 20:31
楼主备注↑

作者: 金胖子 时间: 2021-12-23 11:51
拿来吧你！

作者: 1468848161 时间: 2021-12-28 09:15
学习了，谢谢

作者: 你送的花开了 时间: 2021-12-30 07:09
支持开源~！感谢分享

作者: 趣冉科技 时间: 2022-1-4 17:50
感谢楼主分享，支持一下~~

作者: ghost12 时间: 2022-1-28 09:00
感谢发布原创作品，精易因你更精彩！

欢迎光临精易论坛 (https://125.confly.eu.org/)