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

[SERG1980]

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

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

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

Первый параметр это имена полей по которым идёт поиск
Второй параметр это значения по которым идёт поиск
Третий параметр (может быть равен []) это настройки поиска
А у ва как записано? Или у вас есть поле 'True'?

[mmihan]

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

Каретку перемешается после asinteger

[SERG1980]

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

[mmihan]

СПАСИБО БОЛЬШОЕ надо было вот так

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

[mmihan]

что то нечего не пойму.. вроде заработало.. сейчас опять не работает..

Всегда доступно для редактирования(((

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:=true;
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;

:WALL ПДЫШЬ ПДЫШЬЬ

[mmihan]

а второе если dbgrid исполняется для отображения поиска .. если после поиска пытаться открыть строку .. ты вылетит ошибка.. как эту беду победить?.

procedure TMform.SearchDoc(Sender: TObject);
var
   dt1,dt2:Tdate;
begin
  dt1:=DateTimePicker1.DateTime;
  dt2:=DateTimePicker2.DateTime;

  ADOQuery1.Close; {деактивируем запрос в качестве одной из мер предосторожности}
  ADOQuery1.SQL.Clear; {стираем предыдущий запрос}
  ADOQuery1.SQL.Add('select КЛ, ФИО,Телефон, Адрес, Оборудование,SN,Количество, Неисправность,[Дата поступления], [Дата ремонта], Комплектность,[Внешний вид]' ) ;
  ADOQuery1.SQL.Add('from Клиент');
  ADOQuery1.SQL.Add('where ((КЛ  LIKE ''%'+Edit1.Text+'%'') AND (ФИО  LIKE   ''%'+Edit2.Text+'%'' OR ФИО IS NULL )  AND (Оборудование  LIKE   ''%'+Edit4.Text+'%'' OR Оборудование IS NULL) AND (Телефон  LIKE   ''%'+Edit3.Text+'%'' OR Телефон IS NULL)  AND      ([Дата поступления] BeTwEEN '+QuotedStr(FormatDateTime('yyyy-MM-dd',dt1))+'   AND '+QuotedStr(FormatDateTime('yyyy-MM-dd',dt2))+'  )    )');

  ADOQuery1.Open; {выполняем запрос}
  ADOQuery1.Active:=true;
  DataSource1.DataSet:=ADOQuery1;
   DbGrid1.DataSource:=DataSource1;
  ADOQuery1.FieldByName('Внешний вид').Visible:=false;
  DbGrid1.Fields[0].DisplayLabel:='Номер';



  end;

[evg_m]

если после поиска пытаться открыть строку .. ты вылетит ошибка.. как эту беду победить?.

нам ошибку не видно.