DBGrid

[loxka]

DBGrid'de sırasıyla 6 hücreye bilgi giriyorum, son hücreden çıkarken table1' i post etmek istiyorum. nasıl yapabileceğim konusunda fikirlerinizi bekliyorum teşekkür ederim...

[Biltes]

Öncelikle merhaba; dbgrid'in onkeyprees olayına aşağıdaki kodu yaz;

Kod: Tümünü seç

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); 
begin 
if Key = #13 then 
 if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then 
   DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl 
 else 
  begin 
    Table1.Post; 
  end; 
end;

gibi bir kod ile olayı çözümleyebilirsin. Eğer son satırda değilsen enter ile dbgrid'de dolaşarak sırayla son satıra kadar gidebilir aynı zamanda alanlarına bilgi girebilirsin. Son alanda geldiğin enter dediğin zaman otomatik olarak kayıt yapar. Eğer kayıt yaptıktan sonra yeniden dbgrid'İn ilk satırına konumlansın istersen.

Kod: Tümünü seç

   Table1.post; 
   DBGrid1.Columns[0].field.FocusControl; 

diyerek ilk alana geri gelebilirsin.
Umarım işine yarar takıldığın yerden yine devam ederiz. Kolay gelsin...