Ir para conteúdo
Fórum Script Brasil
  • 0

Campo Codigo Contador


Eder

Pergunta

Ola..pessoal

eu sempre usava no paradox o campo codigo contador da tabela autoincremento...sempre usei.... e os programas funcionavam na rede sem problemas com várias pessoas usando sem problemas..

agora fiz uma tela de lançamentos e mudei deixando de usar o autoincremento e usando um contador do tipo Integer....

assim no botão de NOVO REGISTRO:

procedure TFormCVisita.XiButton1Click(Sender: TObject);

var

proxnum: integer; // variavel para inserir um proximo numero

begin

if application.messagebox('Deseja Incluir um Novo Registro?','Aviso',36)=idYes

then

begin

table1.Last;

ProxNum:= table1.fieldbyName('CODIGO').AsInteger +1;

table1.Append;

table1.FieldByName('CODIGO').AsInteger :=ProxNum;

EditData.SETFOCUS;

//EditCnpj.text:=''; // DEPOIS DE INSERIDO ESTE SERÁ O CAMPO DO FOCO

end else

table1.cancel; //CANCELA OPERAÇÃO

end;

nO botão de gravar assim:

table1.Post;

é um programinha simples de lançamentos de controle de visitas de vendedores...mas preciso que ele seja multiusuario.....e agora duas pessoas foram usar e deu erro de

KEY VIOLATION

alguém poderia me dizer como resolver esta Pepa??

muito Grato

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Ola..pessoal

eu sempre usava no paradox o campo codigo contador da tabela autoincremento...sempre usei.... e os programas funcionavam na rede sem problemas com várias pessoas usando sem problemas..

agora fiz uma tela de lançamentos e mudei deixando de usar o autoincremento e usando um contador do tipo Integer....

assim no botão de NOVO REGISTRO:

procedure TFormCVisita.XiButton1Click(Sender: TObject);

var

proxnum: integer; // variavel para inserir um proximo numero

begin

if application.messagebox('Deseja Incluir um Novo Registro?','Aviso',36)=idYes

then

begin

table1.Last;

ProxNum:= table1.fieldbyName('CODIGO').AsInteger +1;

table1.Append;

table1.FieldByName('CODIGO').AsInteger :=ProxNum;

EditData.SETFOCUS;

//EditCnpj.text:=''; // DEPOIS DE INSERIDO ESTE SERÁ O CAMPO DO FOCO

end else

table1.cancel; //CANCELA OPERAÇÃO

end;

nO botão de gravar assim:

table1.Post;
é um programinha simples de lançamentos de controle de visitas de vendedores...mas preciso que ele seja multiusuario.....e agora duas pessoas foram usar e deu erro de
KEY VIOLATION

alguém poderia me dizer como resolver esta Pepa??

Eder, vale a dica deste outro post.

Abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...