Campo codigo em um DBedit

Question

como fa�o para que o campo c�digo de cliente em um dbedit entre com numera��o automatica
Ou seja, a cada novo cliente o campo codigo gere uma numera��o automatica e n�o sobreponha uma a outra?

Jcmsistemas · Answer

[quote:471b9f08dd=�Ulisses R.L.C�]como fa�o para que o campo c�digo de cliente em um dbedit entre com numera��o automatica
Ou seja, a cada novo cliente o campo codigo gere uma numera��o automatica e n�o sobreponha uma a outra?[/quote:471b9f08dd]

Se fosse para um cadastro de clientes, veja exemplo:-

[b:471b9f08dd]procedure TFmCliente.BitBtn5Click(Sender: TObject);
var c: integer;
jam: string;
begin
dm.Cliente.Refresh;
dm.Cliente.Insert;
if dm.Cliente.RecordCount = 0 then
jam := �00001�
else
begin
dm.Cliente.IndexName := �Ind_Codigo�;
dm.Cliente.Last;
c := dm.ClienteCodigo.AsInteger + 1;
jam := formatcurr(�00000�,c);
end;
dm.ClienteCodigo.AsString := jam;
dm.Cliente.Refresh;
end;[/b:471b9f08dd]

Isabelct · Answer

Que banco de dados voc� est� utilizando? Dependendo do banco, h� algumas alternativas mais elegantes. De forma gen�rica, o que pode-se fazer � o seguinte:

function NovoCodigo(NomeTabela: string; NomeCampo: string): Integer;
begin
  QueryConsulta.Clear;
  QueryConsulta.SQL.Add(�SELECT � + NomeCampo + � + 1 AS NOVOCODIGO�);
  QueryConsulta.SQL.Add(�FROM � + NomeTabela);
  QueryConsulta.Open;
  if QueryConsulta.FieldByName(�NOVOCODIGO�).AsInteger = 0 then
    Result := 1
  else
    Result := QueryConsulta.FieldByName(�NOVOCODIGO�).AsInteger;
end;

Acho que isso resolve seu problema. Caso tenha d�vidas, manda pra c�!

Isabelct · Answer

Desculpe, me enganei no post anterior. O c�digo correto � este.

function NovoCodigo(NomeTabela: string; NomeCampo: string): Integer;
begin
  QueryConsulta.Clear;
  QueryConsulta.SQL.Add(�SELECT MAX(� + NomeCampo + �) + 1 AS NOVOCODIGO�);
  QueryConsulta.SQL.Add(�FROM � + NomeTabela);
  QueryConsulta.Open;
  if QueryConsulta.FieldByName(�NOVOCODIGO�).AsInteger = 0 then
    Result := 1
  else
    Result := QueryConsulta.FieldByName(�NOVOCODIGO�).AsInteger;
end;

F�rum Campo codigo em um DBedit #265510