Joder Mamaro,
Te debo una botella de vino, son de muy buena calidad por aqui jejeje.
Por fin me desaponché, resulto lo querido, deseaba mostrartelo :
Código:
if (Usuario <> '') AND (Clave <> '') Then
Begin
With DM do begin
Consulta.Close;
Consulta.SQL.Clear;
Consulta.SQL.Add('Select * FROM vendedores ');
Consulta.SQL.Add('WHERE ( numerovendedor = :PUSUARIO ) ');
Consulta.SQL.Add('AND ( passwordvendedor = :PCLAVE )');
Consulta.Parameters.ParamByName('PUSUARIO').Value := Usuario;
Consulta.Parameters.ParamByName('PCLAVE').Value := Clave;
Consulta.Open;
if (DSConsulta.DataSet.RecordCount = 1) Then
Begin
with DSConsulta.DataSet do begin
with BarraVendedor do begin
Panels[0].Text := 'Vendedor : ' + FieldByName('nombresvendedor').Value + ' ';
Panels[0].Text := Panels[0].Text + FieldByName('apellidosvendedor').Value;
Panels[1].Text := 'Numero : ' + IntToStr(FieldByName('numerovendedor').Value);
end;
end;
end;
end;
end
else
begin
Application.MessageBox('Debe ingresar un usuario y contraseña','Advertencia', MB_OK);
TxtNumeroVendedor.Text := '';
TxtPasswordVendedor.Text := '';
TxtNumeroVendedor.SetFocus;
end;
Te has pasado, tu ayuda me sirvio bastante
Gracias!!!!!!!!!