FiveTech Support Forums

#include "Fivewin.ch"
#include "tdolphin.ch"
#include "xbrowse.ch"
#include "slider.ch"

STATIC oDbf,oDlg,oSay,oGet,oBtn,oBmp,oWnd,oBrw,oError,oServer
STATIC oSlid
STATIC oFont,oFbold,oIcon
STATIC oRs,oCon,lOk,cCadena,oQry
STATIC cServer, cUser, cPassword, nPort, cDBName,nFlags,hIni,nServ

MEMVAR oP

REQUEST DBFCDX

///////////////////
Function Main()

   local oSay[10],oBar,oIco,oMsg,oMsgOpe,cTitle
   local oErr,nFld,n

//   PUBLIC oP:=TVarPub()

   SET DATE BRITISH
   SET DELETED ON
   SET EXCLUSIVE OFF
   SET SOFTSEEK ON
   SET WRAP ON
   SET _3DLOOK ON
   SET EPOCH TO YEAR(date()) - 50
   SET MULTIPLE ON

   SetHandleCount( 100 )
*  BWCCRegister(Getresources())
   SET RESOURCES TO "testmsql.dll"
   RDDSetDefault( "DBFCDX" )

   DEFINE ICON oIcon RESOURCE "system"
   DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,8
   DEFINE FONT oFbold NAME "MS SANS SERIF" SIZE 0,8 BOLD
   DEFINE BITMAP oBmp FILE  "\testdol\senior.bmp"


   * SetGetColorFocus(CLR_2)
   *  cHost:=Winexec("PING pharma-co.no-ip.org")
   *  ? cHost


   cTitle:=" MySQL                CONSULTAS"

   DEFINE WINDOW oWnd FROM 8,30 TO 30,110 ;
      TITLE cTitle ;
      ICON oIco

   DEFINE BUTTONBAR oBar OF oWnd 3D SIZE 40,40

   DEFINE BUTTON RESOURCE "creden" OF oBar ;
      ACTION (sound(),Conectar()) ;
      FLAT ;
      TOOLTIP OemToAnsi("Inicia la conexionn con el Servidor")

   DEFINE BUTTON RESOURCE "stock" OF oBar ;
      ACTION (sound()) ;
      FLAT ;
      TOOLTIP OemToAnsi("Consulta de Existencias"+CRLF+"y Precios de Productos")

   DEFINE BUTTON RESOURCE "afiliados" OF oBar ;
      ACTION (sound() ) ;
      FLAT GROUP ;
      TOOLTIP "Cuenta Corriente"+CRLF+"Saldo y Limite"

   DEFINE BUTTON RESOURCE "cuentas" OF oBar ;
      ACTION (sound()) ;
      FLAT ;
      TOOLTIP OemToAnsi("Cuenta Corriente"+CRLF+"Ultimos 10 Movimientos")

   DEFINE BUTTON RESOURCE "phone" OF oBar ;
      ACTION (sound()) ;
      FLAT GROUP ;
      TOOLTIP oemtoansi("ABM y Selecci¢n de IP para el FTP")

   DEFINE BUTTON RESOURCE "tools" OF oBar ;
      ACTION (sound()) ;
      FLAT ;
      TOOLTIP "Reordenamiento de Archivos"

   DEFINE BUTTON RESOURCE "exit" OF oBar ;
      ACTION (sound(),oWnd:end()) ;
      FLAT GROUP ;
      TOOLTIP OemToAnsi("SALIR")


   SET MESSAGE OF oWnd TO "TESTDOLPHIN"

   DEFINE MSGITEM oMsg SIZE 180 OF oWnd:oMsgBar FONT oFbold COLOR CLR_HRED
   DEFINE MSGITEM oMsgOpe OF oWnd:oMsgBar SIZE 150 BITMAP "B_FACES","B_FACES" ;
   PROMPT "OFF LINE  " FONT oFbold

   oWnd:oMsgBar:dateOn()
   oWnd:oMsgBar:ClockOn()
   oWnd:oFont    := oFont
   oWnd:bPainted := { | hDC | PalBmpDraw( hDC,0,0,oBmp:hBitmap ) }

   ACTIVATE WINDOW oWnd


   if(oServer != NIL)
     oServer:end()
   endif

   dbcloseall()
   set resources to
   set 3dlook off
   Release objects oFont,oFbold,oSlid
   Sound()

