You are not logged in. Please login or register.
My Visual Database → Posts by konstantin
Здравствуйте!
На форме frmA в которой вносятся записи в таблицу ATable есть TableGrid в котором отображаются записи из другой, связаной таблички BTable.
Мне нужно в TableGrid отобразить записи BTable в которых BTable.id_ATable = frmA.btnSaveA.dbGeneralTableId
Никак не могу найти правильной формы записи фильтра таблицы или подстановки значения кнопки "Сохранить запись" в WHERE SQL запроса, привязанного к кнопке.
Ткните пальцем, плз.
Добрый день! Конечно же я это прочитал и даже вставил в свой скрипт, но он почему то не работает и выдает ошибку, несмотря на то что ввожу свои данные и название БД и логин с паролем. Вот и вопрос возник поэтому! Потому как не коннектится и выдает ошибку!
Очень сложно гадать по вашему посту - причин может быть масса - от блокировки порта и IP адреса, неверной учетной записи в БД до несовпадения имени главной формы. Попробуйте, коннектится ли к базе любая сторонняя прога,например Workbench. Проверьте, что вместо Form1 указано название вашей главной формы, проверьте кавычки и их отсутствие у порта.
Если вы прочитаете первое сообщение в топике, то вы встретите там волшебные строки:
{$MySQL disable_connectdialog}
Form1.MySQLConnection.Server := '127.0.0.1';
Form1.MySQLConnection.Port := 3306;
Form1.MySQLConnection.Username := 'root';
Form1.MySQLConnection.Password := 'root';
Form1.MySQLConnection.Database := 'mvd';try
Form1.MySQLConnection.Connect;
except
frmWait.Close;
ShowMessage('Can''t connect to database.');
Form1.Close;
end;
Grid.HeaderStyle := hsFlatBorders; // нужен плоский заголовок
Я, правда, не тестировал это на Win10.
Протестировал на Windows 10 - в общем, headerStyle - главное условие окрашивания... Спасибо.
konstantin wrote:Возможно ли переопределить значения cl*** приведенные выше своей палитрой? Или они напрямую указывают на системные значения?
Это предопределенные константы из Delphi
Спасибо!
To lejoso
Thanks for answer. I know this method. Idea was to override the Delphi values for fast color switching in interface without long scripting.
Я, кстати, до сих пор не нашел, как обойти ограничения Windows 10 и поменять цвета заголовков таблицы, комбобоксов и кнопок...
напишите на вкладке Скрипт данный код
begin Form1.TableGrid1.InactiveSelectionColor := clRed; end.имена компонентов замените на свои, в данном примере цвет выделения будет красным, для выбора другого цвета:
Для того, чтобы указать произвольный цвет, можно воспользоваться шестнадцетиричным числом
пример: Form1.TableGrid1.InactiveSelectionColor := $00DDEEFF;Список текстовых обозначений цвета:
clBlack Чёрный
clMaroon Тёмно-красный
clGreen Зелёный
clOlive Оливковый
clNavy Тёмно-синий
clPurple Пурпурный
clTeal Стальной
clGray Серый
clSilver Серебряный
clRed Красный
clLime Ярко-зелёный
clYellow Жёлтый
clBlue Синий
clFuchsia Фиолетовый
clAqua Бирюзовый
clWhite БелыйСписок системных цветов, определяются настройками стиля Windows:
clActiveBorder
clActiveCaption
clAppWorkSpace
clBackground
clBtnFace
clBtnHighlight
clBtnShadow
clBtnText
clCaptionText
clGradientActiveCaption
clGradientInactiveCaption
clGrayText
clHighlight
clHighlightText
clHotLight
clInactiveBorder
clInactiveCaption
clInactiveCaptionText
clInfoBk
clInfoText
clMenu
clMenuBar
clMenuHighlight
clMenuText
clScrollBar
cl3DDkShadow
cl3DLight
clWindow
clWindowFrame
clWindowText
Возможно ли переопределить значения cl*** приведенные выше своей палитрой? Или они напрямую указывают на системные значения?
Инженерные системы в целом, электрика, умный дом, водоснабжение...
В аглицкой ветке уже паника - куда пропал Дмитрий и в чем разрабатываться дальше...
Вот как раз то, как можно прочитать событие WMI из WM_POWERBROADCAST и интересует. Удивительно, приложение засыпает, но таймеры похоже - нет.
Вопрос не ясен. Нужно "отловить" и "отменить"..?
Отменить мне надо мои запросы к базе (которые возникают по таймеру), если система послала в вещании, что, например, крышка ноута закрыта, система переходит в режим гибернации или сна
Hi, All!
I need to listen WM_POWERBROADCAST in my app for disable mysql ontimer queries. Can I to do it with MVD scripting?
Привет всем!
Можно как-то отловить переход в спящий режим, чтобы не накручивать обращения приложения к mysql по таймеру?
Слышал про waitable timer, но у нас наверное такого нет...
Дмитрий опять, видимо, погряз в стройке. Хотя бы весточку, что жив, прислал. Вдруг тут бригаду собирать на выезд надо))
Спасибо! И Вас с прошедшими!
Я бы создал в БД (мускул, например) таймер в самой БД и сохраненную процедуру. И раз в сутки, к примеру, в 23^59 по времени разработчика 
минусовало бы счетчик. Соотв, программа у юзверя должна обращаться к содержимому счетчика перед запуском.
I also have some problem with DBImage in MySQL. Do you discovery any decision?
После фикса одной из ошибок перешел на версию 6.6b - в ней и проявилась эта ошибка. В версии 6.5 этой ошибки нет.
У меня высота таблицы (377) чуть выше высоты строки (300) (из-за превью картинок). В таком варианте почему-то перестал работать скроллинг колесом мышки, на низких строках все ок. Высота строки задана через DefaultRowHeight. Галка MouseWheelEnabled включена.
Можно ли дописать в
Form.Components[i] возможность обращаться к свойству Enabled?
Замечательно, осталось его в эту БД засунуть....
Обнаружил, что при изменении параметра MinDate в скрипте и попытке выбрать в DateTimePicker дату, равную указаной в MinDate, если время MinDate больше, чем время в Pickerе - возникает исключение, которое приводит к крашу программы.
Исходя из концепции MVD было бы логично, чтобы эта ситуация проверялась в коде MVD. Например, время устанавливалось бы на время MinDate.
я создал логическую переменную
...
то же с этим столкнулся, заработало когда я прописал загрузку два раза подряд..
1 - я для обхода повторной загрузки задействовал тривиальный счетчик с проверкой на >1 и обнулением на OnClose Form.
3 - пока не получается - если загрузить скриптом Picture.LoadFromFile и даже dbFileName, и даже сделать сохранение этих значений в форме через кнопку.клик в БД - не работает - в БД (у меня MySQL) не подгружается ни файл, ни путь к нему
Здравствуйте!
Нужно сделать, чтобы при изменении прилинкованного файла(рисунок) в компоненте DBFile ,- в компонент DBImage помещалось превью этого рисунка.
Сделал обработчик DBFile.OnChange с вызовом сторонней программы, которая создает превью в файл и загружает его в DBImage. Работает.
Проблемы:
1. Оказалось, что событие OnChange генерируется при открытии формы, содержащей этот компонент. Есть идеи как это обойти?
2. В отличии от компонента Image компонент DBImage не имеет метода PasteFromClipboard. Можно это как-то реализовать (чтобы не генерировать лишние файлы и не тратить время на их запись/считывание)?
3. Почему-то при загрузке DBImage методом Picture.LoadFromFile картинка не отображается в обновленном гриде в вызывающей форме. Если делать загрузку изображения через кнопку - то все отображается. Предполагаю, что дело в каком-то атрибуте или формате файла. Каком?
Спасибо
Вдогонку: OpenFile - процедура или функция? Можно как-то обработать её ошибку выполнения?
Hello!
You can use FileExists() and WriteLnToFile(,) functions.
More info there http://docwiki.embarcadero.com/CodeExam … s_(Delphi). Our code like FMX version
1. Тоже интересует этот вопрос, так как в MVD по одному запросу формируется одна вкладка. Может осуществить это перебором и последовательным вызовом функции сохранить в exel с указанием разных вкладок и одним именем файла?
2. Скопируйте файл settings.ini на другую машину
В качестве костыля могу предложить использовать DecimalRoundExt();
Спасибо, так работает.
My Visual Database → Posts by konstantin
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi