Jump to content
Fivewin Brasil

Gerador de Programas/Telas - Dica


kapiaba

Recommended Posts

Dica Para pedro caldiera -> Nick

Conforme sua solicitação:

http://www.fivewin.com.br/exibedicas.asp?id=212

Se não servir, avise, que eu vejo outra altenativa.

Tens as disposição também o BORLAND RESOURCES WORKSHOP.EXE para criação de suas TELAS/DIALOGOS.

Vá postando suas dúvidas, seu aprendizado, será mais rápdido aqui, do que via email ou telefone.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

Dica Para pedro caldiera -> Nick

Conforme sua solicitação:

http://www.fivewin.com.br/exibedicas.asp?id=212

Se não servir, avise, que eu vejo outra altenativa.

Tens as disposição também o BORLAND RESOURCES WORKSHOP.EXE para criação de suas TELAS/DIALOGOS.

Vá postando suas dúvidas, seu aprendizado, será mais rápdido aqui, do que via email ou telefone.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

Bom Dia Joao

Obrigado pela ajuda, nao sabe como aqui pela primeira vez estou sendo bem recebido.!!!

Sou programador em clipper, desde da versao sumer87, eu uso hoje a versao clipper 52d,

Estou com uma vontate enorme de migrar para o fivewin

Sei que uma mundanca repetina, tras medo, mais tenho que mudar, e renovar os conceitos,

Estou todo perdido, por onde comecar!!!!

Pensei vou comecar pela parte didatica, para nao ficar toda hora perguntando vamos estudar.

Encontrei 3 apostilas de five win aqui no forum, uma esta zipada com senha, difcil de saber a senha, a outra, esta em espanhol, tem alguma apostila basica. para baixar.?

Falta encontra o genera.exe ainda nao achei, em dicas o Sr. poderia disponibilizar para baixar.

A principio, queria fazer uma tela simples de pedido, com selecao de cliente, produtos, se pegar o conceito, vou em frente.

Te agradeco pela ajuda, baixei workshop no superdowload, acho que nao e o mesmo que o sr. meu indicou poderia colocar o caminho , na internet onde possa baixalo.

O workshop gera o prg e a tela, os dois so uma coisa

A outra duvida, o five win teria demo para baixar. so pra compilar, 1 prg pois ainda nao vi nem um executavel em fivewin.

Aqui onde eu encontro um exemplo simples de uma aplicacao em five win, exemplo de uma agenda. ou algo bem simples.

Como eu compilo um prg em five win.

Como Cria uma bat? qual o linkeenditor eu vou usar?

meu nik aqui e o alceu11 fico no aguardo.

muito obrigado por enquanto

Link to comment
Share on other sites

Bom dia Sr.Joao este e um cadastro de clientes

//este prg gerado pelo gen otimo, O sr. tem como compilaro compilar e e gera o //exe e enviar para o email pedro31759@hotmail.com ou ainda alceu11@yahoo.com.br

//clie.prg Ediзгo dos dados

static function Editar( oManut )

local oDlg, oDbf, bGrav, bCanc, oVar, lGravou:= .f., i

local lIncluir:= ( oManut:nStatus == idAPPEND )

//--- Verifica se o usuario tem permissгo de acessar

if !VerAcesso( "CLIE", if( lIncluir, "I", "A" ) )

return .f.

endif

//--- cria o objeto que contem o array de campos editбveis

DEFINE STRUCT oVar

FOR i=1 to Len( oManut:oDbf:aFldNames )

STRUCT FIELD ( oManut:oDbf:aFldNames )

NEXT i

STRUCT FIELD nOldReg

STRUCT FIELD nOldOrd

END STRUCT

//--- salva o registro atual

oVar:nOldReg:= ( oManut:oDbf:cAlias )->( OrdKeyNo() )

oVar:nOldOrd:= ( oManut:oDbf:cAlias )->( Indexord() )

oDbf:= oClone( oManut:oDbf )

if lIncluir

oDbf:Blank()

else

oDbf:Load()

endif

//--- Janela de Ediзгo aqui

DEFINE DIALOG oDlg RESOURCE "CLIE" ;

TITLE if( lIncluir, "Incluir", "Alterar" ) + " Clie"

