| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1013 人关注过本帖
标题:[求助]看下自动编号那里错了
只看楼主 加入收藏
a77315185
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-6-4
收藏
 问题点数:0 回复次数:4 
[求助]看下自动编号那里错了
6se8zgzE.rar (4.28 KB) [求助]看下自动编号那里错了


自动编号怎么不能用,那里错了,大家帮忙看下.
if this.caption='添加(\<A)'
calculate max(编号) to Czdph &&在数据表中查找出序号最大的记录
Nzdph=val(right(Czdph,5)) &&取出数字部分
if Nzdph=0 then &&判断数字部分是否为0
Zdph='YG00001'
else
Zdph='YG'+padl(alltrim(str(Nzdph+1)),5,'0') &&生成自动票号
endif
*清空格式化文本控件的内容
thisform.Txt编号.value=Zdph
thisform.Txt书名.value=''
thisform.Txt出版日期.value=''
thisform.Txt单价.value=''
thisform.Txt出版社.value=''
thisform.Txt作者.value=''
thisform.Txt备注.value=''

*使文本控件有效
thisform.Txt编号.enabled=.t.
thisform.Txt书名.enabled=.t.
thisform.Txt出版日期.enabled=.t.
thisform.Txt单价.enabled=.t.
thisform.Txt出版社.enabled=.t.
thisform.Txt作者.enabled=.t.
thisform.Txt备注.enabled=.t.
else
INSERT INTO 图书登记表;
(编号,书名,出版日期,单价,出版社,作者,备注) ;
VALUES(alltrim(thisform.txt编号.value),alltrim(thisform.txt书名.value),alltrim(thisform.txt作者.value),;
alltrim(thisform.txt单价.value),alltrim(thisform.txt出版社.value),alltrim(thisform.txt出版日期.value),;
alltrim(thisform.txt备注.value))
this.caption='添加(\<C)'
*使文本控件内容都有效
thisform.Txt编号.enabled=.f.
thisform.Txt书名.enabled=.f.
thisform.Txt出版日期.enabled=.f.
thisform.Txt单价.enabled=.f.
thisform.Txt出版社.enabled=.f.
thisform.txt作者.enabled=.f.
thisform.txt备注.enabled=.f.
endif
thisform.refresh
=messagebox('操作完成,该书已纪录入库!',0+64+0,'完成')
搜索更多相关主题的帖子: 自动 
2007-06-15 16:00
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 
calculate max(编号) to Czdph &&在数据表中查找出序号最大的记录

只是对序号最大的记录进行编号


我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-06-15 16:24
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 


在您的表单中,if this.caption='添加(\<A)'的条件根本就不存在,所以自动编号的代码不能运行。
另外thisform.Txt出版日期.value=''是不是有点问题,常理上说,应该是日期型的。

[此贴子已经被作者于2007-6-15 23:19:18编辑过]


两人行已有我师……
2007-06-15 22:04
a77315185
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-6-4
收藏
得分:0 
烦死人了,不做这了个.浪费大家感情了!太郁闷不会做就是郁闷呀!你们的意见我看看回来有时间了在修改试试
2007-06-15 23:08
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
回复:(a77315185)烦死人了,不做这了个.浪费大家感情...

将楼主的程序做了比较大的修改:(1)数据库修改为自由表;(2)命令按钮修改为命令按钮组;(3)自动编号成为自动获取最低可用号码;(4)增加若干功能。

表单如下:

IGM4td9h.rar (4.28 KB) [求助]看下自动编号那里错了




OSkgVgdy.jpg (36.08 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册


VrraNBoc.jpg (34.27 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册


NrAN9FBI.jpg (36.13 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-06-16 03:02
快速回复:[求助]看下自动编号那里错了
数据加载中...
 
   



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

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