RSS

AUTO INCREMENTO – BANCO DE DADOS

29 nov
 

qryconte.sql.add:= (‘select max (cod_cliente) from cad’);

No evento beforepost da table coloque

procedure TFormCadPedidos.tblpedidoBeforePost(DataSet: TDataSet);
begin
If tblpedido.State = dsInsert then
begin
    qryConte.Active := False;
    qryConte.Active := True;
    With qryConte.Fields[0] do
    if IsNull then
      tblpedidoCOD_PEDIDO.Value :=1
    else
      tblpedidoCOD_PEDIDO.Value := AsInteger +1;
    end;
end

Anúncios
 
Deixe um comentário

Publicado por em 29/11/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: