Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Display modal form on startup
Message
 
 
À
17/06/2002 00:16:17
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00669077
Message ID:
00671091
Vues:
21
>Hi,
>How to display modal form on startup before issue READ EVENT?
>
>I remember that, it is possible by setting
>
>Desktop = .T.
>Windowtype = 1
>ShowWindow = 1
>
>But it doesn't work.. Any mistake?
>
>Thank you
    SECID=         "          "
    USERPASS=      "          "
    gcSTATUS=      "    "
    gcUSER=        "         "                 && Requestor Variables
    gcDEPT=        "         "        
    lAREFLAG=      "    "                      && Accept Add or Edit Flag (Rece)
    FOR I=1 TO 50                              && CLEAR character array
        caPARTNO(I)= " "
    ENDFOR
    prg2exe= "frmTABTO"                        && Program to Execute
    STORE "\vfpapps\t2\" TO SECpath            && Security Path
    DO Form ..\t2\t2.scx WITH prg2exe,SECpath
    IF SECID= "ARCHIVE"
...
        USERPASS= "          "
    ENDIF
    IF USERPASS= "          "                  && BAD Login! (do nothing)
    ELSE
        DO MENUTOOL.MPR
        DO Form frmTABTO
        READ EVENT                             && read
    ENDIF
    DO CLEANUP
    ON SHUTDOWN
  ***
where T2 is a model (customized login) form created from form generator
you can specify different programs and different security paths (prg2exe secpath)
Edgar L. Bolton, B.S. B.B.A.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform