Jump to content

DOUGLASAP

Members
  • Content count

    57
  • Joined

  • Last visited

Community Reputation

0 Comum

About DOUGLASAP

  1. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Olá amigo, Estou tentando fazer em minha aplicação. Logo mais posto o resultado, sendo positivo ou duvidas. Obrigado a todos
  2. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Amigos, Desculpe, mas não entendi. obrigado
  3. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Ola amigo Samuca_2010 Sim, a tabela que utilizo para cadastro é a mesma que utilizo para consulta, o que estou precisando é não deixar que o usuário cadastre o mesmo item novamente. Mesmo assim é necessário criar uma tabela de consulta ? Sendo assim, preciso pedir que salve os dados em 2 (duas) tabelas ? DataModule2.ADOtable_consulta_equipamento e DataModule2.ADOTable_cad_equipamento ? Isso ficaria no mesmo button_inserir ? Obrigado pela atenção
  4. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Olá Amigo Mandei novamente Obrigado
  5. DOUGLASAP

    Verificar se nome ja esta cadastrado

    ja mandei meu projeto, veja se recebeu ? até
  6. DOUGLASAP

    Verificar se nome ja esta cadastrado

    segue link da imagem do meu form http://www.brimages.com.br/images/764form.jpeg.png até a próxima
  7. DOUGLASAP

    Verificar se nome ja esta cadastrado

    ola amigo, ainda não consegui solucionar estou tentando, minha pergunta do post anterior foi justamente para que quando conseguisse resolver um iria partir para o outro sem essa dúvida que estou.
  8. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Amigo, Me ajuda um uma coisa tenho tabela1 ; tabela2 ; tabela3 Preciso realizar apenas consulta e talvez imprimir os dados de alguns campos de cada tabela por exemplo tabela1 Data | Nome | Setor Tabela2 Hora_f | Hora_p | Hora_u | Hora_total Tabela3 titulo | quantiade | peso * Lembrando que cada tabela faz parte de form diferente Tabela1 esta no form1 | Tabela2 esta no form2 | tabela3 esto no form3 Como posso realizar apenas Consulta e/ou talvez Imprimir os seguintes dados por exemplo tabela1 | tabela2 | tabela3 | Nome | Setor | Hora_total | titulo | quantiade | peso idéia é a seuguinte Digitar o numero de contrato e atravez dessa consulta ele me traz as infomações referente ao contrato pegar alguns dados de cada tabela. Preciso criar uma outra tabela para consultar, e quando mandar salvar nas tabelas, ele salvaria na tabela atual e na tabela_consulta ao mesmo tempo ? Obrigado Amigo Espero ter explicado direito que eu quero . . . rsrsr Obrigado
  9. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Bom Dia Amigo Da forma em que me passou só funciona se em der um Tab e ir para outro componente. Mas na verdade nesse form específico eu só tenho um Edit, teoricamente o usuário digitará na Edit e Clicar em Salvar direto. No meu entendimento o código teria que estar no Button salvar. Não consegui resolver ainda. . . . Obrigado amigo
  10. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Ola Amigo No botão novo utilizo DataModule2.ADOTable_cad_equipamento.Insert; No botão salvar if DataModule2.ADOTable_cad_equipamento.Locate( 'EQUIPAMENTOS', DBEdit1.Text, [loCaseInsensitive]) then Begin showmessage ('Equipamento ja cadastrado'); DataModule2.ADOTable_cad_funcionario.Cancel; end else begin DataModule2.ADOTable_cad_equipamento.Post; end; Amigo pelo fato de eu estar utilizando SpeedButton tem algum problema ?? Obrigado
  11. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Ola Amigo, compreendi perfeitamente Com sua experiencia qual a melhor maneira de incluir dado ? Utilizo tabela.post; Obrigado
  12. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Olá Amigo, O que estou fazendo é exatamente isso 1º - Verificando se o equipamento esta cadastrado, caso não esteja ele salva o dado. Coloquei o código no botão salvar. Meu código ficou desda maneira. procedure Tcad_equipamento.SpeedButton2Click(Sender: TObject); begin if DataModule2.ADOTable_cad_equipamento.Locate( 'EQUIPAMENTOS', DBEdit1.Text, [loCaseInsensitive]) then Begin showmessage ('Equipamento ja cadastrado'); DataModule2.ADOTable_cad_funcionario.Cancel; abort; end else begin DataModule2.ADOTable_cad_equipamento.Post; end; DBEdit1.Text := ''; end; Acontece que tendo o dado cadastrado ou não ele mostra a mensagem de ''Equipamento ja Cadastrado" e salva o dado, tendo o equipamento cadastrado ou não. Pela lógica IF THEN ELSE SE (for verdade) faça isso Como lhe disse amigo, sou novo em delphi. Estou cursando 2 ano de sistema de informação. Irei começar e ver delphi agora, antes estava vendo pascal que sei que é a base do delphi. Através de suas dicas consegui a fazer muitas coisas. Não estou copiando e colando. E sim o que quero é aprender a usar os comandos . . . amigo desculpe postei sem concluir meu raciocínio Pela lógica IF THEN ELSE SE (for verdade) faça isso caso contrário faça isso O que não estou conseguindo entender é o seguinte Estou dizendo para ele verificar o dado existe na minha tabela se existir ele mostra mensagem dizendo que já existe. se não salva o dado. Obrigado pela atenção amigo
  13. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Ola Amigo codigo ficou assim if DataModule2.ADOTable_cad_equipamento.Locate( 'EQUIPAMENTO', DBEdit1.Text, [loCaseInsensitive]) then Begin showmessage ('Equipamento ja cadastrado'); Abort; end else begin DataModule2.ADOTable_cad_equipamento.Post; end; DBEdit1.Text := ''; end; mas ainda continua a mesma coisa. Ele mostra a mensagem dizendo que ja foi cadastrado e cadastra mesmo assim. obrigado
  14. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Ola amigo O quero q ele faça é se o equipamento estiver cadastrado, ele nao deixe realizar o cadastro para nao ficar com 2 cadastros iguais. Quando salvo, ele gera a mensagem de ''equipamento ja cadastro'' e mesmo faz o cadastro novamente. Meu codigo ficou assim : if DataModule2.ADOTable_cad_equipamento.Locate( 'EQUIPAMENTO', DBEdit1.Text, [loCaseInsensitive] ) then Begin showmessage ('Equipamento ja cadastrado'); end else begin DataModule2.ADOTable_cad_equipamento.Post; end; obrigado amigo
  15. DOUGLASAP

    Verificar se nome ja esta cadastrado

    Ola Amigo minha unit esta da seguinte forma unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Grids, DBGrids, StdCtrls, Mask, DBCtrls; até
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.