1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
void __fastcall TForm1::ELIMINARE_VISITATOREClick(TObject *Sender)
{
ELIMINARE_VISITATORE->Enabled = false; // Empeche 2 élimination à la suite
MODIFICARE_VISITATORE->Enabled = false;// Empeche la modification
TLocateOptions Option; // Option de recherche pour le locate
/* Demande confirmation pour l'élimination */
if(TBVisit->Locate("cognome",cognome_visitatore->Text,Option)==false) return;
int ok=Application->MessageBox(ConfElimVisit1,ConfElimVisit2,\
MB_OKCANCEL|MB_ICONQUESTION);
if(ok!=1) return;
/* Ecriture de la requete */
AnsiString sql="";
sql = "Delete from visitatori where ";
sql = sql + "cognome = '" + cognome_visitatore->Text + "'";
QRVisit->SQL->Clear(); // Efface la requete précédente
QRVisit->SQL->Add(sql); // Ajoute de la nouvelle requete
QRVisit->ExecSQL(); // execute la requete
TBVisit->Refresh(); // Mise à jour de la table
ShowMessage(ElimVisit); // Message de confirmation
} |