Search options (Page 2 of 10)

Спасибо огромное, vovka3003!
Ваш скрипт рабочий!
Стоит задача закинуть базу MySQL на хостинг, чтобы к ней сотрудники имели доступ и из дома.
У хостинга есть панель управления CPanel.
В ней надо указывать IP адреса удаленных подключений к БД.
Но, народ подключается с динамических IP, поэтому приходилось сначала определять IP клиента, потом через браузер логиниться в CPanel, ручками указывать IP удаленного клиента и только потом работать с приложением.
Теперь все проще!
Создал API токен в CPanel (позволяет выполнять функции в Cpanel без пароля).
Скриптом авторизуемся в Cpanel:
whr.SetRequestHeader('Authorization',Format('cpanel %s:%s',[user,token]))
и выполняем добавление удаленного хоста:

url = 'https://mysite.ru:2083/execute/Mysql/add_host?host=124.124.124.124'

Спасибо!

Задача решена:
в одном из постов английской версии форума 2017 года нашел скрипт кодирования данных посимвольным методом.
Немного изменил его для получения шифрования/дешифрования алгоритмом RC5.
Теперь в полях формы и таблицах данные отображаются в нормальном виде, а в базе данных - в зашифрованном.
Т.е. подключение к базе данных вне разработанного мной приложения не позволяет понять, что в ней хранится.
Ключевое слово планируется менять периодически.
При смене ключа, конечно, надо запускать скрипт раскодировки данных старым ключом и кодировки новым.
Но, это уже совсем просто.
...
Но, есть два "но".
Скрипт работает с полями базы данных  только текстового типа.
Шифрование по определению производится в символы шестнадцатеричной системы исчисления.
И если в БД тип поля указан как "Целое число" или "Деньги", то запись в БД приводит к ошибке.

Второе - не работает поиск по зашифрованным полям.

Сортировки и форматирования в запросе никаких не делаю.
Дату беру так: Tbl_Projects.Project_Date as 'Tbl_Projects.Project_Date'
форматирование даты сейчас закомментировано.   
Полный текст запроса приведен ниже.
Он большой, т.к. рассчитан еще на фильтрацию по значениям ряда полей на форме

.
.
.

    -- Запрос по кнопке Btn_Do_Project_Search 
   
    SELECT DISTINCT 
   
    CAST(Tbl_Projects.id AS Unsigned),     
                                                                                 
    -- DATE_FORMAT(Tbl_Projects.Project_Date,'%Y-%m-%d') as 'Tbl_Projects.Project_Date' /* Дата проекта из строки преобразована в дату
   
    Tbl_Projects.Project_Date as 'Tbl_Projects.Project_Date' ,                                                     
   
    Tbl_Projects.Project_Num as 'Tbl_Projects.Project_Num' /*Номер КП*/  ,
   
    Tbl_Projects.Project_Sum as 'Tbl_Projects.Project_Sum' /*Сумма КП*/  ,
                                                           
    Tbl_Clients.Client_Nick as 'Tbl_Clients.Client_Nick'  /*Имя заказчика*/  ,   
   
    Tbl_Projects.RFQ_From as 'Tbl_Projects.RFQ_From' /*Запрос от */  ,
   
    Tbl_Projects.RFQ_email as 'Tbl_Projects.RFQ_email' /*email - запроса*/  ,
                                                               
    Tbl_Projects.Project_Nick as 'Tbl_Projects.Project_Nick' /*Имя проекта (Шифр)*/  , 

    Tbl_Projects.Last_Project_Message as 'Tbl_Projects.Last_Project_Message' /*Комментарий к проекту*/  ,
                                                                                             
    Tbl_Project_Statuses.Project_Status_Name as 'Tbl_Project_Statuses.Project_Status_Name' /*Статус проекта, например, Готовим КП*/  , 
                                                                                                 
    CASE WHEN Tbl_Projects.IsClosed = 0 THEN 'ОТКРЫТ' ELSE '-' END as 'Tbl_Projects.IsClosed'    /*Состояние проекта - Открыт/Закрыт*/  ,
                                                                   
    Tbl_Projects.id_Tbl_Clients as 'Tbl_Projects.id_Tbl_Clients'   /*ID заказчика в таблице Проектов*/  ,   
                                                                                       
    Tbl_Projects.id_Tbl_Project_Statuses as 'Tbl_Projects.id_Tbl_Project_Statuses'  /*ID статуса в таблице проектов. Не удалять, т.к. отбор по статусу не будет работать*/ , 
   
    Tbl_Colors.Color_HEX_Code as 'Tbl_Colors.Color_HEX_Code' /* Цветовая метка */,     
   
    Tbl_Colors.Color_Name as 'Tbl_Colors.Color_Name' /* Значение метки */,
                               
    Tbl_Projects.id    /* id должен быть в конце, чтобы работало штатное редактирование/удаление записи*/

    FROM  Tbl_Projects                                                                 
   
    LEFT OUTER JOIN Tbl_Clients ON Tbl_Projects.id_Tbl_Clients=Tbl_Clients.id
    LEFT OUTER JOIN Tbl_Project_Statuses ON Tbl_Projects.id_Tbl_Project_Statuses=Tbl_Project_Statuses.id 
    LEFT OUTER JOIN Tbl_Colors ON Tbl_Projects.id_Tbl_Colors=Tbl_Colors.id 
   
    WHERE                                       
