colocar senha

Question

senha:= Encripta(usu,StrToInt(edSenha.Text));if not dm.tabUsu.Active then   dm.tabUsu.Locate(�Usuario;Senha�,           VarArrayOf ([usu,senha]), []) then begin   ok:= true;rots:= dm.tabUsuRotinas.Val...

Okama · Answer

Remova a segunda Chave, talvez resolva.
Segundo a defini��o de VarArrayOf
[size=6:a800c758c0][i:a800c758c0]

Descendant classes that are not unidirectional override this method so that it locates the record where the fields [b:a800c758c0]identified by the semicolon-separated list of fields [/b:a800c758c0]in KeyFields have the values specified by the [b:a800c758c0]Variant or Variant array KeyValues[/b:a800c758c0]

[/i:a800c758c0][/size:a800c758c0]

senha:= Encripta(usu,StrToInt(edSenha.Text)); if not dm.tabUsu.Active then dm.tabUsu.Locate(�Usuario;Senha�, [b:a800c758c0]VarArrayOf ([usu,senha])) then begin [/b:a800c758c0]ok:= true; rots:= dm.tabUsuRotinas.Value;

Marcelo.c · Answer

[quote:68e06d2879=�Emerson.EN�]Se vc usa o Delphi a partir do 6 � necess�rio declarar a unit Variants � sua cl�usula uses.[/quote:68e06d2879]� exatamente isso que eu disse na mensagem anterior....

S�rgio-pardal · Answer

Cara, experimente usar o componente que voc� acha nesse link//usercontrol.da.ruPra mim ele se encaixou perfeitamente. Funcionou muito bem....

F�rum colocar senha #158103