Microsoft Agent nos permite agregarle interactividad a nuestras aplicaciones al estilo de Office, el cual puede mostrar a Merlin, Clipo, Rocky.. etc realizando diversas acciones.
Utilizaremos la clase _Agent que viene con VFP para mostrar a Merlin...
Set Classlib To Home
(1) + "ffc\_agent.vcx" AdditiveoAgent = Createobject( "_Agent")
Este es un truco bastante solicitado .... Con VFP 8 o superior ya es posible hacerlo más fácilmente. Aquí tienes 2 formas de hacerlo.
En el AfteRowColchange del Grid digita lo siguiente:
Lparameters
nColIndex** Y en el Scrolled del Grid esto :
Lparameters
nDirectionOTRA FORMA
** En el AfteRowColchange del Grid digita lo siguiente:
nPos =This. ActiveColumn-This.RelativeColumn
Truquito sencillo pero bueno.
Este truco te explica cual es la secuencia escape que debes enviar a la impresora Epson (TMU) para que corte el papel.
??? Chr(27)+"m"&& Corta el Papel
Con VFP 8 apareció los campos de tipo autoincrementales; aquí tienes un truco para reiniciar el valor de dicho campo.
Alter Table
(Ttabla) Alter Column (campo) I Autoinc Nextvalue 1 Step 1
Puedes mapear una unidad de disco de diferentes formas ... en este ejemplo se utiliza WSH (Windows Script Host).
Release
oWSH
Pequeño truco para escoger un número al azar .... ideal para una lotería.. je,je,je..
Clear
Una forma sencilla de conocer toda la información del procesador de nuestro PC.
Esta es una forma de convertir una tabla a un archivo TXT utilizando funciones de bajo nivel.
El separador para los campos esta definido en la variable Separa.
Local
lnHandlelnHandle =
Fcreate("c:Archivo.txt")Use In
Tabla
Estos son los archivos necesarios para poder ejecutar una aplicación desarrollada en VFP.
msvcr71.dll - Runtime de VC++ 7.1
gdiplus.dll - Soporte para GDI+
vfp9r.dll
vfp9t.dll
Archivos de Idiomas
vfp9renu.dll - Inglés
vfp9resn.dll - Español
msxml3.dll si usas XMLTOCURSOR
Esta es una forma de conectarse a SQL Server cuando utilizas la autenticación a nivel de Windows.
En este caso utilizamos al función SQLStringConnect para realizar la conexión.
Generalmente los Messagebox solo se muestran dentro del _Screen de VFP pero existe un valor no documentado que hace que el Messagebox se muestre encima de todas las ventanas de Windows.
nEstilo = 4 + 32 + 4096 && el valor no documentado es 4096
Ejemplo básico de como utilizar el objeto CursorAdapter para realizar consultas a una base de datos
oCA = Createobject("CursorAdapter")
Una truquito que te muestra una barra de progreso cuando esta indexando una tabla.
Public
oFormoForm =Createobject("Form")
Set Talk Off
Create Cursor MiTabla (Campo C(12))
Function
Progreso(Campo, nRecno, nTotReg)Endfunc
Muy buen ejemplo que te explica como conectarte a una DBC utilizando el proveedor de VFP.
oCon.
open(cCadCon)cSQL =
"select * from Tabla"oRst = oCon.execute(cSQL)