Fórum localizar registro que tiver o mesmo quot;Namequot; do com #329735

TABLE USUARIOS (
    CODIGO      INTEGER NOT NULL,
    PRIVILEGIO  INTEGER,
    CONSTRAINT PK_USUARIOS PRIMARY KEY (CODIGO)
);


TABLE PRIVILEGIOS (
    CODIGO           INTEGER NOT NULL,
    CODIGO_USUARIO   INTEGER,
    NOME_COMPONENTE  VARCHAR(20),
    CONSTRAINT PK_PRIVILEGIOS PRIMARY KEY (CODIGO)
);

DM.CDS_Priv.Close;
DM.CDS_Priv.CommandText  := ´SELECT * FROM PRIVILEGIOS WHERE CODIGO_USUARIO = ´+ Edit_Codigo.Text;
DM.CDS_Priv.Open;

DM.CDS_Priv.Close;
DM.CDS_Priv.CommandText  := ´SELECT * FROM PRIVILEGIOS WHERE CODIGO_USUARIO = ´+ Edit_Codigo.Text;
DM.CDS_Priv.Open;

DM.CDS_Priv.First;

for i := 0 to ComponentCount -1 do
if Components[i] is TCheckBox then
begin
While not DM.CDS_Priv.Eof do
begin

if not DM.CDS_Priv.Locate(Principal.Criptografia(DM.CDS_PrivNOME_COMPONENTE.AsString,236),Components[i].Name ,[loCaseInsensitive]) then

begin
TCheckBox(Components[i]).Checked  := true;
end

else

begin
TCheckBox(Components[i]).Checked  := false;
end;

DM.CDS_Priv.Next;
end;
end;