REDEFINE GET oVar:Codigo VAR oDbf:Codigo ;

ID 110 OF oDlg UPDATE

REDEFINE GET oVar:Nome VAR oDbf:Nome ;

ID 111 OF oDlg UPDATE

REDEFINE GET oVar:Endereco VAR oDbf:Endereco ;

ID 112 OF oDlg UPDATE

REDEFINE GET oVar:Cidade VAR oDbf:Cidade ;

ID 113 OF oDlg UPDATE

REDEFINE GET oVar:Uf VAR oDbf:Uf ;

ID 114 OF oDlg UPDATE

ACTIVATE DIALOG oDlg CENTERED

return Nil

//-------------------------------------------------------------------------//

function Atr_Clie()

local oAtr:= AtrDefine()

oAtr:cTitulo:= "Tabela de CLIE"

oAtr:cDbf := "CLIE"

oAtr:cDir := "Dados"

//--- Definiзгo dos Ðndices

Aadd( oAtr:aKeys, "AnsiUpper(CODIGO)" ) ; Aadd( oAtr:aTags, "Codigo" )

Aadd( oAtr:aKeys, "AnsiUpper(NOME)" ) ; Aadd( oAtr:aTags, "Nome" )

oAtr:aEstrut := { { "CODIGO", "C", 05, 00 },;

{ "NOME", "C", 35, 00 },;

{ "ENDERECO", "C", 35, 00 },;

{ "CIDADE", "C", 35, 00 },;

{ "UF", "C", 02, 00 } }

//--- Adiзгo ao vetor de DataBases

Aadd( oApp:aDatabase, oAtr )

return Nil

//-------------------------------------------------//

**clie.ch

#define ID_CODIGO 110

#define ID_NOME 111

#define ID_ENDERECO 112

#define ID_CIDADE 113

#define ID_UF 114

***

**clie.rc

#include "\fw23\include\WinApi.ch"

CLIE DIALOG 32, 18, 236, 90

STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU

CAPTION "CLIE"

FONT 8, "MS Sans Serif"

{

RTEXT "Codigo" , -1, 3, 5, 41, 8

EDITTEXT 110, 48, 3, 26, 12

RTEXT "Nome" , -1, 3, 19, 41, 8

EDITTEXT 111, 48, 17, 131, 12

RTEXT "Endereco" , -1, 3, 33, 41, 8

EDITTEXT 112, 48, 31, 131, 12

RTEXT "Cidade" , -1, 3, 47, 41, 8

EDITTEXT 113, 48, 45, 131, 12

RTEXT "Uf" , -1, 3, 61, 41, 8

EDITTEXT 114, 48, 59, 15, 12

}

Fico no aguardo

Pois este sera o primeiro programa em five win

As minhas espectativas sao muitas

Deve ficar demais esta tela

Eu so nao vi onde ele vai cria o dbf caso nao exista ?

A Estrutra do meu dbf := { { "CODIGO", "C", 05, 00 },;

{ "NOME", "C", 35, 00 },;

{ "ENDERECO", "C", 35, 00 },;

{ "CIDADE", "C", 35, 00 },;

{ "UF", "C", 02, 00 } }

Link to comment
Share on other sites

Brincando, SOCORRRROOO GALERA, MUITAS PERGUNTAS AO MESMO TEMPO, CONFUNDE MINHA KBEÇA DE ´LOIRA´. KKKKKKKKKKK.

Vamos lá FIVEWINNERS, jogo a bola para voces! o ´kabra´ é dos nossos, gente boa da ZONA NORTE DE SAMPA!

Vamos ajuda-lo.

Começando por partes:

Por enquanto, use o GEN.EXE - Pois é visual.

o GENERA.EXE é a mesma coisa, mas feito em DOS. Não uso mais. O GEN.EXE, faz a mesma coisa o LINK está acima.

Baixe-o em um direto, exploda copie um BANCO DE DADOS e excute o GEN.EXE. Vai entender.

Demais duvidas, serão sanadas em tempo... Eu sei, são tantas as emoções...

I LOVE FIVEWIN

Ah, olhe meu telefone no RODAPÉ da minha assinatura, espero, que não o percas de novo... kkkkk.

