Изменить данные одной кнопкой

@niramirus · Регистрация: 16.09.2020

Студворк — интернет-сервис помощи студентам

Всем привет.
Задача обработать одно кнопкой две таблицы, разные. Добавляет, но как правильнее это сделать.

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm4.Button1Click(Sender: TObject);
Var help1,help2:string;
begin
with TForm1 do
begin
if Form1.ADOQuery1.Modified then Form1.ADOQuery1.Post;
begin
if Form1.ADOTable1.Modified then Form1.ADOTable1.Post;
end;
end;
end;

@D1973 · 12.10.2020, 06:12

Сообщение от niramirus

но как правильнее это сделать

Не использовать ADOTable и, соответственно, методы для работы с ней (Edit, Insert, Post...). И уж тем более не творить сие непотребство с компонентом ADOQuery. Пользоваться SQL-запросами: все остальное при работе с БД - путь в никуда.

@Komandor_Yan · 12.10.2020, 08:11

Сообщение от niramirus

обработать одно кнопкой две таблицы, разные. Добавляет, но как правильнее это сделать

Полностью согласен с D1973, сам перешел на Query.

А что и куда вы перебрасываете?

@niramirus · 12.10.2020, 20:20 **[ТС]**

Сообщение от Komandor_Yan

Полностью согласен с D1973, сам перешел на Query.

А что и куда вы перебрасываете?

Хотел перенести данные с одной таблицы в другую. Query я не пользуюсь только потому то не могу связать 2 таблицы grid, по типу master - slave.

@Komandor_Yan · 12.10.2020, 22:43

niramirus, если данные однотипные (т.е. столбцы идентичные), то лучше добавить какой-то флаг и тем самым отпадёт необходимость во второй таблице. Старожилы подсказали в своё время про нормализацию БД и тем самым спасли мне уйму времени. Гораздо проще UPDATE-ить флаг, чем копировать INSERT-ом из одной таблицы в другую данные, которые из первой затем может понадобиться удалить DELETE-ом.

@niramirus · 13.10.2020, 01:14 **[ТС]**

Сообщение от Komandor_Yan

niramirus, если данные однотипные (т.е. столбцы идентичные), то лучше добавить какой-то флаг и тем самым отпадёт необходимость во второй таблице. Старожилы подсказали в своё время про нормализацию БД и тем самым спасли мне уйму времени. Гораздо проще UPDATE-ить флаг, чем копировать INSERT-ом из одной таблицы в другую данные, которые из первой затем может понадобиться удалить DELETE-ом.

Спасибо. Мне бы пример глянуть... Все роюсь ну ни как, либо ума не хватает, либо уже ослеп от времени проведенное перед монитором.

@northener · 13.10.2020, 03:23

niramirus, я лично совсем не понимаю что вы хотите сделать.

@D1973 · 13.10.2020, 04:18

Сообщение от niramirus

по типу master - slave

Master-Slave - это способ подключения старых HDD с интерфейсом PATA...
А таблицы связываются отношением Master-Detail... Вот только эта красота в реальной жизни не нужна практически никогда...

niramirus, чтобы хоть как-то вразумительно ответить на Ваш вопрос требуется более полное ТЗ. Нам, в отличие от Вас, неизвестно вообще ничего: ни цель Вашей работы, ни средства, которые Вы при этом используете, даже сама используемая СУБД остается тайной за 7-ю печатями, не говоря уж о структуре БД...

DenNik · 13.10.2020, 09:37

Сообщение от niramirus

with TForm1 do

ты или используй предложение with правильно

Delphi
1
2
3
4
with Form1 do
begin
  ADOQuery... // ты УЖЕ сказал компилятору, что ADOQuery находится на Form1 (для этого и существует with)
end;

или не используй

Добавлено через 53 секунды
к тому же - with TForm1 - бред сивой кобылы

@Komandor_Yan · 13.10.2020, 12:40

