【已解决】流水号的问题
本帖最后由 ybbihsse 于 2011-1-13 16:11 编辑我想生成一个单据号,
部份特定,DJ1101130001
这样子一窜数据,要怎么生成呀,DJ是固定的,110113是取系统的日期,0001这个则是变动的,为流水号
--------------------------------------------------------------------------------------------------------------------------
答案详见13楼 HotKeySet("{ESC}", "_Exit")
$i = 1
While 1
$Num = "DJ" & StringRight(@YEAR, 2) & @MON & @MDAY & StringFormat("%04i", $i)
ToolTip("流水号:" & $Num & ",按ESC键退出")
Sleep(250)
$i += 1
WEnd
Func _Exit()
Exit
EndFunc 回复 2# yhxhappy
那如何判断,比如流水号到5的时候,程序关掉在开的时候,他怎么从5在接下去呢 回复 3# ybbihsse
难道你的帐目不进数据库的吗?你直接从数据库里读取出来就行了 ! 回复 3# ybbihsse
把生成的序列号 写入个文件 或者个 MDB,下次读出来生成前面部分`再取后面部分 +1 回复 4# hzxymkb
比如数据库里面有DJ1101120005和DJ1101130001两张单了,我怎么判断现在要从0002开始呢~~ 用判断咯 回复 5# renren
比如数据库里面有DJ1101120005和DJ1101130001两张单了,我怎么判断现在要从0002开始呢~~ 回复 7# hzxymkb
怎么判断哦???呵呵,我是小菜菜哦。。。 你为什么要这样子做,你不觉得很麻烦吗?换个方式不是更好! 回复 10# hzxymkb
嗯。需要怎么做呢? http://www.autoitx.com/forum.php?mod=viewthread&tid=20056&rpid=238370&ordertype=0&page=1#pid238370
看看这个有没有帮助 #include <array.au3>
Global $ID=1
If FileExists(@ScriptDir&"\data.ini") Then
$data=StringRight(@YEAR,2)&@MON&@MDAY
MsgBox(0,0,$data)
$ini_read=IniReadSection(@ScriptDir&"\data.ini",$data)
_ArrayDisplay($ini_read)
EndIf
$random=Random(1,100,1)
For $i=1 To $random
IniWrite(@ScriptDir&"\data.ini",StringRight(@YEAR,2)&@MON&@MDAY,StringFormat('%.04i',$i),StringRight(@YEAR,2)&@MON&@MDAY&StringFormat('%.04i',$i))
Next 回复 13# 3mile
谢谢~~~很完美的解决了~~
页:
[1]