Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Help with MAIN program code
Message
De
10/10/2001 23:57:42
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
 
 
À
10/10/2001 13:56:24
Peter Brama
West Pointe Enterprises
Detroit, Michigan, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00566287
Message ID:
00566789
Vues:
13
>Dragon,
>
>What started this all was the PRG like this:
>
>
>set talk off
>set deleted on
>set bell off
>set sysmenu off
>set multilocks on
>set exclusive off
>on shutdown quit
>
>clear
>_screen.windowstate=2
>_screen.caption="MyApp v1.0, Copyright 2001 West Pointe Enterprises"
>_screen.backcolor=rgb(58,110,165)
>_screen.minbutton=.F.
>_screen.maxbutton=.F.
>vAbort=.f.   && < --
>use mysystfile
>if empty(mysystfile.fmyfield) then
>  if reccount()=0 then
>    append blank
>  endif
>  do form mysystform to vAbort
>endif   && < --
>  if vAbort   && < --
>    clear events
>    quit
   else   && < --
    do form myinitialform   && < --
    read events   && < --
>  endif
>
>
The message was getting too long. Here's what I think at this point: if vAbort, don't even get to running initialform, but qut immediately. This way, you don't even start the event drive, i.e. Read Events doesn't get executed at all. If everything's OK, it goes its merry way.

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform