Jump to content
Fórum Script Brasil

Giovane Amorim

Membros
  • Content Count

    2
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Giovane Amorim

  1. BOM DIA GALERA SOU NOVO EM SQL E ESTOU COM UM PROBLEMA TENHO UMA TABELA DE VENDAS. QUE GRAVA DATA VALOR TOTAL DA VENDA VENDEDOR ESSAS COISAS E MEU CHEFE QUER UM RELATÓRIO ONDE VAI MOSTRANDO O VALOR VENDIDO NO DIA. EX. HJ É DIA 17/03 ELE QUER QUE PAREÇA NO RELATÓRIO O VALOR E DATA DO DIA 1,2,3 ATE DIA 17 ALGUÉM PODERIA ME DA UMA LUZ NISSO TO A 1 SEMANA TRAZ DISSO.
  2. Bom dia Galera sou novo no DELPHI e uso o XE7 com banco de dados Mysql Preciso fazer a validação Login . Utilizei o seguinte codigo procedure TForm1.btenterClick(Sender: TObject); begin // ativa a tabela dm.tb_login.Open; // verifica se os campos coincidem, // tanto na tabela, quanto nas edits if dm.tb_login.Locate('nome', edfuncionario.Text, [loCaseInsensitive,loPartialKey]) and dm.tb_login.Locate('senha', edSenha.Text, [loCaseInsensitive,loPartialKey]) then begin // fecha a tabela dm.tb_login.Close(); // mostra outro form frmmenu.Show; // esconde o atual Self.Hide; end // se os campos forem vazios else if (edfuncionario.Text = '') and (edSenha.Text= '') then begin // mostra mensagem ShowMessage('Preencha os campos login e senha!'); edfuncionario.SetFocus; end else // campos nao conferem begin // campos nao conferem ShowMessage('Usuario ou senha inválidos!'); edfuncionario.Clear; edSenha.Clear; end; end; Porem ele valida se tiver qualquer usuário com a senha digitada.. ele não pega o Usuário que digitei + a senha valida desse Usuário .. ja achei video mostrando ligar o ADOCONNECTION, TATOTABLE e o Datasource .Mais isso que preciso ninguém fez ainda .
×
×
  • Create New...