51

(1 replies, posted in FAQ)

Please attach your project.

52

(4 replies, posted in Russian)

Попробуйте у компонента изменить свойство BiDiMode


ScrollBox.BiDiMode := bdRightToLeft;

Попробуйте так

function DateDiff(date1, date2: TDateTime): string;
var
    years, months, days: integer;
    monthsTotal: integer;

    minDate: TDateTime;
    i, c: integer;
    DD, MM, YY: word;
begin
   date1 := trunc(date1);
   date2 := trunc(date2);


    years := YearsBetween(date1, date2);
    monthsTotal := MonthsBetween(date1, date2);
    months := monthsTotal - (years * 12);

    if date1 > date2 then minDate := date2 else minDate := date1;

    date1 := IncMonth(minDate, monthsTotal);
    days := DaysBetween(date1, date2);

    result := 'Days:' + IntToStr(days)+', Months:'+IntToStr(months)+', Years:'+IntToStr(years);
end;

Но не уверен, что результат на 100% правильный.
Есть ньюанс для подсчета лет
http://docwiki.embarcadero.com/Librarie … arsBetween

anakin wrote:

hi,

how to make a a trial-period (ex. 30-days) for a finished mvd application when given to end-user?
thanks!

http://myvisualdatabase.com/forum/viewtopic.php?id=1434

55

(16 replies, posted in General)

Change

User.Username

to

Application.User.Username

56

(2 replies, posted in Russian)

begin
    Form1.Label1.AlignWithMargins := True;
    Form1.Label1.Margins.Left := 10;
    Form1.Label1.Margins.Top := 10;
    Form1.Label1.Margins.Right := 10;
    Form1.Label1.Margins.Bottom := 10;
end.

57

(1 replies, posted in Russian)

Спасибо, исправил, в следующей версии ее не будет.

58

(2 replies, posted in General)

Please check out this project
http://myvisualdatabase.com/forum/misc. … download=1

59

(6 replies, posted in Script)

What exactly do you mean?

60

(63 replies, posted in Russian)

Проблема в SQL запросе, он неправильный.


Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/vyne4lvinpjzl … a.zip?dl=0


Для компонента DateTimePicker теперь в свойстве Kind можно выбрать значение Year, чтобы искать только по году, т.о. вместо SQL запроса теперь можете использовать стандартную кнопку с действием Поиск.

frmdbCoreUsers.gridUsers.dbListFieldsNames := 'Username,Role,Admin,Active,Last name,First name,Last login,Date joined';
vohans wrote:

Подскажите, а как убрать надписи с  всплывающих кнопок на компоненте DBimage?

http://myvisualdatabase.com/forum/viewt … 833#p35833

63

(1 replies, posted in General)

I think it's better that a small checkbox.

64

(1 replies, posted in General)

Hello.



Just download and use MVD 6.4 beta
https://www.dropbox.com/s/vyne4lvinpjzl … a.zip?dl=0

vohans wrote:

Появилась еще одна проблемка: как убрать всплывающие подсказки или перевести на другой язык?
Вот это:

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/vyne4lvinpjzl … a.zip?dl=0


Теперь имеется доступ к данным кнопкам с помощью скрипта, можете разместить данный код между begin и end. в самом конце скрипта.


begin
  Form1.DBImage1.ButtonOpen.Hint := 'Подсказка1';
  Form1.DBImage1.ButtonSave.Hint := 'Подсказка2';
  Form1.DBImage1.ButtonDelete.Hint := 'Подсказка3';
end.

smile

67

(0 replies, posted in Database applications)

Small Library software


http://myvisualdatabase.com/database_ex … brary.html


It's a perfect choice for the following libraries: school, church, corporation, non-profit organization, business, specialized, office, college or university libraries. Also you can create invoices.
Login/Password: admin/admin


http://myvisualdatabase.com/database_examples/library2.png


http://myvisualdatabase.com/database_examples/library1.png


http://myvisualdatabase.com/database_examples/library3.png

Скачайте снова бета версию
https://www.dropbox.com/s/vyne4lvinpjzl … a.zip?dl=0


Добавил параметры Width и Height

function FindAndInsertPicture(const FindText, PictureFilename: string; ReplaceAll: boolean = true, Width: integer = -1; Height: integer = -1): boolean

пример

Word.FindAndInsertPicture('{photo}',  'd:\picture.jpg', True, 100, 50);

Так правильно

SQLEXecute('UPDATE project SET score='+ Form1.chbEnabledAnswer.sqlValue +' WHERE id=1');

70

(63 replies, posted in Russian)

delphinsl wrote:

В версии 6.3 кнопка Отчет SQL не работает!

Проверил, работает.
Приложите пожалуйста проект, для демонстрации проблемы.

71

(26 replies, posted in General)

Please describe your question in more details with attached project with example.

vit007 wrote:

Слепил пример...

Нажимаем на поле слева, выбираем текст.  Так вот, надо, чтоб текст был, внешне, одинаков... при сравнение с правым полем.

Просто расположитие данный Edit на панельке, у которой свойство Enabled=False

mikhail_a wrote:

Обращаю внимание разработчика, что если в новой бета версии оставить код самостоятельного перевода контекстного меню, например, такой: Frm_1.TableGrid_1.dbPopupMenu.Items.Find('Find').Caption := 'Найти'; то при открытии формы с таблицей выпадает ошибка:
Access violation at address 00E3A564 in module 'kp_maker.exe'. Read of address 00000000.

Для перевода меню используйте данный метод

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.TableGrid1.dbPopupMenu.Items[0].Caption := 'Показать запись2';
    Form1.TableGrid1.dbPopupMenu.Items[1].Caption := 'Удалить запись2';
    Form1.TableGrid1.dbPopupMenu.Items[3].Caption := 'Копировать ячейку2';
    Form1.TableGrid1.dbPopupMenu.Items[4].Caption := 'Копировать2';
    Form1.TableGrid1.dbPopupMenu.Items[5].Caption := 'Копировать все2';
    Form1.TableGrid1.dbPopupMenu.Items[7].Caption := 'Найти2';
end;

Это можно сделать с помощью SQL запроса (кнопка с действием SQL запрос), но будет правильней, добавить еще один статус "невыполнено" и данный статус будет по-умолчанию для всех существующих.


для этого в настройках поля work.id_status установите значение по умолчанию, в качестве значения необходимо указать id значения статуса "невыполнено". Также в данных настройках необходимо указать, что данное поле является Обязательным.


Доработал ваш проект:

75

(3 replies, posted in FAQ)

Do you mean cross table? You can show it only using report.