Çevrimdışı

C++ Builder 6 ile uyumludur. Bu programda MySQL üzerinde bulunan ornek isimli veritabanı içindeki ogrenci isimli tabloda bulunan veriler üzerinde sorgulama ve güncelleme işlemi gerçekleştirilmiştir. Sorgulama işlemi öğrenci numarasına göre yapılmakta olup, güncelleme sırasında her güncelleme ayrı ayrı yapılmaktadır, sebebi ise C++ Builder'in toplu güncelleştirme işlemini yerine getirememesidir.

Alıntı:

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "DBAccess" #pragma link "MemDS" #pragma link "MyAccess" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. utton1Click(TObject *Sender) { String sql="Select * from ogrenci where no='"; sql+=Edit1->Text; sql+="'"; MyTable1->SQL->Clear(); MyTable1->SQL->Add(sql); MyTable1->Execute(); int kayitsayisi=MyTable1->RecordCount; if(kayitsayisi>0) { Label2->Visible=true; Label3->Visible=true; Label4->Visible=true; Edit2->Visible=true; Edit3->Visible=true; Edit4->Visible=true; Button2->Visible=true; Edit2->Text=MyTable1->FieldValues["adi"]; Edit3->Text=MyTable1->FieldValues["soyadi"]; Edit4->Text=MyTable1->FieldValues["bolum"]; } else { Label2->Visible=false; Label3->Visible=false; Label4->Visible=false; Edit2->Visible=false; Edit3->Visible=false; Edit4->Visible=false; Button2->Visible=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { Label2->Visible=false; Label3->Visible=false; Label4->Visible=false; Edit2->Visible=false; Edit3->Visible=false; Edit4->Visible=false; Button2->Visible=false; } //--------------------------------------------------------------------------- void __fastcall TForm1: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. utton2Click(TObject *Sender) { String sql="Update ogrenci SET adi='"; sql+=Edit2->Text; sql+="' where no='"; sql+=Edit1->Text; sql+="'"; MyTable1->SQL->Clear(); MyTable1->SQL->Add(sql); MyTable1->Execute(); sql="Update ogrenci SET soyadi='"; sql+=Edit3->Text; sql+="' where no='"; sql+=Edit1->Text; sql+="'"; MyTable1->SQL->Clear(); MyTable1->SQL->Add(sql); MyTable1->Execute(); sql="Update ogrenci SET bolum='"; sql+=Edit4->Text; sql+="' where no='"; sql+=Edit1->Text; sql+="'"; MyTable1->SQL->Clear(); MyTable1->SQL->Add(sql); MyTable1->Execute(); Label2->Visible=false; Label3->Visible=false; Label4->Visible=false; Edit2->Visible=false; Edit3->Visible=false; Edit4->Visible=false; Button2->Visible=false; } //---------------------------------------------------------------------------