Resultados de Postgres y Zeos

[ManiacPC]

Hey mamaro, gracias otra vez.
Soy un completo novato en bases de datos con delphi,
habia programado antes haciendo miles de cosas en delphi, pero nunca trabajado con esto :P
Un novato en esto, pero en bases de datos he trabajado mucho conectando de asp y php, etc.

RecordCount es un comando que me serà de mucha ayuda, pero me imagino que tengo que estudiar lo fundamental de como trabajaba básicamente delphi con el odbc y ole para hacerme familiar a la estructura de zeos (esta basada y acoplada en la forma de trabajo con bd de delphi) y lo estoy haciendo, con un tutorial muy bueno de about.com con el controlador postgresql para odbc (un poco tedioso que tenga que pasar por ado, ole, odbc y recibir respuesta recien), aunque funciona a la perfeccion, diria que es el controlador mas estable de postgresql.

Voy a probar con el codigo que me has escrito, ahora entiendo porque dentro del select aparece el :NUM y no ' + :NUM + '

Tengo el programa guardadito en mis pruebas alternativas con el zeos... y si, bien parece raro que la contraseña sea un nùmero
Pero es un requisito para trabajar rapido en terminales donde solo funcionará el tpv, y es de exclusiva responsabilidad del usuario no equivocarse porque una venta quedaria registrada a otro nombre y por ende no calzará el cierre de caja al final del turno. En el servidor se harán los procesos mas delicados.
Aunque estuve pensando y tengo el algoritmo testeado para encriptar de forma tradicional una cadena de texto y desencriptarla por crypt32. Si quieres te la envio

Gracias mamaro una vez mas, te tengo noticias de nuevo :P
Espero que para la proxima ya esté mas "pulido"
Hey un millon de gracias man
Bye

[mamaro]

Yo utilizo Zeos hace bastante tiempo y a no ser por ese bug que te comenté .. no tengo quejas, por ahí estube viendo una comparativa de las velocidades de los distintos métodos de acceso a una base de datos, y Zeos (según publican) es una de las alternativas más lentas

...

tras eso he hecho varias pruebas con distintos componentes (que según ahí publican son algo más rápidos), pero la performance global del sistema no se ha visto afectada .. de hecho algunos me complican más la programación que la diferencia de microsegundos que gano en una instrucción

Creo que al final todo es un tema de los componentes con los que te acostumbres a trabajar.

Saludos.

PD: Las pruebas las hice con un motor de datos Firebird (en varias versiones), pero supongo que esto es extrapolable a PostgreSQL.

[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.