Resultados de Postgres y Zeos

[ManiacPC]

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 :

 
 
  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!!!!!!!!!

[mamaro]

jaja .. bueno .. te diré que por estos lados lo que es bueno es el asado .. cualquier cosa mi correo es [email protected].

Saludos.

PD: si me envías un correo ponle Amigo del Club Delphi, o algo así para que no lo elimine.