| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите как отфильтровать базу по дате? [D5, Paradox]

Berezne ©   (2003-08-28 12:43:00) 

Подскажите как отфильтровать базу по дате? Мне нужно чтоби вибрав, например, очтетний месяц и год база отфильтровала мне все записи в ней по датах которие попадают в етот период.

Спасиба всем за ответи.

---

MsGuns   (2003-08-28 15:14:00) [1]

Извиняюсь за очепятки:
procedure Form1.FilterButtonClick(Sender: TObject);

и другие..

---

MsGuns   (2003-08-28 15:12:00) [2]

1.
procedure Form1.FilterButton.Click(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
with Query1 do
begin
DisableControls;
if Active then Close;
SQL.Clear;
SQL.Add(" SELECT * FROM TABLE");
SQL.Add(" WHERE (CITY="+QuotedStr(Edit1.Text)+")");
SQL.Add(" AND (STREET="+QuotedStr(Edit2.Text)+")");
SQL.Add(" ORDER BY FIO, PHON");
try
Open;
except
ShowMessage("Ошибка выполнения запроса");
Screen.Cursor := crDefault;
exit;
end;
EnableControls;
end;
Screen.Cursor := crDefault;
end;

2.
procedure Form1.FilterButton.Click(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
with Table1 do
begin
DisableControls;
Filter := "CITY="+QuotedStr(Edit1.Text)+
" AND STREET="+QuotedStr(Edit2.Text);
Filtered := true;
Screen.Cursor := crDefault;
EnableControls;
end;
Screen.Cursor := crDefault;
end;

3.
procedure TForm1.IBTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if not Opt_Filter then exit; // Выкл. фильтр
with DataSet do
Accept := (FieldByName("CITY"),AsString=Edit1.Text) and
(FieldByName("STREET"),AsString=Edit2.Text);
end;

---

Berezne   (2003-08-28 14:35:00) [3]

А поточнее можна? Если не трудно, то напишите пример.

---

MsGuns   (2003-08-28 12:48:00) [4]

1. Запрос (TQuery)
2. Filter
3. OnFilterRecord

В порядке снижения эффективности.

---

NickBat   (2003-08-28 12:44:00) [5]

хм
... where mdate between ...

---

Наверх