Search options (Page 33 of 61)

Для этого нужна рекурсивная процедура, которая будет складывать top и left с родительскими. В Дельфи это метод встроен в компоненты, в MVDB придется писать скрипт ))).

Редактор миниатюры

Миниатюрное изображение оригинала может быть использована в различных целях. Например, для отображения в галерее фотоальбома или как аватар сотрудника в программе кадрового учёта, для отображения в генеалогическом дереве и так далее.

Читать: https://createmyvisualdatabaseapp.blogs … -post.html

OK, главное, чтобы вас устаивал результат )))

Nothing will come of it, since MVDB does not have a WebClient component or its equivalent.

Вам нужно пробежать в цикле по таблице с мультиселектом, и для каждой выделенной строки выполнить свою SQL-команду INSERT.

About years ago, Google closed the possibility of direct access to its files, so you won’t be able to get a file from a Google drive by simply downloading it. Requires the use of the API. I don't have a solution. Authorization seems especially difficult to me. But perhaps other forum members will be able to share their experience in this direction.

To implement such functionality, you will need a lot of code, for example, this:

procedure CheckAndUpdate( AShowIfNotFound: boolean );
// проверить обновления и обновить
var
  tmpNewVersion:string;
begin
  case CheckNewVersion(tmpNewVersion) of
  CU_ERROR: ShowMessage( S_.UPD_ERROR.Caption ); // общая ошибка
  CU_NEW_VERSION_AVALIABLE: begin // доступна новая версия, доступно автообновление
    if MessageBox( Format( S_.UPD_NEW_VER.Caption, [tmpNewVersion] ), S_.INFORMATION.Caption, MB_YESNO + MB_ICONINFORMATION ) = IDYES then
      GetNewVersion(tmpNewVersion);
  end;
  CU_NO_UPDATES_FOUND: if AShowIfNotFound then ShowMessage( S_.UPD_NO_UPDATES_FOUND.Caption ); // обновления не найдены
  CU_MANUAL_UPDATE: begin // ручное обновление
    if MessageBox( Format( S_.UPD_MANUAL_UPDATE.Caption, [tmpNewVersion] ), S_.INFORMATION.Caption, MB_YESNO + MB_ICONINFORMATION ) = IDYES then
        OpenURL( S_.ACT_URL_HELP.Caption ); // возможно, понадобится отдельный ресурс, пока используется один и тот, же, что для описания программы
  end;
  CU_CHECK_INTERNET:ShowMessage( S_.UPD_CHECK_CONNECTION.Caption ); // нет соединения с сайтом
  end;
end;

...and this

function CheckNewVersion(var ANewVersion:string ): integer;
// проверка наличия новой версии. извлечение номера новой версии
var
  tmpFile: string; // для загрузки описания обновления
  tmpList: TStringList; // сценарий обновления
  tmpBuld: string; // последний релиз
  tmpCompVer: array of string; // список версий, с которыми совместима последняя версия
  i: integer;
  tmpCurVer: string;
  tmpURL: string;
begin
  Result := CU_ERROR;
  tmpCurVer := APP_VERSION+'.'+APP_BUILD; // текущая версия приложения
  tmpFile := GetTmpFileName('.txt');
  try
    //
    if DebugMode then
      tmpURL := URL_DEBUG_DOWNLOAD + UPDATE_SCENARIO_FILENAME
    else
      tmpURL := URL_DOWNLOAD + UPDATE_SCENARIO_FILENAME;
    // скачать файл с описанием обновления
    try
      HTTPGetFile(tmpURL, tmpFile, True );
    except
      Result := CU_CHECK_INTERNET;
      exit;
    end;
    tmpList := TStringList.Create;
    tmpList.LoadFromFile(tmpFile);
    ANewVersion := tmpList.Values( UT_LAST_VERSION ); // версия в формате <Major>.<Minor>.<Build>
    //
    tmpBuld := ANewVersion;
    delete(tmpBuld,1,pos('.',tmpBuld ));
    delete(tmpBuld,1,pos('.',tmpBuld ));
    // сравниваем билды
    if StrToInt(tmpBuld) > StrToInt(APP_BUILD) then
    begin // найдена новая версия
      Result := CU_MANUAL_UPDATE;
      tmpCompVer := SplitString( tmpList.Values( UT_COMPATIBLE_VERSIONS ), ',' );
      for i := 0 to Length(tmpCompVer) - 1 do
        if tmpCompVer[i] = tmpCurVer then
        begin
          Result := CU_NEW_VERSION_AVALIABLE; // версия может быть загружена автоматически
          break;
        end;
    end
    else
      Result := CU_NO_UPDATES_FOUND; // ничего не найдено
    // зачистка
    tmpList.Free
    //
  finally
    DeleteFile(tmpFile); // удалить временный
  end;
end;

...and more.

You will also need your own website, where you will need to place a text information file. In this file, store scripts for versioning and updating them.

А зачем же вам свой FastReport? На какой платформе вы его использовали?

У My Visual Database есть автор - Дмитрий. Я занимаюсь только популяризацией этого проекта, пишу книги и статьи по программированию на данной платформе.

На сегодня (28.03.2022) стоимость годового абонемента составляет всего 999 рублей. Это более 500 страниц для обучения, с примерами и пояснениями. То есть вы получаете доступ к электронным версиям этих документов, включая скачивание в удобных для вас форматах.

Так что стоимость на мой взгляд вполне адекватная и по мере роста библиотечных фондов она будет только увеличиваться ;-)

Никак. Либо пишите свое приложение на своем Дельфи со своим Fastreport и вызываете его, передавая нужные параметры в командной строке )))

Семейный альбом

У каждого из нас имеется множество фотографий, хранящих память о наших близких, друзьях, родственниках, памятных событиях и красивых местах, которые мы посетили. Современная техника позволяет получать качественные фотографии с высоким разрешением быстро и легко, к тому же фотокамера теперь всегда под рукой - все современные мобильные телефоны имеют возможность делать снимки. И было бы здорово иметь простую и функциональную систему хранения и просмотра этих фотографий.

Читать:  https://createmyvisualdatabaseapp.blogs … st_23.html

Кулинарная книга

Сегодня утром, приготовив завтрак, я решил, что каждый день буду создавать по одному небольшому проекту или по одной следующей версии существующих проектов. Каждый такой проект будет распространяться без ограничений и сопровождаться кратким отчетом по его созданию. Поэтому вполне логично сделать свой первый проект пригодным для хранения кулинарных рецептов.

Читать: https://createmyvisualdatabaseapp.blogs … -post.html

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

Это можно использовать для оптимизации процесса сохранения данных: если пользователь нажал кнопку "Сохранить", но никакие данные не вводил, то и сохранять ничего не нужно. Или наоборот: пользователь что-то поменял, а потом жмет кнопку "Отмена". Тогда можно предупредить его о том, что все изменения будут потеряны.

Готового решения у меня нет, но я бы сделал так.

1. В обработчике onShow пробежать по всем компонентам формы (свойство TForm.components[])   и в свойство TagStr записать текущее значение, при необходимости сконвертировав его в строку. Тут придется использовать проверку на класс (оператор is) и приведение к нужному типу. Это позволит создать один универсальный обработчик и подключить его ко всем формам редактирования.

2. В функции Form_isDataChange опять пробежать по всем компонентам и сравниmь текущее значение и свойство TagStr. Если есть различия, значит были изменения.

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