Codigos Fontes com Exemplos em V FoxPro

link para baixar as dll Versao 9.0

link de todas as dll

DLL VFP

VFP DLL TODAS  Clase Calendario  Mysql

Exemplo Mysql Vfp

Video Instlar VFP

Grid zebrada link

Agenda e eventos


COMO COMPARTILHAR ARQUIVOS E PASTAS

Odbc driver download


Baixar Mysql 3,51 Conector
PARA SABER O IP COMPARTILHADO DO SEU SITE  CMD PING NOMESITE.COM.BR

Conector mysql 5.1

VIDEO CONECAO VFP MYSQL IP COMPARTILHADO

*Exemplo conexão Mysql com VFP usando odbc.3.51 driver
CLOSE ALL
 PUBLIC xConexao

MeuBancoDeDados = "mlcexpre_agua"
MeuLogin = "root"
MeuIpConexao ="127.0.0.1"
MinhaSenha = ""

xConexao = "Driver={MySQL ODBC 3.51 Driver};Server=" + MeuIpConexao + ";Database=" + MeuBancoDeDados + "; User=" + MeuLogin + ";Password=" + MinhaSenha + ";Option=3;"

privConexao = SQLSTRINGCONNECT(xConexao)
IF  privConexao > 0
   =SQLEXEC(privConexao,"select * from Agenda;","RetornoDBF")
   BROWSE
   COPY STRUCTURE TO age0405
  =SQLDISCONNECT(privConexao)
else
  Wait Window 'falha ao conectar ao banco de dados' time 3
ENDIF
***

  Set date briti   

  Set century on 

  Use empres   shared

  REPLACE data2 WITH CTOD('10/02/2024')

  close all

*************

VFP9 LINK baixa
CHAVE !KVSZi66mhG1GcUY87cTBHaBDIKsmuLmmUSFtOuhFpv0

link vfp9


inosetup Gera instalador
Vídeo inosetup instalador


Descarga instalar vfp vídeo https://www.youtube.com/watch?v=O9F_iKbtLEQ
https://mega.co.nz/#!bx5nkKxT!ZYtKlMHCDnuGvW-HxmQ1pw0PMvTo729n615RpCBil_A

vfp 9 portable

Clave:
!rYyIQumg3ZSieGSZPyDDj5SGSDNGw4IhhHGx5ib­CA-U

Link WinRar:


Linha da Grid toda Iluminada ao selecionar
Propriedade da GRID HighLightStyle 2


INSTALADOR INOSETUP video no blog

Impressora Virtual

Suporte Remoto
Suporte Remoto Anydesk

****

1-) Link Calendario 

Compctador
Suporte Remoto AnyDesk

2-) PageFrame VFP codigo
  Video do form
Codigo fonte PageFrame

3-) List Box em Vfp
    Video do List box
codigo fonte do ListBox
codigo

Molezip.dll link


4-)Modelo Estoques em VFP Clique aqui para baixar o arquivo !

5-)Combo Vfp FoxPro link


6-)Fonte Documentar o projeto em VFP Clique aqui para baixar o arquivo !

7-)Fotos Cadastro em VFP Clique aqui para baixar o arquivo !
  Video do cadastro com fotos VFP

Bote 1 campo na tabela denominado CAMINHO C 200, e neste campo gravar o caminho da IMAGEM

C:\Seu_PJT_FOTO\IMAGEM\OMO.JPE, é mais pratico e dimanico.

No relatorio do report na propriedade do objeto OLE na guia Geral, BOTAO direito do mouse sobre o OLE PICTURE

1Controle Source TYPE

------------------

marque Expression or variable name,

2 control source

-------------------

coloque PRODUTOS.CAMINHO  Nome da sua tabela campo

3   If source and frame are diferente sizes: escolha :

Scale contents, retain shape.

8-)Menu Lateral VFP Clique aqui para baixar o arquivo !
Video Menu lateral vfp


9-) Cadastro com Foto e Relatorio de fotos arquivos jpg, bmp
Relator_FOTO.zip

10-) Report de um html
Report em html em xls e cadastro de fotos

11=) Cadastro de Fotos

11-) Pdf e word fox previwewer
 Video do relatorio
