Проверка на несколько пустых полей

[sdr1]

Ребят подскажите пож-та есть форма на ней dbgrid (инф-я из 2-х таблиц access, Adoquery). Нужно чтоб пользователь заполняя запись в dbgrid обязательно заполнял 11 и 12 поле, если поля не заполнены то запись бы не сохранялась или не закрывалась форма.
вот код

procedure TForm_ins_sotr.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
with dbgrid1.DataSource.DataSet do
while not Eof do begin
if (DBGrid1.DataSource.DataSet.Fields[11].AsString='')and(DBGrid1.DataSource.DataSet.Fields[12].AsString='') then
ShowMessage('некоторые поля не заполнены');
next;
end;
end;

но проблема в том, что второе условие не проверяет (12поле), а если меняешь местами то (11поле) не проверяет.

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

[Slym]

а если полей проверять надо десять и в десяти разных таблицах?
Я когда то для ADO так делал
пользовать на BeforePost

procedure TDM.ValidateTable(DataSet: TDataSet;const ATableName:string='');
var
  TableName:string;
  Strings:TStringList;
  DS:TADODataSet;
  IsNullable,Description:TField;
  i:integer;
begin
  if ATableName<>'' then TableName:=ATableName else TableName:=DataSet.Name;
  Strings:=TStringList.Create;
  try
    DS:=TADODataSet.Create(nil);
    try
      Conn.OpenSchema(siColumns,EmptyParam,EmptyParam,DS);
      IsNullable:=DS.FieldByName('IS_NULLABLE');
      Description:=DS.FieldByName('DESCRIPTION');
      for i:=0 to DataSet.FieldCount-1 do
      with DataSet.Fields[i] do
      begin
        if IsNull and not ReadOnly then
        begin
          if not DS.Locate('TABLE_NAME;COLUMN_NAME',VarArrayOf([TableName,FieldName]),[]) then
            Continue;
          if IsNullable.AsBoolean then Continue;
          if not Description.IsNull then
            Strings.Add('"'+Description.AsString+'"')
          else
            Strings.Add('"'+FieldName+'"');
        end;
      end;
    finally
      DS.Free;
    end;
    if Strings.Count>0 then
    begin
      Strings.Insert(0,'Не заполнены обязательные поля:');
      Application.MessageBox(Strings.GetText,'Ошибка!',MB_ICONERROR);
      Abort;
    end;
  finally
    Strings.Free;
  end;
end;

[Iron Monk]

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

Ребят подскажите пож-та есть форма на ней dbgrid (инф-я из 2-х таблиц access, Adoquery). Нужно чтоб пользователь заполняя запись в dbgrid обязательно заполнял 11 и 12 поле, если поля не заполнены то запись бы не сохранялась или не закрывалась форма.
вот код

procedure TForm_ins_sotr.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
with dbgrid1.DataSource.DataSet do
while not Eof do begin
if (DBGrid1.DataSource.DataSet.Fields[11].AsString='')and(DBGrid1.DataSource.DataSet.Fields[12].AsString='') then
ShowMessage('некоторые поля не заполнены');
next;
end;
end;

но проблема в том, что второе условие не проверяет (12поле), а если меняешь местами то (11поле) не проверяет.

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

or вместо and не?

[Аватар]

но проблема в том, что второе условие не проверяет (12поле), а если меняешь местами то (11поле) не проверяет.

Поставь or вместо and и будет проверять. First перед циклом тоже к месту, иначе вся свистоплястка будет от текущей записи

[sdr1]

First перед циклом тоже к месту, иначе вся свистоплястка будет от текущей записи

first стоит на кнопке закрыть
спасибо.

[sdr1]

что делаю не так? при нажатии на кнопку закрыть, появляется ошибка
"adoquery77:cannot perform this operation on a closed dataset"

begin
ADOQuery77.First;
with dbgrid1.DataSource.DataSet do
while not Eof do begin
if (DBGrid1.DataSource.DataSet.Fields[5].AsString='')or(DBGrid1.DataSource.DataSet.Fields[11].AsString='')or(DBGrid1.DataSource.DataSet.Fields[12].AsString='') then begin

       MessageDlg('поля не заполнены.',
          mtError,[mbOK],0);
next;
 end else
close;
end;
 end;

[Аватар]

ADOQuery77 это точно то же, что и DBGrid1.DataSource.DataSet?

[sdr1]

Сообщение от Аватар

ADOQuery77 это точно то же, что и DBGrid1.DataSource.DataSet?

да
datasource77->dataset->adoquery77
dbgrid1->datasource->datasource77

мне нужно сделать так, если проверка прошла успешно, то форма бы закрывалась.

[Аватар]

Ну значит произошло то, о чем и говорится в сообщении об ошибке

[phomm]

Надо написать Self.Close , а ещё добавить Break перед ним и их вместе окружить бегин-ендом.
Захотите разобраться почему - прочитайте о потенциальных проблемах из-за with в инете.