E Pedro, SENHOR, está no CÉU!

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

Vá lendo... FIVEWIN, também é cultura.

http://www.fivewin.com.br/exibedicas.asp?id=579

http://www.fivewin.com.br/exibedicas.asp?id=601

http://www.fivewin.com.br/exibedicas.asp?id=602

http://www.fivewin.com.br/exibedicas.asp?id=173

http://www.fivewin.com.br/exibedicas.asp?id=159

http://www.fivewin.com.br/exibedicas.asp?id=154

Entre em contato com o Senhor Gilmer Tavares da:

Virtual Object Informática Ltda. Fone/Fax: (15)3231-6840

Veja o Preço do FIVEWIN 8.04, para assim que comprares, iniciar-mos um curso(quase) avançado(kkkkkk).

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

JA BAIXE O FIVEWIN192 DEMO

PARA GERA O EXE FOR WINDOWS O FIVE WIN?

PARA LINKAR DEVO USAR O BLINKER?

Novidades RECEBI um email , o seguinte endereco que e bom demais, num ambiente grafico, gerar O PROJETO E telas, para fivewin, olha aqui tem gente boa fe.

e vou deixar aqui o link da VRM UNION AQUI BAIXE

OBRIGADO RICARDO MARQUES

http://www.vrmm.com.br/

ACHO QUE HOJE JA COMPILO O PRIMEIRO PROGRAMA

PELO VISTO ESTE DIA NAO VER DIA NEM NOITE

Link to comment
Share on other sites

citação:

JA BAIXE O FIVEWIN192 DEMO

PARA GERA O EXE FOR WINDOWS O FIVE WIN?

PARA LINKAR DEVO USAR O BLINKER?

Novidades RECEBI um email , o seguinte endereco que e bom demais, num ambiente grafico, gerar O PROJETO E telas, para fivewin, olha aqui tem gente boa fe.

e vou deixar aqui o link da VRM UNION AQUI BAIXE

OBRIGADO RICARDO MARQUES

http://www.vrmm.com.br/

ACHO QUE HOJE JA COMPILO O PRIMEIRO PROGRAMA

PELO VISTO ESTE DIA NAO VER DIA NEM NOITE


id=quote>id=quote>

SIM. EM 16 BITS, USA-SE O BLINKER.EXE

ESTE FORUM, É CHEIO DE GENTE ´PORRETA´.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

Ja gerei o primeiro o exe

e funcionou, olha gente do forum o vrmm union um gerador de formularios muito bom ,so precisa saber da linguagem, clipper, exelente, maginifico, dez. com objeto inspetor, com os botoes, sencional me indentifico, com este aplicativo, tipo delphi, que ja uso sabe do que estou falando.

Voce entra un icon maozinha cadastro super manda ele gerar, pedi o dbf, e ja era cria a tela com tudo, so precisa colar as instrucoes excluir gravar.

Tanta facilidade., que eu mesmo estou abismando, so queria debugar, mais ainda nao sei fazer o debug.

parabens Ricardo Marques deste forum.

Baixe visual VRMM 0.8 para fivewin em: www.vrmm.com.br

Link to comment
Share on other sites

citação:

Ja gerei o primeiro o exe

e funcionou, olha gente do forum o vrmm union um gerador de formularios muito bom ,so precisa saber da linguagem, clipper, exelente, maginifico, dez. com objeto inspetor, com os botoes, sencional me indentifico, com este aplicativo, tipo delphi, que ja uso sabe do que estou falando.

Voce entra un icon maozinha cadastro super manda ele gerar, pedi o dbf, e ja era cria a tela com tudo, so precisa colar as instrucoes excluir gravar.

Tanta facilidade., que eu mesmo estou abismando, so queria debugar, mais ainda nao sei fazer o debug.

parabens Ricardo Marques deste forum.

Baixe visual VRMM 0.8 para fivewin em: www.vrmm.com.br


id=quote>id=quote>

MENINO, NÃO FALA ESSE NOME... TAL DE DELPH...., VC PERDE O AMIGO DA BOLSA COR DE ROSA.... HAHAHAH

Viol

xDev Studio v0.65

xHB build 0.99.50

BCC 5.5.1