Relatorio em Html . em xls,no cadastro de produtos

12-)  List box vfp e Papel de Parede

13-)Splash VFP Clique aqui para baixar o arquivo !

14-)Enviar Email VFP Clique aqui para baixar o arquivo !

* codigo
cArch1='C:\teste1.pdf'
cArch2='C:\teste2.pdf'
tCMAIL="alceu@yahoo.com.br"
=enviomail(cArch1,cArch2, tcMail)
PROCEDURE ENVIOMAIL
PARAMETER cArch1, cArc2, cMail
oOutLook = Createobject( "Outlook.Application" )
oEmail = oOutLook.CreateItem (0)
oEmail.Display
With oEmail
.Recipients. Add(ALLTRIM(cMail))
.Subject = "TRANSFERENCIA DE MERCADORIA"
.Importance = 1
.Body = "MenssaGem dentro do email "+chr(13)+chr(10)+CHR(13)
.Attachments. Add(cArch1)
.Attachments. Add(cArch2)
.Send
EndWith
Release oEmail
Release oOutLook
Return


***

15-)Docto.base dados VFP Clique aqui para baixar o arquivo !

mais um projeto
Base de dados VFP Clique aqui para baixar o Exemplo

16-)Controlar Projetos VFP Clique aqui para Baixar Exemplo !

17-  Video formulario com a classe

18- Cadastro com classe formularios

19-)XLS PLANILHA VFP Clique aqui para baixar o arquivo !

20-)Google Mapas VFP Clique aqui para baixar o arquivo !

21-) Consultar o Status da NFe Link para baixar o Fonte

25-) link para baixar o Controle de alunos




****
26-) Exemplo de Backup Baixe o Codigo

***

27-) Tradudor em FoxPro Baixe o codigo
**
28-) Report com Preview Baixe o fonte

*****
33-) Imagem Na Grid em V.FOXPRO
método na grid Afterrowcolchange
LPARAMETERS nColIndex
thisform.refresh
* IMPEDIR LOOP HORIZONTAL NA GRID
* Colocar no evento .AfterRowColChange()
IF INLIST(LASTKEY(), 13, 9, 4 )
IF nColIndex = 1
This.Columns(this.ColumnCount).SetFocus
ENDIF
ENDIF
IF INLIST(LASTKEY(), 19,15 )
IF nColIndex = this.ColumnCount
This.Columns(1).SetFocus
ENDIF
ENDIF


fonte link
Baixar o Codigo
Mais um exemplo
Exemplo de Imagem na Grid


35-)Arquivo de ceps
Baixar Ceps

36=)Cadastro de Pedido Link para baixar.
37-)Formulario de pesquisas
Video Busca Pesquisa com VFP FOXPRO

Video sobre busca com opcao de Grupos

38) formulario de pesquisas 2
Busca CFP11.html

39-)Form com parameters , Como passar dados do form2 para o Form1
01-)No Form1
DO FORM Prueba2 WITH ThisForm

02-)No form2 crie uma propriedade = moForm. .f.

No metodo Init do form2
..codigo no metodo init
PARAMETERS moForm
ThisForm.moForm = moForm

03-)***Ao fechar o form2, no metodo Destroy
..,codigo do metodo destroy do form2
Thisform.moForm.text1.Value = 'Valor colocado dO Form 2 NO Form1'
Thisform.moForm.text1.Refresh

ou coloque um botao no form2 enviar dados
..codigo
Thisform.moForm.text1.Value = 'Valor colocado dO Form 2 NO Form1'
Thisform.moForm.text1.Refresh


Codigo fonte com os FORM_C_PARAM.ZIP

Video do Exemplo com parametros

39-)Ler xml Autor Cleverson
link para baixarLERXMLDANFE2.ZIP

40-) Pedido de Vendas 

Video Screen on e off

Codigo fonte ScreenOn zip

Codigo fonte screen Off

showWindow = 2 é o Screen.
showWindow = 1 fica acima do Screen

41-)Grid com busca

Grid com busca codigo fonte no video

Codigo fonte da pesquisa com Grid Sql

42-) Sistema de Pedidos
Sistema de PEDIDO VFP FoxPro Fonte

