Справочная служба аэропорта, Справочная служба аэропорта Опции

[sds]

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

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

Сообщение отредактировано: мисс_граффити - 18.11.2007 15:34

[sds]

Я сделал так:
1) таблица рейсов:
1 рейс
2 откуда
3 куда
4 тип самолета
5 кол-во мест всего

2) таблица вылетов
1 рейс
2 дата вылета
3 время отправления
4 время прибытия
5 продано билетов
6 свободно билетов

И такие вот возникли вопросы:
Создал эти две таблицы, но почемуто в таблиу вылетов не возможно добавлять новые записи или редактировать?
Я думаю проданных билетов и свободных будут вычисляемыми полями , зависящими от общего кол-ва мест , а как это реализовать в коде?
Заранее благодарю .

[sds]

На форме у меня имеется 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;

Query1svob.Value:=Table1Mest.Value - Query1buy.Value;
end;

Этим я считаю кол-во проданных и свободных мест,
вроде все считает верно, но не совсем:
1)В столбцах проданных и свободных мест появляются нужные данные, но не сохраняются, как их сохранять?
2) К примеру у меня в самолете всего 100 мест, а я решил купить 110, получается в столбце проданных 110, а в столбце свободных -10. Как это отрегулировать?

[sds]

Подскажите пожалуста как мне показать все вылеты на определенную (вводимую) дату?
К примеру для показа рейсов из определенного места вылета я делаю так:

Код

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

А вот с датой чето не получается, пишет вроде несоотетствие типов.

P.S. я здесь че сам с собой общаюсь?