Search options (Page 364 of 400)

Данная функция необходима для сохранения файла непосредственно из файла базы данных, в вашем проекте файл в базу данных не сохраняется, а содержит просто ссылку на файл, поэтому в вашем случае код открытия файла будет таким

procedure Form1_Button9_OnClick (Sender: string; var Cancel: boolean);
var
   f: string;
begin
     f := SQLExecute('SELECT file_project_filename FROM Tasks WHERE id = ' + IntToStr(Form1.TabGr_TaskList.dbItemID) );
     OpenFile(f);
end;

так можно подставить идентификатор выделенной записи из компонента TableGrid

s := SQLExecute ( 'SELECT  SUM(quanty*parts.price) as total FROM partsapp WHERE id_application=' + IntToStr(Form1.TableGrid.dbItemID));

тоже самое можно сделать  на форме редактирования записи, получив идентификатор записи от кнопки сохранения

s := SQLExecute ( 'SELECT  SUM(quanty*parts.price) as total FROM partsapp WHERE id_application=' + IntToStr(Form2.Button1.dbGeneralTableId ));

но в этом случае, нужно понимать, что этот идентификатор записи известен только при редактировании записи, при создании новой записи, идентификатор будет равен -1, т.к. запись еще не сохранена и свой идентификатор не получила.

Поправил проект, ошибка была в скриптах, а именно в процедуре
procedure NewTask_TabGrSubTasks_OnChange (Sender: string);

данный SQL запрос может вернуть пустую строку, если нет данных удовлетворяющих поиску, поэтому необходимо делать проверку

      sDate := SQLExecute('SELECT min(start_pf) FROM SubTasks WHERE SubTasks.id_Tasks = "' + IntToStr(idTask)  + '";');
      if sDate <> '' then NewTask.DateTimePicker3.DateTime :=  SQLDateTimeToDateTime(sDate);

можете скачать исправленный проект

Пока не знаю, надо подумать )

Приветствую,

Странно, судя по описанию не должно быть ошибки.
Какая именно функция подразумевается под "А функции преобразований для FLOAT" ?

ошибка возникает при использовании скриптов или SQL запроса?
можете отправить мне свой проект на support@drive-software.com
постараюсь помочь.

I'm afraid not exactly understand the question.

You can change number of field in settings button with action "Search", or you can create second button for Search, fist button will be with fours fields, second button will be with five fields.

Используйте событие OnAfterClick от кнопки сохранения, в основную таблицу S сохраняйте информацию с помощью кнопки с действием Сохранить запись, а в таблицу D с помощью данного скрипта

procedure Form1_Button1_OnAfterClick (Sender: string);
begin
   SQLExecute( 'INSERT INTO D (X, Y, Z) VALUES ("' + Form2.Edit1.Text + '","' + Form2.Edit2.Text + '","' + Form2.Edit3.Text +'")' );
end;

1. Вам необходимо создать 4 поля в таблице базы данных с типом ДА/НЕТ

2. На форме создания/редактирования записи, расположить 4 компонента CheckBox и присвоить каждому из них свое поле из таблицы базы данных (с помощью свойств TableName и FieldName)

3. На форме для поиска, в настройках кнопки с действием Поиск, добавить эти 4 поля, которые будут видны в результате поиска.

Приветствую,

В вашем случае UNION не нужен, и не верно была связана таблица Prefix (LEFT OUTER JOIN)
Исправленный SQL запрос:

SELECT
Podrazdelenie.id as 'id',
Prefix.PrefixOP,
Podrazdelenie.Gorod,
Podrazdelenie.Obl,
Podrazdelenie.TelMob,
Podrazdelenie.FIOBK

FROM Podrazdelenie
LEFT OUTER JOIN Prefix ON Prefix.id =Podrazdelenie.id_Prefix

WHERE

(TelMob LIKE '%{EdFIOBK}%') OR
(FIOBK LIKE '%{EdFIOBK}%')  OR
(prefop LIKE '%{EdFIOBK}%') OR
(Obl LIKE '%{EdFIOBK}%') OR
(case when '{EdFIOBK}'='' then 1=1 else PrefixOP LIKE '%{EdFIOBK}%' end);

Example, event of button with action SAVE RECORD

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.Edit1.Text='' then
    begin
       ShowMessage('Empty value.');
       Cancel := True; //it cancels the action button
    end;
end;

You can set focus for control, example: 
Form1.Edit1.SetFocus;

Also you can change backgroung color of TextBox:
Form1.Edit1.Color := clRed;

but don't forget after that return default color, for example in the event of the form OnClose
Form1.Edit1.Color := clWindow;