8,651

(7 replies, posted in Russian)

kunar80
К сожалению не вспомню сходу ваш проект )
но думаю в любом случае можно )

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



Если что, пришлите пожалуйста проект на support@drive-software.com

yandex
Пришлите пожалуйста ваш вариант проекта Клиент-Мастер, совмещу для вас проект со входом через логин и пароль.

8,654

(1 replies, posted in Russian)

Сделал для вас пример, как отловить данное нажатие клавиш.


вместо ShowMessage('Shift + Alt + P');
необходимо вписать код, который программно нажмет на кнопку, которая отвечает за создание нового напоминания
Form1.Button1.Click; // имя формы Form1 и имя кнопки Button1 необходимо вписать свои

yandex
Зависит от примера, можете прислать мне свой проект на support@drive-software.com
и сказать, что именно вы хотели бы совместить.

8,656

(34 replies, posted in Russian)

А качестве скриптов используется язык ObjectPascal, применяемый в среде разработки Delphi.


Таким образом можно почитать любой обучающий материал данной среды разработки
http://portal.tpu.ru/SHARED/v/VIC/educa … index.html
http://www.snkey.net/books/delphi/ch1-3.html
книга: http://vk.com/doc40872320_307780425?has … 3a8cfc5c25



Сделал для вас пример с заставкой, с картинкой и обратным отсчетом.

Вполне )

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

8,659

(22 replies, posted in General)

The Engineer


Thank you for the help! )
I sent you materials.

8,660

(23 replies, posted in Russian)

К сожалению пока нет, не реализовал такую возможность.


Иконку любого приложения в принципе можно сменить редактором ресурсов, например этим
http://www.angusj.com/resourcehacker/

8,661

(1 replies, posted in General)

Hello,


Strangely, please send me your project to support@drive-software.com
I'll check it,

8,662

(34 replies, posted in Russian)

Можно, необходимо создать событие OnClick у кнопки, которая удаляет запись

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
   // запрашивает пароль, пароль: 123, если ввели не верно, действие кнопки отменяется (Cancel := True)  
   if InputBox ('Запрос', 'Введите пароль', '') <> '123' then Cancel := True;
end;

8,663

(34 replies, posted in Russian)

Импорт пока можно сделать с помощью скриптов
Пример:
http://myvisualdatabase.com/forum/misc. … download=1


аналогичный пример для более сложных данных:

8,664

(34 replies, posted in Russian)

Прикрепил проект, как скрыть.

8,665

(34 replies, posted in Russian)

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


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


- Точность напоминания 60 сек, т.е. если напоминание установлено в 12:00:00, оно может быть показано в 12:00:59

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


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

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     Form1.mniReport.Click; // откроет дизайнер отчета
end;


procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
     Form1.mniDBLocation.Click; // вызов диалога выбора места расположения файла базы данных
end;

События OnClick необходимо создать, как описано в документации
http://myvisualdatabase.com/help_ru/scr … rview.html

8,667

(11 replies, posted in Reports)

Hello,


No, please try to send drive.soft.mail@gmail.com

8,668

(3 replies, posted in General)

Download beta version 1.47:
https://www.dropbox.com/s/bhwao1izh5q4y … 7.zip?dl=0


What's new?
- Added a new property CopyTo for "Save image in database" component
- Added a new method dbSQLExecute for ComboBox component
- Added a new property NumbersOnly for TextBox component
- Added ability to search on calculated fields
- Added custom sorting for Search button
- Other minor changes
- Improved script editor
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=367&amp;download=0

8,669

(22 replies, posted in General)

Sorry for delay. In the moment no time to make PDF file for you.
Why you can't use online version?

motorolla
у вас старая версия программы, в которой отсутствует функция CopyFile
скачайте пожалуйста бета версию 1.46, она бесплатна
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0

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


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

8,672

(1 replies, posted in Script)

Thank you for the help! )


Fixed, please download latest version here:
https://www.dropbox.com/s/bhwao1izh5q4y … 7.zip?dl=0

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


Допустим у нас есть папка files в папке с проектом, куда файлы будут копироваться.
В компонент DBFile, в его свойство CopyTo также необходимо прописать files

procedure frmAbonent_Button8_OnClick (Sender: string; var Cancel: boolean);
var
   Dialog: TOpenDialog;
   sNewFileName: string;
begin
     Dialog := TOpenDialog.Create(frmAbonent);

     if Dialog.Execute then
     begin
          sNewFileName := 'Реквизиты ООО КАРАВАН.txt'; // создаем новое имя файла
          CopyFile(Dialog.FileName, 'files\' + sNewFileName); // копируем файл в папку files с новым именем

          // заполняем свойства компонента в ручную
          frmAbonent.dbFile.dbFileName := '\files\' + sNewFileName;
          frmAbonent.dbFile.Text :=  ExtractFileName(sNewFileName);
          frmAbonent.dbFile.dbFileIsChanged := True;
     end;

     Dialog.Free;
end;

8,674

(28 replies, posted in Russian)

Это можно сделать так

// dokument
dokument := '"' +  ReplaceStr(arrStr[3], '"', '""') + '"';

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

procedure frmDocProcessingNAF_view_OnClick (Sender: string; var Cancel: boolean);
begin
     if frmDocProcessingNAF.DBFileNAF.dbFileName <> '' then OpenFile(frmDocProcessingNAF.DBFileNAF.dbFileName)
     else ShowMessage('Файла нет');
end;