Como incrementar um número de um DBEdit
Olá pessoal
Possuo uma base de dados (ADO/Access) com os campos, na seguinte ordem de foco:
-OP [8]
-DV [1]
-NOME [50]
...e preciso que ao incluir um novo registro (DBNavigator), o campo OP seja automaticamente incrementado, passe o foco para o campo NOME e calcule o dígito verificador pelo MOD 11 no campo DV.
Obs.: O campo NOME deve sempre ser iniciado com 21.....
Ex.: [b:ee5c3333af]21[/b:ee5c3333af]30522
[b:ee5c3333af]21[/b:ee5c3333af]30523...
Como posso proceder?
Desde já agradeço.
Possuo uma base de dados (ADO/Access) com os campos, na seguinte ordem de foco:
-OP [8]
-DV [1]
-NOME [50]
...e preciso que ao incluir um novo registro (DBNavigator), o campo OP seja automaticamente incrementado, passe o foco para o campo NOME e calcule o dígito verificador pelo MOD 11 no campo DV.
Obs.: O campo NOME deve sempre ser iniciado com 21.....
Ex.: [b:ee5c3333af]21[/b:ee5c3333af]30522
[b:ee5c3333af]21[/b:ee5c3333af]30523...
Como posso proceder?
Desde já agradeço.
Vega.x
Curtidas 0
Respostas
Anonymous
20/02/2003
Ola, vc pode usar desta forma
if tabela.empty then dbedit.text := ´2100000´;
if not tabela.empty then tabela.last;
if not tabela.empty then dbedit.text := IntToStr(Val( Tabela.FildByName( ´codigo´ ).AsString ) + 1);
ok...
if tabela.empty then dbedit.text := ´2100000´;
if not tabela.empty then tabela.last;
if not tabela.empty then dbedit.text := IntToStr(Val( Tabela.FildByName( ´codigo´ ).AsString ) + 1);
ok...
GOSTEI 0