FW 2.6

Link to comment
Share on other sites

PROMETO NUNCA MAIS FALAR NESTA REFERENCIA.

DESCULPE A REFERENCIA FOI MAL, MAIS NAO QUERO PERDE AMIGOS, QUERO GANHAR AMIGOS.

UMA DUVIDA O REFRESH DO BROWSE

DEPOIS QUE SAIO DA ALTERAO O INCLUSAO, COMO DOU UM REFRESH NO BROWSE

DUVIDA PORQUE SET DATE FRANCE E NAO SET DATE BRITI

PQ SET EPO 1920 E NAO SET EPO 2000

ALGUEM SABE

Link to comment
Share on other sites

KKKKKKKKKKKKKKK. VIOL -> SE LIGA....


//-> Configuracao do Sistema

SET DATE BRITISH

SET EPOCH TO 1950

SET CENTURY ON

SET SOFTSEEK OFF

SET WRAP ON

SETCANCEL( .F. )

SET CONFIRM OFF

SET DELETED ON

SET ESCAPE OFF

SET EXCLUSIVE OFF

SET MULTIPLE OFF

id=code>id=code>

NO ACTION DO BOTAO, OU APÓS UM PROCESSAMENTO EM UM DESVIO DE ROTINA:

oLbx:Refresh()

oLbx:SetFocus()

ou

oLbx:GoBottom()

oLbx:Refresh()

oLbx:GoTop()

oLbx:SetFocus()

Vá perguntando...

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

ONDE EU ACHO NG. FIVE WIN QUE TEM PRECISO DOS COMANDOS

DE REFERENCIAS, TIPO SITANSE MANJA.

aNTES DO REPLACE

DEI O RLOCK()

1 )RLOCK() FUNCIONA AQUI QUE NO CLIPPER PQ TA DIZENDO QUE NAO TA CONSEGUINDO BLOQUEAR

DEPOIS DO BLOQUEIO DO DBUNLOCK() OU UNLOCK()

3) BOTAO PESQUISA, COMO EU FACO UMA SELECT * FROM CLIENTE ORDER BY NOME INTO CURSOR BUSCA1

SELECT BUSCA1

FORMPESQ()

_ALIAS:=ALIAS()

4) TO NA PESQUISA FIZ A PEQUISA, SELECIONO

SELECT &_ALIAS

SAIO DA PESQUISA

E JOGO NOS TEXTBOX OU QUE EU PRECISO

E ESTE O PROCEDIMENTO

Link to comment
Share on other sites

Olá Pedro caldiera (Alceu11) Seja bem vindo amigo com certeza voce veio para somar com a gente. Como diz o Jack o Estripador vamos por partes kkkkkk pegue todos os exemplos postados em dicas que o Kapiaba te sugeriu vou mandar pra voce um sistema exemplo com fontes e bat para compilar e linkar usando o clipper 52 com libs do 53 e o blinker. Vai te ajudar muito é um sistema de agenda muito simples mas muito util pra aprender a usar esta poderosa ferramenta que é o fivewin. Acerte o seu perfil pra podermos te ADD no Msn e também ver seus emails.

Abraços

Gilson

E-mail: Fgsistem@yahoo.com.br

MSN: fgsistem@hotmail.com

Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Editado por - fgsist on 14/04/2008 17:32:53

Link to comment
Share on other sites

citação:

ONDE EU ACHO NG. FIVE WIN QUE TEM PRECISO DOS COMANDOS

DE REFERENCIAS, TIPO SITANSE MANJA.

aNTES DO REPLACE

DEI O RLOCK()

1 )RLOCK() FUNCIONA AQUI QUE NO CLIPPER PQ TA DIZENDO QUE NAO TA CONSEGUINDO BLOQUEAR

DEPOIS DO BLOQUEIO DO DBUNLOCK() OU UNLOCK()

3) BOTAO PESQUISA, COMO EU FACO UMA SELECT * FROM CLIENTE ORDER BY NOME INTO CURSOR BUSCA1

SELECT BUSCA1

FORMPESQ()

_ALIAS:=ALIAS()

4) TO NA PESQUISA FIZ A PEQUISA, SELECIONO

SELECT &_ALIAS

