|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Фильтрация и с чем её едят
Доброго времени суток, прошу помощи)
Код:
procedure TfDM.TTehnikaFilterRecord(DataSet: TDataSet; var Accept: Boolean); var b : String; begin b := Copy(DataSet ['Сотрудник'],1-5,Length (wd)); Accept:= b = wd; end; procedure TfTehnika.Edit2Change(Sender: TObject); begin if Edit2.Text<>'' then begin fDM.TTehnika.Filtered :=False; wd:= Edit2.Text; fDM.TTehnika.Filtered :=True end else fDM.TTehnika.Filtered := False; procedure TfTehnika.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then begin fDM.TTehnika.Filter := 'Тип=''Принтер'''; fDM.TTehnika.Filtered := True end else fDM.TTehnika.Filtered := False; |
#2
|
||||
|
||||
Где у тебя тут сомбобокс
- Покажи полный код события OnChange Нет ничего не возможного. Вопрос только во времени... Последний раз редактировалось Electronic_Arts, 09.02.2012 в 00:11. |