Biolab 1.0

[[José Luis Garcí]]

Chris, para tú información. vivo en las islas afortunadas, para ser exacto en las islas Canarias, que pertenecen a España, para ser más exacto en Gran Canaria en la población de Teror, municipio del interior, donde se encuentra la patrona de mi isla, La Virgen del Pino http://www.corazones.org/maria/pino_nra_senora.htm

[DarKraZY]

Hola!
He realizado una pequeña prueba. Y antes de nada, he de decir que la impresión visual es muy satisfactoria. Probaré dentro un rato con el nuevo ejecutable.

Aquí algunas mejoras o problemas que me he encontrado:

• Más opciones de instalación
• No sale el icono de la aplicación, sino el genérico de Windows, en el escritorio
• El fichero de excepciones *.elf se guarda en el escritorio
• No está preparado para multi-monitor, tengo 2, y la ventana de usuarios sale entre ambos.
• Al dar de alta el usuario, sale una nueva ventana, pero no se oculta la anterior.
• Ortografía: ficha de alta del nuevo Paciente: cédula, envío

Saludos

[[José Luis Garcí]]

Chirs, ahora que he solucionado el problema con mi base de datos de la empresa, te pongo el código de búsqueda que tengo (más que seguro que tu también lo conoces) e imágenes para expresar mejor lo que hablaba de las búsquedas.

Código

Código Delphi [-]
procedure TFcontactos.Button2Click(Sender: TObject);
//------------------------------------------------------------------------------
//***********************************************[ REALIZAR LA BUSQUEDA ]*******
//------------------------------------------------------------------------------
begin
  if Edit1.Text<>'' then
  begin
    if CheckBox1.Checked=false then
    begin       //Mejor busqueda pero no admite acentos
      IBDContactos.Active:=False;
      IBDContactos.SelectSQL.Clear;
      IBDContactos.SelectSQL.Add('select * from CONTACTOS WHERE UPPER (EMPRESA) LIKE '+QuotedStr('%'+UpperCase(Edit1.Text)+'%'));
      IBDContactos.Active:=True;
    end else
    begin         //Busque ignorando los acentos
      IBDContactos.Locate(RemoveAcentos(UpperCase('EMPRESA')),
                          RemoveAcentos(UpperCase(edit1.Text)),
                          [ loCaseInsensitive,loPartialKey]);
    end;
  end;
end;

imagen de la base sin búsqueda


Segunda imagen ya buscando


y Tercera imagen


Como te comentaba, según realiza la búsqueda, sólo van quedando los que coinciden, es verdad que si pones búsqueda sin acentos (se que tengo que corregir el acento de búsqueda), ya no se habilita esta opción, pues aún no he descubierto la manera de hacerlo, pero aún así se ira posicionando en el registro según la búsqueda.

Por cierto RemoveAcentos es una función que me baje de un foro de delphi brasileño, si hace falta pongo la función.

[[Chris]]

Empezado por DarKraZY

Hola!
He realizado una pequeña prueba. Y antes de nada, he de decir que la impresión visual es muy satisfactoria. Probaré dentro un rato con el nuevo ejecutable.

Aquí algunas mejoras o problemas que me he encontrado:

• Más opciones de instalación
• No sale el icono de la aplicación, sino el genérico de Windows, en el escritorio
• El fichero de excepciones *.elf se guarda en el escritorio
• No está preparado para multi-monitor, tengo 2, y la ventana de usuarios sale entre ambos.
• Al dar de alta el usuario, sale una nueva ventana, pero no se oculta la anterior.
• Ortografía: ficha de alta del nuevo Paciente: cédula, envío

Saludos

Gracias DarKrazy por tu observaciones. El problema del icono no sé lo que ha pasado aún. Tendré que revisar más en detalle el ejecutable. Nunca lo había probado en un sistema con más de un monitor, así que realmente me "agarras movido". Veré que puedo hacer en este caso. Gracías por las observaciones ortográficas, le daré una nueva revisada a la interfaz para encontrar estos problemas.

Con respecto a las opciones de instalación, lo hecho así porque tengo en consideración que mi público objetivo tiene pocos conocimientos técnicos. Es por esa razón que he reducido al máximo los pasos de la instalación. No entendí a lo que te refieres con: "Al dar de alta el usuario, sale una nueva ventana, pero no se oculta la anterior." Me podrías explicar mejor?

Por último, si se te creo un archivo .elf (no debió ser en el escritorio) me lo podrías enviar compañero? Es para darle análisis y reparar los problemas que aparezcan en el informe.

Saludos,
Chris

[[Chris]]

José, gracias por compartir tu experiencia conmigo. La búsqueda en Biolab funciona más o menos a cómo lo estás haciendo tú. Pero solo con SQL, no con Locate. En el código que compartiste:

Código Delphi [-]
IBDContactos.Locate(RemoveAcentos(UpperCase('EMPRESA')),
                          RemoveAcentos(UpperCase(edit1.Text)),
                          [ loCaseInsensitive,loPartialKey]);

Tienes dos problemas, uno de ellos es que no estás quitando los acentos al valor del campo, sino a una cadena constante ('EMPRESA'). Lo que estás haciendo es solo quitarle los acentos al al nombre del campo "EMPRESA". En tu caso creo que Locate no te sirve, talvez un código así te puede ayudar mejor:

Código Delphi [-]
begin
    if Edit1.Text<>'' then
    begin
        if CheckBox1.Checked=false then
        begin       //Mejor busqueda pero no admite acentos
              IBDContactos.Active:=False;
              IBDContactos.SelectSQL.Clear;
              IBDContactos.SelectSQL.Add('select * from CONTACTOS WHERE UPPER (EMPRESA) LIKE '+QuotedStr('%'+UpperCase(Edit1.Text)+'%'));
              IBDContactos.Active:=True;
        end
        else
        with IBDContactos do //Busque ignorando los acentos
        try
            DisableControls;
            First;
               
            while not Eof do
                if AnsiPos(RemoveAcentos(AnsiLowerCase(edit1.Text))
                           RemoveAcentos(AnsiLowerCase(FieldByName('empresa').AsString))) then
                    Break
                else
                    Next;                
        finally
            EnableControls;
        end;
end;

Saludos,
Chris