//-- Global PROCEDURE MyWindow() gn_id_usuario is int=0 //Global declarations _chave_senha is string="HKEY_CURRENT_USER\Software\erpmatos\" //---------------------- //--End of
//Ler Chave n_usuario is int=RegistryQueryValue(_chave_senha,"Usuario") CBOX_salvar=RegistryQueryValue(_chave_senha,"Salvar") IF CBOX_salvar=True THEN COMBO_Usuario_matos_1=n_usuario LSV_Usuario_matos=n_usuario s_senha is string=RegistryQueryValue(_chave_senha,"Senha") EDT_senha = Uncrypt(s_senha, "Password") END //----------------------- //Gravar Chave //Check box Salvar n_usuario is int=0 IF RegistryExist(_chave_senha) = False THEN RegistryCreateKey(_chave_senha) END n_usuario=COMBO_Usuario_matos_1 s_nome_usuario is string="" RegistrySetValue(_chave_senha,"Usuario",n_usuario) RegistrySetValue(_chave_senha,"Senha",Crypt(EDT_senha,"Password")) HReadSeekFirst(usuario_matos,usuario_matosID,n_usuario) IF HFound(usuario_matos) THEN RegistrySetValue(_chave_senha,"UsuarioNome",s_nome_usuario) ELSE RegistrySetValue(_chave_senha,"UsuarioNome","") END IF CBOX_salvar=True THEN RegistrySetValue(_chave_senha,"Salvar",1) ELSE RegistrySetValue(_chave_senha,"Salvar",0) END //-- //--Botao Salvar IF CBOX_salvar=True THEN n_usuario is int=0 n_usuario=COMBO_Usuario_matos_1 RegistrySetValue(_chave_senha,"Usuario",n_usuario) RegistrySetValue(_chave_senha,"Senha",Crypt(EDT_senha,"Password")) RegistrySetValue(_chave_senha,"UsuarioNome",gs_usuario_nome) END
//Blog Video e Exemplo http://windevdesenvolvimento.blogspot.com.br/2016/03/curso-windev-registro-windows-001.html
|