colocar senha
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.Value;
AI ESTÁ UM EXEMPLO MAIOR DO QUE EU ESTAVA FALANDO SOBRE O VarArrayOf !
SE PUDER ME AJUDAR EU AGRADEÇO!!
É QUE QUERO COLOCAR UM SENHA NO MEU PROGRAMA ! MAS QUERO QUE ELAS POSSO TER REGRAS DE ACESSO PARA CADA USUÁRIO E QUE ESTE USUÁRIO POSSAM SER CADASTRADOS ATRAVEZ DO PROGRAMA! PELO MASTER!!
ENTÃO EU PEGUEI ESTE EXEMPLO MAS ELE NÃO RODA POIS ESTÁ DAQNDO ERRO NESTE COMANDO (VarArrayOf)
AGRADEÇO A AJUDA!!
MUITO OBRIGADO!!!
LENNE
ICQ 320202356
if not dm.tabUsu.Active then
dm.tabUsu.Locate(´Usuario;Senha´,
VarArrayOf ([usu,senha]), []) then begin
ok:= true;
rots:= dm.tabUsuRotinas.Value;
AI ESTÁ UM EXEMPLO MAIOR DO QUE EU ESTAVA FALANDO SOBRE O VarArrayOf !
SE PUDER ME AJUDAR EU AGRADEÇO!!
É QUE QUERO COLOCAR UM SENHA NO MEU PROGRAMA ! MAS QUERO QUE ELAS POSSO TER REGRAS DE ACESSO PARA CADA USUÁRIO E QUE ESTE USUÁRIO POSSAM SER CADASTRADOS ATRAVEZ DO PROGRAMA! PELO MASTER!!
ENTÃO EU PEGUEI ESTE EXEMPLO MAS ELE NÃO RODA POIS ESTÁ DAQNDO ERRO NESTE COMANDO (VarArrayOf)
AGRADEÇO A AJUDA!!
MUITO OBRIGADO!!!
LENNE
ICQ 320202356
Lenne
Curtidas 0
Respostas
Okama
06/05/2003
Remova a segunda Chave, talvez resolva.
Segundo a definição de VarArrayOf
[size=6:a800c758c0][i:a800c758c0]
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;
GOSTEI 0
Marcelo.c
06/05/2003
Se vc usa o Delphi a partir do 6 é necessário declarar a unit Variants à sua cláusula uses.
É exatamente isso que eu disse na mensagem anterior.
GOSTEI 0
Sérgio-pardal
06/05/2003
Cara, experimente usar o componente que você acha nesse link
http://usercontrol.da.ru
Pra mim ele se encaixou perfeitamente. Funcionou muito bem.
http://usercontrol.da.ru
Pra mim ele se encaixou perfeitamente. Funcionou muito bem.
GOSTEI 0