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);

»¹ÊDz»ÐУ¬¼ÓÁ˺óÉú³ÉµÄÊÇ09100000

---

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

---

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

---

Äã·µ»ØµÄ i ÊÇÕýÈ·µÄÂ𣿠ÕâÖÖÎÊÌâµ¥²½¸ú¾ÍÓ¦¸ÃÄܶ¨Î»µ½³öÎÊÌâµÄÓï¾ä¡£

---

showmessage(ADOQuery1.