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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
| void __fastcall TNewClients::Button1Click(TObject *Sender)
{
if (Edit2->Text != "") // test pour savoir si le Nom est rempli
{
// test si le nom existe déjà dans la table
AnsiString nom = Edit2->Text;
NewClients->SQLQuery1->SQL->Clear();
AnsiString sql1("SELECT * FROM `clients` WHERE `Nom` LIKE '"+nom+"'");
NewClients->SQLQuery1 ->SQL->Add(sql1);
Resultat=NewClients->SQLQuery1->RecordCount;
NewClients->SQLQuery1->ExecSQL();
if (Resultat>0)
{
// test si le prenom existe déjà dans la table
AnsiString prenom = Edit3->Text;
NewClients->SQLQuery1->SQL->Clear();
AnsiString sql2("SELECT * FROM `clients` WHERE `Prenom` LIKE '"+prenom+"'");
NewClients->SQLQuery1 ->SQL->Add(sql2);
Resultat=NewClients->SQLQuery1->RecordCount;
NewClients->SQLQuery1->ExecSQL();
if (Resultat>0)
{
ShowMessage("Ce client existe déjà");
}
else
{
if (((Edit5->Text < '0') || (Edit5->Text > '9')) && (Edit5->Text !="")) // test pour savoir si le numero ne contient que des chiffres
{
ShowMessage("Entrer un Numero valide");
}
else
{
if (((Edit6->Text < '0') || (Edit6->Text > '9')) && (Edit6->Text != "")) // test pour savoir si le cp ne contient que des chiffres
{
ShowMessage("Entrer un Code postal valide");
}
else
{
AnsiString nom = Edit2->Text;
AnsiString prenom = Edit3->Text;
AnsiString adresse = Edit4->Text;
AnsiString num = Edit5->Text;
AnsiString cp = Edit6->Text;
AnsiString ville = Edit7->Text;
AnsiString tel = Edit8->Text;
AnsiString mail = Edit9->Text;
// On ajoute cet enregistrement a la table
AnsiString sql("INSERT INTO `clients` (`nom`,`prenom`,`Adresse`,`Numero`,`Cp`,`Ville`,`Telephone`,`Mail`) VALUES ('"+nom+"','"+prenom+"','"+adresse+"','"+num+"','"+cp+"','"+ville+"','"+tel+"','"+mail+"');");
NewClients->SQLQuery1->Close();
NewClients->SQLQuery1->SQL->Clear();
NewClients->SQLQuery1 ->SQL->Add(sql);
NewClients->SQLQuery1->ExecSQL();
// On affiche un message que le client a bien été rajouter et on reinitialise la table
ShowMessage("Nouveau client créer");
}
}
}
}
else
{
if (((Edit5->Text < '0') || (Edit5->Text > '9')) && (Edit5->Text !="")) // test pour savoir si le numero ne contient que des chiffres
{
ShowMessage("Entrer un Numero valide");
}
else
{
if (((Edit6->Text < '0') || (Edit6->Text > '9')) && (Edit6->Text != "")) // test pour savoir si le cp ne contient que des chiffres
{
ShowMessage("Entrer un Code postal valide");
}
else
{
AnsiString nom = Edit2->Text;
AnsiString prenom = Edit3->Text;
AnsiString adresse = Edit4->Text;
AnsiString num = Edit5->Text;
AnsiString cp = Edit6->Text;
AnsiString ville = Edit7->Text;
AnsiString tel = Edit8->Text;
AnsiString mail = Edit9->Text;
// On ajoute cet enregistrement a la table
AnsiString sql("INSERT INTO `clients` (`nom`,`prenom`,`Adresse`,`Numero`,`Cp`,`Ville`,`Telephone`,`Mail`) VALUES ('"+nom+"','"+prenom+"','"+adresse+"','"+num+"','"+cp+"','"+ville+"','"+tel+"','"+mail+"');");
NewClients->SQLQuery1->Close();
NewClients->SQLQuery1->SQL->Clear();
NewClients->SQLQuery1 ->SQL->Add(sql);
NewClients->SQLQuery1->ExecSQL();
// On affiche un message que le client a bien été rajouter et on reinitialise la table
ShowMessage("Nouveau client créer");
}
}
}
}
else
{
ShowMessage("Veuillez remplir la case Nom");
}
} |
Partager