ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Connexion paramétrée.   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mar. 26 janvier 2016, 08h54
noureddine-Mila
Algérie Algérie

atoutfox.public.association

Re: Connexion paramétrée.

Bonjour,

je remercie pour votre réponse, j'ai testé ce code il marche lors du test de la connexion seulement quand je voudrais l'utiliser pour
la saisie il m'affiche le fenêtre système sélectionner la source de données.
Voici le code que j'ai écrit pour la création des utilisateurs :

*---------------------------------------------------------------------------------*
*Chaine de connexion  que vous m'avez envoyer
*---------------------------------------------------------------------------------*
LOCAL cChaineConnexion AS STRING
PUBLIC iHandle AS INTEGER

cCheminChaineConnexion = FULLPATH("..\GDI\prgs\lcnx.prg")
cChaineConnexion = FILETOSTR(m.cCheminChaineConnexion)
IF !EMPTY(m.cChaineConnexion)
   iHandle = SQLSTRINGCONNECT(m.cChaineConnexion, .T.)
ENDIF
*---------------------------------------------------------------------------------*
LOCAL v1, v2, v3, v4, v5, v6

v1=thisform.txtuser.value
v2=thisform.txtmotpass.Value
v3=thisform.txtnom.value
v4=thisform.txtfonction.Value
v5=thisform.coblist.Value
v6=thisform.cobactive.Value


DO CASE
  CASE thisform.coblist.Value="Administrateur"
  v5="2"
  CASE thisform.coblist.Value="Utilisateur"
  v5="1"
  CASE thisform.coblist.Value="Invité"
  v5="0"
ENDCASE


DO CASE
  CASE thisform.cobactive.Value="Activé"
  v6="1"
  CASE thisform.cobactive.Value="Désactivé"
  v6="0"
ENDCASE

=SQLSETPROP(iHandle,'Transactions',1)

***insertion dans base de donnees postgresql***

IF EMPTY(thisform.txtuser.ValueOR EMPTY(thisform.txtmotpass.Value) ;
  OR EMPTY(thisform.txtconfpass.ValueOR EMPTY(thisform.txtnom.Value)  ;
  OR EMPTY(thisform.txtnom.ValueOR EMPTY(thisform.txtfonction.Value) ;
  OR EMPTY(thisform.coblist.ValueOR EMPTY(thisform.cobactive.Value)
    MESSAGEBOX("Saisie obligatoire de tous les champs..",0+64,"Création refusée")
    RETURN NULL
ENDIF
IF ALLTRIM(thisform.txtmotpass.value) == ALLTRIM(thisform.txtconfpass.value)
  SQLEXEC(iHandle,"insert into tablelogin(nom,pass,utilisateur,fonction,attributs,active);
values(?v1,?v2,?v3,?v4,?v5, ?v6)"
)

  IF SQLCOMMIT(cHandle)>0
    WAIT WINDOW "Données sauvegardées avec succès " TIMEOUT .8
  ELSE
    IF AERROR(laError)>0
      MESSAGEBOX("Une erreur est survenue" +laError[2])
    ENDIF
  ENDIF
ELSE
  MESSAGEBOX("Mot de passe ne correspond pas, veuillez ressayer ! ",0+48,"Ajout refusé")
  thisform.txtconfpass.SetFocus()
  RETURN NULL
ENDIF

thisform.txtuser.value = " "
thisform.txtmotpass.Value = " "
thisform.txtconfpass.Value = " "
thisform.txtfonction.Value = " "
thisform.txtnom.value = " "
thisform.coblist.Value = " "
thisform.cobactive.Value = " "

SQLDISCONNECT(iHandle)


Merci pour votre patience.

Journal

noureddine-Mila pense que ce message est la bonne réponse ou qu'il est utile
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017222
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3