IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Справочная служба аэропорта, Справочная служба аэропорта
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской

Репутация: -  0  +


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

Люди, может кто-нибудь делал такое или приблизительно похожее, может есть БД.
Если можете чем-то помочь пишите или присылайте на <censored>
Заранее большое спасибо.

Сообщение отредактировано: мисс_граффити -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской

Репутация: -  0  +


Подскажите пожалуйста.
В одной таблице имеются рейсы , в другой даты вылета этого рейса (связь 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;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
sds   Справочная служба аэропорта   18.11.2007 18:28
мисс_граффити   на чем она должна строиться? на типизированных фай…   18.11.2007 19:36
-sds-   нужно создать БД   18.11.2007 23:53
Артемий   Мы это уже поняли..Какая БД? SQL, или файлы или ещ…   19.11.2007 17:14
-sds-   SQL   19.11.2007 19:21
Артемий   Я тебе советую вот что: 1. Опиши подробнее свою пр…   20.11.2007 2:04
-sds-   Такой вопрос: Использую бд парадокс, создаю таблиц…   14.12.2007 18:57
Better Kind   Такой вопрос: Использую бд парадокс, создаю табли…   14.12.2007 19:51
сдс   Ценовая категория и тд - это все не нужно, это тол…   16.12.2007 3:45
sds   Я сделал так: 1) таблица рейсов: 1 рейс 2 откуд…   16.12.2007 4:45
sds   На форме у меня имеется 1 table, 1 query, 2 dataso…   17.12.2007 5:04
sds   Подскажите пожалуста как мне показать все вылеты н…   18.12.2007 4:44
kr3v3tkus   мб сделать strtodate(okbottomdlg.edit1.text) ? хот…   18.12.2007 4:52
sds   Такой вопрос: хочу сделать справку. Как сделать та…   21.12.2007 1:08
Better Kind   Такой вопрос: хочу сделать справку. Как сделать т…   21.12.2007 12:09
sds   Подскажите пожалуйста. В одной таблице имеются рей…   24.12.2007 0:04


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 16:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name