niramirus, пример: таблица модераторов и таблица админов. Это всё можно заменить на таблицу пользователей со столбцом-флагом "тип роли". И если это модератор, то величина должна быть, например, "mod", а если админ, то "admin" (или ещё короче "m"/"a"). Все, теперь апдейтом меняем величину флага при смене роли.

DenNik · 13.10.2020, 13:09

Сообщение от Komandor_Yan

Это всё можно заменить на таблицу пользователей со столбцом-флагом "тип роли"

а ещё лучше - числом. А клиентская программа интерпретирует и выдаёт пользователю информацию в зависмости от значения

исходная таблица USERS
Название: Снимок1.PNG
Просмотров: 49

Размер: 2.9 Кб

Название: Снимок1.PNG
Просмотров: 49

Размер: 2.9 Кб

SELECT

SQL
1
2
3
4
5
6
7
SELECT
  users.name AS "Имя",
  CASE
    WHEN users.status = 0 THEN 'Модератор'
    WHEN users.status = 1 THEN 'Пользователь'
  END AS "Роль"
FROM users

Вывод

@niramirus · 13.10.2020, 17:11 **[ТС]**

Всем спасибо. Систематическое недосыпание дает о себе знать

Попробую объяснить что я хочу сделать. Имею 2 Grid, 1 ADOquery и 1 ADOtable. База access с 2-мя таблицами, одна из которых мастер, а другая слейв. Так вот есть необходимость одной кнопкой внести изменения в обе таблицы.

Сообщение от DenNik

а ещё лучше - числом. А клиентская программа интерпретирует и выдаёт пользователю информацию в зависимости от значения

Спасибо, но SQL пока для меня непостижим

@Komandor_Yan · 13.10.2020, 19:15

niramirus, пока не будем знать основные затрагиваемые столбцы (а ещё лучше - таблицы БД) и суть изменений - помочь не сможем.
SQL придется постигать, он лучше ADOTable.Post.

DenNik · 13.10.2020, 20:04

Сообщение от niramirus

есть необходимость одной кнопкой внести изменения в обе таблицы.

Пстановка вопроса подразумевает, что ты умеешь одной кнопкой вносить изменения в одну таблицу, а второй - в другую. Тогда какие проблемы сделать это одной продпрограммой?

Совет насчёт изучения sql - правильный. Лучше с самого начала его изучать, чем набить шишки с методами визуальных контролов и в итоге отправиться таки изучать sql

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@Komandor_Yan 33 / 28 / 6 Регистрация: 24.03.2020 Сообщений: 219
	12.10.2020, 22:43
	niramirus, если данные однотипные (т.е. столбцы идентичные), то лучше добавить какой-то флаг и тем самым отпадёт необходимость во второй таблице. Старожилы подсказали в своё время про нормализацию БД и тем самым спасли мне уйму времени. Гораздо проще UPDATE-ить флаг, чем копировать INSERT-ом из одной таблицы в другую данные, которые из первой затем может понадобиться удалить DELETE-ом. 1

@northener пофигист широкого профиля 4770 / 3205 / 862 Регистрация: 15.07.2013 Сообщений: 18,613
	13.10.2020, 03:23
	niramirus, я лично совсем не понимаю что вы хотите сделать. 0

@Komandor_Yan 33 / 28 / 6 Регистрация: 24.03.2020 Сообщений: 219
	13.10.2020, 12:40
	niramirus, пример: таблица модераторов и таблица админов. Это всё можно заменить на таблицу пользователей со столбцом-флагом "тип роли". И если это модератор, то величина должна быть, например, "mod", а если админ, то "admin" (или ещё короче "m"/"a"). Все, теперь апдейтом меняем величину флага при смене роли. 0

@Komandor_Yan 33 / 28 / 6 Регистрация: 24.03.2020 Сообщений: 219
	13.10.2020, 19:15
	niramirus, пока не будем знать основные затрагиваемые столбцы (а ещё лучше - таблицы БД) и суть изменений - помочь не сможем. SQL придется постигать, он лучше ADOTable.Post. 0