• 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

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;

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

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;

Código Delphi [-]
function ComponerConsulta(Tabla, Criterio, Texto: string; Inx: Integer): string;
begin
  Result:= 'SELECT * FROM ' + Tabla + ' WHERE ' + Criterio;
  case Inx of
    0:Result:= Result + ' LIKE ' + QuotedStr(Texto + '%'); // Comienza
    1:Result:= Result + ' CONTAINING ' + QuotedStr(Texto); // Contiene
    2:Result:= Result + ' = ' + QuotedStr(Texto);          // Coincide
    3:Result:= Result + ' LIKE ' + QuotedStr('%' + Texto); // Termina
    4:Result:= 'SELECT * FROM ' + Tabla;                   // Ver todo
  end;
  Result:= Result + ' ORDER BY ' + Criterio;
end;