Clipper On Line • Ver Tópico - pesquisa com textbox numerico

pesquisa com textbox numerico

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

pesquisa com textbox numerico

Mensagempor kamix » 22 Fev 2006 21:36

pessoal sou novo e queria saber se alguem pode me ajudar.

estou tentando buscar um arquivo no dbf so que a pesquisa faco com um textbox numerico porque o dbf esta com o codigo em numerico mas nao acha nunca nehum codigo

tipo assim

@ 090,460 LABEL LabelCodigo VALUE "CODIGO" WIDTH 250 HEIGHT 35 FONT "ARIAL" SIZE 20 BOLD
@ 120,460 TEXTBOX TextBoxCodigo ;
VALUE "" ;
NUMERIC;
WIDTH 230 HEIGHT 50 ;
FONT "ARIAL" SIZE 30

clientes->(dbseek(form1.textboxcodigo.value))

nunca encontra nada se alguem pudem me ajudar
kamix
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 7
Data de registro: 22 Fev 2006 21:23
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor Visitante » 23 Fev 2006 17:16

Valores numericos são ideais para calculos.
Eu faço assim:
set soft on
index on idnumero tag 1 to ( basespriv) + "atletas.cdx" // Caracter (06)



@ 35 , 70 TEXTBOX Text_Numero WIDTH 120 HEIGHT 24 maxlength 06 on enter VerificApelido(CadastroAtletas.Text_Numero.Value)

Function VerificApelido(Apelido)

private Capelido := alltrim(left(Apelido , 6))
private Oalias := alias()
private Teste := len(Capelido)

&oalias->(dbgotop())
&oalias->(DbSetOrder(1))

if teste < 6
Capelido := strzero(val(Apelido),6)
CadastroAtletas.Text_Numero.value := Capelido
endif

if (Capelido =='000000')
CadastroAtletas.Text_Numero.setfocus()
Msgbox( 'Codigo ' + Capelido + ' ou Branco, não são válidos para Cadastro' )
endif

if dbseek(capelido,.t.)
CadastroAtletas.Text_Numero.setfocus()
Msgbox( 'O Atleta de numero '+Capelido+' ja esta Cadastrado!' )
endif
Visitante
 

Mensagempor Antonio » 23 Fev 2006 17:21

O ideal é usar um CAMPO tipo Caracter para isso, e ajustando Set Soft ON. Indexar pelo campo e estabecer este Campo como Indice de Ordem na Pesquisa. Eu utilizo assim:



@ 35 , 70 TEXTBOX Text_Numero WIDTH 120 HEIGHT 24 maxlength 06 on enter VerificApelido(CadastroAtletas.Text_Numero.Value)



Function VerificApelido(Apelido)

private Capelido := alltrim(left(Apelido , 6))
private Oalias := alias()
private Teste := len(Capelido)

&oalias->(dbgotop())
&oalias->(DbSetOrder(1))

if teste < 6
Capelido := strzero(val(Apelido),6)
CadastroAtletas.Text_Numero.value := Capelido
endif

if (Capelido =='000000')
CadastroAtletas.Text_Numero.setfocus()
Msgbox( 'Codigo ' + Capelido + ' ou Branco, não são válidos para Cadastro' )
endif

if dbseek(capelido,.t.)
CadastroAtletas.Text_Numero.setfocus()
Msgbox( 'O Atleta de numero '+Capelido+' ja esta Cadastrado!' )
endif
Antonio Carlos
Harbour 3.2 (20180213)
Hwgui 2.20 3b | PostGresql 9.5 | ADO/ODBC
Avatar de usuário

Antonio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 344
Data de registro: 14 Ago 2003 17:33
Cidade/Estado: Sao Paulo - SP
Curtiu: 2 vezes
Mens.Curtidas: 11 vezes




Retornar para MiniGui

Quem está online

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


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
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro