1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

WD Lancement de la splashscreen avant Fen_GPU_Login

Discussion dans 'Windev' créé par Leumas, Mai 28, 2020.

  1. Leumas

    Leumas New Member

    Inscrit:
    Juin 2, 2019
    Messages:
    14
    J'aime reçus:
    1
    Bonjour,

    Je développe un projet sur windev 20, utilisant le Groupware pour la gestion des droits et accès.

    Je souhaiterais implémenter une splashscreen qui se lancerait bien avant la fenêtre de Login (FEN_GPU_Login).

    Quelqu'un aurait-il une merveilleuse idée à me proposer, SVP ?

    Merci d'avance
     
    Tags:
  2. Jackson

    Jackson Member

    Inscrit:
    Jan 19, 2018
    Messages:
    50
    J'aime reçus:
    19
    Hello,
    You need to do it manually. See pictures and code below.
    [​IMG]
    [​IMG]
    [​IMG]

    In the initialization code of your project or whenever you open connection to your database use this code
    IF NOT HOpenConnection (gctMyConnection) THEN
    Error ("HFSQL: HOpenConnection:", "Connection to" + gctMyConnection..Source + "can not be established!", HErrorInfo (hErrFullDetails))
    RETURN
    ELSE
    Message ("Connection on daatabase" + gctMyConnection..Database + "is OK ...")
    END
    IF gpwOpenConnection ("MyGPWConn", "Admin", "", gsPutDoBaze, "GPW_Database", hAccessHFClientServer, hOReadWrite, "ENCRYPTION = FAST") = False THEN
    Error ("Error =" + CR + HErrorInfo (hErrServer))
    EndProgram ("Program will end!")
    ELSE
    HFCSLoginAgain:
    nMyCHFCS is int = gpwOpen ("", "")
    // IF nMyCHFCS = gpwGetUserInfo (gpwInfoLogin) THEN Error ("Already exist"); GOTO HFCSLoginAgain
    IF nMyCHFCS <> gpwOk THEN
    IF nMyCHFCS = gpwError THEN
    Error ("", ErrorInfo ())
    EndProgram ()
    END
    // IF nMyCHFCS = gpwError THEN EndProgram ("Error in GPW-Inicialisation!")
    IF nMyCHFCS = gpwCancel THEN EndProgram ("User is break login!")
    IF nMyCHFCS = gpwInvalidPassword THEN Error ("Wrong password!"); GOTO HFCSLoginAgain
    IF nMyCHFCS = gpwUnknownUser THEN Error ("Unknown user!"); GOTO HFCSLoginAgain
    END
    END
     
    moaBoBmArLeY apprécie ceci.

Partager cette page

Chargement...