Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
14-58880
Александр из Минска
2003-08-28 19:59
2003.09.18
СРОЧНО НАДО ИСПРАВИТЬ


3-58511
explorer
2003-08-29 07:50
2003.09.18
Как добавить и выбрать картинку


14-58838
Knight
2003-08-28 21:54
2003.09.18
Взрослеем.... взрослеем...


3-58538
Stas
2003-08-28 10:38
2003.09.18
TStream и Recordset


3-58519
pvl
2003-08-28 12:19
2003.09.18
Запуск MS SQL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский