Проверка на пустое поле

@Quatroom · Регистрация: 12.10.2009

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

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button5Click(Sender: TObject);
begin
Form5.ShowModal;
Form5.Table1.Insert;
begin
Form5.Table1.FieldByName('DataZvernen').AsDateTime:= DBGrid1.DataSource.DataSet.FieldByName('DataZvernen').AsDateTime;
Form5.Table1.FieldByName('DataVipiski').asDateTime:=Date;
Form5.Table1.FieldByName('PIB').AsString:= DBGrid1.DataSource.DataSet.FieldByName('PIB').AsString;
Form5.Table1.FieldByName('DataNarod').AsDateTime:= DBGrid1.DataSource.DataSet.FieldByName('DataNarod').AsDateTime;
Form5.Table1.FieldByName('Adresa').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Adresa').AsString;
Form5.Table1.FieldByName('MisceRob').AsString:= DBGrid1.DataSource.DataSet.FieldByName('MisceRob').AsString;
Form5.Table1.FieldByName('DataZahv').AsDateTime:= DBGrid1.DataSource.DataSet.FieldByName('DataZahv').AsDateTime;
Form5.Table1.FieldByName('Simptomi').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Simptomi').AsString;
Form5.Table1.FieldByName('IstorZahv').AsString:= DBGrid1.DataSource.DataSet.FieldByName('IstorZahv').AsString;
Form5.Table1.FieldByName('Analizi').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Analizi').AsString;
Form5.Table1.FieldByName('Diagnoz').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Diagnoz').AsString;
Form5.Table1.FieldByName('ReceptLikuv').AsString:= DBGrid1.DataSource.DataSet.FieldByName('ReceptLikuv').AsString;
Form5.Table1.Post;
Form1.Table1.Delete;
end;
end;

@elluminate · 09.06.2013, 14:29

может быть после всех операций нужно просто обновить наборы данных? refresh там или выключить-включить

@Quatroom · 09.06.2013, 15:05 **[ТС]**

Попробовал, не помогло

@elluminate · 09.06.2013, 15:14

попробуй делать добавление запросом INSERT. а то ты какой-то странный способ выбрал, не уверен что он корректный.
или для начала попробуй не писать AsDateTime, AsString и т.д. с левой стороны

@Quatroom · 09.06.2013, 18:55 **[ТС]**

Способ рабочий, нужно только проверку добавить

@elluminate · 09.06.2013, 19:12

если бы какое-то поле было пустое, то все остальные заполнились бы и запись была записана. если только в субд некоторые поля не отмечены как обязательные, но в этом случае вылезло бы сообщение.
а как связано "какое-то пустое поле" и неудача при записи. что за какое-то пустое поле? непонятно в общем

Добавлено через 1 минуту
лол. только заметил. так ты сначала форму показываешь с таблицей, а потом операции проводишь. наоборот сделай. Form5.Show в конец

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@elluminate 18 / 18 / 13 Регистрация: 10.11.2010 Сообщений: 143
	09.06.2013, 14:29
	может быть после всех операций нужно просто обновить наборы данных? refresh там или выключить-включить 0

@Quatroom 3 / 3 / 0 Регистрация: 12.10.2009 Сообщений: 47
	09.06.2013, 15:05 [ТС]
	Попробовал, не помогло 0

@elluminate 18 / 18 / 13 Регистрация: 10.11.2010 Сообщений: 143
	09.06.2013, 15:14
	попробуй делать добавление запросом INSERT. а то ты какой-то странный способ выбрал, не уверен что он корректный. или для начала попробуй не писать AsDateTime, AsString и т.д. с левой стороны 0

@Quatroom 3 / 3 / 0 Регистрация: 12.10.2009 Сообщений: 47
	09.06.2013, 18:55 [ТС]
	Способ рабочий, нужно только проверку добавить 0

@elluminate 18 / 18 / 13 Регистрация: 10.11.2010 Сообщений: 143
	09.06.2013, 19:12
	если бы какое-то поле было пустое, то все остальные заполнились бы и запись была записана. если только в субд некоторые поля не отмечены как обязательные, но в этом случае вылезло бы сообщение. а как связано "какое-то пустое поле" и неудача при записи. что за какое-то пустое поле? непонятно в общем Добавлено через 1 минуту лол. только заметил. так ты сначала форму показываешь с таблицей, а потом операции проводишь. наоборот сделай. Form5.Show в конец 0