求一个 网络验证读写mdb数据库的方案

你送的花开了

  

子程序名	返回值类型	公开	备 注
_按钮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, “提示”)

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

小布仕奇

66666666666666666666666666666