1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| procedure TFprincipal.ComboBox27Change(Sender: TObject);
var pos_iduser, id_user : integer;
begin
If (ComboBox27.Text <> '') Then
Begin
pos_iduser:=(length(Combobox27.text)-pos('|',ComboBox27.Text));
id_user:=strtoint(AnsiRightStr(ComboBox27.Text,pos_iduser));
With ADOQuery6 do
Begin
Close;
SQL.Clear;
SQL.Add('Select role.idrole, dbuser.idrole, libellerole FROM dbuser, role WHERE iduser='+InttoStr(id_user)+' AND dbuser.idrole=role.idrole');
Open;
Label108.Caption:='Rôle actuel : '+FieldValues['libellerole']+'.';
Label108.Visible:=True;
end;
end;
end; |
Partager