Clipper On Line • Ver Tópico - Tela de Filtro para pesquisas

Tela de Filtro para pesquisas

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

Moderador: Moderadores

Postar uma resposta
 

Tela de Filtro para pesquisas

Mensagempor jc » 24 Jan 2007 17:19

Olá Pessoal!
Estou com a seguinte dúvida:

Como criar uma tela de filtro de pesquisa onde possa acrescentar N campos pra realizar a pesquisa. Sem que isso fique preso a uma dialog.

Algo como montar a tela em tempo de execução!!!

Obrigado!
Júlio César M. Ferreira
Diretor de Tecnologia
RS Consultores Ltda.
Fone: (81) 4009.5444
Fax: (81) 4009.5400

E-mail: julio.mferreira@gmail.com
MSN: julio_mferreira@hotmail.com

Recife - PE
FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113
jc
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 16
Data de registro: 13 Dez 2006 16:23
Cidade/Estado: Recife - PE
Curtiu: 0 vez
Mens.Curtidas: 0 vez
Voltar ao topo

Mensagempor rochinha » 25 Jan 2007 12:23

Amiguinho

Compile e teste:

test4.rc 
/****************************************************************************

test.rc

produced by Borland Resource Workshop

*****************************************************************************/

1201 BITMAP 
{
 '42 4D 36 04 00 00 00 00 00 00 76 00 00 00 28 00'
 '00 00 50 00 00 00 18 00 00 00 01 00 04 00 00 00'
 '00 00 C0 03 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80'
 '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80'
 '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF'
 '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF'
 '00 00 FF FF FF 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 F8 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 80 F7 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 74 47 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 42 24 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 74 22 22 47 77 77 77 77 77 70 00 00 00 77 77'
 '77 77 77 77 70 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 42 22 22 24 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 70 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '74 22 2A 22 22 47 77 77 77 77 70 77 77 70 77 00'
 '07 77 00 07 70 00 07 77 07 70 00 07 07 77 77 77'
 '77 77 77 77 77 80 F7 77 72 22 A7 A2 22 47 77 77'
 '77 77 70 77 77 70 70 77 70 70 77 70 70 77 70 70'
 '77 07 77 07 07 77 77 77 77 77 77 77 77 80 F7 77'
 '7A 2A 77 7A 22 24 77 77 77 77 77 00 00 07 70 77'
 '77 70 77 77 70 77 70 70 77 07 77 07 07 77 77 77'
 '77 77 77 77 77 80 F7 77 77 A7 77 77 A2 22 47 77'
 '77 77 77 07 77 07 70 77 77 70 00 00 70 77 70 70'
 '77 70 00 07 07 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 7A 22 24 77 77 77 77 07 77 07 70 77'
 '70 70 77 70 70 77 70 70 77 77 77 07 07 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 A2 22 47'
 '77 77 77 70 70 77 77 00 07 77 00 07 70 00 07 70'
 '07 70 00 77 00 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 77 7A 22 24 77 77 77 70 70 77 77 77'
 '77 77 77 77 77 77 77 70 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 77 A2 22'
 '47 77 77 77 07 77 77 77 77 77 77 77 77 77 77 70'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 77 77 7A 22 47 77 77 77 07 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 77 77 A2'
 '27 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 77 77 77 7A 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 FF FF'
 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
 'FF FF FF FF FF F0'
}

