Система должна выдавать справки об авиарейсах из указанного пункта отправления, по требованию сообщать информацию о количестве свободных мест на заданное число, о проданных местах на весь месяц, выполнять операции покупки и сдачи билета.
Люди, может кто-нибудь делал такое или приблизительно похожее, может есть БД. Если можете чем-то помочь пишите или присылайте на <censored> Заранее большое спасибо.
на чем она должна строиться? на типизированных файлах?
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
Я тебе советую вот что: 1. Опиши подробнее свою проблему,что и как должно функционировать в точности,что должен делать пользователь.. 2. Сделай наброски таблиц sql. 3. Покажи что хоть пробовал делать (типы,функции и т.п)
Такой вопрос: Использую бд парадокс, создаю таблицу рейсов и одним из пунктов является кол-во мест, целого типа (long integer). А как реализовать покупку билетов и соответственно чтобы показывалось кол-во проднных и свободных мест?
Такой вопрос: Использую бд парадокс, создаю таблицу рейсов и одним из пунктов является кол-во мест, целого типа (long integer). А как реализовать покупку билетов и соответственно чтобы показывалось кол-во проднных и свободных мест?
А ведь место может быть не только свободно/продано, оно еще может быть забронированно, а еще есть ценовые категории (1-й класс, 2-й.......) Совет: выделяй в таблице еще одно поле для места его статус+ценовая категория. Любая форма, я например далал так: 4 ценовые категории: A,B,C,D. далее, если место продано прибавляем индекс (1), т.е. B1 (ценовая категория В - занято) , если забронированно - индекс 2 -> С2(ценовая категория С - бронь).
И все, с помощью этого поля ты можешь делать визуализацию, делать запрос, выводить отчет. Сложного ничего нет, главное продумать эту схему.
Ценовая категория и тд - это все не нужно, это только услжняет задачу. А мне нужно просто покупать и сдавать билет. Создал таблцу билетов , связал ее с главной таблицей рейсов, но почему в таблице билетов неполучается добавлять новые записи или редактировать?
Я сделал так: 1) таблица рейсов: 1 рейс 2 откуда 3 куда 4 тип самолета 5 кол-во мест всего
2) таблица вылетов 1 рейс 2 дата вылета 3 время отправления 4 время прибытия 5 продано билетов 6 свободно билетов
И такие вот возникли вопросы: Создал эти две таблицы, но почемуто в таблиу вылетов не возможно добавлять новые записи или редактировать? Я думаю проданных билетов и свободных будут вычисляемыми полями , зависящими от общего кол-ва мест , а как это реализовать в коде? Заранее благодарю .
На форме у меня имеется 1 table, 1 query, 2 datasource
procedure TForm1.Button1Click(Sender: TObject); var a,b,c:integer; begin b:=StrToInt(Edit1.Text); Query1.Edit; Table1.Open; Query1buy.Value:=b+Query1buy.Value;
Этим я считаю кол-во проданных и свободных мест, вроде все считает верно, но не совсем: 1)В столбцах проданных и свободных мест появляются нужные данные, но не сохраняются, как их сохранять? 2) К примеру у меня в самолете всего 100 мест, а я решил купить 110, получается в столбце проданных 110, а в столбце свободных -10. Как это отрегулировать?
Подскажите пожалуста как мне показать все вылеты на определенную (вводимую) дату? К примеру для показа рейсов из определенного места вылета я делаю так:
Код
begin DataSource1.DataSet:=Query2; if okbottomdlg.ShowModal=mrok then \\ в edit1.text ввожу нужный пункт отправления и ищу with Query2 do begin close; ParamByName('dnazv').Value:=okbottomdlg.edit1.text; open; end; end;
А в sql пишу select * from aa where aa.otkuda=:dnazv
А вот с датой чето не получается, пишет вроде несоотетствие типов.
Подскажите пожалуйста. В одной таблице имеются рейсы , в другой даты вылета этого рейса (связь 1 к многим); 1) таблица рейсов: 2) таблица вылетов 1 рейс 1 рейс 2 откуда 2 дата вылета 3 куда 3 время отправления 4 тип самолета 4 время прибытия 5 кол-во мест всего 5 продано билетов 6 свободно билетов
В таблице рейсов имеется несколько рейсов с разным кол-вом билетов, и у каждого рейса по несколько вылетов. В таблице рейсов я выбираю рейс(1) . Потом нажимаю кнопку и показываю все рейсы из заданного пункта отправления. Выбираю появившейся рейс и в другой таблице показываются все вылеты этого рейса. Выбираю нужный рейс(2) и нажимаю кнопку покупки билетов, ввожу нужное кол-во билетов. НО кол-во купленных и свободным мест рассчитывается на основании (кол-во мест всего) рейса который я выбрал первым(1) еще до выборки из заданного пункта отправления , а должно рассчитываться на основании рейса который я выбрал после выборки(2). Надеюсь вы поняли.
Как это исправить?
Так я выбираю рейс из заданного пункта отправления
procedure TForm1.N5Click(Sender: TObject); begin DataSource2.DataSet:=Query1; DataSource1.DataSet:=Query2; if okbottomdlg.ShowModal=mrok then with Query2 do begin close; ParamByName('dnazv').Value:=okbottomdlg.edit1.text; open; end; А в sql пишу select * from aa where aa.otkuda=:dnazv
Так я осуществляю покупку билетов
procedure TForm4.Button1Click(Sender: TObject); var b:integer; begin form1.Query1buy.ReadOnly:=False; form1.Query1svob.ReadOnly:=False; form1.Query1.Edit; form1.Table1.Open; b:=StrToInt(Edit1.Text); form1.Query1svob.Value:=form1.Table1Mest.Value - form1.Query1buy.Value; if b>form1.Query1svob.Value then ShowMessage('ошибка') else begin form1.Query1.Edit; form1.Table1.Open; form1.Query1buy.Value:=b+ form1.Query1buy.Value; form1.Query1svob.Value:=form1.Table1Mest.Value - form1.Query1buy.Value; form1.Query1.Post; end; form1.Query1buy.ReadOnly:=True; form1.Query1svob.ReadOnly:=true; form4.Close; end;