Формы регистрации и редактирования записей в DBGrid

@EGKR · Регистрация: 10.11.2014

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

На форме есть 2 кнопки: "Регистрация" и "Редактирование". Обе кнопки открывают форму на которой размещены dbedit-ы и timer. Когда регистрируем кого-то, то в dbgrid заносится еще и текущее время и наоборот, когда мы редактируем запись, то время не вносится в соответствующую колонку dbgrid-a. Вопрос: почему это не работает? Вроде бы проверяю, какая была нажата кнопка.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
begin
  if fName.Button2.Enabled=true then 
  Timer1.Enabled:=False;
  if fName.Button3.Enabled=true then
  begin
    Timer1.Enabled:=True;
    fDM.TLichData.FieldByName('Time').AsDateTime := Now;
if  fDM.TLichData.Modified then
 fDM.TLichData.Post;
 end;
Close;
end;

@qwertehok · 27.02.2016, 15:17

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

Вопрос: почему это не работает?

так как вы не написали что именно не работает, то скажу лишь что у вас есть отладчик - вот и отлаживайте свою программу

@EGKR · 27.02.2016, 15:22 **[ТС]**

А так не понятно? Ну хорошо. Вот вопрос: Почему компонент timer не отключается, когда я нажимаю на Button2? Мне нужно, что бы при редактировании (нажатие на button2) открывалась моя форма с регистрацией, но при сохранении не обновлялось время в dbgrid-e?
Вроде проверяю условие:

Delphi
1
2
if fName.Button2.Enabled=true then 
Timer1.Enabled:=False;

@qwertehok · 27.02.2016, 15:27

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

Почему компонент timer не отключается, когда я нажимаю на Button2?

если не отключается значит условие не срабатывает, то есть
fName.Button2.Enabled<>true

@EGKR · 27.02.2016, 15:42 **[ТС]**

Все, уже решил сам. Объявил глобальную boolen переменную и присвоил false. А уже потом для кнопки "Редактирование" в процедуре присвоил true и проверял это условие.

@qwertehok · 27.02.2016, 16:08

EGKR, а зачем вам таймер на форме регистрации?

@EGKR · 27.02.2016, 18:58 **[ТС]**

Чтобы записать время в ячейку dbgrid для соответствующей записи.

@qwertehok · 27.02.2016, 20:46

EGKR,
время чего вам нужно писать?

@EGKR · 27.02.2016, 21:14 **[ТС]**

Время, когда была произведена запись. Понял вас. Он там вообще не нужен)

@qwertehok · 27.02.2016, 21:30

он не нужен как и дбэдит для редактирования

@EGKR · 28.02.2016, 08:45 **[ТС]**

Почему dbedit не нужен? А как тогда я с той же формы буду заносить записи в dbgrid?

@qwertehok · 28.02.2016, 16:05

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

Почему dbedit не нужен?

а зачем он нужен?

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

А как тогда я с той же формы буду заносить записи в dbgrid?

ну во первых dbgrid тоже не нужен

а во вторых - писать данные в базу и читать оттуда нужно запросами

@EGKR · 29.02.2016, 16:40 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@EGKR 3 / 3 / 2 Регистрация: 10.11.2014 Сообщений: 94
	27.02.2016, 15:42 [ТС]
	Все, уже решил сам. Объявил глобальную boolen переменную и присвоил false. А уже потом для кнопки "Редактирование" в процедуре присвоил true и проверял это условие. 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	27.02.2016, 16:08
	EGKR, а зачем вам таймер на форме регистрации? 0

@EGKR 3 / 3 / 2 Регистрация: 10.11.2014 Сообщений: 94
	27.02.2016, 18:58 [ТС]
	Чтобы записать время в ячейку dbgrid для соответствующей записи. 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	27.02.2016, 20:46
	EGKR, время чего вам нужно писать? 0

@EGKR 3 / 3 / 2 Регистрация: 10.11.2014 Сообщений: 94
	27.02.2016, 21:14 [ТС]
	Время, когда была произведена запись. Понял вас. Он там вообще не нужен) 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	27.02.2016, 21:30
	Сообщение было отмечено EGKR как решение Решение он не нужен как и дбэдит для редактирования 0

@EGKR 3 / 3 / 2 Регистрация: 10.11.2014 Сообщений: 94
	28.02.2016, 08:45 [ТС]
	Почему dbedit не нужен? А как тогда я с той же формы буду заносить записи в dbgrid? 0

@EGKR 3 / 3 / 2 Регистрация: 10.11.2014 Сообщений: 94
	29.02.2016, 16:40 [ТС]
	Чтобы сохранять данные в базу. Я только так умею и этого мне достаточно, пока) 0

Формы регистрации и редактирования записей в DBGrid

Решение