4,776

(10 replies, posted in Script)

Press Ctr+F to show search dialog.


Unfortunately component which I use for highlight syntax works slow with bracketing, so bracketing automatically disabled when lines of code to much. I need to find another component for highlight syntax.

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


Пока нет, разве что только сторонней программой Resourse Hacker.

4,778

(66 replies, posted in Russian)

Роман
Для этого вам необходимо завести в таблице БД, поле, например с названием hidden с типом ДА/НЕТ.


затем в данном скрипте вместо выполнения SQL запроса удаления, сделать SQL запрос обновления записи, чтобы в поле hidden записать значение 1, пример

SQLExecute('UPDATE  employees SET hidden=1 WHERE id = ' + Form1.GridEmployees.Cells[iColumn, i]);

затем в настройках грида, в разделе 3. Фильтр написать условие:

hidden<>1

4,779

(2 replies, posted in General)

Your code just doing what your wrote )


I think you should not use event OnChange.

Hello,


Please attach your project, I will try to implement it to your project.


Thanks.

4,781

(10 replies, posted in Script)

Hello,


Unfortunately I can't add this function.
It may cause one problem, if user accidental click refresh button, he will lost latest changes in the script.

innerforce wrote:

Все, наконец дошло, как сделать выбор в комбобоксе. и для чего нудна доп. форма (что-бы комбобокс брал данные из таблички формы, в которую забиты значения)..
хух...

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

а вот над видеоуроками следует все-же поработать!

Решил написать книгу, которая подошла бы и для самых начинающих, но она пока в процессе написания
http://myvisualdatabase.com/forum/viewtopic.php?id=2554

indigen wrote:

Мне не хватает возможности разделить по разным вкладкам скрипты для разных форм, все в одном - немножко бардак получается в итоге. Поиск не спасает. Если это уже есть то как это сделать?

По разным вкладкам пока возможности нет, но можно расположит код в другом файле, который можете редактировать любоым другим текстовым редактором, пример:

4,784

(2 replies, posted in Russian)

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


К сожалению я могу помочь только с конкретными вопросами.

1. Создайте внешний ключ в таблице oborudovanievarende  на таблицу aktyarendy с поддержкой целостности.


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

innerforce
Пожалуйста, посмотрите внимательно данные видео уроки на странице
http://drive-software.com/myvisualdatabase_ru.html

vir2alex
как ответили выше, в поле фильтр можете указать условие

Trash IS NULL

независимо от типа поля, если в него не было внесена информация, поле имеет значение NULL


если что то не работает, пожалуйста приложите ваш проект с описанием, где именно в проекте не работает фильтр.

4,788

(36 replies, posted in Russian)

Ясно. Просто в другом похожем проекте словарь обладает спец. функционалом. Там можно, к примеру, всех сотрудников распределить по должностям перетаскиванием мыши. Но реализовано не очень.

Так это получается, что выставляя галочку "Таблица являтса словарём" разработчик делает всего-лишь подсказку для себя?


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

4,789

(8 replies, posted in Russian)

6katran6 wrote:

не подскажите уже можно создавать свое меню ??? скриптом

Всплывающее меню при нажатии правой кнопки? да, пример меню которое появляется у кнопки, при нажатии на ней правой кнопкой мыши.

4,790

(5 replies, posted in Russian)

Игоревич wrote:

username=
database=
savepassword=0

Получается можно установить пароль к БД ?

Нет, эти строки появляются при использрвании MySQL

4,791

(5 replies, posted in Script)

mathmathou
Yes, you can, using global variables, example


var
   text1, text2... textN : String;


procedure1...
begin
     text1 := DoSomething1(Data1);
     test2 := DoSomething2(Data2);
     ...
     textN := DoSomethingN(DataN);
end;

procedure 2...
var
     info1, info2... infoN : String;
begin
     info1 := text1;
     info2 := text2;
     ...
     infoN := textN;
end;

begin
end.

but often using global variables not good programming style.

4,792

(36 replies, posted in Russian)

vir2alex wrote:

Что такое словарь, считаю, нужно разжувать как следует! Давно уже делаю базы в мускуле, в аксесе и ещё один похожий на этот проект, конкурент типа. в нём тоже несколько сделал и так и не могу понять накой нужны словари... Похожий функционал реализовываю с помощью простых таблиц и на мой взгляд с помощью простых таблиц словари можно сделать куда круче, чем использовать сами таблицы-словари. Хотя честно говоря сам не понял толком что это. )))

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

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

ДобавитьОборудование.itemunit.Value:=SQLExecute('SELECT name FROM units WHERE id='+VarToStr(itemunitid));

заменить на

ДобавитьОборудование.itemunit.Text:=SQLExecute('SELECT name FROM units WHERE id='+VarToStr(itemunitid));

И еще момент, при попытке удаления строки из таблицы находящейся Акты>1-вкладка оборудование или услуги вылетает ошибка и строка не удаляется. Проект приложил без ехе (не влез). Это косяк моего железа/рук или ошибка программы?

В настройках кнопки удаления не указан компонент TableGrid, т.е. кнопка не знает, откуда удалять.

4,794

(5 replies, posted in Russian)

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


AlexM wrote:

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

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



AlexM wrote:

И еще вопрос: есть ли возможность изменения имени БД, т. е.  на не sqlite.db и указать  место  ее размещения (не используя диалога из меню)?
Благодарю.

В папке с проектом есть файл Settings.ini, в котором вы можете прописать желаемое имя БД, пример:

[Options]
server=sql.db

также следует переименовать файл sqlite.db в sql.db

indigen wrote:

Спасибо, теперь не валится с ошибкой. Вот только проблема изменилась: возвращает 0, хотя цена прописана.
Макет проекта в шапку добавил (если вдруг понадобится)

Вы забыли name заменить на id

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

ДобавитьОборудование.price.Value:=SQLExecute('SELECT price FROM oborudovanie WHERE id='+ДобавитьОборудование.naimenovanie.sqlValue);

4,796

(5 replies, posted in SQL queries)

sonixax
I corrected my example in previous answer. Just remove word "day"

4,797

(1 replies, posted in Russian)

Все верно.


Я ответил вам на емейл.

4,798

(5 replies, posted in SQL queries)

for MySQL:

UPDATE sampletable SET myfield=1 where DATEDIFF(now() ,DATEFIELD) >= 7;

4,799

(1 replies, posted in Script)

Hello,

var
   Line1: string;
   Line2: string;
   Line3: string;
begin
   // How To Read Text  In Memo1
   Line1 := Form1.Memo1.Lines[0];
   Line2 := Form1.Memo1.Lines[1];
   Line3 := Form1.Memo1.Lines[2];

   // display LINE 1 to text1.text
   Form1.Edit1.Text := Line1;

   // display count character Line 1 to text2.text
   Form1.Edit2.Value := Length(Line1);
  
   // display count all line in Memo1 to text3.text
   Form1.Edit3.Value := Form1.Memo1.Lines.Count;

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


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

ДобавитьОборудование.price.Value:=SQLExecute('SELECT price FROM oborudovanie WHERE id='+Form1.ComboBox1.sqlValue);