Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
1

Несколько действий на одну кнопку

05.06.2016, 11:18. Показов 2081. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем доброго времени суток.Вопрос такой.Как сделать так чтобы кнопка выполнила несколько действий одновременно.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.06.2016, 11:18
Ответы с готовыми решениями:

Несколько действий на одну кнопку
У меня есть действие a:=StrToInt(Edit1.Text); c:=(150+(a-150)*0.85); edit2.Text:=FloatToStr(c); и мне надо чтобы оно 10...

Много действий на одну кнопку
Здравствуйте! Есть такое задание: решить уравнение по схеме горнера, уравнение любой степени. Есть таблица, и пользователь сам ее...

Несколько действий на кнопку!
дано дерево(treeview),в нем несколько названий предметов,дана еще и кнопка!надо сделать так ,что при выборе предмета и нажатий на кнопку...

10
Почетный модератор
 Аватар для Puporev
64306 / 47603 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
05.06.2016, 11:27 2
Delphi Скопировано
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='12121221';
Edit2.Text:='15656656';
Edit3.Text:='mkmkmmkkmkmk';
end;
0
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 11:49  [ТС] 3
Тут всё немного сложнее.Кнопка должна сделать 2 запроса одновременно.Но один запрос она делает а другой нет.

Delphi Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm3.Button4Click(Sender: TObject);
begin
ADOQuery2.SQL.text:='select [Имя], [Фамилия], [Отчество] from [Сотрудники] where [id Пропуска]='+QuotedStr(Edit8.Text);
ADOQuery2.Open;
case ADOQuery2.recordcount of
0:Showmessage('Такого сотрудника нет');
1:begin
Edit2.Text:=ADOQuery2.fields[0].asString;
Edit3.Text:=ADOQuery2.fields[1].asString;
Edit4.Text:=ADOQuery2.fields[2].asString;
end;
2:begin
ADOQuery1.SQL.text:='select [Имя],[фамилия],[Отчество],[Дата],[Время] from [Сотрудники] where [id Пропуска] LIKE ''%'+edit8.text+'%''';
ADOQuery1.open;
end;
end;
end;
0
Почетный модератор
 Аватар для Puporev
64306 / 47603 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
05.06.2016, 11:50 4
Так и писали бы на форум телепатов
Цитата Сообщение от crazugun Посмотреть сообщение
Как сделать так чтобы кнопка выполнила несколько действий одновременно.
0
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 12:23  [ТС] 5
Ладно в следующий раз буду писать подробнее.

Добавлено через 20 минут
Но я всё ещё жду ответа)).
0
 Аватар для krapotkin
5897 / 4621 / 1453
Регистрация: 14.04.2014
Сообщений: 20,485
Записей в блоге: 20
05.06.2016, 12:39 6
тут написано в переводе на русский технический со словарем

делаем запрос
если он вернул X записей, то делать тото
если он вернул Y записей, то делать тото2
если он вернул Z записей, то делать тото3

теперь вопрос?
а чо хотел та?
как связано это с вопросом темы?

по кнопке выполняется аж 15 разных действий. точно не одно.
нечем помочь
0
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 12:44  [ТС] 7
Я хочу чтоб он одновременно по нажатию кнопки выполнил 2 запроса.
0
 Аватар для krapotkin
5897 / 4621 / 1453
Регистрация: 14.04.2014
Сообщений: 20,485
Записей в блоге: 20
05.06.2016, 13:15 8
и в чем проблема?

Delphi Скопировано
1
2
3
4
5
6
7
procedure TForm3.Button4Click(Sender: TObject);
begin
ADOQuery1.SQL.text:=...;
ADOQuery1.Open;
ADOQuery2.SQL.text:=...;
ADOQuery2.Open;
end;
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 13:17  [ТС] 9
А теперь всё понятно
0
05.06.2016, 13:21 10

Не по теме:

Цитата Сообщение от crazugun Посмотреть сообщение
select [Имя],[фамилия],[Отчество],[Дата],[Время] from [Сотрудники] where [id Пропуска] LIKE ''%'+edit8.text+'%''
Какое извращенное нынче понятие идентификатор, если для его поиска используется LIKE

0
 Аватар для krapotkin
5897 / 4621 / 1453
Регистрация: 14.04.2014
Сообщений: 20,485
Записей в блоге: 20
05.06.2016, 13:24 11
ыыы
даже не смотрел в запросы
тогда отличное решение ставишь единичку и получаешь почти всех ))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.06.2016, 13:24
Помогаю со студенческими работами здесь

Как на одну кнопку сделать несколько процедур
Подскажите пожалуйста: Как на одну кнопку сделать несколько процедур? Я сделала два ComboBox1.Text='OLD' then begin и...

регулярка.как в одну кнопку ввести несколько регуярок
мне тут скидывали пример регулярок для делфи.. ничего не понял, прочитал книгу, теперь в регулярках хорошо разбираюсь. но как их в делфи...

Несколько действий на одну кнопку
На MouseLeftButtonDown у меня помещены: 1. this.DragMove(); Который я повесил на Rectangle 2. var response =...

Несколько действий на одну кнопку в юнити
Всем привет, произошла такая ситуэйшн, немного не понял как сделать 2 действия на одну кнопку, прошу помочь! В моем случае все просто, у...

Как на одну кнопку задать несколько действий
есть UI кнопка. способ с bool переменной мне не подходит т.к. действий не 2 а больше как это реализовать?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Простая нейросеть на КуМир: Создание и обучение
EggHead 16.03.2025
Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .
Исполнитель Кузнечик в КуМир: Решение задач
EggHead 16.03.2025
Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .
Исполнитель Водолей в КуМир: Решение задач
EggHead 16.03.2025
Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .
Исполнитель Чертежник в КуМир: Решение задач
EggHead 16.03.2025
Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .
Исполнитель Робот в КуМир: Решение задач
EggHead 16.03.2025
КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач
EggHead 16.03.2025
Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .
Конвейеры данных с Apache Kafka
Javaican 16.03.2025
В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .
Deno против Node.js: Будущее JavaScript рантайма
run.dev 16.03.2025
За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .
SwiftUI или UIKit - что выбрать для нового приложения iOS?
mobDevWorks 16.03.2025
Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .
Docker: Руководство для начинающих по созданию первого приложения
Mr. Docker 16.03.2025
Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер