8,301

(15 replies, posted in Russian)

Моя ошибка, будет исправлено в следующей версии, а пока код будет таким

procedure frmTovar_TableGrid2_OnCellClick (Sender: string; ACol, ARow: Integer);
var
    imgFile: string;
begin
     frmTovar.DBImage1.Clear;
     // узнаем имя файла на диске
     imgFile := SQLExecute('SELECT RaskladFoto_filename FROM Shirina WHERE id='+IntToStr(frmTovar.TableGrid2.dbItemID) );

     if imgFile<>'' then
     begin
         Delete(imgFile, 1, 1); // удаляем первый слешь
         frmTovar.DBImage1.dbFileName := imgFile; // добавил эту строчку
         frmTovar.DBImage1.Picture.LoadFromFile( imgFile );
     end;
end;

8,302

(4 replies, posted in Script)

Ready.

8,303

(11 replies, posted in Script)

Hello,


Here you can download example, user with different permission levels
http://myvisualdatabase.com/forum/misc. … download=1


Also you can use script to protect edit button with a password

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    If InputBox('Caption', 'Enter password', '')<>'123' then Cancel := True;
end;

8,304

(3 replies, posted in Script)

Hello,


You can store your files in a folder automatically, just use a property of component DBFile and DBImage, Type=LinkFile
(Sets the method of work with the image, save it to the database or refer to a file.)


and CopyTo
http://myvisualdatabase.com/help_en/com … opyto.html




Here you can read about graphics.dll
http://myvisualdatabase.com/forum/viewtopic.php?id=680

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

8,306

(15 replies, posted in Russian)

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


тогда так, при условии, что свойство CopyTo заполнено у компонента DBImage1

procedure frmTovar_TableGrid2_OnCellClick (Sender: string; ACol, ARow: Integer);
var
    imgFile: string;
begin
     frmTovar.DBImage1.Clear;
     // узнаем имя файла на диске
     imgFile := SQLExecute('SELECT RaskladFoto_filename FROM Shirina WHERE id='+IntToStr(frmTovar.TableGrid2.dbItemID) );

     if imgFile<>'' then
     begin
         Delete(imgFile, 1, 1); // удаляем первый слешь
         frmTovar.DBImage1.Picture.LoadFromFile( imgFile );
     end;
end;

8,307

(24 replies, posted in General)

bbacle wrote:

When is the English translation going to be available?

Already available here:
http://myvisualdatabase.com/forum/viewtopic.php?id=395

8,308

(4 replies, posted in Script)

For what purpose you need it?


Thanks.

Думаю выч. поле будет примерно таким:

( (SELECT 
TOTAL(prihod) - TOTAL(rashod) 

FROM table 

WHERE
date('now', '-1 day') = datefield ) 

+

(SELECT 
TOTAL(prihod) - TOTAL(rashod) 

FROM table 

WHERE
date('now') = datefield) )

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

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


я не вижу смысла записи из разных годов импортировать в разные таблицы БД, сущность одна ведь, только даты разные.

8,311

(4 replies, posted in Russian)

Попробуйте эту строчку

frmAbonent.dbPhoto.dbCopyTo:= 'photo\'+DateToStr(Now);

заменить на

    frmAbonent.dbPhoto.dbCopyTo:= 'photo\'+FormatDateTime('yyyy', now)+'\'+FormatDateTime('mmmm', now)+'\'+FormatDateTime('dd.mm', now);

С наступающим! smile

Могу предложить такой вариант

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=496&amp;download=0


К сообщению прикрепил ваш проект.


С Наступающим smile

8,313

(5 replies, posted in Russian)

Присоединяюсь! smile

С Наступающим!

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=492&amp;download=0

8,314

(8 replies, posted in General)

Here you can download a demo
http://myvisualdatabase.com/forum/misc. … download=1


(with user rights)
http://myvisualdatabase.com/forum/misc. … download=1

8,315

(4 replies, posted in Russian)

