Kayıt ıslemler Yapmak - Genel Paylaşım Forumu

#1 3 June 2009, 17:23

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;

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Bebek eşi (plasenta) ve kordon nedir, görevleri nelerdir ?	ceyLin	Hamilelik Dönemi	0	29 December 2008 12:39
cFosSpeed 4.20	ceyLin	Proğram Arşivi	0	15 December 2008 22:48
erkekleri eriten kadınsal dvranışlar..	ceyLin	KADINCA	0	25 November 2008 20:50
Türk Erkekleri Ne çeker	ceyLin	KADINCA	0	25 November 2008 20:49