Video com list box da pesquisa

42-) Report com data group

Report Data group com soma  VIDEO DO SUM REPORT

Codigo fonte report.zip


43-) Exemplo de List Box- VFP - link do fonte

Video List box  Asista o video de como fazer o Listbox vfp
**

Grid colorida http://yousfi.over-blog.com/2018/10/grid-cosmetics-part-3.html

PUBLIC oform
oform1=NEWOBJECT("ygrid_border_color")
oform1.Show
read events
RETURN
DEFINE CLASS ygrid_border_color AS form
 Height = 296+40
 Width = 700
 ShowWindow = 2
 AutoCenter = .T.
 showtips=.T.
 scalemode=3
 Caption = "GRID ZEBRADA"
 Name = "Form1"
 ADD OBJECT grid1 AS grid WITH ;
  Anchor = 15, ;
  Height =310, ;
  Left =10, ;
  Top = 10, ;
  Width = 670, ;
  Name = "Grid1"
 PROCEDURE grid1.Init
 WITH this
 .recordsource="ycurs"
 .recordsourcetype=1
 .deletemark=.F.
 .recordmark=.F.
 .highlightStyle=2
 .gridlines=0
 .fontsize=11
 .fontname="Courier new"
 .SetAll("DynamicBackColor",  "IIF(MOD(RECNO(), 2) = 0, RGB(255, 255, 255), RGB(255, 255, 190) )","column")
 .refresh
 endwith
 ENDPROC

 PROCEDURE resize  &&draw a simple rectangle bounding the grid with any choosen color
 thisform.cls
 thisform.forecolor=rgb(0,0,64)   &&&getcolor()
 thisform.box(thisform.grid1.Left-1,thisform.grid1.Top-1,thisform.grid1.Left+2+thisform.grid1.Width,thisform.grid1.Top+2+thisform.grid1.Height)
 ENDPROC

 PROCEDURE Load
 Close Data All
 Sele * From Home(1)+"samples\data\customer"  Into Cursor ycurs Readwrite
 Sele ycurs
 ENDPROC
*
 PROCEDURE Destroy
 clea events
 ENDPROC

ENDDEFINE
*

GERA HTML CODIGO

