Поиск по Базе , Locate

[mmihan]

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

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

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

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

не помогу понять что не так .. пробовал разными вариантами
пробовал в KeyValues и Труе и 1

Почему то всегда ((((, выполняется "ShowForm.Edit2.ReadOnly:=true; "

procedure TMform.DBGrid1DblClick(Sender: TObject);

begin

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

 if  ADOQuery1.Locate('Закрыта',True,[]) then begin

ShowForm.Edit2.ReadOnly:=true;
....
end
else
ShowForm.Edit2.ReadOnly:=false;
....

 begin
   Showform.EDIT1.Text := DBGrid1.DataSource.DataSet.FieldByName('КЛ').AsString;
.......
   showForm.ShowModal;
 end
end;

[SERG1980]

Если я вас правильно понял, выхотите при клике на запись проверить поле "Закрыта", тогда может вам это условие

 if  ADOQuery1.Locate('Закрыта',True,[]) then begin

изменить на такое

if ADOQuery1.FieldByName('Закрыта').AsBoolean then begin

[mmihan]

да, На содержание записи "True" (1) В Поле 'Запись' , сейчас попробую

[mmihan]

Не выходит.. пробовал приравнивать к True.. теперь выполняется всегда условие после esle ...

[SERG1980]

А вы для проверки сделайте поле "закрыта" видимым и кликайте по записи, и тогда будет ясно работает у вас условие или нет или проект покажите. Да и на какой датасет(DataSource) настроен DBGrid

[mmihan]

Для отображение Стоит .. поле.
Prog.rar

login sa
pass sa

[evg_m]

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

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

Набор в DBGrid тот же или это другой набор?
Если тот же то вы сбили текущую запись.
Если другой то вы забыли выставить нужную (согласованную с набором в DBgrid).
в любом случае вы всегда проверяете первую запись. А ее состояние всегда одинаково.

теперь выполняется всегда условие после esle ...

поскольку у вас ADOQuery1, то добавтьте в запрос условие WHERE для выбора только одной нужной записи.

ADOQuery1.SQL.text:=''Select Закрыта  from Клиент where .......';

[mmihan]

в Dbgrid Другой

[evg_m]

ADOQuery1.SQL.text:=''Select Закрыта from Клиент where IDREC =.......';
ключ поиска должен быть idrec поле уникальный идентификатор записи, но не закрыта поле признак состояния записи.
P.S. То же самое верно для вашего первого варианта с Locate.
Искать надо не первую закрытую запись

Locate('закрыта', true, )

а запись с тем же ключом (идентификатором)

Locate('IDREC', dbgrid.datasource.Dataset.fieldbyname('id').asinteger);

[mmihan]

а не подскажите почему при компиляции возникает ошибка ?

if ADOQuery1.Locate('True', dbgrid1.datasource.Dataset.fieldbyname('Закрыта').asinteger)then    begin