1202 BITMAP 
{
 '42 4D 36 04 00 00 00 00 00 00 76 00 00 00 28 00'
 '00 00 50 00 00 00 18 00 00 00 01 00 04 00 00 00'
 '00 00 C0 03 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80'
 '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80'
 '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF'
 '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF'
 '00 00 FF FF FF 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 F8 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 80 F7 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 88 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 79 11 87 77 77 98 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '79 11 18 77 79 11 87 77 77 77 00 00 00 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 79 11 11 87 91 11 18 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 91 11 18 11 11 18 77 77 77 70 00 07 77 00 00'
 '70 77 70 77 00 07 77 00 07 70 77 00 00 70 77 77'
 '77 77 77 77 77 80 F7 77 77 79 11 11 11 11 87 77'
 '77 77 07 77 70 70 77 70 70 77 70 70 77 70 70 77'
 '70 70 70 77 70 70 77 77 77 77 77 77 77 80 F7 77'
 '77 77 91 11 11 18 77 77 77 77 07 77 77 70 77 70'
 '70 77 70 70 77 77 70 77 77 70 70 77 70 70 77 77'
 '77 77 77 77 77 80 F7 77 77 77 71 11 11 87 77 77'
 '77 77 07 77 77 77 00 00 70 77 70 70 77 77 70 00'
 '00 70 77 00 00 70 77 77 77 77 77 77 77 80 F7 77'
 '77 77 79 11 11 87 77 77 77 77 07 77 77 77 77 70'
 '70 07 70 70 77 70 70 77 70 70 77 77 70 70 77 77'
 '77 77 77 77 77 80 F7 77 77 77 91 11 11 87 77 77'
 '77 77 07 77 77 77 00 07 70 70 07 77 00 07 77 00'
 '07 70 77 00 07 70 07 77 77 77 77 77 77 80 F7 77'
 '77 79 11 18 11 18 77 77 77 77 07 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 70 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 91 11 87 91 11 87 77'
 '77 77 07 77 70 77 77 77 77 77 77 77 77 77 77 77'
 '77 70 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 91 18 77 79 11 18 77 77 77 70 00 07 77 77 77'
 '77 77 77 77 77 77 77 77 77 70 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 79 17 77 77 91 11 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 77 79 19 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 F7 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 80 F7 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 80 FF FF'
 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
 'FF FF FF FF FF F0'
}

3201 BITMAP 
{
 '42 4D 36 04 00 00 00 00 00 00 76 00 00 00 28 00'
 '00 00 50 00 00 00 18 00 00 00 01 00 04 00 00 00'
 '00 00 C0 03 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80'
 '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80'
 '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF'
 '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF'
 '00 00 FF FF FF 00 FF FF FF FF FF FF FF FF FF FF'
 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF 08 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 44 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 74 22 47 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 42 22 24 77 77 77'
 '77 77 77 00 00 00 07 77 77 77 77 77 77 07 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 74 22 22 22 47 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 07 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 42 22 A2 22 24 77 77'
 '77 77 77 07 77 77 07 70 00 77 70 00 77 00 00 77'
 '70 77 00 00 70 77 77 77 77 77 77 77 77 7F 08 77'
 '77 22 2A 7A 22 24 77 77 77 77 77 07 77 77 07 07'
 '77 07 07 77 07 07 77 07 07 70 77 70 70 77 77 77'
 '77 77 77 77 77 7F 08 77 77 A2 A7 77 A2 22 47 77'
 '77 77 77 70 00 00 77 07 77 77 07 77 77 07 77 07'
 '07 70 77 70 70 77 77 77 77 77 77 77 77 7F 08 77'
 '77 7A 77 77 7A 22 24 77 77 77 77 70 77 70 77 07'
 '77 77 00 00 07 07 77 07 07 77 00 00 70 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 A2 22 47'
 '77 77 77 70 77 70 77 07 77 07 07 77 07 07 77 07'
 '07 77 77 70 70 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 7A 22 24 77 77 77 77 07 07 77 70'
 '00 77 70 00 77 00 00 77 00 77 00 07 70 07 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 77 A2 22'
 '47 77 77 77 07 07 77 77 77 77 77 77 77 77 77 77'
 '07 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 77 7A 22 24 77 77 77 70 77 77 77'
 '77 77 77 77 77 77 77 77 07 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 77 77 A2'
 '24 77 77 77 70 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 77 77 7A 22 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 77 77 77'
 'A7 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 8F 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 0F'
}

