Fórum Opcional para Auto-incremento em Paradox #231023
09/05/2004
0
O que posso utilizar no lugar do auto-incremento?
Pode dar-me um exemplo? :oops:
{}
Andreza :)
Pode dar-me um exemplo? :oops:
{}
Andreza :)
Deza.re
Curtir tópico
+ 0
Responder
Posts
09/05/2004
Fabio.hc
Vc cria um campo na tabela tipo inteiro.
e no BeforePost vc coloca uma query para pegar o último numero e somar um.
e no BeforePost vc coloca uma query para pegar o último numero e somar um.
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
if DataSource1.State = dsinsert then
begin
Query1.Close;
Query1.SQL.Text:=´select (max(CAMPO)+1) as cod from tabela´;
Query1.Open;
Table1.FieldByName(´CAMPO´).Value:=Query1.Fieldbyname(´cod´).Value;
end;
end;
Responder
Gostei + 0
09/05/2004
Jose Luiz
COLEGA USO ASSIM..
NO ON CLICK DO BOTÃO NOVO REGISTRO.
VAR PROX:INTEGER;
BEGIN
TABLECLIENTE.LAST;
PROX:=TABLECLIENTE.FIELDBYNAME(´CODIGO´).ASINTEGER+1;
TABLECLIENTE.INSERT;
TABLECLIENTE.FIELDBYNAME(´CODIGO´).ASINTEGER:=PROX;
END;
FUNCIONA BLZ..
QUAQUER DÚVIDA..
medeiros@pontenet.com.br
Jose Luiz de Medeiros
NO ON CLICK DO BOTÃO NOVO REGISTRO.
VAR PROX:INTEGER;
BEGIN
TABLECLIENTE.LAST;
PROX:=TABLECLIENTE.FIELDBYNAME(´CODIGO´).ASINTEGER+1;
TABLECLIENTE.INSERT;
TABLECLIENTE.FIELDBYNAME(´CODIGO´).ASINTEGER:=PROX;
END;
FUNCIONA BLZ..
QUAQUER DÚVIDA..
medeiros@pontenet.com.br
Jose Luiz de Medeiros
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)