IF NOT DIRECTORY('c:\MOTOS\')
    MKDIR ('c:\MOTOS\')
ENDIF
IF FILE("bdExportados.htm")
  SET SAFETY OFF 
  DELETE FILE bdExportados.htm
ENDIF  

IF 6=MESSAGEBOX('Deseja Imprimir',4+32,'Pergunta')
    WAIT WINDOW 'aguarde gerando o relatorio' nowait
SELECT TESTE
Set Safety Off
Set Console Off
Set Alternate On
nomearq="bdExportados.htm"
If File(nomearq) && Existe o arquivo?
gnErrFile = Fopen('C:\MOTOS\'+nomearq,12) 
Else
gnErrFile = Fcreate('C:\MOTOS\'+nomearq) 
Endif
If gnErrFile < 0
Wait 'Impossível abrir ou criar arquivo de saída' Window
Else 
=Fput(gnErrFile, '')
=Fput(gnErrFile, '')
=Fput(gnErrFile, '')
=Fput(gnErrFile, '')
=Fput(gnErrFile, '')
=Fput(gnErrFile, '')

      m.cabecalho = ""
      m.rodapeh = "
"
      m.totalcampos = FCOUNT()
      m.conteudo = ""
      *!*
      m.conteudo = m.conteudo + "
"
      FOR m.contador=1 TO m.totalcampos
        m.conteudo = m.conteudo + []+FIELD(m.contador)+""
      ENDFOR
      m.conteudo = m.conteudo + "
"

=Fput(gnErrFile, '
')
=Fput(gnErrFile, '')
=Fput(gnErrFile, '')
=Fput(gnErrFile,''+ m.conteudo )
=Fput(gnErrFile, '')

m.conteudo =""
SCAN
            IF (RECNO()%2!=0) THEN
              m.cor = "#EAF1FF"
            ELSE
              m.cor = "#DFEAFF"
            ENDIF
            m.conteudo = m.conteudo + "
"
            FOR m.contador=1 TO m.totalcampos
              m.nomecoluna = FIELD(m.contador)
*   m.conteudo = m.conteudo + []+TRANSFORM(&nomecoluna)+""
   m.conteudo = m.conteudo + []+TRANSFORM(&nomecoluna)+""
            ENDFOR
            m.conteudo = m.conteudo + "
"
        ENDSCAN
 
=Fput(gnErrFile, '
')
=Fput(gnErrFile, '')
=Fput(gnErrFile, '')
=Fput(gnErrFile,''+m.conteudo)
=Fput(gnErrFile, '')

 =Fput(gnErrFile, '


')
=Fput(gnErrFile, '')
=Fput(gnErrFile, ' ')
=Fput(gnErrFile, '')
endif
=Fclose(gnErrFile)
Set Alternate To
Set Alternate Off
Set Console On 
WAIT CLEAR
 RUN /N Explorer.Exe C:\temp\bdExportados.htm
ENDIF
******** 
******

GERAR O RELATORIO EM HTML

   SELECT CTPCTAS
SELECT * FROM CTPCTAS ORDER BY CONTA INTO CURSOR teste
  SELECT TESTE
IF RECCOUNT() > 0
=GERA_HTM()
  IF USED('TESTE')
   USE IN TESTE
  ENDIF
  ELSE
  WAIT WINDOW 'Vc nao cadastrou os Precos' TIMEOUT 1
ENDIF
SELECT CTPCTAS
thisform.Refresh 
thisform.grid1.SetFocus 

***config.fpw***



CODEPAGE=AUTO

COLLATE=GENERAL

RESOURCE=OFF

TALK=OFF

Deleted =ON

POINT=","

SEPARATOR="."

TMPFILES=C:\WINDOWS\TEMP

SYSFORMATS = OFF

CENTURY = ON

SYSMENU = OFF

safey=off

Confirm=OFF

DATE = DMY

DELETED=ON

**Main.prg***

Close all

Close databases all

Close tables all

Set Deleted    On

Set Lock       Off  

Set Multilocks On

Set Ansi       Off

Set Talk       Off

Set Safety     Off

Set Confirm    Off

Set Notify     Off

Set Console    Off

Set Bell       Off

Set Exclusive  Off

Set Hours      To 24

SET PATH           TO Dados

SET DATE           TO DMY 

Set Date       To British

SET CENTURY        ON

SET DELETED           ON  

SET CURRENCY       TO 'R$ ' 

SET POINT          TO '.' 

SET SEPARATOR      TO ','  

Set Reprocess  To 2 Seconds 

SET REPROCESS TO AUTOMATIC

SET REFRESH TO 5   

SET EXCLUSIVE OFF  

Set Sysmenu    To

Set Sysmenu off

Set message on

Set statu bar on

SET CLOCK STATUS

SET DEFAULT TO (ADDBS(JUSTPATH(SYS(16,0))))

SET PATH TO data;forms;progs;reports

_SCREEN .windowstate=2

_SCREEN .CLOSABLE=.T.

_SCREEN.caption='Sitema Versao 25.07 Hoje '+DTOC(DATE()) 

_screen.Visible = .T.

_screen.icon = 'BRAZIL.ICO'

_screen.FORECOLOR=rgb( 0,0,255)

_screen.backcolor = RGB(255,255,255)

BACKUP  COM MOLEZIP.DLL LINK

CD GETDIR()
*Registra DLL MOLEZIP.DLL

 DECLARE LONG DllRegisterServer IN molezip.dll
 IF DllRegisterServer() = 0
 WAIT WINDOW 'molezip. dll REGISTRADO Iniciando backup !!!'  NOWAIT NOCLEAR
 ELSE
 messagebox('NÃO REGISTRADO !!!')
 RETURN .f.
 ENDIF
 gcDirBackup = SYS(5)+CURDIR()
 SET defa TO SYS(5)+CURDIR()
 Close Table All
 Close Database All
 Local cArquivo, x
 Versao1='V10171012'
 cArquivo = 'Backup'
 cArquivo = AllTrim(gcDirBackup)+cArquivo
 cArquivo = AllTrim(cArquivo) + '.Zip'
 oZip = CreateObject("molezip.zipfile")
 oZip.Create(cArquivo)
 ?? chr(7)
 *Aqui adiciono todos os dbf ao arquivo criado pelo molezip chamado oZip
 nArquivos = Adir(aArquivos,"*.DBF" ) && *.dbf
 For x = 1 To nArquivos
 Inkey(0.01,'H')
 oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)
 ENDFOR
 
 nArquivos = Adir(aArquivos,'*.CDX') && *.CDX
 For x = 1 To nArquivos
 Inkey(0.01,'H')
 oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)
 ENDFOR
 
  nArquivos = Adir(aArquivos,'*.SC*') && *.SCX
 For x = 1 To nArquivos
 Inkey(0.01,'H')
 oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)
 ENDFOR
 
  nArquivos = Adir(aArquivos,'*.VC*') && *.SCX
 For x = 1 To nArquivos
 Inkey(0.01,'H')
 oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)
 ENDFOR
 
   nArquivos = Adir(aArquivos,'*.pj*') && *.SCX
 For x = 1 To nArquivos
 Inkey(0.01,'H')
 oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)
 ENDFOR

 
 
 nArquivos = Adir(aArquivos,'*.Mpr')
 For x = 1 To nArquivos
 Inkey(0.01,'H')
 oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)
 ENDFOR
 OZip.Close
 WAIT WINDOW 'fim do backup' TIMEOUT 0.90
 WAIT clear

27-)Codigo para backup

