amigos me ajudassem, com da seguinte forma tenho um DBF com os seguintes campos:
1 - MEDNOME - C - 60
2 - MEDESPE - C - 60
3 - MEDLOCA - C - 25
E gostaria de fazer uma tela de cadastro assim:
Nome : [1]
Especialidade : [2]
Local : [3]
Não pensem que estou querendo tudo mastigado, é que com um exemplo prático e objetivo fica
mais fácil de entender.
"Desenhando" a tela com WS foi gerado 2 arquivos: nds.rc e nds.rh
Nota: Inclui na tela apena um campo.
ARQUIVO NDS.RC
/****************************************************************************
nds.rc
produced by Borland Resource Workshop
*****************************************************************************/
#include "nds.rh"
#include "winapi.ch"
ICON_1 ICON "sal.ico"
DIALOG_1 DIALOG 6, 15, 207, 111
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
FONT 10, "MS Sans Serif"
{
DEFPUSHBUTTON "OK", IDOK, 148, 6, 50, 14
PUSHBUTTON "Cancelar", IDCANCEL, 148, 24, 50, 14
RTEXT "Nome", -1, 3, 6, 40, 8
EDITTEXT MEDNOME, 45, 6, 98, 8
}
ARQUIVO NDS.RH
/****************************************************************************
nds.rh
produced by Borland Resource Workshop
*****************************************************************************/
#define DIALOG_1 1
#define MEDNOME 101
#define ICON_1 1
---------------- o meu PRG
Function cadmed()
#include "FiveWin.ch"
local oDlg, oLbx, oFont,mHor:=395, mVer:=235
abrmed() // abrir banco de dados
DEFINE FONT oFont NAME "Arial" SIZE 6, 20
DEFINE DIALOG ODLG FROM 1.5,0 TO 35,100 TITLE "CADASTRO DE PROFICIONAIS DE SAÚDE" FONT oFont
@ 0,0 LISTBOX oLbx FIELDS MEDICO->MEDNOME ,;
MEDICO->MEDESPE ,;
MEDICO->MEDLOCA ;
HEADERS "NOME", "ESPECIALIDADE", "LOC. ATENDIMENTO" ;
FIELDSIZES 320 , 320 , 100;
SIZE mHor,mVer
@ 09.59,01 BUTTON "&Novo" ACTION cadmed2() of oDlg SIZE 75,12
@ 09.59,14 BUTTON "&Alterar" OF oDlg SIZE 75,12
@ 09.59,27 BUTTON "&Excluir" OF oDlg SIZE 75,12
@ 09.59,40 BUTTON "Localizar n&ome" OF oDlg SIZE 75,12
@ 09.59,53 BUTTON "&Fechar janela" ACTION oDlg:End() OF oDlg SIZE 75,12
ACTIVATE DIALOG oDlg
return nil
// --------------- cadmed
static function cadmed2()
#Include "Corget.ch"
-----------> como ficaria esta função ?
Obrigado;
Vander