3202 BITMAP 
{
 '42 4D 36 04 00 00 00 00 00 00 76 00 00 00 28 00'
 '00 00 50 00 00 00 18 00 00 00 01 00 04 00 00 00'
 '00 00 C0 03 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80'
 '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80'
 '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF'
 '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF'
 '00 00 FF FF FF 00 FF FF FF FF FF FF FF FF FF FF'
 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF 08 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 78 87 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 91 18 77 77 79 87 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 91 11 87 77 91 18 77'
 '77 77 70 00 00 07 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 91 11 18 79 11 11 87 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 79 11 11 81 11 11 87'
 '77 77 77 00 00 77 70 00 07 07 77 07 70 00 77 70'
 '00 77 07 70 00 07 07 77 77 77 77 77 77 7F 08 77'
 '77 77 91 11 11 11 18 77 77 77 70 77 77 07 07 77'
 '07 07 77 07 07 77 07 07 77 07 07 07 77 07 07 77'
 '77 77 77 77 77 7F 08 77 77 77 79 11 11 11 87 77'
 '77 77 70 77 77 77 07 77 07 07 77 07 07 77 77 07'
 '77 77 07 07 77 07 07 77 77 77 77 77 77 7F 08 77'
 '77 77 77 11 11 18 77 77 77 77 70 77 77 77 70 00'
 '07 07 77 07 07 77 77 00 00 07 07 70 00 07 07 77'
 '77 77 77 77 77 7F 08 77 77 77 77 91 11 18 77 77'
 '77 77 70 77 77 77 77 77 07 00 77 07 07 77 07 07'
 '77 07 07 77 77 07 07 77 77 77 77 77 77 7F 08 77'
 '77 77 79 11 11 18 77 77 77 77 70 77 77 77 70 00'
 '77 07 00 77 70 00 77 70 00 77 07 70 00 77 00 77'
 '77 77 77 77 77 7F 08 77 77 77 91 11 81 11 87 77'
 '77 77 70 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 07 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 79 11 18 79 11 18 77 77 77 70 77 77 07 77 77'
 '77 77 77 77 77 77 77 77 77 77 07 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 79 11 87 77 91 11 87'
 '77 77 77 00 00 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 07 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 91 77 77 79 11 17 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 77 91 97'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 7F 08 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77'
 '77 77 77 77 77 7F 08 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 8F 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 0F'
}

DLG_LISTA DIALOG 6, 9, 202, 212
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "<titulo>"
FONT 8, "Tahoma"
{
 CONTROL "", 102, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 5, 31, 193, 129
 GROUPBOX "", -1, 5, 163, 195, 22, BS_GROUPBOX
 LTEXT "Registro:", -1, 11, 171, 31, 11
 LTEXT "xxxx/xxxx", 103, 42, 171, 49, 8
 LTEXT "Buscando:", -1, 100, 171, 35, 11
 LTEXT "<buffer>", 104, 135, 171, 55, 8
 CONTROL "&A", 201, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 35, 190, 55, 16
 CONTROL "&C", 202, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 111, 190, 55, 16
}

DLG_TEST DIALOG 94, 109, 200, 55
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "<titulo>"
FONT 8, "Tahoma"
{
 GROUPBOX "", -1, 3, 1, 193, 32, BS_GROUPBOX
 LTEXT "Codigo:", -1, 11, 14, 35, 8
 EDITTEXT 101, 51, 12, 49, 12
 CONTROL "", 102, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 101, 11, 14, 14
 CONTROL "", 201, "BorBtn", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 18, 36, 55, 16
 CONTROL "", 202, "BorBtn", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 126, 36, 55, 16
}

dlg_lista_info DIALOG 6, 15, 204, 47
STYLE 0x4L | WS_CHILD | WS_VISIBLE
FONT 8, "tAHOMA"
{
 GROUPBOX "", -1, 5, 3, 195, 22, BS_GROUPBOX
 LTEXT "Registro:", -1, 11, 11, 31, 11
 LTEXT "xxxx/xxxx", 103, 42, 11, 49, 8
 LTEXT "Buscando:", -1, 100, 11, 35, 11
 LTEXT "<buffer>", 104, 135, 11, 55, 8
 CONTROL "&A", 201, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 35, 30, 55, 16
 CONTROL "&C", 202, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 111, 30, 55, 16
}


Test4.prg
#include "fivewin.ch"
external dbfcdx

// Sample by Carlos Vargas

function main()
    local hBwcc:=LoadLibrary("bwcc.dll")
    private cCodigo := space(7)
    rddsetdefault( "DBFCDX" )

    use cuentas alias TEST
    index on codcta tag codigo
    index on nombre tag nombre
    ordsetfocus("codigo")

    define dialog odlg name "DLG_TEST" title "Pruba de DBSearch()"

        redefine get cCodigo;
            id 101 of odlg;
            update

        redefine btnbmp;
            id 102 of odlg;
            action ( TEST->( DBSearch( "Catalogo de cuentas",; //Titulo
                {||{ TEST->codcta, TEST->nombre } },;          //Campos
                 {"Codigo"       ,"Nombre"},;                  //Headers
                {{"Codigo cuenta","Nombre Cuenta"},;           //Array Index "campos"
                 {"codigo"       ,"nombre"}} ) ),;             //            "Titulos"
                cCodigo := TEST->codcta,;
                odlg:update() )
    redefine button id 201 of odlg action odlg:end()
    redefine button id 202 of odlg action odlg:end() cancel

    activate dialog odlg center

    close all
    FreeLibrary(hBwcc)