return nil


//...............................
Function Conectar()

   //..Identificador para el ini
   local c:="mysql"
   local oGet[7]
   local cText,nFld
   local nCount:=0

//   hIni      := HB_ReadIni( "testmsql.ini" )

   oServer   := NIL
   cServer   := "dolphintest.sitasoft.net" //hIni[ c ]["host"]
   cUser     := "test_dolphin" //hIni[ c ]["user"]
   cPassword := "123456" //hIni[ c ]["psw"]
   nPort     := 3306 //val(hIni[ c ]["port"])
   cDBName   := "dolphin_man" //hIni[ c ]["dbname"]
   nFlags    := 0//val(hIni[ c ]["flags"])
   nServ     := "null" //val(hIni[ c ]["nServ"])
/*
   DEFINE DIALOG oDlg RESOURCE "ServerConect"
   REDEFINE BITMAP RESOURCE "pcvert" ID 4007 OF oDlg
   REDEFINE GET oGet[1] VAR cServer    ID 4008 OF oDlg UPDATE
   REDEFINE GET oGet[2] VAR cUser      ID 4009 OF oDlg UPDATE
   REDEFINE GET oGet[3] VAR cPassword  ID 4010 OF oDlg UPDATE
   REDEFINE GET oGet[4] VAR nPort      ID 4011 OF oDlg UPDATE
   REDEFINE GET oGet[5] VAR cDbname    ID 4012 OF oDlg UPDATE
   REDEFINE GET oGet[6] VAR nFlags     ID 4013 OF oDlg UPDATE
   REDEFINE GET oGet[7] VAR nServ      ID 4018 OF oDlg UPDATE

   REDEFINE BUTTON ID 4015 OF oDlg ACTION (sound())
   REDEFINE BUTTON ID 4016 OF oDlg ACTION (sound(),oDlg:end())     // sale del oDlg y se conecta -->

   ACTIVATE DIALOG oDlg CENTERED
*/
   TRY
      CONNECT oServer HOST cServer ;
                      USER cUser ;
                      PASSWORD cPassword ;
                      PORT nPort ;
                      FLAGS nFlags;
                      DATABASE cDBName

   CATCH oErr
      msgInfo("Se ha producido un error"+CRLF+;
              "en la conexion con el Servidor"+CRLF+;
              "Reintente...","Error de Conexion...")
      RETURN NIL
   END

   IF !oServer:lError
      cText :=""
      cText += "Conexion OK" + CRLF
      cText += "Host: " + oServer:cHost +CRLF
      cText += "Database: " +oServer:cDBName + CRLF
      cText += oServer:GetServerInfo() + CRLF
      cText += oServer:GetClientInfo() + CRLF

      MsgInfo( cText,"informacion...")
   ENDIF

  oQry = TDolphinQry():New( "SELECT first_name,Last_name FROM president", oServer )
  nFld := oQry:FCount() // Total de campos
  While !oQry:EOF()
  nCount++
  ? oQry:First_name, oQry:Last_name
  oQry:skip()
  if nCount >= 10
   exit
  endif
  Enddo

  /////  HACE TODO EL QUERY Y ME MUESTRA LOS REGISTROS SIN PROBLEMAS

  oQry:end()
  oServer:end()

  ////  CUANDO TERMINA LA FUNCION Y RETORNA A LA VENTANA DE INICIO SE PRODUCE EL ERROR Y SE CUELGA TODO


RETURN NIL

//..............
FUNCTION sound()
  SndPlaySound("click.wav")
Return Nil