Página 1 de 1
link
Enviado: 05 Out 2007 09:12
por mclpaltrin
Prezados.
Gostaria de uma informação.
- Tenho menu com algumas opções que esta(menu.prg).
-Como faço para "CHAMAR" meu formulário de cadastro de cliente que esta em (incluir.prg)que seria outro (.prg)
- EM HARBOUR
Grato
Enviado: 05 Out 2007 09:18
por Itamar M. Lins Jr.
Posta um pedaço do codigo "please"
Entretanto:
2 arquivos(prg)
Código: Selecionar todos
function main //arquivo principal
@ x,y prompt 'incluir'
@ x,y prompt 'Alterar'
menu to opcao
do case
case opcao =1
incluir()
endcase
function incluir //arquivo secundario
link
Enviado: 05 Out 2007 09:48
por mclpaltrin
OP= 1
SET COLOR TO G+/W+
DO WHILE .T.
CLEAR SCREEN
SET WRAP ON
@ 10,17 PROMPT " 1. CADASTRADAMENTO "
@ 11,17 PROMPT " 2. CONSULTA "
@ 12,17 PROMPT " 3. ALETERACAO "
@ 13,17 PROMPT " 4. EXCLUSAO "
@ 14,17 PROMPT " 5. RELATORIO "
@ 15,17 PROMPT " 6. FIM DO PROGRAMA "
MENU TO OP
DO CASE
CASE OP=1
// chama o programa que incluir dados
CASE OP=2
// chama o progrma que consulta
CASE OP=3
// alteracao
CASE OP=4
// exclusao
CASE OP=5
// relatorio
CASE OP=6
CLEAR SCREEN
QUIT
ENDCASE
ENDDO
Re: link
Enviado: 05 Out 2007 10:01
por Itamar M. Lins Jr.
Código: Selecionar todos
OP= 1
SET COLOR TO G+/W+
DO WHILE .T.
CLEAR SCREEN
SET WRAP ON
@ 10,17 PROMPT " 1. CADASTRADAMENTO "
@ 11,17 PROMPT " 2. CONSULTA "
@ 12,17 PROMPT " 3. ALETERACAO "
@ 13,17 PROMPT " 4. EXCLUSAO "
@ 14,17 PROMPT " 5. RELATORIO "
@ 15,17 PROMPT " 6. FIM DO PROGRAMA "
MENU TO OP
DO CASE
CASE OP=1
// chama o programa que incluir dados
CASE OP=2
// chama o progrma que consulta
CASE OP=3
// alteracao
CASE OP=4
// exclusao
CASE OP=5
// relatorio
CASE OP=6
CLEAR SCREEN
QUIT
ENDCASE
ENDDO
Então seguindo seu código é só colocar a função oras!!
Onde tem // incluir
Mude para:
Incluir()
e assim sucessivamente.
Se esta usando o hbmake, adicione o outro arquivo para ser linkado junto.
Saudações
Itamar M. Lins Jr.
Enviado: 05 Out 2007 15:18
por sygecom
Completando, no inicio do PRG que tmb. esta a função tem que ter um FUNCTION NOMEDAFUNCAO