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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@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

Опции темы