|
发表于 2021-11-6 11:59:05
|
显示全部楼层
江苏省常州市
.版本 2 .子程序 _按钮4_被单击 .局部变量 卡号开头, 文本型 .局部变量 生成数量, 整数型 .局部变量 使用期限, 文本型 .局部变量 i, 整数型 .局部变量 生成日期, 文本型 .局部变量 充值卡号, 文本型 .局部变量 充值密码, 整数型 .局部变量 充值卡期限, 文本型 .局部变量 是否已充值, 整数型 .局部变量 局部_对象, 对象 .局部变量 记录集结果, 整数型 卡号开头 = 编辑框5.内容 生成数量 = 到整数 (编辑框6.内容) .如果真 (生成数量 > 500) 信息框 (“生成充值卡数量最大限额一次:500张!”, 16, “提示”) 编辑框6.内容 = “20” 返回 () .如果真结束 .如果真 (单选框1.选中 = 真) 使用期限 = “周卡” .如果真结束 .如果真 (单选框2.选中 = 真) 使用期限 = “月卡” .如果真结束 .如果真 (单选框3.选中 = 真) 使用期限 = “季卡” .如果真结束 .如果真 (单选框4.选中 = 真) 使用期限 = “半年卡” .如果真结束 .如果真 (单选框5.选中 = 真) 使用期限 = “年卡” .如果真结束 .如果真 (单选框6.选中 = 真) 使用期限 = “天卡” .如果真结束 .计次循环首 (生成数量, i) 生成日期 = 格式化时间_叮咚 (取现行时间 (), “yyyy/MM/dd”) 充值卡号 = 卡号开头 + 到文本 (取随机数_ (1234567890, 9876543210)) 充值密码 = 取随机数_ (1234567890, 9876543210) 充值卡期限 = 使用期限 是否已充值 = 0 .如果真 (充值卡号是否存在 (充值卡号) = 假) ' 查询充值卡卡号是否有重复! 局部_对象 = 数据库连接.执行SQL (“insert into 充值卡信息 ([生成日期],[充值卡号],[充值密码],[充值卡期限],[是否已充值]) values ('” + 到文本 (生成日期) + “','” + 到文本 (充值卡号) + “','” + 到文本 (充值密码) + “','” + 到文本 (充值卡期限) + “','” + 到文本 (是否已充值) + “')”, 记录集结果) .如果真 (局部_对象.是否为空 () = 真) 信息框 (“批量写入充值卡出错!”, 16, “提示”) 跳出循环 () .如果真结束 .如果真结束 处理事件 () .计次循环尾 () 信息框 (“生成成功!”, 64, “提示”) |
|