Search options (Page 36 of 61)

Можно создать свой календарь с любыми цветами:

https://createmyvisualdatabaseapp.blogs … /ui-4.html

try this code

procedure Default_OnClose (Sender: TObject; Action: string);
var
  tmpForm:TAForm;
begin
  tmpForm := TAForm(Sender);
  if tmpForm.CalledForm<> nil then
    tmpForm.CalledForm.Show
end;

procedure Default_OnShow (Sender: TObject; Action: string);
var
  tmpForm:TAForm;
begin
  tmpForm := TAForm(Sender);
  if tmpForm.CalledForm<> nil then
    tmpForm.CalledForm.Hide;
end;

procedure Init;
var
  tmpForm: TAForm;
  i: integer;
begin
  for i := 0 to Screen.FormCount - 1 do
  begin
    tmpForm := TAForm(Screen.Forms[i]);
    if tmpForm.dbOnClose = '' then
      tmpForm.OnClose := 'Default_OnClose';
    if tmpForm.dbOnShow = '' then
      tmpForm.OnShow := 'Default_OnShow';
  end;
end;

procedure q_OnShow (Sender: TObject; Action: string);
begin
  // if such handler already exists, you need to add a call to the default handler
  Default_OnShow (Sender, Action);
  ShowMessage('Show');
end;

begin
  Init;
end.

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

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

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

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

DeleteFile(FileName);

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

I have no ready-made solution. I can only offer an idea of implementation.

You will need two large pictures. One for the front of the button panel, which will display your buttons of any configuration. The second is with button map. In this map, each button must have its own color. When you click on the first picture, you see where you hit the map. And, if there is a color at this point, then by this color we process the pressing of the corresponding button.

3. Форма редактирования и кнопка наполнения данными

Одним из типовых решений в My Visual Database является форма с табличным представлением, на которой находятся кнопки: 1) заполнение данными табличного представления 2) открытие формы редактирования. Оказывается, между ними имеется связь, которая в некоторых случаях необходима для определения таблицы, которую вы собираетесь редактировать. И, если эта связь нарушена, то при открытии формы редактирования вы получаете загадочные ошибки со ссылками на строки внутренней реализации функции открытия формы редактирования.

В частности, если для заполнения данных вы использовали кнопку с функцией [SQL ЗАПРОС], то для корректной работы внутренних механизмов вы обязаны указать в свойстве "Главную таблицу базы данных в запросе" таблицу, запись из которой будет открыта на редактирование в форме редактирования. Это связано с тем, что алгоритм открытия формы редактирования ориентируется не на свойства кнопки сохранения данных, а на другие свойства: на настройку табличного представления или на  настройку кнопки для заполнения данными табличного представления.

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

Your solution is more elegant in terms of coding and queries. But in terms of data normalization, I would rather store references to values.

Just use scripts:

Form1.Hide;  // hide Form1
...
Form2.Show;  // Show Form2
...
Form3.ShowRecord(); //  edit data
...
Form4.NewRecord(); //  add data 

Don't use modal form. Don't use action buttons to open forms, only scripts.

В библиотеку "My Visual Database" добавлена статья "Современный UI", в которой рассматриваются приёмы создания привлекательного и удобного пользовательского интерфейса для приложений, созданных в среде разработки My Visual Database (MVD). В статье приводятся исходные тексты для создания графических кнопок, панели инструментов, главного меню, календаря и чата. Данная статья была опубликована в блоге "Визуальное программирование" и дополнена полным исходным кодом описываемого проекта.

https://mvdlibrary.blogspot.com

Современный UI. Часть 5

В настоящих чатах сообщения передаются мгновенно по одному из сетевых протоколов передачи данных. В My Visual Database такой возможности нет, но с помощью скриптов можно устроить работу чата, который будет выполнять функции быстрой доставки сообщений, к которым можно присоединять файлы.

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

Читать далее:  https://createmyvisualdatabaseapp.blogs … /ui-5.html

Лучше не стало - теперь пишет о необходимости купить лицензию )))

Подтверждаю: возможно и даже более чем )))

Современный UI. Часть 3

Для редактирования таблицы на каждой форме с табличным представлением разместим панель с графическими элементами-кнопками: панель инструментов. Для анимации задействуем тот же механизм, что и у кнопок на панели главного меню: обработчики событий  MenuButton_OnMouseEnter и MenuButton_OnMouseLeave. А обработку нажатия сделаем свою. Её логика основана на ещё одном соглашении, а именно: на форме должны находиться невидимые кнопки (TdbButton), названия которых должны совпадать с названиями изображений кнопок панели инструментов.

Читать далее: https://createmyvisualdatabaseapp.blogs … /ui-3.html