You are not logged in. Please login or register.
My Visual Database → Posts by DriveSoft
Спасибо - Работает.
Хотел сделать прокрутку на форме add - mmContent
add.mmContent .ScrollBars := ssBoth;
не могу вставить в скрипт - выдаёт ошибку.
Посоветуйте что делать.
Значит в версии 1.44 это свойство еще не было реализовано, не получиться их задействовать.
Здравствуйте.
Приложите пожалуйста ваш проект.
Пример не работает корректно на базе данных Mysql. Поэтому и прислал скрипт, который используется у меня сейчас, с доработками под mysql.
И повторюсь, проблема в том, что подсвечивается только одна запись, как новая. Хотя было добавлено, к примеру 3 записи. Должны светиться все 3 записи.
Оказалось все чуть сложней для MySQL, проект с примером:
Ещё раз здравствуйте. Проект прилагаю.
Есть ещё один вопрос: Как включить Scroll (Прокрутку) в таб. Memo.
За раннее Вам благодарен.
В вашем проекте отсутсвует событие, которое я привел вышел
procedure frmNagScreen_OnClose (Sender: string; Action: string);
begin
if not isAllowRun then main.Close;
end;Данный код предотвратит запуск приложения, если испытательный период закончен.
Вместо данного кода вы можете убрать кнопку Закрыть из заголовка окна. Сделать это можно так
frmNagScreen.BorderIcons := 0; разместите эту строку в самом низу скрипта между begin end.
В старой версии программы добавить полосы прокрутки для компонента Memo можно так
main.Memo1.ScrollBars := ssBoth;ehwagner
I small correct your code.
Thanks.
memult
Я могу помочь только с конкретными вопросами.
Напомните, что вы делаете? Пример подстветки новых записей есть в этой теме.
Здравствуйте. Добавил события OnClose для формы frmNagScreen -
всё осталось без изменения. Кнопка "Закрыть" работает как Открыть.
Приложите пожалуйста ваш проект.
Кнопка Закрыть работает как Закрыть, т.к. закрывает текущую форму.
Igor
Можно, скачайте пожалуйста бета версию
https://www.dropbox.com/s/1y0jek64gzfdy … a.zip?dl=0
Разместите на форме панел Panel1
Строку
SetParent( FindWindow('', 'Калькулятор'), Form1.Handle); замените на
SetParent( FindWindow('', 'Калькулятор'), Form1.Panel1.Handle); To filter, you can use button with action "Search"
Igor
Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/1y0jek64gzfdy … a.zip?dl=0
SELECT FirstName FROM TableName WHERE FirstName IN (SELECT FirstName FROM TableName GROUP BY FirstName HAVING count(FirstName) > 1);Check out:
SELECT
members.firstname
,members.lastname
,(CASE Paid WHEN 1 THEN 'Yes' WHEN 0 THEN 'No' ELSE '' END) as PaidYesNo
,members.ClubID
,members.StartBet
,members.EndBet
,members.eMail
,members.GSM
,members.Comments
,members.id
FROM membersHello.
It's not support of this kind filter.
Hello,
Please paste your SQL query without any comments, because I don't understand, it's just comments or your SQL query looks like in your post.
Здравствуйте. Возник вопрос: В вашем проекте (Trial serial 1.44) на форме
frmNagScheen кнопка "Закрыть - красная" работает как Открыть.
Добавьте событие OnClose для формы frmNagScreen
procedure frmNagScreen_OnClose (Sender: string; Action: string);
begin
if not isAllowRun then Form1.Close;
end;Что сделать, что бы символы соответствовали действиям.
Какие символы? каким действиям?
И второй вопрос: а нельзя ли сделать так чтобы файл reg.ini не появлялся в папке
с проектом, а появился скажем на новой форме проекта.За раннее Вам благодарен.
Файл не может появится на форме.
Если в скрипте объявить переменную, можно ли как то использовать его в sql запросе?
Переменную из скрипта вставить непосредственно в SQL запрос нельзя, если используете кнопку с действием "SQL запрос", но как видите из предыдущих примеров, вы можете вставить данные из компонентов в SQL запрос, в свою очередь с помощью скрипта вы можете задать значение компоненту на форме, т.о. данные из скрипта попадут в SQL запрос.
Спасибо за пример. Только один вопрос. В примере поиск по дате осуществляется строго по фильтру " = ". Как сделать что бы можно было работать с фильтрами " < , > " ?
Пример, с фильтрами < >
SELECT
employees.lastname,
employees.firstname,
strftime('%d.%m.%Y', employees.dateofbirth),
strftime('%H:%M:%S', employees.timefield),
groups.groupname,
(CASE WHEN employees.smoke = 1 THEN 'Yes' WHEN employees.smoke = 0 THEN 'No' END),
employees.id
FROM
employees
LEFT OUTER JOIN groups ON groups.id=employees.id_groups
WHERE
(CASE WHEN '{edLastName}' = '' THEN 1=1 ELSE employees.lastname LIKE '{edLastName}' END) AND
(CASE WHEN '{edFirstName}' <> '' THEN employees.firstname LIKE '%{edFirstName}%' ELSE 1=1 END) AND
(CASE WHEN {dtDateOfBirth} IS NOT NULL THEN date(employees.dateofbirth) = date({dtDateOfBirth}) ELSE 1=1 END) AND
(CASE WHEN {DateTimePickerFrom} IS NOT NULL THEN date(employees.dateofbirth) >= date({DateTimePickerFrom}) ELSE 1=1 END) AND
(CASE WHEN {DateTimePickerTo} IS NOT NULL THEN date(employees.dateofbirth) <= date({DateTimePickerTo}) ELSE 1=1 END) AND
(CASE WHEN {dtTime} IS NOT NULL THEN time(employees.timefield) = time({dtTime}) ELSE 1=1 END) AND
(CASE WHEN {chbSmoke} IS NOT NULL THEN employees.smoke = {chbSmoke} ELSE 1=1 END) AND
(CASE WHEN {cbGroups} <> -1 THEN employees.id_groups = {cbGroups} ELSE 1=1 END)У вас неверный формат времени в переменной sDateLogout, должен быть такой
2007-12-31 23:59:59Можно наоборот, при использовании проектом СУБД SQLite, подключаться к MySQL базе с помощью скрипта, пример
http://myvisualdatabase.com/forum/viewt … 622#p14622
Если ваш проект использует СУБД MySQL, подключиться к СУБД SQLite пока возможности нет.
отключиться можно так
SQLExecute('DETACH DATABASE ''TEST''');но думаю вы можете подключить и сразу несколько.
Приветствую.
А можно ли скриптом подключаться к сторонней базе SQLite для того чтобы потом управлять ею?
Можно
SQLExecute('ATTACH DATABASE ''d:\testDB.db'' as ''TEST''');использование
SELECT TEST.person.firstname, TEST.person.lastname FROM TEST.personно при этом ваш проект должен использовать СУБД SQLite
Фильтр тут не поможет к сожалению, нужно формировать SQL запрос, например такой
SELECT FirstName, Count(FirstName) as Count
FROM TableName
GROUP BY FirstName
HAVING Count(FirstName)>1AD1408
You have not right params in the procedure OnShow, procedure with right params:
procedure frmSaleTransHist_OnShow (Sender: string; Action: string);
begin
frmSaleTransHist.edSaleTransInvTotal.Value := Form1.tgSearchSaleInv.Columns[9].Footer.FormulaValue;
end;You forgot "Action: string" it's cause the error "List index out of bounds (1)"
Т.е. еще нужно искать дубликаты по двум столбцам? Тогда к сожалению задача не очень простая, не смогу помочь в этом.
Просто что то вставить в фильтр грида и решить задачу не получиться, нужен какой то сложный SQL запрос.
Здесь можете скачать проект с примером, как реализовать SQL поиск со всеми возможными компонентами
http://myvisualdatabase.com/forum/misc. … download=1
Form1.Button10
Form1.Button12
Кнопка Поиск не может автоматически связать более 3 последовательных таблиц. Так например если из настройки кнопки Button10 вы удалите поле City.city, то ошибка пропадет.
Чтобы обойти эту проблему, можно воспользоваться вычисляемым полем, создать его в таблице Region, для вывода названия города,пример:
(SELECT City.city FROM City WHERE City.id=Region.id_City)Также присутствует другая проблема между таблицами Region и City, внешний ключ Region.id_City создан неверно, необходимо в таблице City создать внешний ключ id_Region, т.е. не регион принадлежит к городу, а наоборот, город принадлежит региону.
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi