| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1624 人关注过本帖
标题:再问自动编号的问题
只看楼主 加入收藏
关关雎鸠
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:164
专家分:170
注 册:2010-4-13
结帖率:89.66%
收藏
已结贴  问题点数:20 回复次数:15 
再问自动编号的问题
我想让表单中“订单号”自动生成,并要求前8位数是系统当前的年月日最后两位数自动加1.
例如:2010082401、2010082402、2010082501、20100825012
表中的“订单号”字段是整形(自动增量)
请教了。谢谢
搜索更多相关主题的帖子: 自动 
2010-09-03 17:22
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:2 
?dtos(DATE())+TRANSFORM(RECNO())

相互学习,互相交流,共同提高。
2010-09-03 18:34
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
收藏
得分:2 
TRANSFORM函数在这里是什么意思呢
2010-09-04 09:33
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
这是跟cbl518大师学的一招,在这里是将数字型的RECNO()转换成字符型。

相互学习,互相交流,共同提高。
2010-09-04 09:59
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:0 
编个函数作默认值!

★★★★★为人民服务★★★★★
2010-09-04 10:16
关关雎鸠
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:164
专家分:170
注 册:2010-4-13
收藏
得分:0 
回复 5楼 cnfarer
我试过了,没做出来
2010-09-04 14:14
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:2 
iid=VAL(DTOC(DATE(),1)+'01')
IF RECNO()=1
    RETURN iid
RETURN .t.
ENDIF
CALCULATE  MAX(id) TO iid2
IF iid2>=iid
    RETURN iid2+1
ELSE
    RETURN iid
ENDIF
将上面的代码保存在一个文件(比如genCode.prg)中,然后将数据库表中的相应字段的默认值设置为genCode()

★★★★★为人民服务★★★★★
2010-09-04 14:54
关关雎鸠
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:164
专家分:170
注 册:2010-4-13
收藏
得分:0 
回复 7楼 cnfarer
我先把这段代码写在新建记事本上,再把记事本的名字改为 gencode.prg 保存桌面
然后再把表中的“编码”字段的默认值设为 gencode() 结果:
APPEND BLANK
错误:   1
文件"gencode.prg"不存在
方法:addrec
行:    48
请大师指点
2010-09-04 15:37
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:0 
记事本的默认扩展名是.txt,用另存为,保存类型为“所有文件”。或者在VFP中新建一个程序,。。。再保存

★★★★★为人民服务★★★★★
2010-09-04 16:51
makebest
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:658
专家分:962
注 册:2005-3-17
收藏
得分:2 
要满足这样的要求, 肯定是不能"自动"生成了, 老老实实编写代码吧,
而且这个设计也是有漏洞的, 一天中第100个订单如何编号呢?
2010-09-04 20:16
快速回复:再问自动编号的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017149 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved