Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Progression Bar
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Divers
Thread ID:
00470547
Message ID:
00470780
Vues:
33
>I think that there is a built in progression bar that will execute when I perform a large sql statement. However in my program that isn't happening. Have I turn it off somehow.

I use the Class "SQLBar"
*----------------------------------------
* Example
*----------------------------------------
LOCAL loBar
loBar = CREATEOBJECT("SQLBar")
SELECT * ;
  FROM MyTable ;
  INTO CURSOR MyCursor 
RELEASE loBar

*----------------------------------------
* Begin Class definition
*----------------------------------------
DEFINE CLASS SQLBar AS CUSTOM
  PROTECTED lSetTalk, lWindows
  lSetTalk = ""
  lWindow = ""
  NAME = "SQLBar"

  PROCEDURE INIT
    THIS.lSetTalk = SET("TALK")
    THIS.lWindow = SYS(2015)
    DEFINE WINDOW (THIS.lWindow) FROM 0,0 TO 1,1
    SET TALK WINDOW (THIS.lWindow)
    SET TALK ON
  ENDPROC

  PROCEDURE DESTROY
    LOCAL lThisSetTalk
    lThisSetTalk = THIS.lSetTalk
    SET TALK &lThisSetTalk
    RELEASE WINDOW (THIS.lWindow)
  ENDPROC
ENDEFINE

*----------------------------------------
* End Class definition
*----------------------------------------
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Nada corre como un zorro
________________________________
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform