Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/15: Рейтинг темы: голосов - 15, средняя оценка - 4.60
0 / 0 / 1
Регистрация: 12.01.2019
Сообщений: 2
1
Delphi 6-7

Автоматическое заполнение Edit

12.01.2019, 18:43. Показов 2870. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый день,
Подскажите, пожалуйста, как сделать следующее.
Мне нужно при нажатии на Edit1 автоматически заполнялось так, чтобы при этом он брал последнее число из колонки базы данных и прибавлял к нему единицу.(не Access)
Изображения
 
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.01.2019, 18:43
Ответы с готовыми решениями:

Автоматическое заполнение поля
Здраствуйте уважаемые программисты. Столкнулся с такой проблемой. Есть две таблицы связанные по...

Автоматическое заполнение DBGrida
Здравствуйте. У меня есть DBGrid, база аксеса и Button. В DBGride есть 5 полей, Инвентарный номер,...

Автоматическое заполнение ключевого поля
Имеется таблица клиенты ключевое поле id, как реализовать чтобы данное поле автоматически...

Автоматическое заполнение некоторых строк таблицы
В общем есть программа. Когда произвожу заполнение таблиц в ней, то всё приходится делать вручную,...

7
5585 / 4435 / 1080
Регистрация: 29.08.2013
Сообщений: 27,734
Записей в блоге: 3
12.01.2019, 19:17 2
а вопрос в чем?
как к базе обратится?
как единицу добавить?
как в эдит записать?
или на какое событие повесить?
0
0 / 0 / 1
Регистрация: 12.01.2019
Сообщений: 2
12.01.2019, 21:34  [ТС] 3
Лучший ответ Сообщение было отмечено D1973 как решение

Решение

При нажатии или сразу при открытии формы он автоматически заполнялся
Это рабочий код:
Delphi
1
2
3
4
5
6
7
procedure TForm2.Edit1Change(Sender: TObject);
begin
  with form1.Table2 do
    begin
       Edit1.Text:=FloatToStr(StrToInt(FieldByName('Idsotryd').AsString)+1);
    end;
end;
Но он не работает с другой таблицей почему то
0
Модератор
9646 / 6254 / 2426
Регистрация: 21.01.2014
Сообщений: 26,677
Записей в блоге: 3
13.01.2019, 11:00 4
Цитата Сообщение от GhosterMIN Посмотреть сообщение
Это рабочий код:
Это, м.б., и рабочий код, но бредовый...
Delphi
1
Edit1.Text := IntToStr(FieldByName('Idsotryd').AsInteger + 1);
0
5871 / 4599 / 1448
Регистрация: 14.04.2014
Сообщений: 20,413
Записей в блоге: 20
14.01.2019, 16:36 5
Цитата Сообщение от GhosterMIN Посмотреть сообщение
последнее число из колонки
Delphi
1
2
3
4
Query1.sql.text := 'select max(Idsotryd)+1 AS M from вашатаблица';
Query1.Open;
edit1.text := Query1.fieldByName('M').AsString;
Query1.Close;
Добавлено через 1 минуту
но так НИКОГДА не надо делать!
ID - это УНИКАЛЬНЫЙ номер
для создания уникальных ID во всех серверах БД есть тип автоинкрементного поля
0
10 / 12 / 2
Регистрация: 01.09.2015
Сообщений: 105
16.01.2019, 13:39 6
я вас малость поправлю. не на всех серверах такое есть
0
5871 / 4599 / 1448
Регистрация: 14.04.2014
Сообщений: 20,413
Записей в блоге: 20
16.01.2019, 13:43 7
на всех есть механизм, который это делает
иногда для этого просто создается триггер
иногда это происходит под капотом
0
10 / 12 / 2
Регистрация: 01.09.2015
Сообщений: 105
16.01.2019, 13:53 8
я имел ввиду тип поля. а так да,триггеры и др. конечно есть
0
16.01.2019, 13:53
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.01.2019, 13:53
Помогаю со студенческими работами здесь

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

Заполнение edit из dbgrid
DataModule2.ADOQuery10.sql.text:='select max(sotr_id) from sotr';; DataModule2.ADOQuery10.open;...

Заполнение DbGrid через edit
Добрый день! Подскажите пожалуйста, как в DBGrid добавить данные из Edit? BDgrid соединена...

Заполнение таблицы из edit и dbgrid
Добрый день, подскажите как реализовать следующее: на форме есть едит, в который записывается ФИО...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Интеграция Arduino и ChatGPT: Практическое руководство
InfoMaster 16.01.2025
В современную эпоху технологических инноваций интеграция искусственного интеллекта с микроконтроллерами открывает принципиально новые возможности для создания умных устройств и автоматизированных. . .
Как создать робота, управляемого ChatGPT
InfoMaster 16.01.2025
Концепция проекта В современную эпоху искусственный интеллект и робототехника становятся все более доступными для энтузиастов и разработчиков. Создание роботизированной руки, управляемой ChatGPT,. . .
Как создать ChatGPT бота в Telegram на Python
InfoMaster 16.01.2025
В современном мире технологии искусственного интеллекта становятся все более доступными для разработчиков, открывая новые возможности для создания умных и интерактивных приложений. Одним из самых. . .
Машинное обучение с помощью Python
InfoMaster 16.01.2025
Машинное обучение стало неотъемлемой частью современных технологий, позволяя компьютерам учиться на основе данных и принимать решения без явного программирования. В сочетании с языком. . .
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре
InfoMaster 16.01.2025
Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .
Как использовать Kerio дома для управления сетью и пользователями
InfoMaster 16.01.2025
Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .
Есть ли будущее у DVD и Blu-ray?
InfoMaster 16.01.2025
В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .
Как проводить научные вычисления на Python
InfoMaster 15.01.2025
Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .
Создание игры типа Minecraft на PyGame/Python: пошаговое руководство
InfoMaster 15.01.2025
В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .
Как создать свою первую игру в стиле Doom на Unreal Engine
InfoMaster 15.01.2025
Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программировани­е: основные технологии и принципы
InfoMaster 15.01.2025
Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD
InfoMaster 15.01.2025
В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru