DateTimePicker и БД

@haker270 · Регистрация: 24.08.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток!
Подскажите, имеется DateTimePicker, ADOQuery, DBGrid и таблица, которая состоит из полей Дата(дата/время), ИД(числовой), Номер позиции(числовой)
Как сделать так, чтобы при открытии формы дата в дбгриде была привязана к DateTimePicker и сортировались по выбранной в DateTimePicker дате
прикрепил проект и БД

Скандербег · 18.11.2012, 17:44

При изменении даты в DateTimePicker:

Delphi
1
2
3
4
5
6
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  ADOQuery1.Filtered := False;
  ADOQuery1.Filter := 'DATE_R=#'+DateToStr(DateTimePicker1.Date)+'#';
  ADOQuery1.Filtered := True;
end;

Только придется еще кнопку на форме размещать чтобы сбрасывать фильтр.

@haker270 · 18.11.2012, 17:50 **[ТС]**

спасибо)
а как сделать чтобы по умолчанию была выбрана последняя дата с БД в DateTimePicker?

Скандербег · 18.11.2012, 18:09

А "умолчание" в этом случае что значит?
Если речь о событии, которое возникает при создании формы, то в событии OnCreate формы вызывать обработчик OnChange дататаймпикера:

Delphi
1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1Change(DateTimePicker1);
end;

Если что-то другое подразумевается под понятием "по умолчанию", то уточните, пож.

@haker270 · 18.11.2012, 18:19 **[ТС]**

Сообщение от Скандербег

А "умолчание" в этом случае что значит?
Если речь о событии, которое возникает при создании формы, то в событии OnCreate формы вызывать обработчик OnChange дататаймпикера:

Delphi
1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1Change(DateTimePicker1);
end;

Если что-то другое подразумевается под понятием "по умолчанию", то уточните, пож.

я понял, попытаюсь объяснить)
у меня в таблице есть например последняя дата 15.10.2012, я хочу чтобы при открытии формы в DateTimePicker была выбрана эта дата и данные в таблице были отфильтрованы по этой данной

П.С. Спасибо, что откликнулись и помогаете мне)

Скандербег · 18.11.2012, 18:41

Да, понятно. Можно так:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery2.SQL.Text := 'select ещз 1 DATE_R from ratings_atp order by DATE_R desc';
  ADOQuery2.Open;
  if not ADOQuery2.Eof then
    DateTimePicker1.Date := ADOQuery2['DATE_R'];
  ADOQuery2.Close;  
end;

Только выяснять какая дата последняя нужно через другой квери. Как в здесь в примере.
TOP 1 ошибки не выдает (штатный предикат в SQL Акссес), но почему-то не работает, т.е. возвращает все равно весь набор. Поэтому поиск даты подтормаживает. Ну, это происки MS.

@haker270 · 18.11.2012, 18:52 **[ТС]**

Спасибо Вам огромное)
И еще маленький вопросик
какой код написать в кнопке, чтобы при нажатии дата в DateTimePicker менялась, т.е. при открытии пишет 05/11/2011, а при нажатии изменилось на 29/10/2012, т.е. разница в 7 дней

Скандербег · 18.11.2012, 18:59

Есть целая кучка славных функций и процедур для работы с датами.
В частности для изменения даты на некоторое количество дней служит функция IncDay.
Надо будет подключить модуль DateUtils.

Delphi
1
2
3
4
5
6
7
8
9
10
implementation
 
{$R *.dfm}
 
uses DateUtils;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  DateTimePicker1.Date := IncDay(DateTimePicker1.Date, -7);
end;

@haker270 · 18.11.2012, 19:14 **[ТС]**

Спасибо огромное!

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@haker270 -10 / 2 / 0 Регистрация: 24.08.2012 Сообщений: 23
	18.11.2012, 17:50 [ТС]
	спасибо) а как сделать чтобы по умолчанию была выбрана последняя дата с БД в DateTimePicker? 0

@haker270 -10 / 2 / 0 Регистрация: 24.08.2012 Сообщений: 23
	18.11.2012, 18:52 [ТС]
	Спасибо Вам огромное) И еще маленький вопросик какой код написать в кнопке, чтобы при нажатии дата в DateTimePicker менялась, т.е. при открытии пишет 05/11/2011, а при нажатии изменилось на 29/10/2012, т.е. разница в 7 дней 0

@haker270 -10 / 2 / 0 Регистрация: 24.08.2012 Сообщений: 23
	18.11.2012, 19:14 [ТС]
	Спасибо огромное! 0