procedure TForm1.BitBtn_KaydetClick(Sender: TObject);
begin
//Dosya'ya Kayıt İşlemleri
Table1.IndexFieldNames:= 'SiraNo';
if Table1.FindKey([StrToInt(Memo1.Text)]) then Table1.Edit else Table1.Append;
with Table1 do
begin
FieldByName('SiraNo').AsInteger:= StrToInt(Memo1.Text);
//.....
//.....
//v.s.
end;
Table1.Post;
Memo1.Text:= IntToStr(Table1.FieldByName('SiraNo').Value) + 1);
end;
şeklinde benzeri bir kodlamayla ve kendine göre uyarlayıp sorununu çözebilirsin. ya da sipariş no alanını autoinc tanımla.
Çalışmalarında başarılar dilerim.
NeverFear - Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için
Üye Ol veya
Giris Yap 