Alessandro

Galera modesta, idependente quem seja admitido como novo moderador, os membros cumprem um papel muito importante sendo eles os responsáveis pela ótima estrutura de atendimento e informação aqui no forum, PARABÈNS galera....

Gostaria de saber de duas coisinhas : 1º Como eu altero as opções "Yes" e "No" para "SIm" e "Não" do show message : if messageDLG('Tem certeza que você deseja excluir este usuário ?',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin ... end 2º Como eu coloco uma máscara no inputBox, ou seja, quando o usuário digitar alguma coisa ao ivés de aparecer os caracteres, aparecer *******.... Obrigado....

Valeu Arlon.....era isso mesmo que eu precisava......enquanto ao livro eu tenho um, é muito bom, só que é bem básicão......vou pesquisar esse aí.....valeu pela dica......té mais galera....

Galera .......gostaria de saber como eu faço para uma label na em outro form receber o nome da pessoa que logou no sistema, ou seja... 1º abre um form de login 2º depois de logado, no form principal receber o nome desse usuário conforme a tabela de registros..... valeu

Isso resolve cara.......vou tentar..... Queria aproveitar e agradecer a colaboração da galera.....muito Obrigado pela dicas e parabéns pelo fórum.......muito bem desenvolvido e bem estruturado também.....hoje eu vou ver se compro mais um livro do delphi.....o que eu tenho só ensina alguns comandos básicos para banco de dados.....alguém tem alguma dica de livro ???? Eu sou do tipo que gosta de livros didáticos.....tipo códig e exemplo..... Abraço do Rasga Bucho.....

Galera, mais uma dúvida...quando eu utilizar o seguinte código para verificar um registro antes de inserir um novo : procedure TForm1.Table1CodigoSetText(Sender: TField; const Text: String); begin Query1.close; Query1.SQL.Clear; Query1.sql.add('select codigo from tabela where codigo = '+text); Query1.Open; if not Query1.IsEmpty then begin showmessage('Código já inserido !'); Table1.FieldByName('codigo').AsString := ''; DBEdit1.SetFocus; end else Table1.FieldByName('codigo').AsString := text; end; Eu precisarei criar mais algum objeto no meu form a não ser a Table ? Ow é só colocar o código e pronto.....

Vai precisar criar outro objeto ???? Ow não, é só colocar esse código que ele faz a verificação ?

Moderador, eu consegui cara verificar o usuários cadastrados, só que agora não consigo cadastrá-los....está aparecendo a mensagem de "KEY VIOLATION"....mas estou colocando um Nome, Login, Senha, Matrícula e Data diferentes, meu código de inclusão ficou assim : dbedit2.Text>>Nome dbedit3.Text>>Matrícula dbedit4.Text>>Login dbedit5.Text>>Senha dbedit6.Text>>Data procedure TfmCadastrar.BitBtn1Click(Sender: TObject); var nome : String; begin nome := dbEdit2.Text; if not((dbedit2.Text='') or (dbedit3.Text='') or (dbedit4.Text='') or (dbedit5.Text='') or (dbedit6.Text='')) then begin modSistema.tbCadastrar.Post; showMessage('Usuário '+nome+' cadastrado com sucesso!'); end else begin showMessage('Não deixe nenhum campo em branco'); end; end; Eu gostaria de saber, como eu verifico a tabela para não registrar Login e senha igual a um já cadastrado...e o que pode estar acontecendo se eu estou inserindo dados totalmente diferentes para cadastro.......

Pode ser isso mesmo cara, pois hoje eu consgui criar uma consulta com o DBNavigator, e ele só trazia se essas opções estivesserem em true. Vlaew Moderador.....

Consegui rodar o código, criei um datamodule com uma Table. Só que no momento que eu digito o Login e Senha aparece o seguinte erro conforme a imagem abaixo : Alguém sabe porque dá esse erro ?