Son Kayıt Bulma

[shadowmann]

Benim önerim marco cantu nun delphi kitabını okuman. Onda bu şekilde bir alan kullanımı ile ilgili örnek var.

[ozcank]

o kitabı bulamadım . Kod olarak yardım ederseniz çok sevinirim.

[HBV]

Slm..Aşağıdaki daha önceleri Kendime göre düzenlediğim kod işini görürmü?

Kod: Tümünü seç

//Kayıt Ekle
var
 yenino,s:integer;
begin
 Table1.Refresh;
 Table1.Filtered:=false;
 Table1.IndexName:='SIRANOINDEX';
 Table1.FilterOptions:=[foNoPartialCompare];//Aradan Silinsede En son numarayı sıralıyor.
 begin
  if MessageDlg('YENi KAYIT ACMAK iSTiYORMUSUNUZ?', mtWarning, [mbOK, mbCancel], 0) = mrOK Then
   begin
    s:=DBEdit2.Field.AsInteger;//Tablodaki en Son Numara getiriliyor(DBEdit2'nin DataField'ı "SIRANO"
    yenino :=s;
    if not Table1.eof Then
      Begin
       Table1.Last;
       yenino := Table1['SIRANO'];
      end;
      yenino := yenino + 1;//Son Numaranın bir fazlası ekleniyor
      Label1.Caption := FloatToStr(yenino);//Yeni No Labele alınıp
      begin
       Table1.Append;//Tablo  Yeni kayıt girmek için hazırlanıyor.
       Table1.Edit;//Kayıt durumuna hazırlanıyor.
       DBEdit2.Field.Asstring:=Label1.Caption;//Labelden Bir fazlası tekrar DBEdit'e geliyor.
    end;
   end;
 end;
end;

[ozcank]

Abi tamamdır çözdü bu kod benim işimi teşekkür ederim emeğine saygı.

[HBV]

İşini Görmesine Sevindim.....iyi çalışmalar.