procedure TForm1.sComboBox1Change(Sender: TObject); begin if sComboBox1='Front_Office' then sComboBox2.BringToFront else if sComboBox1='Back_Office_Commercial' then sComboBox3.BringToFront else if sComboBox1='Back_Office_Finance' then sComboBox4.BringToFront else if sComboBox1='Haut_Débit' then sComboBox5.BringToFront else if sComboBox1='Production' then sComboBox6.BringToFront; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.sEdit1Change(Sender: TObject); begin table1.edit; if sEdit1.Text = table1passe.value and scombobox2=table1Nom_Prénom.value then From2.shoxmodal else showmessage('Vérifier votre Mot de Passe !'); table1.post; end;
if (sEdit1.Text=Table1PasseWord.value) and (sComboBox2.Text=Table1Nom_Prenom.value) then From8.showmodal else showmessage('Vérifier votre mot de passe!'); Table1.post;