return

//============================================================================//

#define TRUE  .t.
#define FALSE .f.

FUNCTION DBSearch( cTitle, aFields, aHeaders, aOrders, oWnd )
    PRIVATE oDlgS ,;
            oBrw  ,;
            oCombo,;
            oSayRec,;
            oSaySeek,;
            cOldOrder := ordsetfocus(),;
            lOk       := FALSE,;            
            nOrden := 1
    
    DEFAULT oWnd := GetWndDefault()

    //salta al inicio de la tabla    
    dbgotop()

    //define dialogo
    DEFINE DIALOG oDlgS NAME "DLG_LISTA";
         TITLE cTitle;
         OF oWnd
   
    REDEFINE LISTBOX oBrw ;
        FIELDS;
        ID 102;
        OF oDlgS;
        UPDATE;
        ON DBLCLICK ( lOk:=TRUE, oDlgS:end() );
        ON CHANGE ShowPos( recno(), ordkeycount(), oSayRec)

        oBrw:Set3DStyle()
        oBrw:nHeaderHeight := 18
        oBrw:nLineHeight   := 15
        oBrw:cAlias        := alias()
        oBrw:bLine         := aFields
        oBrw:aHeaders      := aHeaders
        oBrw:aJustify      := {2,0}
        oBrw:bSeek         := {|lRet| oBrw:DbfSeek( .F. ,{|| Tone(500,3) }) }
        oBrw:bUpdateBuffer := {|| UpdateBuffer( oSaySeek, oBrw:cBuffer ) }

    REDEFINE SAY oSayRec ;
        ID 103 OF oDlgS COLOR CLR_BLUE

    REDEFINE SAY oSaySeek PROMPT "" ;
        ID 104 OF oDlgS COLOR CLR_BLUE

    REDEFINE BUTTON ;
        ID 201      ;
        OF oDlgS     ;
        ACTION ( lOk := TRUE, oDlgS:end() )

    REDEFINE BUTTON ;
        ID 202      ;
        OF oDlgS    ;
        ACTION ( lOk := FALSE, oDlgS:end() )    
    
    ACTIVATE DIALOG oDlgS ;
        CENTER ;
        ON INIT ( ToolBar(aOrders)  ,;
                  oBrw:nHeight -= 85 )

    ordsetfocus( cOldOrder )

RETURN ( lOk )

STATIC PROCEDURE ToolBar(aOrders)
    LOCAL oToolBar

    //define la barra de herramientas con el combobox de tag's
    DEFINE BUTTONBAR oToolBar OF oDlgS SIZE 30,30 3D

        @ 5, oToolBar:GetBtnLeft() + 3;
             COMBOBOX oCombo VAR nOrden ;
             ITEMS aOrders[1];
             SIZE oDlgs:nWidth - 25, 200;
             OF oToolBar PIXEL FONT oDlgS:oFont;
             ON CHANGE ( ordsetfocus( aOrders[2, nOrden ] ),;
                         oBrw:refresh(TRUE),;
                         oBrw:setfocus(), Tone(650,3) )

    oDlgS:SetControl(oBrw)

RETURN

STATIC PROCEDURE ShowPos(nActual, nTotal, oSay)
    oSay:SetText( alltrim( str(nActual) )+"/"+alltrim(str(nTotal)) )
    oSay:refresh()
RETURN

STATIC FUNCTION UpdateBuffer( oSay, cBuffer )
    LOCAL cMsg
    IF len( cBuffer ) > 0
        cMsg := cBuffer
    ELSE
        cMsg := ""
    ENDIF
    oSay:SetText(cMsg)
    RETURN Nil

STATIC FUNCTION tooltip( oSay, cBuffer )
RETURN Nil


Voce precisara de um .DBF de nome CUENTAS com os campos CODCTA(Char,6), NOMBRE(char,40) e prenche-lo.

Analise o codigo e tera sua soluçã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: 4548
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 808 vezes
Mens.Curtidas: 246 vezes
Voltar ao topo
Postar uma resposta


Retornar para FiveWin

Quem está online

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

Mudar para estilo Celular

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
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido por phpBB Brasil
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro
Conversão Sistema Clipper para Harbour - Você tem um programa desenvolvido em Clipper e quer atualizar ele para executar em versões mais recentes do Windows (7, 8, 10, etc)? Então o melhor caminho é converter seu programa Clipper para Harbour. Clique aqui para mais detalhes.