SAIO DA PESQUISA

E JOGO NOS TEXTBOX OU QUE EU PRECISO

E ESTE O PROCEDIMENTO


id=quote>id=quote>

Pedro, com a VERSÃO DEMO, NÃO TENS HELP. SOMENTE ADQUIRINDO A VERSAO OFICIAL.

Em dicas mais dicas... Se não me engano, TEM APOSTILHAS.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

citação:

Olá Pedro caldiera (Alceu11) Seja bem vindo amigo com certeza voce veio para somar com a gente. Como diz o Jack o Estripador vamos por partes kkkkkk pegue todos os exemplos postados em dicas que o Kapiaba te sugeriu vou mandar pra voce um sistema exemplo com fontes e bat para compilar e linkar usando o clipper 52 com libs do 53 e o blinker. Vai te ajudar muito é um sistema de agenda muito simples mas muito util pra aprender a usar esta poderosa ferramenta que é o fivewin. Acerte o seu perfil pra podermos te ADD no Msn e também ver seus emails.

Abraços

Gilson

E-mail: Fgsistem@yahoo.com.br

MSN: fgsistem@hotmail.com

Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Editado por - fgsist on 14/04/2008 17:32:53


id=quote>id=quote>

Gilson, Parabéns! Excelente iniciativa. Você me deixou ´PASSADO´. KKKKKKKKKKKKKKKKKKKKKKKKKKK.

Abraços, karinhosos.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

RLOCK()

FUNCIONA PERFEITAMENTE.

VERIFIQUE SE O PONTEIRO, SE FOR EM UMA ALTERAÇÃO, ESTà POSICIONADO EM CIMA DO REGISTRO, OU SE VOCE NÃO ESTA COM O REGISTRO ABERTO EM REDE.

IDEAL É QUE TENHAS UMA FUNCAO DE TRAVAR E DESTRAVAR O REGISTRO.

E SE FOR UMA INCLUSAO, USE O APPEND BLANK.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

Para imprimir o cadastro

Como tem que fazer e deste jeito?

set device to print

set print cadastro.txt

Select cliente

set order to nome

go top

do while .not. eof()

@ lin, col say 'nome ' cliente.nome

skip

endo

set print to

set device no screen

run notepad cliente.txt

pedro

alceu11@yahoo.com.br

msn pedro31759@hotmail.com

Link to comment
Share on other sites

1-)como eu faco para colocar um bmp no botao como definir isto?

2-)Pocha aqui tem toolbar ninguem me falou nada!!!

3-)So falta criar o meu primeiro menu ?

Tem ate status bar como vou aprender a fazer isto deve ser dificil ?

Ja sao 21hs hoje eu nao durmo!!!!

4-)Alguem sabe dizer o exe que vou enviar ao cliente, precisa ir com alguma dll ??

5-)O set clipper=F200 tem que colocar no config.nt do meu cliente?

pedro

alceu11@yahoo.com.br

msn pedro31759@hotmail.com

Link to comment
Share on other sites

Ricardo Marques

Bom dia

Por que a sua versao do Vrm Union Trial so vale pro 10 dias

Qto custa a versao Original sem prazo de validade?

Porque VrMM 02a de 2004 nao foi mais atualizada, estou falando pq depois que faco alteracoes, ele nao grava no formulario coloque o botao salvar, e fiz a rotina salvar, excluir, e o replace no salvar, e vou la salvo, e nao grava,

Voce pode verificar sem tem uma versao substituta da VrMM 02a, te agradeco desde ja pela sua atitude. de nos auxiliar aos Novatos aqui que estao iniciando.

Entendi set date fran, so nao entendi set epo 1950, pois se estamos em 2000, nao seria set epo 2000

Mais uma pergunta como eu baixo a atualizacao da VRMM 02A, tem como mandar para o email alceu11@yahoo.com.br

O valid como devo fazer por exemplo valid !empty(wnome)

para nao pular o campo enquanto nao estiver vazio.

e depois de preenchido, tem como dar um dbseek para ver se nao esta vazio?

NO aguardo

Pelo visto hoje eu nao durmo de novo

pedro

alceu11@yahoo.com.br

msn pedro31759@hotmail.com

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...