FiveTech Support Forums

//------------------------------------------------------------------------------
Function Test()

MsgProgres('Executing SQL query...','Wait, please...',{|| Query() },.F.)

SELECT TEMP
GO TOP
BROWSE()

return
//------------------------------------------------------------------------------


//------------------------------------------------------------------------------
FUNCTION Query()
cSqlComand = "SELECT ID,Name,City,Country,Phone  FROM tbCustomers ORDER BY Name"
USE 'tbCustomers' AS cSqlComand ALIAS 'TEMP' VIA 'MySQL'
RETURN
//---------------------------------------------------------------------------------


//---------------------------------------------------------------------------------
FUNCTION MsgProgres(cCaption,cTitle,bAction)

LOCAL oDlg
LOCAL nWidth:=0

PRIVATE nContx:=0, oTimerx, oProgress

DEFINE DIALOG oDLG FROM 01,01 TO 09,41 TITLE cTitle STYLE DS_MODALFRAME

oProgress = TProgress():New(02,01,oDlg,0,,,.F.,.F.,140,10)

nWidth=oDLG:nRight-oDLG:nLeft

oDlg:bStart = {|| Eval(bAction,oDlg),; 
                  oTimerx:End()     ,; 
                  oDlg:End()        ,; 
                  SysRefresh()       }


oDlg:bPainted = {|hdc| oDlg:Say(01,02,xPadr(cCaption,nWidth)), SysRefresh() }

ACTIVATE DIALOG oDlg CENTER ON INIT (xInic(oDlg),oTimerx:Activate(),SysRefresh())                         

RETURN                               
//---------------------------------------------------------------------------------

//---------------------------------------------------------------------------------
FUNCTION xInic(oDlg)
DEFINE TIMER oTimerx OF oDlg INTERVAL 1 ACTION (oProgress:SetPos(++nContx),;
                                                nContx:=IF(nContx>150,0,nContx),;
                                                SysRefresh())
RETURN
//---------------------------------------------------------------------------------

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg TITLE "Please wait..."

   ACTIVATE DIALOG oDlg NOWAIT CENTERED

   cSqlComand = "SELECT ID,Name,City,Country,Phone  FROM tbCustomers ORDER BY Name"
   USE 'tbCustomers' AS cSqlComand ALIAS 'TEMP' VIA 'MySQL'

   oDlg:End()

   SELECT TEMP
   GO TOP
   BROWSE()

return nil