[Andrew_MSK]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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]

Код:

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

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

[Andrew_MSK]

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

[Andrew_MSK]

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

Код:

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

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

[Andrew_MSK]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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;

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

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

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

Код:

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

[friz]

Код:

1 2 3 4 5 6

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

[Andrew_MSK]

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

Код:

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

[Andrew_MSK]

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