Login y Diferenciar Mayúsculas, Minúsculas, Acentos.. ETC

[Gusso]

Buenas Noches Colegas!!

Nuevamente solicitando de su valiosa ayuda....

Les cuento tengo un programa donde la ventana principal es un login, ya lo tengo funcionando, el único problema que tengo es que no diferencía entre mayúsculas y minúsculas (es decir uso un password almacenado como "Hola", pero si escribo todo con mayúscula o minúscula aún me da acceso, quisiera saber como puedo hacer para que solicite que el password lo escriba exactamente como se almaceno), uso una BD MySQL almacenada como varchar, ya intenter como tipo BLOB pero tuve problemas no pude hacer ningun login ¿Alguna sugerencia? De ante mano agradezco su ayuda

[Casimiro Notevi]

Pon el código que lo veamos

[Gusso]

Empezado por Casimiro Notevi

Pon el código que lo veamos

Aqui esta mi codigo lo ejecuto un boton "aceptar"

Código Delphi [-]
procedure TForm1.IniciarClick(Sender: TObject);
begin
with datamodule2 do
begin
ql.SQL.Text:='Select idEmpleados, Password, AreaTrab from empleados where AreaTrab=:"box" and idEmpleados=:log and Password=:"pass"';
ql.Parameters.ParamByName('log').Value:=Edit1.Text;
ql.Parameters.ParamByName('pass').Value:=Edit2.Text;
ql.Parameters.ParamByName('box').Value:=Box.Text;
ql.Open;
  if ql.RecordCount=1 then
    begin
      ShowMessage('BIENVENIDO');
      Form1.hide;
      //Form3.Show;
        if box.Text= 'Medicina' then Form3.Show;
        if box.Text= 'Farmacia' then Form7.Show;
        if box.Text= 'Administrativo' then Form8.Show;
    end
    else
      begin
        ShowMessage('Error en usuario y/o contraseña');
        e:=e+1;
      end;
if e=3 then
  begin
    Button2.Click;
  end;
edit2.Text:='';
end;

[Casimiro Notevi]

Código Delphi [-]
ql.SQL.Text:='Select idEmpleados, Password, AreaTrab from empleados where AreaTrab=:"box" and idEmpleados=:log and Password=:"pass"';

Para empezar, quita esas comillas de los parámetros.

Código Delphi [-]
ql.SQL.Text:='Select idEmpleados, Password, AreaTrab from empleados where AreaTrab=:box and idEmpleados=:log and Password=: pass';

Y recuerda poner los tags al código fuente, ejemplo:



Gracias

[Gusso]

Muchas gracias, lo hare... pero alguna sugerencia con mi problema?

[Casimiro Notevi]

Empezado por Gusso

Muchas gracias, lo hare... pero alguna sugerencia con mi problema?

Pero si te he puesto la solución