Clipper On Line • Ver Tópico - Gerador de Tela de Cadastro - Rochinha

Gerador de Tela de Cadastro - Rochinha

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Gerador de Tela de Cadastro - Rochinha

Mensagempor rcalado » 18 Out 2007 10:43

Amigo Rochinha,

Vi um post seu anterior, onde você comenta de um gerador de cadastros a partir de algum DBF.

Você tem algum exemplo e como montar esse gerador?

abs,

Roberto Calado
roberto@mrc.inf.br
rcalado
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 08 Jul 2004 14:38
Cidade/Estado: São Paulo - SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor rochinha » 18 Out 2007 21:20

Amiguinho

mandei pro seu email:

Exemplo, digite:

DBF2PRG clientes ou
DBF2PRG2 clientes
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Mensagempor FARLEY RIBEIRO » 19 Out 2007 09:51

Olá grande Rochinha

Manda para mim tb..

Grato

Farley

farleyribeiro2006@gmail.com
Borland BCC(5.51)/PellesC(5.01)/Fivewin(2.6)/xHarbour.org(0.99.50)/Med(3.02)/DBFNTX/DBFCDX /WvWToools(0.83)
Avatar de usuário

FARLEY RIBEIRO
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 82
Data de registro: 24 Jul 2007 10:26
Cidade/Estado: MONTES CLAROS-MG
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor rochinha » 20 Out 2007 17:35

Amiguinhos

Podem baixar deste link
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Re: Gerador de Tela de Cadastro - Rochinha

Mensagempor alceu11 » 27 Out 2008 13:48

TESTEI O GERADOR NAO GEROU NENHUM CODIGO

SENDO ASSIM EU COLOCO ESTE QUE EU DESENVOLVI
TESTEM .!!
QUALQUER DBF EM SEGUNDOS VAI GERAR O CADASTRO COM INLUSAO ALTERACAO EXCLUSAO,
A BUSCA VC TERA QUE CRIAR UM INDICE, QUE TB REALIZARAR BUSCA COM CHAVE INDEXADA

E QUAL INOVACAO OU SUGESTAO ESTOU A DISPOSICAO : :)Pos

LINK PARA BAIXAR
http://www.mandamais.com.br/download/?c ... 2008144259

nova atualizacao 10/12/08 :))

http://www.4shared.com/file/75397174/56 ... nline.html
Editado pela última vez por alceu11 em 14 Dez 2008 10:33, no total de 3 vez
alceu11
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 44
Data de registro: 27 Out 2008 11:31
Cidade/Estado: sao paulo-sp
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Gerador de Tela de Cadastro - Rochinha

Mensagempor rochinha » 27 Out 2008 13:56

Amiguinho,

Voce deve digitar GERADOR NomeDoDBF sem extensão.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Re: Gerador de Tela de Cadastro - Rochinha

Mensagempor alceu11 » 27 Out 2008 14:18

Rochinha boa tarde
Dos exes que baixei nao tinha nehunm gerador so dbf???????

ele so gera um atalho e nada mais

por isto coloquei este meu arquivo para teste aqui quem sabe ajude aos iniciantes, e para quem queira ganhar tempo em fazer um cadastro rapido em simples.
Voce tiver o gerador.exe ai me envia.
alceu11@yahoo.com.br
alceu11
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 44
Data de registro: 27 Out 2008 11:31
Cidade/Estado: sao paulo-sp
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Gerador de Tela de Cadastro - Rochinha

Mensagempor rochinha » 28 Out 2008 07:01

Amiguinho

O link http://www.5volution.com.br/downloads/forum/gerador.zip possui 1 executável. Verifique o link que usou para baixar ou desative momentaneamente seu antivirus ou me report se algum virus foi encontrado.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Re: Gerador de Tela de Cadastro - Rochinha

Mensagempor alceu11 » 28 Out 2008 09:48

Rocinha
Amiguinho

Ta faltando um arquivo ch #include "clever.ch"
tem como enviar ele
pq nao consigo compilar
alceu11
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 44
Data de registro: 27 Out 2008 11:31
Cidade/Estado: sao paulo-sp
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Gerador de Tela de Cadastro - Rochinha

Mensagempor rochinha » 28 Out 2008 16:53

Amiguinho

