Запись в базу по отдельности

[WALL]

Есть на воме несколько DBComboBox и edit, я прописал sql запрос на кноку чтобы эти данные вводились в базу, на у меня вводиться все DBComboBox и edit, даже если они пустые, и базе создаються пустые строчки. Как сделать чтобы если я DBComboBox и edit, не использовал они не заносились в базу????

[mihali4]

if Trim(Edit1.Text)>'' then
//запись в БД

[WALL]

FormatDateTime('mm',Form5.DateTimePicker1.Date);
       Form4.ADOQuery1.Open;
       Form4.ADOQuery1.Insert;
       Form4.ADOQuery1.FieldByName('Фамилия').AsString:=Form5.Edit1.Text;
       Form4.ADOQuery1.FieldByName('Имя').AsString:=Form5.Edit2.Text;
       Form4.ADOQuery1.FieldByName('Отчество').AsString:=Form5.Edit3.Text;
       Form4.ADOQuery1.FieldByName('Дата').AsDateTime:=Form5.DateTimePicker1.Date;
       Form4.ADOQuery1.Post;
       Form4.ADOTable1.Open;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox1.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit5.Text;
       Form4.ADOTable1.FieldByName('срок хранения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температура C').AsString:=Form5.Edit6.Text;
       Form4.ADOTable1.Post;
       
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox2.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit7.Text;
       Form4.ADOTable1.FieldByName('срок хранения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температура C').AsString:=Form5.Edit6.Text;
       Form4.ADOTable1.Post;

       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox3.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit8.Text;
       Form4.ADOTable1.FieldByName('срок хранения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температура C').AsString:=Form5.Edit6.Text;
       Form4.ADOTable1.Post;

        Form4.ADOTable1.Insert;
        Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox4.text;
        Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit9.Text;
        Form4.ADOTable1.FieldByName('срок хранения').AsString:=Form5.Edit4.Text;
        Form4.ADOTable1.FieldByName('температура C').AsString:=Form5.Edit6.Text;
         Form4.ADOTable1.Post;
        Form5.Edit1.Clear;
  Form5.Edit2.Clear;
  Form5.Edit3.Clear;
  Form5.Edit5.Clear;
  Form5.Edit7.Clear;
  Form5.Edit8.Clear;
  Form5.Edit9.Clear;

end;

Вот код как сделать чтобы каждая группа вводилась, отдельно, в если я не ввожу туда нечиго не выводились пустые строки

[Stilet]

Трудновато что-то тебя понять, попробую стелепатировать: Ты хочешь запретить запись в БД в том случае если у тебя хотябы один из Эдитов пустой, так?
Тогда этот код ты кинь в обработчик клика кнопки, а на все Эдиты на Форме5 посади один и тот же обработчик:

 for i:=0 to ControlCount-1 do begin
  if (Control[i] is TEdit)and(TEdit(Control[i]).Text='') then begin
    ButtonЗаписи.Enabled:=false;exit;
  end;
 end;
 ButtonЗаписи.Enabled:=True;

Таким образом кнопка станет доступной только тогда когда во всех Эдитах будет что-то введено.

P.S. когда я говорю "один обработчик на несколько эдитов", это не значит что каждому Эдиту нужно создавать свой обработчик с таким же кодом, просто выдели все эдиты и назначь им один и тот же обработчик

Уловил идею?

[WALL]

но и не только edit но еще и DBComboBox чтобы если они оба пусты то их не записывать в БД

14:39

вот как надо исправить как-то

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
А пока красная карточка за флуд.
Модератор

[Stilet]

if 
  (Control[i] is TDBComboBox )and(TDBComboBox (Control[i]).Text='') 
then begin
...

И так в принципе можно приводить Control[] к нужному компоненту и его проверять.

[WALL]

DBLookupComboBox и edit мне нужно что эти два компонетнат вместе, если они пыстые не записывались в БД. как дописать в мой текущий код серху ?