8,226

(8 replies, posted in Russian)

menshikov-76
В вашем случае можно воспользоваться экспортом в Excel через отчет, где есть возможность вывести информацию таким образом.


Можете прислать мне свой проект на support@drive-software.com
постараюсь помочь.

8,227

(28 replies, posted in Russian)

Augsberger
Скорей всего где то ошибка в скриптах, которая загружает базу или интерфейс, можете прислать мне файл скрипта на support@drive-software.com

посмотрю, где может быть причина.

8,228

(32 replies, posted in Russian)

Извиняюсь, перепутал версии, 1.45 бесплатная
https://www.dropbox.com/s/t6iudxgkz9wct … 5.exe?dl=0

8,229

(8 replies, posted in Russian)

menshikov-76
К сожалению не вижу скрина.


Опишите подробней, как именно вы используете TableGrid?
Так как если его использовать стандартно, то количество колонок определяется автоматически, когда в таблицу выводится информация, и нет необходимости задать их количество как либо еще.

8,230

(32 replies, posted in Russian)

menshikov-76 wrote:

жаль но скрипт не работает на версии 1.40 .

Здесь вы можете скачать последнюю версию, которая была бесплатной, в ней есть скрипты
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0

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


Не могли бы вы мне прислать свою базу данных для тестов на support@drive-software.com

8,232

(28 replies, posted in Russian)

Augsberger
Скорей всего у вас тормозит из за скриптов, попробуйте их отключить временно.
Дайте знать результат.



Также можете скачать тестовый проект, в котором загружено 100000 записей, у меня они все выводятся примерно за 5 сек.
Добавление и удаление записей происходит моментально.

8,233

(4 replies, posted in Russian)

В текущей версии при изменении структуры БД, необходимо пересоздавать базу данных, при этом все данные в ней теряются.


После того, как вы изменили структуру существующей БД (например добавили новую таблицу), и запустили проект, Вы должны были получить сообщение:

Структура базы данных была изменена.
Вы желаете пересоздать базу данных?
---------------------------
Yes   No   
---------------------------



Скорей всего вы ответили No, и структура базы данных фактически не была изменена (в файле sqlite.db)
Просто удалите файл базы данных в папке с проектом sqlite.db и при запуске проекта БД будет пересоздана правильно.


В последней бета версии 1.48 эта проблема почти решена
- Реализована возможность создания новых полей в БД без потери данных (08.01.2015)
- Реализована возможность создания и удаления таблиц в БД без потери данных (09.01.2015)
- Реализована возможность удаления полей из таблиц БД без потери данных (10.01.2015)
Осталось реализовать возможность переименования полей и таблиц без потери данных в БД.


Скачать бета версию 1.48 можете здесь
http://myvisualdatabase.com/forum/viewtopic.php?id=781

8,234

(11 replies, posted in Script)

chiklopes
Hello, answered to e-mail )



Unfortunately there is no other videos tutorial.

8,235

(3 replies, posted in Script)

Please, first download the latest beta version 1.48
https://www.dropbox.com/s/6rz92s72djtmv … 8.zip?dl=0



Thanks.

begin
    c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do
    begin
         if  Pos('Рабочий', Form1.TableGrid1.Cells[9,i])>0 then 
         begin
              Form1.TableGrid1.Cell[9,i].Color := $00AAAAFF;
              Form1.TableGrid1.Cell[0,i].Color := $00AAAAFF;
         end;
    end;

$00AAAAFF - светло-красный
$00AAFFFF - светло-желтый
$00AAFFAA - светло-зеленый

8,237

(24 replies, posted in Russian)

Leonid wrote:

Добрый день !
Заметил ошибку в последней бета 1,48 , ( ссылка на нее в этой теме выше).
В гридах идет неправильное отображение чисел типа REAL .

Спасибо! )
Исправил.

Augsberger
Покажите пожалуйста ваш скрипт, который подкрашивает слово, постараюсь его доработать.

8,239

(4 replies, posted in Russian)

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

Для работы примера, скачайте последнюю бета версию 1.48
https://www.dropbox.com/s/6rz92s72djtmv … 8.zip?dl=0



В будущем сделаю работу с иерархиями без использования скрипта.



Пример проекта

8,240

(24 replies, posted in Russian)

Augsberger wrote:

И еще когда указываешь цвет в 16 ричной системе выдает ошибку
Вот пример кода:

Form1.TableGrid1.Cell[9,i].Color := FFCCCC;

Для того, чтобы указать произвольный цвет, можно воспользоваться шестнадцетиричным числом
пример:

Form1.TableGrid1.Cell[9,i].Color:= $00DDEEFF;

где FF - красный, EE - зеленый, DD - синий.

