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.
My Visual Database → Posts by DriveSoft
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.
Роман
Для этого вам необходимо завести в таблице БД, поле, например с названием hidden с типом ДА/НЕТ.
затем в данном скрипте вместо выполнения SQL запроса удаления, сделать SQL запрос обновления записи, чтобы в поле hidden записать значение 1, пример
SQLExecute('UPDATE employees SET hidden=1 WHERE id = ' + Form1.GridEmployees.Cells[iColumn, i]);
затем в настройках грида, в разделе 3. Фильтр написать условие:
hidden<>1
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.
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.
Все, наконец дошло, как сделать выбор в комбобоксе. и для чего нудна доп. форма (что-бы комбобокс брал данные из таблички формы, в которую забиты значения)..
хух...а я думал, что в каком-то поле просто можно вписать свои значения - кстати - почему автору программы такую вещь не реализовать?
а вот над видеоуроками следует все-же поработать!
Решил написать книгу, которая подошла бы и для самых начинающих, но она пока в процессе написания
http://myvisualdatabase.com/forum/viewtopic.php?id=2554
Мне не хватает возможности разделить по разным вкладкам скрипты для разных форм, все в одном - немножко бардак получается в итоге. Поиск не спасает. Если это уже есть то как это сделать?
По разным вкладкам пока возможности нет, но можно расположит код в другом файле, который можете редактировать любоым другим текстовым редактором, пример:
Приветствую,
К сожалению я могу помочь только с конкретными вопросами.
1. Создайте внешний ключ в таблице oborudovanievarende на таблицу aktyarendy с поддержкой целостности.
К сожалению я не смогу помочь со всеми выше озвученными проблемами, т.к. проект достаточно большой, и у меня уйдет целый день, чтобы разобраться в нем и исправить все ошибки.
innerforce
Пожалуйста, посмотрите внимательно данные видео уроки на странице
http://drive-software.com/myvisualdatabase_ru.html
vir2alex
как ответили выше, в поле фильтр можете указать условие
Trash IS NULL
независимо от типа поля, если в него не было внесена информация, поле имеет значение NULL
если что то не работает, пожалуйста приложите ваш проект с описанием, где именно в проекте не работает фильтр.
Ясно. Просто в другом похожем проекте словарь обладает спец. функционалом. Там можно, к примеру, всех сотрудников распределить по должностям перетаскиванием мыши. Но реализовано не очень.
Так это получается, что выставляя галочку "Таблица являтса словарём" разработчик делает всего-лишь подсказку для себя?
Не совсем, MVD в редких случаях используе эту опцию для работы внутренних алгоритмов, чтобы правильно автоматически связать таблицы, когда вы используете кнопку с действием Поиск например, но с точки зрения баз данных, словарная таблица это просто условность.
не подскажите уже можно создавать свое меню ??? скриптом
Всплывающее меню при нажатии правой кнопки? да, пример меню которое появляется у кнопки, при нажатии на ней правой кнопкой мыши.
username=
database=
savepassword=0Получается можно установить пароль к БД ?
Нет, эти строки появляются при использрвании MySQL
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.
Что такое словарь, считаю, нужно разжувать как следует! Давно уже делаю базы в мускуле, в аксесе и ещё один похожий на этот проект, конкурент типа. в нём тоже несколько сделал и так и не могу понять накой нужны словари... Похожий функционал реализовываю с помощью простых таблиц и на мой взгляд с помощью простых таблиц словари можно сделать куда круче, чем использовать сами таблицы-словари. Хотя честно говоря сам не понял толком что это. )))
словарь это таже таблица, просто условность.
Словарями являются таблицы например с названиями статусов или единиц измерения, т.е. такие таблицы, которые заполняются как правило в начале работы с базой.
Попробуйте строку
ДобавитьОборудование.itemunit.Value:=SQLExecute('SELECT name FROM units WHERE id='+VarToStr(itemunitid));
заменить на
ДобавитьОборудование.itemunit.Text:=SQLExecute('SELECT name FROM units WHERE id='+VarToStr(itemunitid));
И еще момент, при попытке удаления строки из таблицы находящейся Акты>1-вкладка оборудование или услуги вылетает ошибка и строка не удаляется. Проект приложил без ехе (не влез). Это косяк моего железа/рук или ошибка программы?
В настройках кнопки удаления не указан компонент TableGrid, т.е. кнопка не знает, откуда удалять.
Приветствую,
Здравствуйте!
Возникла необходимость резервного копирования на сетевой ресурс, закрытый паролем. Пароль, естественно, известен.
Есть ли возможность из скрипта получить доступ к ресурсу для копирования?
К сожалению пока такой возможности у скрипта нет.
И еще вопрос: есть ли возможность изменения имени БД, т. е. на не sqlite.db и указать место ее размещения (не используя диалога из меню)?
Благодарю.
В папке с проектом есть файл Settings.ini, в котором вы можете прописать желаемое имя БД, пример:
[Options]
server=sql.db
также следует переименовать файл sqlite.db в sql.db
Спасибо, теперь не валится с ошибкой. Вот только проблема изменилась: возвращает 0, хотя цена прописана.
Макет проекта в шапку добавил (если вдруг понадобится)
Вы забыли name заменить на id
попробуйте так
ДобавитьОборудование.price.Value:=SQLExecute('SELECT price FROM oborudovanie WHERE id='+ДобавитьОборудование.naimenovanie.sqlValue);
sonixax
I corrected my example in previous answer. Just remove word "day"
Все верно.
Я ответил вам на емейл.
for MySQL:
UPDATE sampletable SET myfield=1 where DATEDIFF(now() ,DATEFIELD) >= 7;
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);
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi