The script is a programming language Object Pascal or Delphi, thus for learnig the script, you can read any book about Delphi.


Unfortunately you can not link outer modules written in C++ or JAVA and etc.

wertyby
Можно сделать отдельное окно с настройками, где можно будет сменить маску ввода, также данную маску можно сохранить в реестре, чтобы при выходе из программы она запоминалась.

7,678

(3 replies, posted in Russian)

Тук
http://myvisualdatabase.com/help_ru/com … bfile.html


можете также скачать проект с примером

7,679

(3 replies, posted in Russian)

Здравейте,


Таким образом можно открыть любой файл:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    OpenFile('c:\file.pdf');
end;

7,680

(2 replies, posted in General)

Please, download latest beta version 1.50
https://www.dropbox.com/s/0m799p8qxh5kb … 0.zip?dl=0



After that you can use this example:

    Form1.Constraints.MaxHeight := 400;
    Form1.Constraints.MinHeight := 200;
    Form1.Constraints.MaxWidth := 400;
    Form1.Constraints.MinWidth := 200;
wertyby wrote:

Ничего не понимаю в скриптах поэтому понаглею еще раз :-) указанный выше код просто добавляем к скрипту либо нужно как то через операторы begin и end поместить? ах еще Edit1. это имя поля где прописана маска?
.

можете отправить ваш проект на support@drive-software.com
с подробным описанием, что именно нужно, постараюсь помочь.

7,682

(3 replies, posted in Script)

If you need to save to the database at the same time the date and time, please read more info about property Calendar:
http://myvisualdatabase.com/help_en/com … icker.html


For using Date and Time, you need two DateTimePickers
Example:

PickerDate (property Kind=Date)
PickerTime (property Kind=Time)

var
    DateTime1, DateTime2: TDateTime;
begin
    DateTime1 := Trunc(Form1.PickerDate.DateTime) +  Frac(Form1.PickerTime.DateTime);
    DateTime2 := Trunc(Form1.PickerDate2.DateTime) +  Frac(Form1.PickerTime2.DateTime);

    ShowMessage( SecondsBetween(DateTime1,DateTime2) );

7,683

(1 replies, posted in Script)

Hello,


Why you don't use property NumbersOnly?
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=576&download=0

wertyby wrote:

еще вопрос про маску ввод. скажем так в проекте в одном меню используется маска ввода в результате которой  в поле имеется следующая информация 1531510____ (4 последних значения цифры которые мы добиваем вручную). возможно ли ее как либо менять без перекомпиляции проекта.

Можно, например

Form1.Edit1.EditMask := '!\(999\)000-0000;1;_';
wertyby wrote:

и сразу еще 1 вопрос - реально ли сделать так чтобы при сохранении записи фокус в гриде переходил сразу на нее, т.е. на последнюю запись?

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

procedure Form2_bSave_OnAfterClick (Sender: string);
begin
    Form1.TableGrid1.dbItemID := Form2.bSave.dbGeneralTableId;
end;

7,685

(2 replies, posted in General)

It's planned but is not supported in the current version.

7,686

(6 replies, posted in Russian)

Сделал для вас проект с примером

7,687

(6 replies, posted in Russian)

в базе данных как правило много изображений, вам необходимо открыть изображение, например принадлежащее записи, которая выбрана в компоненте TableGrid?

7,688

(6 replies, posted in Russian)

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


Изображение откуда? из файла или базы данных?

7,689

(4 replies, posted in General)

No, you can only open link from the TextBox in a default browser.

Думаю должно получиться

CopyFile('\\server\share\sqlite.db', '\\server\share\backup\backup'+ FormatDateTime('dd-mm-yyyy hh-nn-ss', now)+'.db');

7,691

(4 replies, posted in General)

for this example, there is no difference 1.48 or 1.50

7,692

(5 replies, posted in Russian)

nikolai_nn
Для этого не нужна другая таблица, необходимо воспользоваться компонентами TextBox


Также я добавил эти поля в таблицу поиска.

7,693

(5 replies, posted in Russian)

nikolai_nn
К сожалению не смог понять вопроса, пожалуйста напишите на болгарском, аз малко разбирам )

7,694

(4 replies, posted in General)

I do not know about this problem, please download this example:
http://myvisualdatabase.com/forum/misc. … download=1

7,695

(14 replies, posted in Russian)

viket
Должно.

wertyby wrote:

И еще как я понимаю в данном скрипте для запуска необходимо заменить только имя главной (стартовой) формы?

Вам необходимо создать событие, если вы просто скопируете скрипт к себе и переименуете форму, работать не будет.
Как правильно создавать события, можно посмотреть здесь
http://myvisualdatabase.com/help_ru/scr … rview.html

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

CopyFile('\\server\share\sqlite.db', 'backup/backup '+ FormatDateTime('dd-mm-yyyy hh-nn-ss', now)+'.db');

7,698

(14 replies, posted in Russian)

а.. просто у вас изменилось имя поля, поэтому в отчете возникает ошибка, просто удалите с формы отчета это поле и снова перетащите поле из правого списка

7,699

(14 replies, posted in Russian)

Странно, не должно быть ошибки, пришлите весь проект с измененным SQL запросом ('Так' и 'Ні')


добавил в запрос дату из DateTimePicker-ов

SELECT
strftime('%d.%m.%Y', {DateTimePicker2}),
strftime('%d.%m.%Y', {DateTimePicker5}),

strftime('%d.%m.%Y', date),
strftime('%d.%m.%Y', dateMemos),
strftime('%d.%m.%Y', datePerformance),
includedMemos.num,
departmentsOther.name,
includedMemos.content,
(CASE WHEN includedMemos.marked=1 then 'Да' else 'Нет' end),

organization.organization,
organization.department,
organization.otdel
FROM includedMemos, organization

LEFT OUTER JOIN departmentsOther ON departmentsOther.id=includedMemos.id_departmentsOther


WHERE
Date({DateTimePicker2}) <= Date(includedMemos.date) AND
Date(includedMemos.date) <= Date({DateTimePicker5})

7,700

(14 replies, posted in Russian)

Проверил у себя, ошибки нет, покажите пожалуйста ваш SQL запрос полностью.