domingo, 27 de março de 2016

Curso WinDev - Registro Windows - 001 - Registry






Video youtube


http://doc.windev.com/en-US/?3065002&name=RegistryCreateKey
http://doc.pcsoft.fr/fr-FR/?3065002&name=registrecreecle_fonction

http://doc.windev.com/en-US/?3065012&name=registryqueryvalue_function
http://doc.pcsoft.fr/fr-FR/?3065012&name=registrelit_fonction

 http://doc.windev.com/en-US/?3065007&name=registryexist_function
http://doc.pcsoft.fr/fr-FR/?3065007&name=registreexiste_fonction

http://doc.windev.com/en-US/?3065006&name=registrysetvalue_function
http://doc.pcsoft.fr/fr-FR/?3065006&name=registreecrit_fonction



WinDev - Registro Windows - 001/... Criar/Ler/Gravar Registry


Nessa aula vou mostrar como Gravar e Ler no Registro do Windows

This class will show you how Recording and Reading in the Windows Registry

Cette classe va vous montrer comment l'enregistrement et de la lecture dans le Registre Windows


//-- 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

































sexta-feira, 25 de março de 2016

Curso WinDev - Combox - 005 - Combox Glink






Video no Youtube


http://doc.windev.com/en-US/?1013023&name=ComboBox_Control
http://doc.pcsoft.fr/fr-FR/?1013023&name=champ_combo

WinDev - Combox - 001/... Preencher Manualmente e Eliminar
WinDev - Combox - 002/... Selecionar Combox
WinDev - Combox - 003/... Combox Editavel
WinDev - Combox - 004/... Combox - Ordem/Sort
WinDev - Combox - 005/... Combox Glink
WinDev - Combox - 006/... Selecione Linha Automatico - custom row
WinDev - Combox - 007/... ComboOpen e ComboClose 


Nessa aula , vou mostrar como colocar glink na combox para identificação

In this lesson, I will show how to put link in combobox for identification

Dans cette leçon, je vais vous montrer comment mettre lien combobox pour l'identification


ListDeleteAll(COMBO_cliente)
FOR EACH cliente
    ListAdd(COMBO_cliente,cliente.nome+gLink(cliente.clienteID))
END

//frances
ListeSupprimeTout(COMBO_cliente)
POUR TOUT cliente
    ListeAjoute(COMBO_cliente,cliente.nome+gLien(cliente.clienteID))
FIN





















Teste

Teste
teste