Ganz simple Sql database programm!

khine

Ich habe ein sql database programm progrmiert.Aber ich wollte ganz wissen ob ich noch viel mehr einfach machen kann.

Benutzte Komponente
1 MemoFeld
1 DBGrid1
1 OpenDialog
1 TDataSource
1 TQuery1
2 TButton

#pragma package(smart_init) 
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString path,whereda,and;
int i;

void __fastcall TForm1::BtnOpenClick(TObject *Sender)
{
Memo1->Clear();
if(!OpenDialog1->Execute())
return;
{
 path = OpenDialog1->FileName;
}
Memo1->Lines->Add("SELECT *");
Memo1->Lines->Add("FROM '" + path + "'" );
Query1->SQL = Memo1->Lines;
Query1->Open();
}

wenn mann auf dem GBgrid1 angeclick wird ...

void __fastcall TForm1::DBGrid1CellClick(TColumn *Column)
{
Memo1->Clear();
Memo1->Lines->Add("DELETE FROM'" + path + "'");
bool iswhere;
iswhere = false;

for (i=0; i<4 ; i++)
if(iswhere)
 {
  Memo1->Lines->Add("AND " + DBGrid1->Fields[i]->DisplayName + "=" + "'"
                + DBGrid1->Fields[i]->DisplayText + "'");
 }
 else
 {
 Memo1->Lines->Add("Where " + DBGrid1->Fields[i]->DisplayName + "=" + "'" +
                      DBGrid1->Fields[i]->DisplayText + "'" );
 iswhere = true;
 }

}

BtnDelete

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Query1->SQL = Memo1->Lines;
Query1->ExecSQL();
}

Ich danke Ihnen Im Voruas.

Mfg,
khine