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

@inquisitor · Регистрация: 22.12.2015

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

Исходная информация содержится в таблицах :

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

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

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

Прошу привести пример решения.

@YuryK · 03.05.2017, 02:00

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

а сводную таблицу как сделать или два запроса?

какое отношение этот вопрос имеет к процитированной вами фразе

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

ну если автобусы на автовокзале у всех перевозчиков на одном маршруте всегда одинаковые, то количество мест можно вернуть в маршруты

чтобы запросы писать, надо, для начала со схемой определиться

@inquisitor · 03.05.2017, 02:01 **[ТС]**

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

чтобы запросы писать, надо, для начала со схемой определиться

Мне нравиться ваша схема.В ней поездки в ад отменяются.

@YuryK · 03.05.2017, 02:03

это понятно, я про

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

ну если автобусы на автовокзале у всех перевозчиков на одном маршруте всегда одинаковые, то количество мест можно вернуть в маршруты

возвращаем в маршруты или оставляем Типы автобусов?

@inquisitor · 03.05.2017, 03:32 **[ТС]**

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

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

Значит будет запрос?
Тип автобуса.число мест
Маршруты.пункт назначения

и сводный отчет о стаже водителей и количестве осуществленных ими рейсов
Водители.Стаж возведения
Маршруты.Пункт назначения
Водители.ФИО водителя

@YuryK · 03.05.2017, 05:14

Сообщение от 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;

@inquisitor · 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;

@YuryK · 03.05.2017, 13:56

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

@inquisitor · 03.05.2017, 22:33 **[ТС]**

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

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

Можете код показать?

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

Добавлено через 2 часа 27 минут
Ах,это уже др тема.Сорри.

Новые блоги и статьи Все статьи Все блоги /
Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет	Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .
сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .	сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .

@inquisitor 25 / 9 / 17 Регистрация: 22.12.2015 Сообщений: 2,097

	MS Access Ведомость наличия билетов на заданный пункт назначения 03.05.2017, 00:25. Показов 2589. Ответов 27 Метки нет (Все метки) Исходная информация содержится в таблицах : «Маршруты» (номер рейса, выезда, пункт назначения, количество мест в автобусе, стоимость билета); «Рейсы» (номер рейса, номер маршрута, дата выезда, время выезда) «Продажи» (номер рейса; ФИО пассажира; дата выезда; время выезда), «Водители» (номер рейса, ФИО водителя, возраст водителя, стаж вождения). по этой теме сначала составляете базу данных на access, дальше делайте форму на делфи, делайте ,связь между таблицами, кодишь , и потом.. насколько я понял надо интегрировать базу данных,которая сделана в access, в делфи Не понятно только этот пункт Составить ведомость наличия билетов на заданный пункт назначения и сводный отчет о стаже водителей и количестве осуществленных ими рейсов. Прошу привести пример решения. 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	03.05.2017, 13:56
	на дельфи будем задавать параметры для запроса:пунк назначения и дату, на которые ищем свободные места. ну и второй отчет как результат работы запроса 0

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

Решение