[Andrew_MSK]

необходимо из бд Mysql выводить данные при поиске в грид... с учетом радиобокса
при использовании locate все работает, но показывается 1 найденная запись и только, а как сделать чтобы показывались другие значения (к примеру повторяющиеся фамилии)... нагуглил что нужно делать фильтр и sql select... но как именно сделать не понимаю...
сейчас код такой

Код:

procedure TForm2.rg1Click(Sender: TObject);
begin
  if rg1.ItemIndex=0 then  i:= 'NOMER' ;
  if rg1.ItemIndex=1 then  i:= 'FAM'  ;
  if rg1.ItemIndex=2 then  i:= 'PULT' ;
  if rg1.ItemIndex=3 then  i:= 'UL'    ;
  if rg1.ItemIndex=4 then  i:= 'TELDOM';
  if rg1.ItemIndex=5 then  i:= 'TELSOT';
end;

procedure TForm2.btn2Click(Sender: TObject);
begin
if not DataModule1.ZTable1.Locate(i, TRIM(Edt1.Text),[loPartialKey, loPartialKey])
 then ShowMessage('not dound');
end;

.
как сделать поиск с учетом radiogroup (выбор поля) и с учетом Edt1.Text куда будут вноситься значения
ПОМОГИТЕ!!! очень нужно 2 дня голову ломаю...ни шагу вперед(((

[friz]

Код:

DataModule1.ZTable1.filter := 'field = '+''''+Edt1.Text+'''';
DataModule1.ZTable1.filtered;

p.s. возможно надо будет добавить uppercase

[Andrew_MSK]

Уважаемые Форумчане... никак не получается сделать запрос((((
Помогите пожалуйста!!!!

[Andrew_MSK]

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

Код:

DataModule1.ZTable1.filter := 'field = '+''''+Edt1.Text+'''';
DataModule1.ZTable1.filtered;

p.s. возможно надо будет добавить uppercase

не работает... (не ищет)
ругается на "DataModule1.ZTable1.filtered;"
а также на uppercase(((
эххх((( а я уж обрадовался...

[Andrew_MSK]

также пытался сделать так:

Код:

procedure TForm2.rg1Click(Sender: TObject);
begin
  if rg1.ItemIndex=0 then  i:= 'NOMER' ;
  if rg1.ItemIndex=1 then  i:= 'FAM'  ;
  if rg1.ItemIndex=2 then  i:= 'PULT' ;
  if rg1.ItemIndex=3 then  i:= 'UL'    ;
  if rg1.ItemIndex=4 then  i:= 'TELDOM';
  if rg1.ItemIndex=5 then  i:= 'TELSOT';
end;

procedure TForm2.btn2Click(Sender: TObject);

begin
  DataModule1.ZQuery1.Close;
  DataModule1.ZQuery1.SQL.Clear;
  DataModule1.ZQuery1.SQL.Add('Select * from tbl where  i like "Иванов" ');
DataModule1.ZQuery1.Open;
end;

тоже не работает

[Andrew_MSK]

есть идея...что у меня... zquery работает...т.к. программа не ругается... но в грид ничего не выводится.... как связать грид и запрос!?

сейчас zcoonection к базе mysql
через zcoonection соединяется ztable и выводит данные в dbgrid через dataset....

Пожалуйста помогите....

[friz]

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

не работает... (не ищет)
ругается на "DataModule1.ZTable1.filtered;"
а также на uppercase(((
эххх((( а я уж обрадовался...

а малость подумать?
DataModule1.ZTable1.Filtered:=true;

[Andrew_MSK]

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

а малость подумать?
DataModule1.ZTable1.Filtered:=true;

он ни на что не ругается...но просто все значения при поиске из грида удаляются...(((

даже если делаю поиск без использования радиогрупп

нагуглил еще вот такой код, результат такой же

Код:

DataModule1.ZTable1.Filter:='FAM LIKE '+ #39 + edt1.Text + '%' + #39;

[friz]

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule1.ZTable1.Filter:= [foCaseInsensitive];
DataModule1.ZTable1.Filter:='FAM = '''+'*' + edit1.Text + '*'+'''';
DataModule1.ZTable1.Filtered:=true;
end;

[Andrew_MSK]

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

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule1.ZTable1.Filter:= [foCaseInsensitive];
DataModule1.ZTable1.Filter:='FAM = '''+'*' + edit1.Text + '*'+'''';
DataModule1.ZTable1.Filtered:=true;
end;

к сожалению данный код не работает... при поиске просто убирает все данные из грида... спасибо за помощь!!!
но вопрос открыт!!!!

[Andrew_MSK]

Форумчане!!! если никто не может помочь советом, может скинете ссылку на исходник приложения где используется dbgrid, zeos и mysql или filtered или Onfilterrecord