我想取系统年月日和时间生成卡号遇到一个问题求解决

faeraer

我想用取系统时间来作为生成卡号的一部分，可是我把系统时间写上去后，测试，生成的第一张卡号的帐号是正确的，后面的就不正确了，他把第一次取的时间和第二次的加到一起显示出来了，这个问题需要怎么解决啊！
.版本 2
.局部变量 小时, 文本型
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
.局部变量 分钟, 文本型
.局部变量 秒, 文本型
.局部变量 取数字时间, 文本型
年 ＝ 到文本 (取时间部分 (取现行时间 (), #年份))
月 ＝ 到文本 (取时间部分 (取现行时间 (), #月份))
日 ＝ 到文本 (取时间部分 (取现行时间 (), #日))
小时 ＝ 到文本 (取时间部分 (取现行时间 (), #小时))
分钟 ＝ 到文本 (取时间部分 (取现行时间 (), #分钟))
秒 ＝ 到文本 (取时间部分 (取现行时间 (), #秒))
取数字时间 ＝ 年 ＋ 月 ＋ 日 ＋ 小时 ＋ 分钟 ＋ 秒
编号 ＝ “AITZ” ＋ 取重复文本 (3 － 取文本长度 (编号), “0”) ＋ 取数字时间 ＋ 编号  ' 取重复数的位数长度！
返回 (编号)



补充内容 (2012-3-3 23:10):
没有你的模块我用不了额！有不用模块解决的方法吗
还有因为生成卡号取现行时间只是卡号的一部分，不是全部，输出的时候是字母+取现行时间+序列号编号来的

补充内容 (2012-3-6 20:39):
我第一次点制作卡号的结果是201203062036编号从01开始的，但是第二次点制作卡号的时候就变成成了201203062036201203062036不知道怎么解决这个问题

xiaozhi123

这个问题我也想知道。{:3_245:}

tenliq

试试看,用完后把变量编号清空

大家好呵呵

我看看啊   呵呵

追忆流年

用API  GetCurrentTime

三千

现行时间生成编号.rar (91.04 KB, 下载次数: 28)

2012-3-3 23:01 上传

点击文件名下载附件
看看吧!!!

一棒过克

[e].版本 2
.支持库 spec
.支持库 eAPI

.子程序 _按钮1_被单击
.局部变量 a, 文本型, , "0"

生成编号 (a, 到整数 (编辑框1.内容))
调试输出 (a)

.子程序 生成编号
.参数 编号数组, 文本型, 数组
.参数 生成编号数, 整数型
.局部变量 取数字时间, 文本型
.局部变量 n, 整数型
.局部变量 序号, 文本型

.如果真 (生成编号数 ≥ 10000)
    信息框 (“只能小于10000”, 0, )
    返回 ()
.如果真结束
' 取数字时间 ＝ 格式化文本 (“%04d%02d%02d%”, 取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()))
取数字时间 ＝ 格式化文本 (“%04d%02d%02d%02d%02d%02d%”, 取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()), 取小时 (取现行时间 ()), 取分钟 (取现行时间 ()), 取秒 (取现行时间 ()))
.计次循环首 (生成编号数, n)
    .如果真 (n ＜ 10)
        序号 ＝ “000” ＋ 到文本 (n)
    .如果真结束
    .如果真 (n ≥ 10 且 n ＜ 100)
        序号 ＝ “00” ＋ 到文本 (n)
    .如果真结束
    .如果真 (n ≥ 10 且 n ＜ 1000)
        序号 ＝ “0” ＋ 到文本 (n)
    .如果真结束
    加入成员 (编号数组, “AITZ” ＋ “0000” ＋ 取数字时间 ＋ 序号)
.计次循环尾 ()
[/e]

faeraer

[e].版本 2

.子程序 取卡号, 文本型, 公开
.参数 编号, 文本型
.局部变量 小时, 文本型
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
.局部变量 分钟, 文本型
.局部变量 秒, 文本型
.局部变量 取数字时间, 文本型

年 ＝ 到文本 (取时间部分 (取现行时间 (), #年份))
月 ＝ 到文本 (取时间部分 (取现行时间 (), #月份))
日 ＝ 到文本 (取时间部分 (取现行时间 (), #日))
小时 ＝ 到文本 (取时间部分 (取现行时间 (), #小时))
分钟 ＝ 到文本 (取时间部分 (取现行时间 (), #分钟))
秒 ＝ 到文本 (取时间部分 (取现行时间 (), #秒))
取数字时间 ＝ 年 ＋ 月 ＋ 日 ＋ 小时 ＋ 分钟 ＋ 秒
编号 ＝ “AITZ” ＋ 取重复文本 (3 － 取文本长度 (编号), “0”) ＋ 取数字时间 ＋ 编号  ' 取重复数的位数长度！
返回 (编号)


[e].版本 2

.子程序 _按钮_制造冲值卡_被单击
.局部变量 类型, 文本型
.局部变量 句柄, 文本型
.局部变量 t, 整数型
.局部变量 次, 整数型
.局部变量 现在卡号, 文本型
.局部变量 卡号, 文本型, , "0"
.局部变量 s, 文本型
.局部变量 句柄1, 整数型
.局部变量 冲值卡号, 文本型
.局部变量 密码, 文本型
.局部变量 i, 整数型

.如果真 (组合框1.现行选中项 ＝ 0)
    类型 ＝ “次数卡”
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 1)
    类型 ＝ “周卡”
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 2)
    类型 ＝ “月卡”
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 3)
    类型 ＝ “季卡”
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 4)
    类型 ＝ “年卡”
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 5)
    类型 ＝ “终身卡”
.如果真结束
.如果 (单选框1.选中 ＝ 真)
    次 ＝ 1
.否则
    次 ＝ 10
.如果结束
句柄1 ＝ _启动窗口.外部数据库.查询 (“select * from 冲值表 order by 冲值卡号”)
_启动窗口.外部数据库.尾记录后 (句柄1)
现在卡号 ＝ 到文本 (_启动窗口.外部数据库.读 (句柄1, “冲值卡号”))
.如果真 (现在卡号 ＝ “”)
    现在卡号 ＝ “AITZ000000”  ' 冲值卡界面修改取卡号长度
.如果真结束
卡号 ＝ 分割文本 (现在卡号, “Z”, )
_启动窗口.外部数据库.关闭记录集 (句柄1)
置随机数种子 ()
.计次循环首 (次, i)
    冲值卡号 ＝ 到文本 (到数值 (卡号 [2]) ＋ i ＋ 14)
    密码 ＝ 到文本 (取随机数 (10, 99)) ＋ 到文本 (取随机数 (100, 999)) ＋ 到文本 (取随机数 (100, 999)) ＋ 到文本 (取随机数 (100, 999)) ＋ 到文本 (取随机数 (100, 999)) ＋ 到文本 (取随机数 (10, 99))  ' 冲值卡界面修改卡号密码长度
    句柄 ＝ “INSERT INTO 冲值表 ([冲值卡号],[冲值密码],[用户名字],[用户密码],[类型],[是否冲值],[使用次数],[是否在线],[临时客户],[登陆数据],[被冲值帐号],[冲值日期]) VALUES ('” ＋ 取卡号 (冲值卡号) ＋ “','” ＋ 密码 ＋ “','” ＋ “” ＋ “','” ＋ “” ＋ “','” ＋ 类型 ＋ “','” ＋ “假” ＋ “','” ＋ “” ＋ “','” ＋ “假” ＋ “','” ＋ “” ＋ “','” ＋ “” ＋ “','” ＋ “” ＋ “','” ＋ “” ＋ “')”
    .如果 (_启动窗口.外部数据库.执行 (句柄, ) ＝ 真)

    .否则
        信息框 (“添加失败”, 64, “提示”)
        跳出循环 ()
    .如果结束

.计次循环尾 ()
.如果真 (信息框 (“刷新列表吗?”, #确认取消钮 ＋ #系统等待, ) ＝ #确认钮)
    _窗口_冲值卡管理_创建完毕 ()
[/e][/e]

獨角戲

{:3_244:}{:3_244:}{:3_244:}完毕 ()

那些弹指消逝的

谢谢楼主学习了