8,241

(24 replies, posted in Russian)

Augsberger wrote:

Как сделать в заголовках Грида Наименование в две строки....так как бывает значение Да/Нет а название заголовка длинное....ну очень не удобно!!!Сделайте пожалуйста!!!

Добавил такую возможность в бета версию 1.48
https://www.dropbox.com/s/6rz92s72djtmv … 8.zip?dl=0


Чтобы вставить перенос строки в текст заголовка, используйте символы \r\n


Также необходим скрипт, создайте событие OnChange для компонента TableGrid

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Header.Multiline := true; // включает возможность переноса заголовка в указанном столбце
    Form1.TableGrid1.Columns[1].Header.Multiline := true;
    Form1.TableGrid1.Columns[2].Header.Multiline := true;
    Form1.TableGrid1.HeaderSize:=28; // задает высоту заголовка
end;

Здесь можете скачать проект с примером, как это сделать:

8,242

(32 replies, posted in Russian)

menshikov-76 wrote:

Долго искал разницу в связи но нашел и все получилось. огромное спасибо.  вот как то так. https://yadi.sk/d/SdWGVfszdu4vu и может вопрос не по теме этого раздела, в какой файл программы сохраняется вся база, как ее можно удалить или на оборот добавить?

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

menshikov-76 wrote:

ну и второй вопрос по базе. в моей базе в таблице настроек при добавлении нового названия нажимаем кнопку ОК но имя товара не пропадает. ее нужно стирать какое значение кнопки нужно сделать чтобы новое название сохранялось но надпись исчезала?

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

8,243

(5 replies, posted in General)

yann.yvinec wrote:

Dmitry

A last reflexion about my last mail
What will be the good syntax for LinkToFile and for CopyToFile ?
I guess put this syntax behind a AfterClick Event for Save Button
We could place this perfect syntax for thoses two cases in help : http://myvisualdatabase.com/help_en/com … opyto.html
Don't you ?

What exactly do you need to do?
You only need to specify the folder in the property CopyTo, no more action is required.



When I use Form_Oiseau_Grille.DBImage1.dbShowButtons := False;
whether it is placed in Form_Oiseau OnShow event or between last Begin ... End of Script file
I get an error message : "Undeclared Identifier : dbShowButtons"
Any variable or parameter missing from me ?
I'm using MVD 1.48 beta

Strangely, it should work.
Can you send me your project to support@drive-software.com
with exe project file.


Thanks.

8,244

(3 replies, posted in Script)

I made for you the slide effect.

8,245

(5 replies, posted in General)

You can hide these buttons:

Form1.DBImage1.dbShowButtons := False;



StoreFile - save files directly into the database
not recommended to save files directly into the database, as this leads to slow down.


LinkFile - refer to the file or refer to the folder.
The file is stored in any folder. The database stores only the file path to the file.


When you use property LinkFile, also you can use property CopyTo:
CopyTo property allows you to specify where you want to automatically copy the file path relative to the location of the database file.
http://myvisualdatabase.com/help_en/com … opyto.html

8,246

(11 replies, posted in Russian)

Пока не реализовал такой возможности.

8,247

(8 replies, posted in Russian)

Готово.
Я сделал чтобы том менялся каждые 5 записей, вместо 100, чтобы было проще тестировать, просто измените в коде скрипта цифру 5 на 100

//процедура запрета редактирования не своих записей
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    sIdUser: string;
begin
    if isAdmin then Exit;
    if sCurrentUser = 'Иванов'  then Exit;

    sIdUser:=SQLExecute('SELECT id_Users FROM Zapisi WHERE id='+IntToStr(Form1.TableGrid1.dbItemID));
    if sIdUser<>IntToStr(idUser) then
    begin
        Cancel := True;
        ShowMessage('Вы не можете редактироватить созданную не вами запись.');
    end;
end;

где sCurrentUser - это переменная, в которой хранится имя текущего пользователя

8,249

(32 replies, posted in Russian)

Это можно сделать без использования скрипта, пожалуйста, скачайте данный пример.
Обратите внимание на свойство ComboBox-a, ParentComboBox - Позволяет указать родительский Выпадающий список, необходим для создания связанных списков.

8,250

(8 replies, posted in Russian)

Если я правильно понял суть, то можно создать поле, где будем формировать номер тома, если количество записей в текущем томе не превышает сотню, то номер тома не изменяется, иначе переходим к новому тому (+1)


Также создаем поле, в котором будет хранится номер записи в томе, который будет сбрасываться в 1 при переходе на следующий том.


Это можно реализовать с помощью скрипта.


Можете приложить архив вашего проекта к сообщению (удалив из него exe и dll), постараюсь помочь.