совсем запутался в if then, else begin

[undead92]

есть вот такой рабочий код

begin
  if (Length(edtnaimenov.Text) = 0) or (Length(edtopisa.Text) = 0) then ShowMessage('Неполная информация о товаре!')

  else begin
if DataModule2.mytbl3.Modified then   DataModule2.mytbl3.Post;
 Form5.myqry3.Active:=false;
         Form5.myqry3.Active:=true;
Form9.Close;    end;
end;

он проверяет все ли 2 обязательных поля заполнены, прежде чем сохранить в базу, но мне нужна еще одна проверка, которая поищет по базе и если найдет товар с таким же сн, то выдаст ошибку

          myqry1.Active:=false;
myqry1.SQL.Clear;
myqry1.SQL.Add('select * from ofice where sntm='+quotedstr(edtdbedtcompanysntm.Text));
myqry1.Active:=True;

    if    myqry1.RecordCount  = 1 then ShowMessage('Терминал с таким С\Н уже есть!')   ;

У меня не как не получается правильно вонзить 2 кусок в 1, либо проверка игнорируется и запись все равно идет, либо работает,но только если сразу указать сущ сн,если же сначала незаполнить поле, а потом сн - то пропустит. как правильно написать условие


если все проверки пройдены то должно быть

if DataModule2.mytbl3.Modified then   DataModule2.mytbl3.Post;
       Form5.myqry2.Active:=false;
         Form5.myqry2.Active:=true;
Form9.Close;

[astecenko]

Оформите проверку функцией, как-нибудь так:

function Proverka2(const s:string):boolean;
  begin
    myqry1.close;
    myqry1.SQL.Text:='select * from ofice where sntm='+quotedstr(s);
    myqry1.open;
    Result:=myqry1.isempty;
    if Result then ShowMessage('Терминал с таким С\Н уже есть!');
  end;

И соответсвенно в месте проверки будет:

 if (Length(edtnaimenov.Text) = 0) or (Length(edtopisa.Text) = 0) or Proverka2(edtdbedtcompanysntm.Text) then ShowMessage('Неполная информация о товаре!')

[undead92]

спасибо, удобнее) у меня тоже получилось но громоздко

begin
myqry1.Active:=false;
myqry1.SQL.Clear;
myqry1.SQL.Add('select sntm from ofice where sntm='+quotedstr(edtdbedtcompanysntm.Text));
myqry1.Active:=True;
                      if (Length(edtdbedtcompanytmnazvanie.Text) = 0) or (Length(edtdbedtcompanysntm.Text) = 0) or (Length(edtglogps.Text) = 0) then ShowMessage('Неполная информация о товаре!')

                  else
                                         if    myqry1.RecordCount  >= 1   then ShowMessage('Терминал с таким С\Н уже есть!')
                  else



                 begin

if DataModule2.mytbl3.Modified then   DataModule2.mytbl3.Post;
       Form5.myqry2.Active:=false;
         Form5.myqry2.Active:=true;
Form9.Close;
                Form5.rb2.Checked:=True;

         end ;



   end;

[Serge_Bliznykov]

undead92, кто Вас учил так форматировать код?!!
Немудрено в таком коде запутаться!

сравните с

begin
  if (Length(edtdbedtcompanytmnazvanie.Text) = 0) or (Length(edtdbedtcompanysntm.Text) = 0) or (Length(edtglogps.Text) = 0)
    then ShowMessage('Неполная информация о товаре!')
  else begin
    myqry1.Active := false;
    myqry1.SQL.Clear;
    myqry1.SQL.Add('select sntm from ofice where sntm=' + quotedstr(edtdbedtcompanysntm.Text));
    myqry1.Active := True;
    if myqry1.RecordCount >= 1 then ShowMessage('Терминал с таким С\Н уже есть!')
    else
    begin
      if DataModule2.mytbl3.Modified then DataModule2.mytbl3.Post;
      Form5.myqry2.Active := false;
      Form5.myqry2.Active := true;
      Form9.Close;
      Form5.rb2.Checked := True;
    end;
  end;
end;

p.s. хотя, я тоже за то, чтобы выносить код в отдельные функции/процедуры.
Это и удобнее, и нагляднее, и отладку упрощает...