Расписание БД MS Access из календаря (Delphi 7)

@Асылжан · Регистрация: 25.10.2016

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

Есть готовая программа, но нужно доработать для сдачи в дипломную работу.
Мне нужно создать таблицу которая берет данные из таблицы БД(из двух таблиц) но сохраняет в новую таблицу с названием даты из DataTimePicker при нажатий на кнопку. И чтобы при смене даты из DataTimePicker менялся и отображаемая таблица. Таблица должна быть редактируема. Возможно ли такое реализовать? Если да, то как? Если трудно, хотя бы подскажите куда искать. Или есть более легкие способы реализаций расписания? Прошу помощи потому что не понимаю всех свойств и инструментов среды разработки, но времени мало.

На рисунке DBGrid берет данные из таблицы маршрутов (1-2 столбцы), не смог взять таблицу водителей т.к. в Datasource выбирается только 1 ADOTable. Хотелось бы сделать столбец водителей как на 2 скриншоте, не знаю как.

@D1973 · 06.05.2019, 19:20

Сообщение от Асылжан

хотя бы подскажите куда искать

В сторону SQL запросов. И забыть про ADOTable...

@Асылжан · 06.05.2019, 19:51 **[ТС]**

Сообщение от D1973

В сторону SQL запросов. И забыть про ADOTable...

Придется полностью переделывать БД? Когда я думал переписать эту программу на питоне нужно было выбирать между SQLite и Access. Там оказалось всё куда сложнее =). На пол пути решил доработать эту.

@D1973 · 07.05.2019, 03:58

Сообщение от Асылжан

Придется полностью переделывать БД?

Я не видел Вашей БД, не знаю ни полей, ни типов данных, ни связей - поэтому не могу сказать, надо ли переделывать саму БД... А вот клиентское приложение - да, надо.

@Асылжан · 14.05.2019, 01:38 **[ТС]**

Спасибо, с вашей подсказкой кое как справился(Не так как задумал, и так сойдет =) ). Но есть одна маленькая проблема. Программа берет только сегодняшнюю дату, что бы я не выбирал в DataTimePicker.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm16.Button2Click(Sender: TObject);
begin
DateTimePicker1.Date := Date;
Form16.ADOQuery1.Close;
Form16.ADOQuery1.SQL.Clear;
Form16.ADOQuery1.SQL.Add('SELECT *');
Form16.ADOQuery1.SQL.Add('FROM Rasp1');
Form16.ADOQuery1.SQL.Add('WHERE Data LIKE '''+DateToStr(Date)+'''');
Form16.ADOQuery1.Open;
end;
 
 
procedure TForm16.Button1Click(Sender: TObject);
begin
DateTimePicker1.Date := Date;
Form16.ADOQuery2.Close;
Form16.ADOQuery2.SQL.Clear;
Form16.ADOQuery2.SQL.Add('Insert INTO Rasp1 Values ('''+Edit1.Text+''', '''+Edit2.Text+''', '''+DateToStr(Date)+''')');
Form16.ADOQuery2.ExecSQL;
Form16.ADOQuery2.Close;
end;

Если для ответа нужно увидеть БД или что нибудь еще, могу скинуть сюда весь проект. Там дело только с одной из Form и БД. Других связей нет

Добавлено через 24 минуты
Оказывается жестко я затупил. Самому смешно

Delphi
1
2
3
4
var
  Date: TDate;
 
Date := DateTimePicker1.Date;

@D1973 · 14.05.2019, 05:08

Сообщение от Асылжан

Самому смешно

Асылжан, да, Вы совершенно верно разобрались в ситуации - вот только позвольте несколько замечаний:
1. Имя переменной Date - это неправильное имя, потому как Date - зарезервированный идентификатор в Delphi, а именно - функция - возвращающая текущую дату. Поменяйте имя; в противном случае могут вылезти неприятные косяки, да и компилятор предупреждениями закидает...
2. Чтобы вообще исключить возникновение ошибки из п. 1: в принципе переменная тут вообще не нужна - подставляйте сразу в текст запроса значение, выставленное в компоненте DateTimePicker

Delphi
1
2
3
ADOQuery1.Close;
ADOQuery1.SQL.Text := Format('SELECT * FROM Rasp1 WHERE Data LIKE %s', [QuotedStr(DateToStr(DateTimePicker1.Date))]);
ADOQuery1.Open;

Delphi
1
2
3
ADOQuery2.Close;
ADOQuery2.SQL.Text := Format('Insert INTO Rasp1 Values (%s,%s,%s)', [QuotedStr(Edit1.Text), QuotedStr(Edit2.Text), QuotedStr(DateToStr(DateTimePicker1.Date))]);
ADOQuery2.ExecSQL;

Или вообще используйте запросы с параметрами.
3. Не надо в методе класса явно указывать имя этого класса: не Form16.ADOQuery2.Close; а просто ADOQuery2.Close;

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Асылжан 0 / 0 / 0 Регистрация: 25.10.2016 Сообщений: 6

	Delphi 6-7 Расписание БД MS Access из календаря (Delphi 7) 06.05.2019, 19:10. Показов 2104. Ответов 5 Метки access, delphi 7, расписание (Все метки) Есть готовая программа, но нужно доработать для сдачи в дипломную работу. Мне нужно создать таблицу которая берет данные из таблицы БД(из двух таблиц) но сохраняет в новую таблицу с названием даты из DataTimePicker при нажатий на кнопку. И чтобы при смене даты из DataTimePicker менялся и отображаемая таблица. Таблица должна быть редактируема. Возможно ли такое реализовать? Если да, то как? Если трудно, хотя бы подскажите куда искать. Или есть более легкие способы реализаций расписания? Прошу помощи потому что не понимаю всех свойств и инструментов среды разработки, но времени мало. На рисунке DBGrid берет данные из таблицы маршрутов (1-2 столбцы), не смог взять таблицу водителей т.к. в Datasource выбирается только 1 ADOTable. Хотелось бы сделать столбец водителей как на 2 скриншоте, не знаю как. Миниатюры 0

Расписание БД MS Access из календаря (Delphi 7)

Решение