Topic: Вопрос по Button и Edit
Вопрос такой. Допустим на форме есть Edit и Button. Как присвоить кнопке значение 1, что бы при нажатии на нее в Edit отобразилась 1?
1 2015-08-14 23:02:46 (edited by maxkyl 2015-08-14 23:03:16)
- DriveSoft
- Administrator
- Offline
Re: Вопрос по Button и Edit
Кнопке нельзя присвоить значение.
Присвоить значение для Edit по нажатию на кнопку можно так:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.Edit1.Text := '1';
end;Dmitry.
Re: Вопрос по Button и Edit
Извиняюсь, я не совсем правильно поставил вопрос. Есть ли возможность реализовать виртуальный NumLock для ввода цифр в Edit?
- DriveSoft
- Administrator
- Offline
Re: Вопрос по Button и Edit
maxkyl wrote:
Извиняюсь, я не совсем правильно поставил вопрос. Есть ли возможность реализовать виртуальный NumLock для ввода цифр в Edit?
Сделал для вас проект с примером. Обратите внимание, для кнопок 0-9 используется одно и тоже событие (OnClick) для данных кнопок.
Post's attachments
Virual Num Lock.zip 3.02 kb, 493 downloads since 2015-08-16
Dmitry.
Re: Вопрос по Button и Edit
Спасибо за помощь Дмитрий
6 2015-08-17 13:54:41 (edited by maxkyl 2015-08-17 13:55:22)
Re: Вопрос по Button и Edit
Добрый вечер. Еще один вопрос. Как дописать данный скрипт, что бы вводимый пароль заменялся на звездочки?
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
// запрашивает пароль, пароль: 123, если ввели не верно, действие кнопки отменяется (Cancel := True)
if InputBox ('Запрос', 'Введите пароль', '') <> '12345' then Cancel := True;
end;- DriveSoft
- Administrator
- Offline
Re: Вопрос по Button и Edit
к сожалению InputBox не имеет такого функционала.
Dmitry.
Re: Вопрос по Button и Edit
Добрый день. 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- DriveSoft
- Administrator
- Offline
Re: Вопрос по Button и Edit
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
Dmitry.
Re: Вопрос по Button и Edit
При использовании Group By запрос выдает все записи, но проблема в другом. Есть Edit. В этом Edit я указываю имя и SQL запрос должен выдать данные связанные только с этим именем. Если действие кнопки меняю на ПОИСК, все работает. Но мне необходим именно SQL запрос.
- DriveSoft
- Administrator
- Offline
Re: Вопрос по Button и Edit
тогда так
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}'Dmitry.
12 2015-08-18 09:53:23 (edited by maxkyl 2015-08-18 09:57:49)
Re: Вопрос по Button и Edit
Все работает. Спасибо.
Re: Вопрос по Button и Edit
Дмитрий, как можно назначить кнопкам Вверх и Вниз выполнять сколл на гриде вниз и вверх?
Post's attachments
пример.jpg 32.86 kb, 251 downloads since 2015-08-18
- DriveSoft
- Administrator
- Offline
Re: Вопрос по Button и Edit
maxkyl wrote:
Дмитрий, как можно назначить кнопкам Вверх и Вниз выполнять сколл на гриде вниз и вверх?
Сделал для вас пример, позволяет скролить как бы странично, чтобы были видны следующие записи.
Post's attachments
Scroll TableGrid using buttons.zip 97.85 kb, 430 downloads since 2015-08-18
Dmitry.
Re: Вопрос по Button и Edit
Спасибо за оперативный ответ.