1 2 3 4 5 6 7 8 9 10 11 12
| void __fastcall TForm1::EditPasswordKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key == VK_RETURN)
{ QuerySession ->Active =0;
QuerySession ->SQL->Clear() ; // effacer la requête initial
QuerySession ->SQL ->Add("select * from table where ") ;
QuerySession ->SQL ->Add(" user = '" + EditUser ->Text +"' And ");
QuerySession ->SQL ->Add(" mt_passe = '" + EditPassword -> Text + "' And" );
QuerySession ->SQL ->Add(" app = '"+ CBApp ->Text+"'" );
QuerySession ->Active =1;
// QuerySession->ExecSQL() ; // executer la requête |