Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
25 / 9 / 17
Регистрация: 22.12.2015
Сообщений: 2,097
MS Access

Ведомость наличия билетов на заданный пункт назначения

03.05.2017, 00:25. Показов 2499. Ответов 27
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Исходная информация содержится в таблицах :

«Маршруты» (номер рейса, выезда, пункт назначения, количество мест в автобусе, стоимость билета);
«Рейсы» (номер рейса, номер маршрута, дата выезда, время выезда)
«Продажи» (номер рейса; ФИО пассажира; дата выезда; время выезда),
«Водители» (номер рейса, ФИО водителя, возраст водителя, стаж вождения).


по этой теме сначала составляете базу данных на access, дальше делайте форму на делфи, делайте ,связь между таблицами, кодишь , и потом.. насколько я понял надо интегрировать базу данных,которая сделана в access, в делфи

Не понятно только этот пункт
Составить ведомость наличия билетов на заданный пункт назначения и сводный отчет о стаже водителей и количестве осуществленных ими рейсов.


Прошу привести пример решения.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.05.2017, 00:25
Ответы с готовыми решениями:

Структура AEROFLOT, поиск рейсов вылетающих в заданный пункт назначения
(На C++) Описать структуру с именем AEROFLOT, содержащую следующие поля: • название пункта назначения рейса; • номер рейса; • тип...

Структура: Вывод на экран информации о поездах, направляющихся в заданный пункт назначения
Доброго времени суток. Помогите написать программу: Необходимо описать структуру, содержащую следующие поля: Название пункта...

Найти номера рейсов и типы самолетов вылетающих в заданный пункт назначения
1. Описать структуру с именем AEROFLOT, содержащую следующие поля: • название пункта назначения рейса; • номер рейса; • тип самолета....

27
1040 / 856 / 335
Регистрация: 08.12.2016
Сообщений: 3,283
03.05.2017, 02:00
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от scherbakovss201 Посмотреть сообщение
а сводную таблицу как сделать или два запроса?
какое отношение этот вопрос имеет к процитированной вами фразе
Цитата Сообщение от YuryK Посмотреть сообщение
ну если автобусы на автовокзале у всех перевозчиков на одном маршруте всегда одинаковые, то количество мест можно вернуть в маршруты

чтобы запросы писать, надо, для начала со схемой определиться
0
25 / 9 / 17
Регистрация: 22.12.2015
Сообщений: 2,097
03.05.2017, 02:01  [ТС]
Цитата Сообщение от YuryK Посмотреть сообщение
чтобы запросы писать, надо, для начала со схемой определиться
Мне нравиться ваша схема.В ней поездки в ад отменяются.
0
1040 / 856 / 335
Регистрация: 08.12.2016
Сообщений: 3,283
03.05.2017, 02:03
это понятно, я про
Цитата Сообщение от YuryK Посмотреть сообщение
ну если автобусы на автовокзале у всех перевозчиков на одном маршруте всегда одинаковые, то количество мест можно вернуть в маршруты
возвращаем в маршруты или оставляем Типы автобусов?
0
25 / 9 / 17
Регистрация: 22.12.2015
Сообщений: 2,097
03.05.2017, 03:32  [ТС]
Цитата Сообщение от scherbakovss201 Посмотреть сообщение
Составить ведомость наличия билетов на заданный пункт назначения.
Значит будет запрос?
Тип автобуса.число мест
Маршруты.пункт назначения

и сводный отчет о стаже водителей и количестве осуществленных ими рейсов
Водители.Стаж возведения
Маршруты.Пункт назначения
Водители.ФИО водителя
0
1040 / 856 / 335
Регистрация: 08.12.2016
Сообщений: 3,283
03.05.2017, 05:14
Лучший ответ Сообщение было отмечено scherbakovss201 как решение

Решение

Цитата Сообщение от scherbakovss201 Посмотреть сообщение
Значит будет запрос?
Тип автобуса.число мест
Маршруты.пункт назначения
приходиться самому делать вывод, что Тип автобуса оставляем
Цитата Сообщение от scherbakovss201 Посмотреть сообщение
Составить ведомость наличия билетов на заданный пункт назначения
структуру ведомости накидайте. Учтите, что в один пункт может отходить ежедневно несколько рейсов.

