| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1013 人关注过本帖
标题:[求助]看下自动编号那里错了
取消只看楼主 加入收藏
a77315185
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-6-4
收藏
 问题点数:0 回复次数:1 
[求助]看下自动编号那里错了
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
a77315185
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-6-4
收藏
得分:0 
烦死人了,不做这了个.浪费大家感情了!太郁闷不会做就是郁闷呀!你们的意见我看看回来有时间了在修改试试
2007-06-15 23:08
快速回复:[求助]看下自动编号那里错了
数据加载中...
 
   



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

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