benim problemim şöyle: yeni butonuna bastığımda Numbers tablosunun SiraNr alanını 1 den başlayarak her bastığımda 1 artarak SiraNr alanına eklenmesini istiyorum taki 100 olana kadar eğer 100 ise numbers tablosundaki SiraNr alanına 0 atayıp tekrar birden başlamasını istiyorum bi nevi bankadaki numaratör gibi arkadaşlar.. yazdığım kodlar aşağıda arkadaşlar yanlış yada mantıkta eksik yaptığım şeyler olabilir yardım eden ilgilenen arkadaşlara şimdiden teşekkür ederim hayırlı çalışmalar Allaha emanet olun..
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('update numbers set siranr=siranr+1');
dbedit1.Text:=inttostr(i);
Query1.ExecSQL;
end;
end;
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
if ((dbedit1.Text)='100') then begin
i:=0;
i:=i+1;
dbedit1.Text:=inttostr(i);
end
else
i:=i+1;
dbedit1.Text:=inttostr(i);
end;