DrogbA
Forum Üyesi
- Katılım
- 27 Ara 2020
- Mesajlar
- 3,440
- Tepkime puanı
- 0
- Puanları
- 36
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.
Kod:
//---------------------------------------------------------------------------
#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: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: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;
}
//---------------------------------------------------------------------------
