易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi自动生成流水号

想使用delphi自动生成“年后两位+月份+四位编号”的流水号
现新增第一条记录的时候能生成
第二条的时候流水号的最后一位就没了
大家帮忙看看我的代码错在哪里
  Delphi(Pascal) code:

procedure TForm1.FormCreate(Sender: TObject);
var
i:Real;
newid:string;
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' select * from JYBB where id like '+''''+FormatDateTime('YYMM',Now())+'%'+'''');
Open;
if ADOQuery1.IsEmpty then
newid:=formatdatetime('YYMM',Now())+'0001'
else
begin
Close;
SQL.Clear;
SQL.Add('select max(id)+1 as i from JYBB where left(id,4)='''+FormatDateTime('YYMM',Now())+'''') ;
Open;
newid:=FormatDateTime('YYMM',Now())+ FormatFloat('000',i);
end;
Edit3.Text:=newid;
end;
end;



FormatFloat('0000',i);


引用
FormatFloat('0000',i);


还是不行,加了后生成的是09100000

FormatFloat('0000',ADOQuery1.FieldByName('i').asInterger);

FormatFloat('0000',ADOQuery1.FieldByName('i').asInteger);

你返回的 i 是正确的吗? 这种问题单步跟就应该能定位到出问题的语句。


showmessage(ADOQuery1.


相关问答:

Python中的Unicode在Delphi如何还原成Gb2312?

已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试

在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......

Delphi 像亡国的南宋,试问这语言还有前途吗?

Delphi 像亡国的南宋,试问这语言还有前途吗?
Win32开发不如C#;
面像对像开发不如JAVA;
系统开发不如VC++6.0;
能用性不如VB6.0;
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗? ......

小弟不会DELPHI,请大侠们帮个忙

这个是拦截按键消息并测试是否为ENTER键。
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

有多少人自学Delphi?

一个人看书实在是难,能看懂也就罢了

但是如果看不懂并且书上没有讲,而且用了这个东西了,我就郁闷了

当时我会很难受 而且下面的东西也不想看 连这个东西都不想碰

但是如果一直能看下去的话 ......

独家:Delphi 2010初体验,是时候抛弃Delphi 7了

还没用过 回头试下

独家:Delphi 2010初体验,是时候抛弃Delphi 7了
http://news.csdn.net/a/20090911/213665.html


Delphi 2010已于近日由Embarcadero公司发布。作者Kim Madsen作为一名资深的D ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号