Добавлено через 34 минуты
Цитата Сообщение от scherbakovss201 Посмотреть сообщение
сводный отчет о стаже водителей и количестве осуществленных ими рейсов
SQL
1
2
3
4
5
SELECT 
  MAX(Водители.[ФИО водителя]) AS [ФИО водителя], MAX(Водители.[стаж вождения]) AS [стаж вождения], 
  COUNT(Рейсы.[код водителя]) AS [количество рейсов]
FROM Водители LEFT JOIN Рейсы ON Водители.[Код водителя] = Рейсы.[код водителя]
GROUP BY Водители.[Код водителя]  ORDER BY 1;
1
25 / 9 / 17
Регистрация: 22.12.2015
Сообщений: 2,097
03.05.2017, 12:35  [ТС]
На делфи получается нужно только
1)подключиться к бд
2)вывести это в 4 таблицы и два запроса+навигация по ним
и все?

Добавлено через 9 минут
Или на делфи мы не будем искать наличе рейса и свободных мест,а просто делаем вюер по бд?

Добавлено через 4 минуты
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.N8Click(Sender: TObject);
var t:integer;
begin
//Подключение БД
 if OpenDialog1.Execute then
    begin
      ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data '+'Source='+OpenDialog1.FileName+';Persist Security Info=False';
      ADOConnection1.LoginPrompt:=false;
      ADOConnection1.Connected:=true;
  //form1
       form1.DataSource1.DataSet:=form1.ADOTable1;
      form1.ADOTable1.Connection:=form1.ADOConnection1;
         form1.ADOTable1.TableName:='Маршруты';
      form1.ADOTable1.Active:=true;
 
 
       form1.dbgrid1.DataSource:=form1.DataSource1;;
      form1.Button1.Visible:=true;
       form1.Button2.Visible:=true;
        form1.Button3.Visible:=true;
        form1.DBGrid1.Visible:=true;
        form1.Panel1.Visible:=true;
          form1.MonthCalendar1.Visible:=true;
 
Form1.DBGrid1.Columns.Items[0].Width:=65;
Form1.DBGrid1.Columns.Items[1].Width:=65;
Form1.DBGrid1.Columns.Items[2].Width:=90;
 
end;
0
1040 / 856 / 335
Регистрация: 08.12.2016
Сообщений: 3,283
03.05.2017, 13:56
на дельфи будем задавать параметры для запроса:пунк назначения и дату, на которые ищем свободные места.
ну и второй отчет как результат работы запроса
0
25 / 9 / 17
Регистрация: 22.12.2015
Сообщений: 2,097
03.05.2017, 22:33  [ТС]
Цитата Сообщение от YuryK Посмотреть сообщение
на дельфи будем задавать параметры для запроса:пунк назначения и дату, на которые ищем свободные места.
ну и второй отчет как результат работы запроса
Можете код показать?

И как adoquery пользоваться в моем случае?

Добавлено через 2 часа 27 минут
Ах,это уже др тема.Сорри.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.05.2017, 22:33
Помогаю со студенческими работами здесь

Структура Аэрофлот, определить номера рейсов и типы самолетов, вылетающих в заданный пункт назначения
А .Описать запись с именем AEROFLOt, содержащую следующие поля:  Название пункта назначения рейса;  Номер рейса;  Тип самолета. ...

почему то не переводит на другую строку cout << "введенный пункт назначения:" << a[i].pn << ' ' ; cout << "введенный пункт назначения:" << a[i].num
struct Train { char pn ; unsigned int num; char time ; }; void Copy (Train &amp;pest, Train bust) //Вспомогательная функция...

Успеет ли мотоциклист прибыть в пункт назначения?
мотоциклист должен прибыть в город через T часов после выезда из пункта находящемуся на расстоянии S кем от города. Успеет ли он вовремя...

Как найти пункт назначения и дату adoquery?
Есть база данных созданная,YuryK,выражаю огромную благодарность. на дельфи будем задавать параметры для запроса: пунк назначения и...

Найти рейсы прибывающее в пункт назначения раньше заданного времени
Подскажите пожалуйста почему не выводит результаты после того как пытаюсь получить доступные рейсы? Условие, если нужно: В...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
28
Ответ Создать тему
Новые блоги и статьи
попытка написать игровой сервер на C++
pyirrlicht 29.04.2026
попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита
Maks 28.04.2026
Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание
Maks 24.04.2026
У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью
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. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru