Tekil Mesaj gösterimi
  #1  
Alt 3 June 2009, 17:23
Yorgun Yürek - ait Kullanıcı Resmi (Avatar)
Yorgun Yürek Yorgun Yürek isimli Üye şimdilik offline konumundadır
♥ GüLerken AğLadığını,MutLu OLanLar BiLmez
 
Kayıt Tarihi: 3 March 2009
Mesajlar: 35,077
Konular:
Aldığı Beğeni: 0 xx
Beğendiği Mesajlar: 0 xx
Standart Kayıt ıslemler Yapmak

KAYIT ISLEMLER YAPMAK

*Paradox tablosunda kaydetme ,silme, yenikayit Ekleme v.b. islemler yapdirma komutlari asgidaki gibidir
Companent Palet / DataControl / DbNavigator butonuna tiklanir. Object Inspector penceresinden DataSource bölümüne Datasource1 atanir ve butonlarin görevlerini otomatik olarak yerine getirir.
KOMUTLARI asgida verilmistir. procedure TForm1.BitBtn1Click(Sender: TObject);
begin
table1.First; //ilk kayda git
end; procedure TForm1.BitBtn2Click(Sender: TObject);
begin
table1.Prior; //bir geri kayita git
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if not table1.Eof then // son kayit deyilse
table1.Next; //bir önçeki kayda git
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
table1.Insert; // kayit için yer açar
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
table1.Last //enson kayda git
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
var
msj:integer;
begin
msj:=Application.MessageBox('silmek istediginizden eminmisiniz','sil',mb_YesNo+MB_ICONQUESTION);
if msj=mryes then
table1.Delete; // aktif kadi siler
end;
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
table1.Edit; // aktif kaydi düzeltme sekline getirir
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
table1.Post; // aktif kaydi kaydeder.
end;
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
table1.Cancel; // Aktif kaydi iptal eder
end;
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
table1.Refresh; //kaydi günceller
end;
Alıntı ile Cevapla