Текущий архив: 2003.09.18;
Скачать: CL | DM;

Вниз

Подскажите как отфильтровать базу по дате?   Найти похожие ветки 

← →
Berezne   (2003-08-28 12:43) [0]

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

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

---

← →
NickBat ©   (2003-08-28 12:44) [1]

хм
... where mdate between ...

---

← →
MsGuns ©   (2003-08-28 12:48) [2]

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

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

---

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

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

---

← →
MsGuns ©   (2003-08-28 15:12) [4]

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;

---

← →
MsGuns ©   (2003-08-28 15:14) [5]

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

и другие..

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c