Close Databases

Set Safety Off

Create Table teste1( codigo c(10) , descricao c(40), preco N(10,2))

Select teste1

INDEX on codigo TAG codigo

For i = 1 To 15

Insert Into teste1 (codigo,descricao,preco) Values ( Alltrim(Str(i,6)), 'Produto '+Str(i), i)

NEXT

WAIT WINDOW 'inciando backup ' NOWAIT noclear

DECLARE LONG DllRegisterServer IN molezip.dll

IF DllRegisterServer() = 0

WAIT WINDOW 'molezip. dll REGISTRADO !!!' TIMEOUT 0.3

ELSE

messagebox('NÃO REGISTRADO !!!')

RETURN .f.

ENDIF

gcDirBackup = SYS(5)+CURDIR()

SET defa TO SYS(5)+CURDIR()

Close Table All

Close Database All

Local cArquivo, x

Versao1='V10171012'

cArquivo = 'Backup'

cArquivo = AllTrim(gcDirBackup)+cArquivo

cArquivo = AllTrim(cArquivo) + '.Zip'

oZip = CreateObject("molezip.zipfile")

oZip.Create(cArquivo)

SET EXACT OFF

SET SAFETY OFF

?? chr(7)

*Aqui adiciono todos os dbf ao arquivo criado pelo molezip chamado oZip

nArquivos = Adir(aArquivos,"*.DBF" ) && *.dbf

For x = 1 To nArquivos

Inkey(0.01,'H')

oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)

EndFor

nArquivos = Adir(aArquivos,'C:\sistema\BANCO\*.DCT')

For x = 1 To nArquivos

Inkey(0.01,'H')

oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)

EndFor

nArquivos = Adir(aArquivos,'*.CDX')

For x = 1 To nArquivos

Inkey(0.01,'H')

oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)

EndFor

nArquivos = Adir(aArquivos,'*.DCX')

For x = 1 To nArquivos

Inkey(0.01,'H')

oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)

ENDFOR

nArquivos = Adir(aArquivos,'*.DLL')

For x = 1 To nArquivos

Inkey(0.01,'H')

oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)

ENDFOR

nArquivos = Adir(aArquivos,'*.FPT')

For x = 1 To nArquivos

Inkey(0.01,'H')

oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)

EndFor

nArquivos = Adir(aArquivos,SYS(5)+CURDIR()+'\teste\*.*')

For x = 1 To nArquivos

Inkey(0.01,'H')

oZip.PackInplace(aArquivos(x,1),aArquivos(x,1),1)

EndFor

OZip.Close

WAIT WINDOW 'fim do backup' TIMEOUT 0.7

WAIT clear