Создайте событие OnShow для формы, где создается/редактируется запись

procedure frmAbonent_OnShow (Sender: string; Action: string);
begin
    frmAbonent.dbPhoto.dbCopyTo:= 'photo\'+DateToStr(Now); // файл будет сохранен в папку "photo/текущая дата"
end;

в примере используется компонент DBImage (dbPhoto), думаю тоже самое будет работать и для компонента DBFile


Также можете скачать готовый проект

8,316

(28 replies, posted in Russian)

Augsberger wrote:

видимо тормоза базы SQLite есть... а как это решено в MVDB?
http://www.charnad.com/blog/if-sqlite-is-slow/

данная ссылка описывает другую проблему, не связанную с вашей.


Описана проблема, связанная со вставкой в БД одновременно большого количества записей, которую часто делают неправильно (без применения транзакции), что приводит к медленной работе.

8,317

(28 replies, posted in Russian)

Augsberger wrote:

Расскажите в чем была проблема с базой...у меня например всего 50 записей с прикрепленными файлами видео и аудио общим обьемом около 1 ГБ....и тоже ужасно тормозит... Минуты по 3-4 ждешь чтобы  добавить новую запись ...Сети нет


Настоятельно не рекомендую хранить файлы непосредственно в базе данных, как показала практика, это приводит к медленной работе, поэтому у компонентов DBFile и DBImage было добавлено свойство Type=LinkFile для хранения файлов в указанной папке (свойство CopyTo)

8,318

(3 replies, posted in Russian)

Augsberger
Импортировать файл в базу данных с помощью скрипта, к сожалению пока не возможно, можно только экспортировать файл из базы данных с помощью функции SaveFileFromDataBase


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

8,319

(3 replies, posted in Russian)

Augsberger
Спасибо, данная ошибка будет исправлена в версии 1.48

Augsberger
данный метод был добавлен в одной из последних версий, пожалуйста, скачайте последнюю версию 1.47
http://myvisualdatabase.com/download/myvisualdb.exe

Androsh
Думаю лучше не выводить в компонент TableGrid помимо данных о клиентов, их номера телефонов и емейлы.
Либо опишите, как бы вы хотели, чтобы данные были показаны, включая телефоны и емейлы клиентов?

8,322

(3 replies, posted in Russian)

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

И как можно сделать выборку нескольких пунктов для поиск с выпадающего списка?  Например поиск по полю "Откуда"  и выбрать несколько городов.

Это придется сделать с помощью кнопки с действием SQL запрос, запрос будет примерно таким

SELECT
firstname,
lastname

FROM
person

WHERE
(CASE WHEN {ComboBox1}=-1 then 1=1 else id_cityfrom={ComboBox1} end) OR
(CASE WHEN {ComboBox2}=-1 then 1=1 else id_cityfrom={ComboBox2} end) OR 
(CASE WHEN {ComboBox3}=-1 then 1=1 else id_cityfrom={ComboBox3} end) 

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



а каким образом в отчете можно вывести фотографию которая храниться в БД как ссылка LinkFile?
В  fastreport в поле LinkFile (PictureObject) можно вставить ссылку, но как её сделать переменной с поля БД?(

Сделал для вас пример, как это реализовать.
Обратите внимание на вычисляемое поле "photo_file" в  таблице БД person и скрипт в отчете.

8,323

(6 replies, posted in SQL queries)

Not enough just paste the event (frmYeniProje_Button6_OnAfterClick) in a script editor, you must create the event, here you can find, how to do it right:
http://myvisualdatabase.com/help_en/scr … rview.html



Please, let me know result.

8,324

(1 replies, posted in Script)

Hello,


Sorry for delay. Missed your message.


While I can not do a SWF animation in a project.



I made example for you.
How to launch a mail software by clicking on an adress mail.

8,325

(6 replies, posted in SQL queries)

kkalgidim
Sorry for delay.


You can do it, using a script.
Please, download your the fixed project here: