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.
My Visual Database → Posts by DriveSoft
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
Можно сделать отдельное окно с настройками, где можно будет сменить маску ввода, также данную маску можно сохранить в реестре, чтобы при выходе из программы она запоминалась.
Здравейте,
Таким образом можно открыть любой файл:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
OpenFile('c:\file.pdf');
end;
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;
Ничего не понимаю в скриптах поэтому понаглею еще раз :-) указанный выше код просто добавляем к скрипту либо нужно как то через операторы begin и end поместить? ах еще Edit1. это имя поля где прописана маска?
.
можете отправить ваш проект на support@drive-software.com
с подробным описанием, что именно нужно, постараюсь помочь.
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) );
Hello,
Why you don't use property NumbersOnly?
еще вопрос про маску ввод. скажем так в проекте в одном меню используется маска ввода в результате которой в поле имеется следующая информация 1531510____ (4 последних значения цифры которые мы добиваем вручную). возможно ли ее как либо менять без перекомпиляции проекта.
Можно, например
Form1.Edit1.EditMask := '!\(999\)000-0000;1;_';
и сразу еще 1 вопрос - реально ли сделать так чтобы при сохранении записи фокус в гриде переходил сразу на нее, т.е. на последнюю запись?
В текущей версии именно так и происходит, возможно у вас старая версия? если да, то думаю поможет этот скрипт
procedure Form2_bSave_OnAfterClick (Sender: string);
begin
Form1.TableGrid1.dbItemID := Form2.bSave.dbGeneralTableId;
end;
It's planned but is not supported in the current version.
Сделал для вас проект с примером
в базе данных как правило много изображений, вам необходимо открыть изображение, например принадлежащее записи, которая выбрана в компоненте TableGrid?
Приветствую,
Изображение откуда? из файла или базы данных?
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');
for this example, there is no difference 1.48 or 1.50
nikolai_nn
Для этого не нужна другая таблица, необходимо воспользоваться компонентами TextBox
Также я добавил эти поля в таблицу поиска.
nikolai_nn
К сожалению не смог понять вопроса, пожалуйста напишите на болгарском, аз малко разбирам )
I do not know about this problem, please download this example:
http://myvisualdatabase.com/forum/misc. … download=1
И еще как я понимаю в данном скрипте для запуска необходимо заменить только имя главной (стартовой) формы?
Вам необходимо создать событие, если вы просто скопируете скрипт к себе и переименуете форму, работать не будет.
Как правильно создавать события, можно посмотреть здесь
http://myvisualdatabase.com/help_ru/scr … rview.html
просто укажите сетевой путь к базе, например
CopyFile('\\server\share\sqlite.db', 'backup/backup '+ FormatDateTime('dd-mm-yyyy hh-nn-ss', now)+'.db');
а.. просто у вас изменилось имя поля, поэтому в отчете возникает ошибка, просто удалите с формы отчета это поле и снова перетащите поле из правого списка
Странно, не должно быть ошибки, пришлите весь проект с измененным 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})
Проверил у себя, ошибки нет, покажите пожалуйста ваш SQL запрос полностью.
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi