sariye

void __fastcall TForm1::FormCreate(TObject *Sender)
{
// Table1->Open(); // tabloyu açmak için
// Table1->Active = true; // tabloyu açmak için
Query1->Open();
// () fonksiyon olduğunu gösterir () olmazsa program çalışmaz
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Bu satırı silme.
Table1->Active = !Table1->Active; // tabloyu aç,kapat için

// tabloyu aç,kapat için aşagıdaki kodlarda kullanılabilir

/*
if( Table1->Active )
Table1->Active = false;
else Table1->Active = true;
*/

// tabloyu aç,kapat için aşagıdaki kodlarda kullanılabilir

/* Table1->Active = true; Table1->Open(); */
// Table1->Active = false; Table1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Table1->First(); // ilk kayıt
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Table1->Prior(); //önceki kayıt
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
Table1->Next(); // sonraki kayıt
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
Table1->Last(); // son kayıt
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
Table1->MoveBy(5); // o anda bulunduğu yerden 5 kayıt sonrasına gider
// (-5) olsaydı oanda bulunduğu yerden 5 kayıt geriye giderdi
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
Table1->Delete(); // Kayıt sil
// Table1->DeleteTable(); // Tabloyu sil
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button8Click(TObject *Sender)
{
Table1->Insert(); // O anda imlecin bulunduğu yere yeni kayıt ekler.
Table1->Append(); // Tablonun sonuna yeni kayıt ekler.
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)
{
Table1->Post(); // kaydet
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
Table1->Edit(); // düzelt
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button11Click(TObject *Sender)
{
Table1->Refresh(); // yenile
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button12Click(TObject *Sender)
{
/* TLocateOptions Opts;

Opts.Clear();
Opts << loPartialKey;
Variant locvalues[1];
locvalues[0] = Variant("Ocelot");
locvalues[1] = Variant(2);

// CustTable->Locate("Company;Contact", VarArrayOf(locvalues, 1), Opts);
Table1->Locate("NAME;SIZE",VarArrayOf(locvalues, 1), Opts);
// locate yerleşmek arama için kullanılır
*/
Table1->Edit();
Table1->FieldByName("SIZE")->Value = 12;
Table1->Post();
// Table1->EmptyTable(); // tablonun içini boşaltır
// Table1->LockTable(); // tabloyu kilitlemek için kullanılır
// Table1->RenameTable();
// Table1->
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button13Click(TObject *Sender)
{
if(Table1->Active)
Table1->Active = false;
else Table1->Active = true;
}
//---------------------------------------------------------------------------