Jump to content
Fivewin Brasil

Folder


luccanevari

Recommended Posts

Bom dia a todos!

Estou começando a desenvolver um sistema utilizando 'Folder', que será a janela principal, olhei em alguns exemplos simples que vem no fivewin e vi que para criar o folder colocamos uma window ou um dialog. Gostaria de saber qual a melhor maneira de criar?

Obrigada

Luciane

luccanevari@ig.com.br

Clipper 5.3 / Fivewin 2.4/ Blinker 7.0

Link to comment
Share on other sites

Bom dia a todos!

Estou começando a desenvolver um sistema utilizando 'Folder', que será a janela principal, olhei em alguns exemplos simples que vem no fivewin e vi que para criar o folder colocamos uma window ou um dialog. Gostaria de saber qual a melhor maneira de criar?

Obrigada

Luciane

luccanevari@ig.com.br

Clipper 5.3 / Fivewin 2.4/ Blinker 7.0

Link to comment
Share on other sites

Bom dia a todos!

Estou começando a desenvolver um sistema utilizando 'Folder', que será a janela principal, olhei em alguns exemplos simples que vem no fivewin e vi que para criar o folder colocamos uma window ou um dialog. Gostaria de saber qual a melhor maneira de criar?

Obrigada

Luciane

luccanevari@ig.com.br

Clipper 5.3 / Fivewin 2.4/ Blinker 7.0

Link to comment
Share on other sites

Luciane

Utilizo em meus sistema de atendimento médico e recursos humanos da seguinte forma.

Faço uma Dialog com o nome qualquer prefiro definir como Folder para não esquecer.

Depois criei varias janelas Window Style para que fossem usadas no folder.

Exemplo: Fld_... Fld_... Fld_... Fld... (Dando nomes sugestivos para não ficar mais maluco do que sou)

Segue abaixo um exemplo que eu já utilizo, espero que tenha dado uma idéia a vc. - Atenção este exemplo q coloquei é apos o browse com banco de dados.

Tc

Oziel Lopes

oziellsilva@hotmail.com

oziellsilva@click21.com.br

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

FUNCTION GetAtende(lAppend)

LOCAL oDlg, oFnt // Objetos Caixa de Dialogo

LOCAL lGravar := .F. // Para Alterar

DEFAULT lAppend := .F.

CursorWait()

IF lAppend

Select Numcod

SET ORDER TO 1

cNumCod := NumCod->NumAte+1

cCodigo = str(cNumCod,6)

Select Atende

SET ORDER TO 1

GO BOTT

Skip 1

ELSE

cCodigo := Atende->Codigo

ENDIF

If Travareg()

cNome = Atende->Nome

cSexo = Atende->Sexo

cEndereco = Atende->Endereco

cCep = Atende->Cep

cBairro = Atende->Bairro

cCidade = Atende->Cidade

....

....

Endif

// Caixa de Dialogo ----------------------------------------------------

DEFINE FONT oFnt NAME "Arial" SIZE 0,-10

DEFINE DIALOG oDlg RESOURCE "FOLDER_ATENDE" TITLE "ATENDIMENTO"

REDEFINE FOLDER oFld ID 101 OF oDlg ;

PROMPT "Cadastro de Atendimentos","Anamnese 1 ","Anamnese 2 ","A. S. O." ;

DIALOGS "FLD_ATENDE","FLD_ANAMNESE1","FLD_ANAMNESE2","FLD_ASO" // janela de cada aba do folder.

//--- Folder aba 1 --

REDEFINE CHECKBOX Atende->Demis ID 101 OF oFld:aDialogs[ 1 ]

REDEFINE CHECKBOX Atende->Admis ID 102 OF oFld:aDialogs[ 1 ]

REDEFINE CHECKBOX Atende->Perio ID 103 OF oFld:aDialogs[ 1 ]

//--- Folder aba 2 --

REDEFINE CHECKBOX Atende->Demis ID 101 OF oFld:aDialogs[ 2 ]

REDEFINE CHECKBOX Atende->Admis ID 102 OF oFld:aDialogs[ 2 ]

REDEFINE CHECKBOX Atende->Perio ID 103 OF oFld:aDialogs[ 2 ]

//---Folder aba 3 --

REDEFINE GET Atende->OutrasD Memo ID 155 OF oFld:aDialogs[ 3 ] FONT oFnt

REDEFINE GET Atende->ExameCli Memo ID 156 OF oFld:aDialogs[ 3 ] FONT oFnt

REDEFINE GET Atende->ExameCom Memo ID 157 OF oFld:aDialogs[ 3 ] FONT oFnt

// ----- Folder aba 4

REDEFINE GET Atende->Nome PICTURE '@!' ID 20 OF oFld:aDialogs[ 4 ] FONT oFnt

REDEFINE GET Atende->CTPS PICTURE '@!' ID 21 OF oFld:aDialogs[ 4 ] FONT oFnt

REDEFINE GET Atende->Serie PICTURE '@!' ID 22 OF oFld:aDialogs[ 4 ] FONT oFnt

//--- Fim ---------

REDEFINE BUTTON ID 701 OF oDlg ACTION(Libera(), oDlg:End() )

REDEFINE BUTTON ID 702 OF oDlg ACTION(Libera(), oDlg:End() )

ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

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

Link to comment
Share on other sites

boa tarde, Luciane!!!

se vc está querendo fazer uma tela window principal e fazer a chamada do folder, pode

se vc está querendo fazer uma tela dialog principal e fazer a chamada do folder, pode

se vc quer chamar uma window, dentro colocar uma dialog e chamar o folder tb, depende da sua necessidade

mas nos tres casos funcionam

Um Grande Abraço

Alessandro F. Silva

aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say @Get

MSN: ferracini_silva@hotmail.com

Ribeirão Preto/SP

Link to comment
Share on other sites

Luciane,

se voce não precisar criar uma aplicação NÃO MODAL (onde você pode abrir varias janelas simultaneamente) o melhor seria voce criar apenas um WINDOW, que seria a janela principal da sua app e sempre que precisar abrir uma interface com usuário voce acionaria uma DIALOG ... fica mais facil e simples de controlar...

Marllon Figueiredo

Analista de Sistemas ERP/CRM

Porto Alegre - RS

siscatsoftware@hotmail.com

FWH for (x)Harbour, xMate, Clipper, MsSQL, Oracle, Postgres, MySQL, TopConnect, ADS

Versões: FWH 2.6 e 2.7 - xHarbour 0.99.4 - 0.99.60

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...