#xcommand @ <nRow>, <nCol> COMBOBOX [ <oCbx> VAR ] <cVar> ;
             [ <it: PROMPTS, ITEMS> <aItems> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ ON CHANGE <uChange> ] ;
             [ VALID <uValid> ] ;
             [ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
             [ <pixel: PIXEL> ] ;
             [ FONT <oFont> ] ;
             [ <update: UPDATE> ] ;
             [ MESSAGE <cMsg> ] ;
             [ WHEN <uWhen> ] ;
             [ <design: DESIGN> ] ;
             [ BITMAPS <acBitmaps> ] ;
             [ ON DRAWITEM <uBmpSelect> ] ;
             [ STYLE <nStyle> ] ;
             [ PICTURE <cPicture> ];
             [ ON EDIT CHANGE <uEChange> ] ;
       => ;
          [ <oCbx> := ] TComboBox():New( <nRow>*13, <nCol>*8, bSETGET(<cVar>),;
             <aItems>, <nWidth>, <nHeight>, <oWnd>, <nHelpId>,;
             [{|Self|<uChange>}], <{uValid}>, <nClrText>, <nClrBack>,;
             .T., fntHelvetica, <cMsg>, <.update.>, <{uWhen}>,;
             <.design.>, <acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>,;
             <cPicture>, [<{uEChange}>] )

#define MOSTRA_PAG_1    "M"
#define CONSULTA        "C"
#define ALTERACAO       "A"
#define EXCLUSAO        "E"
#define INCLUSAO        "I"
#define _TREEVIEW_CH
#define WM_SETREDRAW    11
#define TVS_HASBUTTONS         1
#define TVS_HASLINES         2
#define TVS_LINESATROOT       4
#define TVS_EDITLABELS         8
#define TVS_SHOWSELALWAYS     32
#define TIS_NORMAL    0
#define TIS_FIRST     1
#define TIS_LAST      2
#define TIS_PARENT    4
#define TIS_OPEN      8
// insert styles
#define IS_FIRST     1
#define IS_LAST      2
#define IS_AFTER     3
#define IS_FIRSTCHILD     4
#define IS_LASTCHILD     5
// get styles
#define TVGN_ROOT     0
#define TVGN_NEXT     1
#define TVGN_PREVIOUS     2
#define TVGN_PARENT     3
#define TVGN_CHILD     4
#define TVGN_CARET     5
// expand styles
#define TVE_COLLAPSE     0
#define TVE_EXPAND     1
#define TVE_TOGGLE     2

#xcommand @ <nRow>, <nCol> TREE <oTree> ;
        [ SIZE <nWidth>, <nHeight> ] ;
        [ ON CHANGE <uChange> ] ;
             [ ON [ LEFT ] DBLCLICK <uLDblClick> ] ;
        [ <of: OF, WINDOW, DIALOG > <oWnd> ] ;
             [ VALID <uValid> ] ;
        [ <color: COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
        [ FONT <oFont> ] ;
        [ BITMAPS <aBitmaps> ] ;
        [ MASKS <aMasks> ] ;
        [ <help:HELP, HELPID, HELP ID> <nHelpId> ] ;
             [ MESSAGE <cMsg> ] ;
             [ WHEN <uWhen> ] ;
        [ <pixel: PIXEL> ] ;
        [ TREE STYLE <nTreeStyle> ] ;
   => ;
      <oTree> := TTreeView():New( <nRow>, <nCol>, <nWidth>, <nHeight>, <oWnd>, ;
            <aBitmaps>, <aMasks>, <{uChange}>, <{uLDblClick}>, <{uValid}>, <nHelpId>, ;
            <nClrFore>, <nClrBack>, <oFont>, <cMsg>, <{uWhen}>, <.pixel.>, <nTreeStyle> )

#xcommand @ <nRow>, <nCol> SPLITTER [ <oSplit> ] ;
             [ <h: HORIZONTAL> ] ;
             [ <v: VERTICAL> ] ;
             [ PREVIOUS CONTROLS <aPrevCtrols,...> [ <prev: NO ADJUST> ] ] ;
             [ HINDS CONTROLS <aHindCtrols,...> [ <hind: NO ADJUST> ] ] ;
             [ <margin1: TOP MARGIN, LEFT MARGIN > <nMargin1> ] ;
             [ <margin2: BOTTOM MARGIN, RIGHT MARGIN > <nMargin2> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <lPixel: PIXEL > ] ;
             [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
             [ ON CHANGE <uChange,...> ] ;
             [ <lLook3d: 3D, 3DLOOK, _3D, _3DLOOK> ] ;
             [ <color: COLOR,COLORS > <nClrBack> ] ;
             [ <design: DESIGN >  ] ;
             [ <update: UPDATE >  ] ;
      => ;
          [ <oSplit> := ] TSplitter():New( <nRow>, <nCol>, ;
             (.not.<.h.>) [.or. <.v.>], [\{<aPrevCtrols>\}], .not.<.prev.>, ;
             [\{<aHindCtrols>\}], .not.<.hind.>, ;
             [{|| <nMargin1>}], [{|| <nMargin2>}], ;
             [<oWnd>], [\{||<uChange>\}], ;
             <nWidth>, <nHeight>, <.lPixel.>, ;
             <.lLook3d.>, <nClrBack>, <.design.>, <.update.> )

#xcommand @ <nRow>, <nCol> BITMAP [ <oBmp> ] ;
             [ <resource: NAME, RESNAME, RESOURCE> <cResName> ] ;
             [ <file: FILENAME, FILE, DISK> <cBmpFile> ] ;
             [ <NoBorder:NOBORDER, NO BORDER> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ <lClick: ON CLICK, ON LEFT CLICK> <uLClick> ] ;
             [ <rClick: ON RIGHT CLICK> <uRClick> ] ;
             [ <scroll: SCROLL> ] ;
             [ <adjust: ADJUST> ] ;
             [ CURSOR <oCursor> ] ;
             [ <pixel: PIXEL>   ] ;
             [ MESSAGE <cMsg>   ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <uWhen> ] ;
             [ VALID <uValid> ] ;
             [ <lDesign: DESIGN> ] ;
       => ;                           
          [ <oBmp> := ] TBitmap():New( <nRow>*08, <nCol>*4, <nWidth>*3.5, <nHeight>*3.5,;
             <cResName>, <cBmpFile>, <.NoBorder.>, <oWnd>,;
             [\{ |nRow,nCol,nKeyFlags| <uLClick> \} ],;
             [\{ |nRow,nCol,nKeyFlags| <uRClick> \} ], <.scroll.>,;
             <.adjust.>, <oCursor>, <cMsg>, <.update.>,;
             <{uWhen}>, .t., <{uValid}>, <.lDesign.> )

#xcommand @ <nRow>, <nCol> OFOLDER [<oFolder>] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ;
             [ <dlg: DIALOG, DIALOGS, PAGE, PAGES> <cDlgName1> [,<cDlgNameN>] ] ;
             [ <lPixel: PIXEL> ] ;
             [ <lDesign: DESIGN> ] ;
             [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
             [ OPTION <nOption> ] ;
             [ SIZE <nHeight>, <nWidth> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <lAdjust: ADJUST> ] ;
             [ FONT <oFont> ];
       => ;
          [<oFolder> := ] TFolder():New( <nRow>*08, <nCol>*4,;
             [\{<cPrompt>\}], \{<cDlgName1> [,<cDlgNameN>]\},;
             <oWnd>, <nOption>, <nClrFore>, <nClrBack>, .T.,;
             <.lDesign.>, <nWidth>*4, <nHeight>*8, <cMsg>, <.lAdjust.>,;
             fntHelvetica )

#xcommand @ <nRow>, <nCol> FOLDER [<oFolder>] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ;
             [ BITMAPS <cBmps,...> ] ;
             [ <dlg: DIALOG, DIALOGS, PAGE, PAGES> <cDlgName1> [,<cDlgNameN>] ] ;
             [ <lPixel: PIXEL> ] ;
             [ <lDesign: DESIGN> ] ;
             [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
             [ OPTION <nOption> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <lAdjust: ADJUST> ] ;
             [ FONT <oFont> ] ;
             [ STYLE <cDir: TOP, BOTTOM> ] ;
             [ TABCOLOR <nTabClr> ] ;
             [ FOCUSCOLOR <nFocusClr> ] ;
             [ ALIGN <cAlign: LEFT, CENTER, RIGHT> ] ;
       => ;
          [<oFolder> := ] TFolder():New( <nRow>*08, <nCol>*4,;
             [\{<cPrompt>\}], \{<cDlgName1> [,<cDlgNameN>]\},;
             <oWnd>, <nOption>, <nClrFore>, <nClrBack>, .T.,;
             <.lDesign.>, <nWidth>*4, <nHeight>*8, <cMsg>, <.lAdjust.>,;
             fntHelvetica, [\{<cBmps>\}], <"cDir">, <nTabClr>, <nFocusClr>, ;
             <"cAlign"> )

#xcommand @ <nRow>, <nCol> CHECKBOX [ <oCbx> VAR ] <lVar> ;
             [ PROMPT <cCaption> ] ;
             [ <of:OF, WINDOW, DIALOG> <oWnd> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ FONT <oFont> ] ;
             [ <change: ON CLICK, ON CHANGE> <uClick> ] ;
             [ VALID   <ValidFunc> ] ;
             [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
             [ <design: DESIGN> ] ;
             [ <pixel: PIXEL> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <WhenFunc> ] ;
      => ;
         [ <oCbx> := ] TCheckBox():New( (<nRow>*13)-.5, <nCol>*8, <cCaption>,;
             [bSETGET(<lVar>)], <oWnd>, <nWidth>, 10, <nHelpId>,;
             [<{uClick}>], fntHelvetica, <{ValidFunc}>, <nClrFore>, <nClrBack>,;
             <.design.>, .T., <cMsg>, <.update.>, <{WhenFunc}> )

#xcommand @ <nRow>, <nCol> PAGES <oPag> TITLE <cTitle> ;
             [ ID <nId> ] ;
             [ OF <oWnd> ] ;
             [ DIALOGS <DlgName,...> ] ;
             [ OPTION <nOption> ] ;
             [ SIZE <nHeight>, <nWidth> ] ;
             [ ON CHANGE <uChange> ] ;
             [ FONT <oFont> ];
       =>  <oPag> := TPages():New2( <nId>,;
                     <nRow>*08, <nCol>*4, <nHeight>*8, <nWidth>*4, <oWnd>, <cTitle>, ;
                     [{<DlgName>}], <nOption>, [ bSETGET(<uChange>) ], fntHelvetica )

#xcommand @ <nTop>, <nLeft> LINETO <nBottom>, <nRight > ;
             [ <label:LABEL,PROMPT> <cLabel> ] ;
             [ OF <oWnd> ] ;
             [ COLOR <nClrFore> [,<nClrBack>] ] ;
             [ <lPixel: PIXEL> ] ;
             [ <lDesign: DESIGN> ] ;
       => TGroup():New( <nTop>*8, <nLeft>*4, <nTop>*8, <nRight>*4,;
             OemToAnsi(<cLabel>), <oWnd>, <nClrFore>, <nClrBack>, .T.,;
             [<.lDesign.>] )

#command @ <nRow>, <nCol> SAY <cText> GET [ <oGet> VAR ] <uVar> ;
            [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
            [ PICTURE <cPict> ] ;
            [ VALID <ValidFunc> ] ;
            [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
            [ SIZE <nWidth>, <nHeight> ]  ;
            [ FONT <oFont> ] ;
            [ <design: DESIGN> ] ;
            [ CURSOR <oCursor> ] ;
            [ <pixel: PIXEL> ] ;
            [ MESSAGE <cMsg> ] ;
            [ <update: UPDATE> ] ;
            [ WHEN <uWhen> ] ;
            [ <lCenter: CENTER, CENTERED> ] ;
            [ <lRight: RIGHT> ] ;
            [ ON CHANGE <uChange> ] ;
            [ <readonly: READONLY, NO MODIFY> ] ;
            [ <pass: PASSWORD> ] ;
            [ <lNoBorder: NO BORDER, NOBORDER> ] ;
            [ <help:HELPID, HELP ID> <nHelpId> ] ;
       => ;
          @ <nRow>, <nCol> SAY <cText> OF <oWnd> ;;
          ;
          [ <oGet> := ] TGet():New( <nRow>, <nCol>+7, bSETGET(<uVar>),;
             [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,;
             <nClrFore>, <nClrBack>, <oFont>, <.design.>,;
             <oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,;
             <.lCenter.>, <.lRight.>,;
             [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
             <.pass.>, [<.lNoBorder.>], <nHelpId> )

#command @ <nRow>, <nCol> SAY <cText> GET [ <oGet> VAR ] <uVar> ;
            [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
            [ <memo: MULTILINE, MEMO, TEXT> ] ;
            [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
            [ SIZE <nWidth>, <nHeight> ] ;
            [ FONT <oFont> ] ;
            [ <hscroll: HSCROLL> ] ;
            [ CURSOR <oCursor> ] ;
            [ <pixel: PIXEL> ] ;
            [ MESSAGE <cMsg> ] ;
            [ <update: UPDATE> ] ;
            [ WHEN <uWhen> ] ;
            [ <lCenter: CENTER, CENTERED> ] ;
            [ <lRight: RIGHT> ] ;
            [ <readonly: READONLY, NO MODIFY> ] ;
            [ VALID <uValid> ] ;
            [ ON CHANGE <uChange> ] ;
            [ <lDesign: DESIGN> ] ;
            [ <lNoBorder: NO BORDER, NOBORDER> ] ;
            [ <lNoVScroll: NO VSCROLL> ] ;
       => ;
          @ <nRow>, <nCol> SAY <cText> OF <oWnd> ;;
          ;
          [ <oGet> := ] TMultiGet():New( <nRow>, <nCol>+7, bSETGET(<uVar>),;
             [<oWnd>], <nWidth>, <nHeight>, <oFont>, <.hscroll.>,;
             <nClrFore>, <nClrBack>, <oCursor>, <.pixel.>,;
             <cMsg>, <.update.>, <{uWhen}>, <.lCenter.>,;
             <.lRight.>, <.readonly.>, <{uValid}>,;
             [\{|nKey, nFlags, Self| <uChange>\}], <.lDesign.>,;
             [<.lNoBorder.>], [<.lNoVScroll.>] )

#command @ <nRow>, <nCol> SAY <cText> GET [ <oGet> VAR ] <uVar> ;
            [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
            [ PICTURE <cPict> ] ;
            [ VALID <ValidFunc> ] ;
            [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
            [ SIZE <nWidth>, <nHeight> ]  ;
            [ FONT <oFont> ] ;
            [ <design: DESIGN> ] ;
            [ CURSOR <oCursor> ] ;
            [ <pixel: PIXEL> ] ;
            [ MESSAGE <cMsg> ] ;
            [ <update: UPDATE> ] ;
            [ WHEN <uWhen> ] ;
            [ <lCenter: CENTER, CENTERED> ] ;
            [ <lRight: RIGHT> ] ;
            [ ON CHANGE <uChange> ] ;
            [ <readonly: READONLY, NO MODIFY> ] ;
            [ <help:HELPID, HELP ID> <nHelpId> ] ;
            [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ;
       => ;
          @ <nRow>, <nCol> SAY <cText> OF <oWnd> ;;
          ;
          [ <oGet> := ] TGet():New( <nRow>, <nCol>+7, bSETGET(<uVar>),;
             [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,;
             <nClrFore>, <nClrBack>, <oFont>, <.design.>,;
             <oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,;
             <.lCenter.>, <.lRight.>,;
             [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
             .f., .f., <nHelpId>,;
             <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}> )

//--------------------------------------------------------------------------//
#ifndef ASSIST_CH
#define ASSIST_CH
#define ARCH_RECUR         "ASSIST.DLL"
#define TASISTENTE         "TAssist v1.1"
#define MNU_HELP     "A&juda"                 // Help
#define MNU_ANIMAR   "&Animar"                // Animate
#define MNU_STOP     "&Parar Animacao"        // Stop Animation
#define MNU_RESUME   "&Terminar Animacao"     // Resume Animation
#define MNU_CLOSE    "&Fechar Assistente"     // Close Assistant
#define TXT_HELLO    "Hola que tal, Me necesitas?"                  // Hello, do you need me?
#define TXT_MYNAME   "Mi nombre es"                                 // My name is
#define TXT_WHATCAN  "Que quieres que haga?"                        // What can i do for you?
#define TXT_SHWCONT  "Mostrar el contenido de la ayuda"             // Show the help content
#define TXT_SHWINDX  "Mostrar el Indice de la ayuda"                // Show the help index
#define TXT_CLOSEWN  "Cerrar la ventana"                            // Close the window
#define TXT_FINDINF  "Buscar informacion, teclea lo que buscas.."   // Find information, type here..
#define TXT_CLICKME  "Haz Click en mi para"+CRLF+"obtener ayuda !!" // Click on Me to get some help
#define TXT_CHRNAME  "JCSO"                                         // The name of the assistant
#define TXT_OK       "Ok"            // Button OK
#define TXT_YES      "Sim"           // Button Yes
#define TXT_NO       "Nao"           // Button NO
#define TXT_CANCEL   "Cancelar"      // Button CANCEL -- Not available yet
#define CLR_TEXTO    CLR_BLACK
#define CLR_FONDO    CLR_YELLOW
#define nTotalAnimaciones  5
#define nTotalAsistentes   6

#define OJITOS   1
#define TACHIDO  2
#define MARIPOSA 3
#define SNOOPY   4
#define MANDM    5
#define GATITA   6

#xcommand DEFINE ASSIST  <oAssist>                   ;
             [ CHARACTER <nCharac>                 ] ;
             [ NAME CHARACTER <cName>              ] ;
             [ FRAME INTERVAL <nInter>             ] ;
             [ CHANGE ANIMATION INTERVAL <nCamAni> ] ;
             [ MSGCLICK  <cMsgClk>                 ] ;
             [ <lCambiar: CHANGE ANIMATIONS >      ] ;
             [ <lMenu: WITH MENUPOPUP>             ] ;
             [ HELP FILE <cHelpFile>               ] ;
             [ SHOW AT <nRow>,<nCol>               ] ;
       => ;
          [ <oAssist> := ] TAssist():New( <cName>, <nCharac>, <nCamAni>, ;
                                          <nInter>, <.lCambiar.>, <nRow>, <nCol>, ;
                                          <cMsgClk>, <cHelpFile>, <.lMenu.> )

#xcommand ACTIVATE ASSIST <oAssist> => <oAssist>:Show()
#endif

//--------------------------------------------------------------------------//
#ifndef _OUTLOOK_CH
#define _OUTLOOK_CH

#xcommand @ <nRow>, <nCol> OUTLOOK [<oOut>] ;
            [ SIZE <nWidth>, <nHeight> ] ;
            [ BITMAP <cBmp> ] ;
            [ RESOURCE <cResBmp> ] ;
            [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
            [ STYLE <nStyle> ] ;
            [ BRUSH <oBrush> ] ;
            [ FONT <oFont> ] ;
            [ <lPixel: PIXEL> ] ;
            [ MESSAGE <cMsg> ] ;
            [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
            [ <help: HELP, HELPID> <nHelpId> ] ;
            [ ON RIGHT CLICK <uRClicked> ] ;
         => ;
            [<oOut> := ] TOutLook():New( <nRow>, <nCol>, ;
               <nWidth>, <nHeight>, <cBmp>, <cResBmp>, ;
               <nClrFore>, <nClrBack>, <nStyle>, <oBrush>, <oFont>, ;
               <.lPixel.>, <cMsg>, <oWnd>, <nHelpId>, ;
               [{|nRow,nCol,nFlags|<uRClicked>}] )

#xcommand DEFINE GROUP OF OUTLOOK <oOut> ;
            [ PROMPT <cPrompt> ] ;
            [ <action: ACTION, ON CLICK> <uAction> ] ;
            [ WHEN <bWhen> ] ;
            [ MESSAGE <cMsg> ] ;
            [ FONT <oFont> ] ;
         => ;
            <oOut>:AddGroup( <cPrompt>, [{|Self|<uAction>}], ;
               [{|Self|<bWhen>}], <cMsg>, <oFont> )

#xtranslate DEFINE ICON OF OUTLOOK <*oOut*> => DEFINE ITEM OF OUTLOOK <oOut>

#xcommand DEFINE ITEM OF OUTLOOK <oOut> ;
            [ GROUP <nGroup> ] ;
            [ PROMPT <cPrompt> ] ;
            [ <action: ACTION, ON CLICK> <uAction> ] ;
            [ ON RIGHT CLICK <uRClicked> ] ;
            [ ICON <cIcon> ] ;
            [ RESOURCE <cResIco> ] ;
            [ WHEN <bWhen> ] ;
            [ MESSAGE <cMsg> ] ;
            [ FONT <oFont> ] ;
            [ <lAdjust: ADJUST> ] ;
            [ <lBorder: BORDER> ] ;
            [ TOOLTIP <cToolTip> ] ;
         => ;
            <oOut>:AddItem( <cPrompt>, <cIcon>, <cResIco>, ;
               [{|Self|<uAction>}], <nGroup>, ;
               [{|Self|<bWhen>}], <cMsg>, ;
               [{|nRow,nCol,nFlags|<uRClicked>}], <oFont>, ;
               <.lAdjust.>, <.lBorder.>, <cToolTip>, .t. )

#xcommand DEFINE BITMAP OF OUTLOOK <oOut> ;
            [ GROUP <nGroup> ] ;
            [ PROMPT <cPrompt> ] ;
            [ <action: ACTION, ON CLICK> <uAction> ] ;
            [ ON RIGHT CLICK <uRClicked> ] ;
            [ BITMAP <cBmp> ] ;
            [ RESOURCE <cResBmp> ] ;
            [ WHEN <bWhen> ] ;
            [ MESSAGE <cMsg> ] ;
            [ FONT <oFont> ] ;
            [ <lAdjust: ADJUST> ] ;
            [ <lBorder: BORDER> ] ;
            [ TOOLTIP <cToolTip> ] ;
         => ;
            <oOut>:AddItem( <cPrompt>, <cBmp>, <cResBmp>, ;
               [{|Self|<uAction>}], <nGroup>, ;
               [{|Self|<bWhen>}], <cMsg>, ;
               [{|nRow,nCol,nFlags|<uRClicked>}], <oFont>, ;
               <.lAdjust.>, <.lBorder.>, <cToolTip>, .f. )

#endif
//--------------------------------------------------------------------------//
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Re: Gerador de Tela de Cadastro - Rochinha

Mensagempor alceu11 » 31 Out 2010 12:40

Segue link para o Gerador de cadastros em Five Win Vejas.exe
para gerar Cadastros em arquivo prg atraves de um dbf para five win
link

http://www.4shared.com/file/TzPfCxBW/veja2212s.html%20l
ou
http://www.4shared.com/file/aUqzfiG6/veja2212.html

link para baixar o Five Win 6.12 direto do Fabricante FiveTech que foi liberada Gratuito area Download
http://www.fivetechsoft.com/spanish/downloads.html
Baixe no mesmo site o borland 5.5 gratuito e o xharbour

Imagem

VIDEO

http://www.youtube.com/watch?v=sFkp9zWMhuI
alceu11
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 44
Data de registro: 27 Out 2008 11:31
Cidade/Estado: sao paulo-sp
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Gerador de Tela de Cadastro - Rochinha

Mensagempor Kapiaba » 12 Dez 2014 14:09

Hi Rochinha, link quebrado.

abs
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Gerador de Tela de Cadastro - Rochinha

Mensagempor rochinha » 15 Dez 2014 22:17

OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Gerador de Tela de Cadastro - Rochinha

Mensagempor Kapiaba » 16 Dez 2014 09:32

Rochinha, em um .dbf com 120 campos... Gera:

C:\DOWNLOAD\gerador>DBF2PRG CADETIQ /C/I

MAKEfunc 1.0 Direiros Reservados 1999-2000 Soft Clever Informatica ME.

Criando... CADETIQ

               +------------------------------------------------+
               Â¦   Error BASE/1132  Bound error: array access   Â¦
               Â¦                                                ¦
               Â¦                      Quit                      ¦
               +------------------------------------------------+


Além disso, está muito desatualizado para as versões mais atuais do Fivewin.

Achei legal, mas muito limitado. PS.: isto não é uma critica.

Obg. abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Gerador de Tela de Cadastro - Rochinha

Mensagempor rochinha » 17 Dez 2014 01:48

Amiguinhos,

"Sem criticas, programador não avança..."

Eu devo sim ter alguma versão mais nova e vou atualizar.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 15 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro