Ado kullanıyorum, alanlarım
ID
ADI
SOYADI
REFERANS
burada referans sayı içeriyor, fakat ben onu metin olarak tanımladım (öyle olması lazımdı). şimdi, amacım, bir butona basılınca, en son kayda gidip referans numarasını okuması ve onu bir arttırarak yeni bir kayıt eklemesi...
şimdi buraya kadar herşey normal, yani tüm bu işlemleri yapıyor ama hayretle iştigal ki, programı her yeni çalıştırdığımda, son kayıt olmamasına rağmen referans numarası 21 olanı okuyor...
Neden?????
Kod: Tümünü seç
//Referans numarasını veren fonksiyon
function ReferansNo:String;
var
referans:string;
sayi:integer;
begin
if DAtaModuleCommon.TBL_GIDENSMS.RecordCount=0 then
begin
referans:='1';
result:='1';
end
else begin
DAtaModuleCommon.TBL_GIDENSMS.Last;
referans:=DAtaModuleCommon.TBL_GIDENSMSREFERANS.AsString;
sayi:=strtoint(referans);
sayi:=sayi+1;
referans:=inttostr(sayi);
result:=referans;
end;
end;