Fórum Politica de Acesso #194347

procedure TF_Senha.BitBtn1Click(Sender: TObject);
begin
  i:=i+1;
  vusuario:=Edit1.Text;
  vsenha:=Edit2.Text;
  with DM_Geral do
  begin
    CDSSenha.Close;
    TabSenha.SQL.Clear;
    TabSenha.SQL.Add(´Select * from senhas where USUARIO=´+QuotedStr(vusuario));
    CDSSenha.Open;
    if not (CDSSenhausuario.AsString = vusuario) then
    MessageDlg(´Usuário não Cadastrado !!! ´, mtInformation, [mbOk], 0)
    else
    begin
      if (CDSSenhaSenha.Value=vsenha) and (Length(Edit1.Text) > 1) then
      begin
        Application.CreateForm(TF_Menu, F_Menu);
        F_Menu.ShowModal;
        F_Menu.Free;
        i:=3;
      end
      else
      MessageDlg(´ Senha inválida !!! ´, mtInformation, [mbOk], 0);
    end;
  end;
  if i=3 then
  close;
end;