Topic: Вопрос по Button и Edit
Вопрос такой. Допустим на форме есть Edit и Button. Как присвоить кнопке значение 1, что бы при нажатии на нее в Edit отобразилась 1?
My Visual Database → Russian → Вопрос по Button и Edit
Вопрос такой. Допустим на форме есть Edit и Button. Как присвоить кнопке значение 1, что бы при нажатии на нее в Edit отобразилась 1?
Кнопке нельзя присвоить значение.
Присвоить значение для Edit по нажатию на кнопку можно так:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.Edit1.Text := '1';
end;
Извиняюсь, я не совсем правильно поставил вопрос. Есть ли возможность реализовать виртуальный NumLock для ввода цифр в Edit?
Извиняюсь, я не совсем правильно поставил вопрос. Есть ли возможность реализовать виртуальный NumLock для ввода цифр в Edit?
Сделал для вас проект с примером. Обратите внимание, для кнопок 0-9 используется одно и тоже событие (OnClick) для данных кнопок.
Спасибо за помощь Дмитрий
Добрый вечер. Еще один вопрос. Как дописать данный скрипт, что бы вводимый пароль заменялся на звездочки?
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
// запрашивает пароль, пароль: 123, если ввели не верно, действие кнопки отменяется (Cancel := True)
if InputBox ('Запрос', 'Введите пароль', '') <> '12345' then Cancel := True;
end;
к сожалению InputBox не имеет такого функционала.
Добрый день. SQL запрос по Edit1. Почему данный запрос находит последнюю внесенную запись в базу?
SELECT
Bron200.id,
Bron200.name,
Bron200.mrBingo,
Bron200.Line,
Bron200.bronLine,
Bron200.bingo,
Bron200.bronBingo,
SUM(Bron200.mrBingo+Bron200.Line+Bron200.bronLine+Bron200.bingo+Bron200.bronBingo),
Bron200.SMrBingo,
Bron200.SLine,
Bron200.SerebLine,
Bron200.SBingo,
Bron200.serebBingo,
SUM(Bron200.SMrBingo+Bron200.SLine+Bron200.SerebLine+Bron200.SBingo+Bron200.serebBingo),
Bron200.ZMrBingo,
Bron200.ZLine,
Bron200.zolotLine,
Bron200.ZBingo,
Bron200.zolotBingo,
SUM(Bron200.ZMrBingo+Bron200.ZLine+Bron200.zolotLine+Bron200.ZBingo+Bron200.zolotBingo),
SUM(Bron200.mrBingo+Bron200.Line+Bron200.bronLine+Bron200.bingo+Bron200.bronBingo+Bron200.SMrBingo+Bron200.SLine+Bron200.SerebLine+Bron200.SBingo+Bron200.serebBingo+Bron200.ZMrBingo+Bron200.ZLine+Bron200.zolotLine+Bron200.ZBingo+Bron200.zolotBingo),
{Edit1}
FROM Bron200
maxkyl
Приветствую,
так происходит, потому что вы используете агрегатную функцию SUM, которая считает сумму всех записей, соответственно показывается только одна запись.
Обычно совместно с функцие SUM применяется ключевое слово GROUP BY, в котором указывается по какому полю необходимо группировать результат функции SUM, например:
SELECT
Bron200.id,
Bron200.name,
Bron200.mrBingo,
Bron200.Line,
Bron200.bronLine,
Bron200.bingo,
Bron200.bronBingo,
SUM(Bron200.mrBingo+Bron200.Line+Bron200.bronLine+Bron200.bingo+Bron200.bronBingo),
Bron200.SMrBingo,
Bron200.SLine,
Bron200.SerebLine,
Bron200.SBingo,
Bron200.serebBingo,
SUM(Bron200.SMrBingo+Bron200.SLine+Bron200.SerebLine+Bron200.SBingo+Bron200.serebBingo),
Bron200.ZMrBingo,
Bron200.ZLine,
Bron200.zolotLine,
Bron200.ZBingo,
Bron200.zolotBingo,
SUM(Bron200.ZMrBingo+Bron200.ZLine+Bron200.zolotLine+Bron200.ZBingo+Bron200.zolotBingo),
SUM(Bron200.mrBingo+Bron200.Line+Bron200.bronLine+Bron200.bingo+Bron200.bronBingo+Bron200.SMrBingo+Bron200.SLine+Bron200.SerebLine+Bron200.SBingo+Bron200.serebBingo+Bron200.ZMrBingo+Bron200.ZLine+Bron200.zolotLine+Bron200.ZBingo+Bron200.zolotBingo),
{Edit1}
FROM Bron200
GROUP BY Bron200.name
подробней
http://www.sql.ru/docs/sql/u_sql/ch6.shtml
При использовании Group By запрос выдает все записи, но проблема в другом. Есть Edit. В этом Edit я указываю имя и SQL запрос должен выдать данные связанные только с этим именем. Если действие кнопки меняю на ПОИСК, все работает. Но мне необходим именно SQL запрос.
тогда так
SELECT
Bron200.id,
Bron200.name,
Bron200.mrBingo,
Bron200.Line,
Bron200.bronLine,
Bron200.bingo,
Bron200.bronBingo,
SUM(Bron200.mrBingo+Bron200.Line+Bron200.bronLine+Bron200.bingo+Bron200.bronBingo),
Bron200.SMrBingo,
Bron200.SLine,
Bron200.SerebLine,
Bron200.SBingo,
Bron200.serebBingo,
SUM(Bron200.SMrBingo+Bron200.SLine+Bron200.SerebLine+Bron200.SBingo+Bron200.serebBingo),
Bron200.ZMrBingo,
Bron200.ZLine,
Bron200.zolotLine,
Bron200.ZBingo,
Bron200.zolotBingo,
SUM(Bron200.ZMrBingo+Bron200.ZLine+Bron200.zolotLine+Bron200.ZBingo+Bron200.zolotBingo),
SUM(Bron200.mrBingo+Bron200.Line+Bron200.bronLine+Bron200.bingo+Bron200.bronBingo+Bron200.SMrBingo+Bron200.SLine+Bron200.SerebLine+Bron200.SBingo+Bron200.serebBingo+Bron200.ZMrBingo+Bron200.ZLine+Bron200.zolotLine+Bron200.ZBingo+Bron200.zolotBingo)
FROM Bron200
WHERE Bron200.name LIKE '{Edit1}'
Все работает. Спасибо.
Дмитрий, как можно назначить кнопкам Вверх и Вниз выполнять сколл на гриде вниз и вверх?
Дмитрий, как можно назначить кнопкам Вверх и Вниз выполнять сколл на гриде вниз и вверх?
Сделал для вас пример, позволяет скролить как бы странично, чтобы были видны следующие записи.
Спасибо за оперативный ответ.
My Visual Database → Russian → Вопрос по Button и Edit
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi