My Visual Database — Прошу помощи со скриптом

Re: Прошу помощи со скриптом

null@example.com (k245) — Sat, 02 Oct 2021 12:57:34 +0000

Если я правильно понял, у вас файлы хранятся не в базе, а в папке, указанной в настройке. Это все хорошо только в случае, если у вас имена хранимых файлов уникальны. Если у вас имена файлов уникальны, тогда вы можете добавить два обработчика на кнопку, которая удаляет сотрудника.

OnClick - вытащить имя удаляемого файла из базы, как указано в вашем примере, с учетом того, что к имени файла из базы нужно добавить ваш путь хранения

FileName:= SQLExecute ('Select file_filename From Anketa Where id='+Anketa.TableGrid1.sqlValue);
FileName:= ExtractFileDir (Application.ExeName)+'\files\'+FileName;

OnAfterClick - удалить файл командой, указанной sibprogsisten

DeleteFile(FileName);

Переменную FileName объявите глобальной.

Re: Прошу помощи со скриптом

null@example.com (Alexandr) — Sat, 02 Oct 2021 11:29:38 +0000

sibprogsistem wrote:

DeleteFile(FileName);

Эта команда просто удаляет файл,а мне нужно немного другое.
Есть сотрудники, по каждому сотруднику есть его личная анкета,которая я цепляю в DBFile...файл надо удалить только если сотрудник уволился например и вся информация про него удаляется из таблицы..

Re: Прошу помощи со скриптом

null@example.com (sibprogsistem) — Sat, 02 Oct 2021 11:21:02 +0000

DeleteFile(FileName);

Прошу помощи со скриптом

null@example.com (Alexandr) — Sat, 02 Oct 2021 08:48:07 +0000

Есть скрипт для открытия файла по двойному клику на таблицу. При этом файл автоматически копируется в указанную мной папку. Как сделать так,чтобы при удалении записи из таблицы,файл который скопировался в папку автоматически удалился?

П.с. код нашел на форуме

procedure Anketa_OnShow (Sender: string; Action: string);
begin
Anketa.TableGrid1.dbPopupMenu.Items.Items[0].Enabled:= False;
end;

procedure Anketa_OnDoubleClick (Sender: string);
var
FileName: string;
begin
FileName:= SQLExecute ('Select file_filename From Anketa Where id='+Anketa.TableGrid1.sqlValue);
FileName:= ExtractFileDir (Application.ExeName)+FileName;
if FileExists (FileName) then OpenFile (FileName);
end;

Также в компоненте DBFile в свойстве CopyTo указываю папку куда будет копироваться файл (в моем случае в папку files)