制作收费工具的必须 .版本 2 .子程序 充vip .局部变量 到期时间, 文本型 .局部变量 卡xx, 文本型 .局部变量 ka1, 文本型, , "0" .局部变量 ka11, 整数型 .局部变量 月到期, 文本型 .判断开始 (编辑框7.内容 ＝ “”) 信息框 (“帐号不能为空”, 0, ) 按钮4.禁止 ＝ 假 .判断 (编辑框8.内容 ＝ “”) 信息框 (“充值卡号不能为空”, 0, ) 按钮4.禁止 ＝ 假 .判断 (编辑框9.内容 ＝ “”) 信息框 (“密码不能为空”, 0, ) 按钮4.禁止 ＝ 假 .默认 .如果 (飘零判断查询 (“卡类”, “卡号” , “密码='” ＋ 编辑框9.内容 ＋ “'” ＋ “ and ” ＋ “使用者='” ＋ “ ” ＋ “'”, , 编辑框8.内容) ＝ 真) .如果 (飘零判断查询 (“admin”, “等级”, “ID='” ＋ 编辑框7.内容 ＋ “'”, , “免费”) ＝ 真) 卡xx ＝ 飘零_查询 (“卡类”, “类型,总时间”, “卡号='” ＋ 编辑框8.内容 ＋ “'” ＋ “ and ” ＋ “密码='” ＋ 编辑框9.内容 ＋ “'”, ) ka1 ＝ 分割文本 (卡xx, “々”, ) ka11 ＝ 取数组成员数 (ka1) .判断开始 (ka11 ＜ 1) .判断 (ka1 [1] ＝ “终身卡”) .如果 (飘零修改 (“卡类”, “使用者='” ＋ 编辑框7.内容 ＋ “'” ＋ “,” ＋ “充值时间='” ＋ 充值时间 ＋ “'”, “卡号='” ＋ 编辑框8.内容 ＋ “'” ＋ “ and ” ＋ “密码='” ＋ 编辑框9.内容 ＋ “'”)) .如果 (飘零修改 (“admin”, “等级='vip'”, “ID='” ＋ 编辑框7.内容 ＋ “'”) ＝ 真) 信息框 (“充值成功”, 0, ) 按钮4.禁止 ＝ 假 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .判断 (ka1 [1] ＝ “记次卡” 且 ka11 ＝ 2) .如果 (飘零修改 (“卡类”, “使用者='” ＋ 编辑框7.内容 ＋ “'” ＋ “,” ＋ “充值时间='” ＋ 充值时间 ＋ “'” ＋ “,” ＋ “到期时间='” ＋ ka1 [2] ＋ “'”, “卡号='” ＋ 编辑框8.内容 ＋ “'” ＋ “ and ” ＋ “密码='” ＋ 编辑框9.内容 ＋ “'”)) .如果 (飘零修改 (“admin”, “等级='vip'”, “ID='” ＋ 编辑框7.内容 ＋ “'”) ＝ 真) 信息框 (“充值成功”, 0, ) 按钮4.禁止 ＝ 假 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .判断 (ka1 [1] ＝ “记日卡” 且 ka11 ＝ 2) 月到期 ＝ 到文本 (增减时间 (到时间 (充值时间), 5, 到整数 (ka1 [2]))) .如果 (飘零修改 (“卡类”, “使用者='” ＋ 编辑框7.内容 ＋ “'” ＋ “,” ＋ “充值时间='” ＋ 充值时间 ＋ “'” ＋ “,” ＋ “到期时间='” ＋ 月到期 ＋ “'”, “卡号='” ＋ 编辑框8.内容 ＋ “'” ＋ “ and ” ＋ “密码='” ＋ 编辑框9.内容 ＋ “'”)) .如果 (飘零修改 (“admin”, “等级='vip'”, “ID='” ＋ 编辑框7.内容 ＋ “'”) ＝ 真) 信息框 (“充值成功”, 0, ) 按钮4.禁止 ＝ 假 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .默认 信息框 (“你的卡类型不存在”, 0, ) 按钮4.禁止 ＝ 假 .判断结束 .否则 信息框 (“充值失败，你的卡已经是VIP，无需充vip”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .否则 信息框 (“充值失败，充值卡不存在或密码错误或已经被使用”, 0, ) 按钮4.禁止 ＝ 假 .如果结束
写程序的时候 经常遇到 窗口上有很多组件 而且需要用到对软件的操作结果保存 再下次使用软件的时候 易语言网络验证软件恢复到之前的状态
这里 很多人往往都是一个组件一个组件写代码进行保存 很是繁琐 并且工作量很大 让人烦心
这个源码对窗口上的组件进行枚举 然后根据 需求 例如组件的名字 组件的标记 来进行区分是否是需要保存的数据
一行代码就能对窗口上的 编辑框 组合框 单选框 选择框 全部保存当前状态和文本 配合读取代码 一行就能读取