(CASE WHEN ({DateTimePicker_Period_From} IS NULL) THEN 1=1 ELSE ( Date(Tbl_Projects.Project_Date) >= Date({DateTimePicker_Period_From})) END) AND   
(CASE WHEN ({DateTimePicker_Period_To} IS NULL) THEN 1=1 ELSE ( Date(Tbl_Projects.Project_Date) <= Date({DateTimePicker_Period_To})) END) AND
   
    (CASE WHEN ('{Edit_Search_Project_ID}' = '') THEN 1=1 ELSE ( Tbl_Projects.id = '{Edit_Search_Project_ID}') END) AND
   
    (CASE WHEN ('{Edit_Search_Project_Number}' = '') THEN 1=1 ELSE ( Tbl_Projects.Project_Num LIKE '%{Edit_Search_Project_Number}%') END)  AND
   
    (CASE WHEN ('{Edit_Search_Project_Client}' = '') THEN 1=1 ELSE ( (Tbl_Clients.Client_Nick LIKE '%{Edit_Search_Project_Client}%') OR
                                                                        (Tbl_Projects.RFQ_From LIKE '%{Edit_Search_Project_Client}%') OR
                                                                        (Tbl_Projects.RFQ_email LIKE '%{Edit_Search_Project_Client}%') ) END)  AND
   
    (CASE WHEN ('{Edit_Search_Project_Nik}' = '') THEN 1=1 ELSE ( (Tbl_Projects.Project_Nick LIKE '%{Edit_Search_Project_Nik}%') OR
                                                                  (Tbl_Projects.Last_Project_Message LIKE '%{Edit_Search_Project_Nik}%') OR
                                                                        (Tbl_Projects.RFQ_body LIKE '%{Edit_Search_Project_Client}%')) END)  AND

--    (CASE WHEN ({ComboBox_Project_Status} < 0) THEN 1=1 ELSE ( Tbl_Projects.id_Tbl_Project_Statuses = '{Edit_StatusForSQL}' ) END) AND   

    (CASE WHEN ({ComboBox_Project_Status} < 0) THEN 1=1 ELSE ( Tbl_Projects.id_Tbl_Project_Statuses = '{ComboBox_Project_Status}' ) END) AND 

    (CASE WHEN ({CheckBox_IsClosed} = 0) THEN (Tbl_Projects.IsClosed = 0) ELSE ( (Tbl_Projects.IsClosed = 1) OR (Tbl_Projects.IsClosed = 0) ) END)