[SQLISHE]

Доброго времени суток!

Не Выполняется почему то условие(( .. всегда дает редактировать..


Кликая по строке в Dbgrid Открываться Форма с Edit, если в поле 'Закрыто' True (1) булево значение, условие выполняется , то Edit не дается редактироваться.

в MSSQL Тип данных в поле 'Закрыто' Булево... если cделать запрос то отображается '1' ,в Dbgrid отображается как 'True ' запись в поле 'Закрыто' чекбоксом

Код:

mform.ADOTable1.FieldByName('Закрыта').AsBoolean:=true;

Код:

begin
ADOQuery1.Close; {деактивируем запрос в качестве одной из мер предосторожности}
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Закрыта');
ADOQuery1.SQL.Add('from Клиент');
ADOQuery1.SQL.Add('where (Закрыта=1)') ;
ADOQuery1.Open;

if ADOQuery1.Locate('Закрыта', dbgrid1.datasource.Dataset.fieldbyname('Закрыта').AsBoolean,[]) then    begin
ShowForm.Edit1.ReadOnly:=true;
ShowForm.Edit2.ReadOnly:=true;
ShowForm.Edit3.ReadOnly:=true;
ShowForm.Edit4.ReadOnly:=true;
ShowForm.Edit5.ReadOnly:=true;
ShowForm.Edit6.ReadOnly:=true;
ShowForm.Edit7.ReadOnly:=true;
ShowForm.Edit8.ReadOnly:=true;
ShowForm.Edit9.ReadOnly:=true;
ShowForm.Edit10.ReadOnly:=true;
ShowForm.Edit11.ReadOnly:=true;
ShowForm.CheckBox1.Enabled:=false;
ShowForm.CheckBox1.Caption:='Закрыта';
  end
else
ShowForm.Edit1.ReadOnly:=true;
ShowForm.Edit2.ReadOnly:=fasle;
ShowForm.Edit2.ReadOnly:=false;
ShowForm.Edit3.ReadOnly:=false;
ShowForm.Edit4.ReadOnly:=false;
ShowForm.Edit5.ReadOnly:=false;
ShowForm.Edit6.ReadOnly:=false;
ShowForm.Edit7.ReadOnly:=false;
ShowForm.Edit8.ReadOnly:=false;
ShowForm.Edit9.ReadOnly:=false;
ShowForm.Edit10.ReadOnly:=false;
ShowForm.Edit11.ReadOnly:=false;
ShowForm.CheckBox1.Enabled:=True;
ShowForm.CheckBox1.Caption:='Закрыть';

begin
Showform.EDIT1.Text := DBGrid1.DataSource.DataSet.FieldByName('КЛ').AsString;
Showform.EDIT2.Text := DBGrid1.DataSource.DataSet.FieldByName('ФИО').AsString;
Showform.EDIT3.Text := DBGrid1.DataSource.DataSet.FieldByName('Адрес').AsString;
Showform.EDIT4.Text := DBGrid1.DataSource.DataSet.FieldByName('Телефон').AsString;
Showform.EDIT5.Text := DBGrid1.DataSource.DataSet.FieldByName('Оборудование').AsString;
Showform.EDIT6.Text := DBGrid1.DataSource.DataSet.FieldByName('Количество').AsString;
Showform.EDIT7.Text := DBGrid1.DataSource.DataSet.FieldByName('SN').AsString;
Showform.EDIT8.Text := DBGrid1.DataSource.DataSet.FieldByName('Комплектность').AsString;
Showform.EDIT9.Text := DBGrid1.DataSource.DataSet.FieldByName('Внешний вид').AsString;
Showform.EDIT10.Text:= DBGrid1.DataSource.DataSet.FieldByName('Неисправность').AsString;
showForm.ShowModal;

   end


end;

[Страдалецъ]

Непонятно зачем вам Locate. Вы сделали запрос и получили набор записей имеющих признак Закрыто=1. Иных значений там просто быть неможет. Поэтому смысла в Locate нет никакого. Просто обходите в цикле все полученные записи.

[SQLISHE]

а как сделать что не через sql запрос , дело в том что у меня поиск по базе.. прикручен к dbgrid

[Страдалецъ]

Я вас удивлю, но dbgrid ничего не ищет. Он только отображает и все. Весь поиск у вас прикручен к DataSource. Если я правильно понял, то вам нужно организовать последовательный поиск по таблице, записей для которых значение поля Закрыто = 1? Т.е. нажал разок на кнопку "Поиск" нашел первую, затем вторично нажал и нашлась вторая. Так?

[SQLISHE]

не удивили)).. наверно не так выразился..

примерно,, что бы проверил..на ту скроку которую кликнул 2 раза..и открыл ее в форме..с проверенным полем.. "Закрыта" ..тем самым .. запершая или разрешая редактирование через Edit Ы

[einstein]

проще все едиты кинуть на панель и ей делать енабле = фалсе.

[SQLISHE]

а что меняет?.. они у меня разрешаются или запрашиваются редактироваться .. Проверяя.. поле Закрыто.. еще.. так скажем... влечет отображения чекбокса... делая активным его или нет

[SQLISHE]

Ребят, подскажите а......