нужный билет
Справочная служба аэропорта (delphi) - Образовательно-студенческий форум
@import url(http://www.opeople.ru/style_images/css_2.css);
Образовательно-студенческий форум
ГалереяЗакладки ПомощьПоискПользователиКалендарьЧат
Здравствуйте, гость ( Вход | Регистрация )
Последние сообщения в чате -- Просмотр всех записей в чате
Последние сообщения в чате -- Просмотр всех записей в чате
Выберите цветBlueBlackRedYellowGreen
Образовательно-студенческий форум > Образование > Программирование на Паскале, Си, Бейсике, Ассемблере > Программируем на Паскале нужный билет Delphi
2 страниц < 1 2
Справочная служба аэропорта (delphi), Справочная служба аэропорта (delphi)
Опции
can
16.12.2007, 21:59
Сообщение
#21
Пользователь
Группа: Пользователи
Сообщений: 21
Регистрация: 4.5.2007
Пользователь №: 16 142
На форме у меня имеется 1 table, 1 query, 2 datasourceprocedure TForm1.Button1Click(Sender: TObject);vara,b,c:integer;beginb:=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. Как это отрегулировать?
afterstep
17.12.2007, 10:11
Сообщение
#22
Пользователь
Группа: Пользователи
Сообщений: 4 676
Регистрация: 14.3.2005
Пользователь №: 2 413
1)в БД не принято "на лету" сохранять данные. Согласно общепринятым правилам - запрос на выборку данных не меняет. Запрос на обновление (замену данных) возвращает не какие-то данные, нужный билет количество успешно обновленных записей. Потому - априорно следует считать, что данные, возвращаемые запросом на выборку (select) доступны только для чтения. Если надо что-то посчитать - то все операции надо делать с локальными переменными, нужный билет не с полями выборки. Если надо внести изменения - надо выполнить запрос на обновление данных (update).Некоторые оболочки/средства позволяют сразу открыть updateble recordset - то есть всю эту кухню они берут на себя, нужный билет у пользователя возникает иллюзия, что можно вот так себе безнаказанно менять что хочешь нужный билет как хочешь.Но рано или позно наступает "момент истины" с типичным префиксом SQL error:2)перед тем, как продавать очередной билет - надо посмотреть, есть ли свободніе места. В "промышленных" реализациях - обычно еще добавляют триггер нужный билет правило, которое запрещает "продажу сверх лимита", то есть, проверку выполняет дополнительно еще нужный билет ядро БД.В твоем случае - достаточно продавать только "свободные места" - то есть при старте формы продажи билета - проверять наличие свободных мест.
can
17.12.2007, 21:34
Сообщение
#23
Пользователь
Группа: Пользователи
Сообщений: 21
Регистрация: 4.5.2007
Пользователь №: 16 142
Подскажите пожалуста как мне показать все вылеты на определенную (вводимую) дату?К примеру для показа рейсов из определенного места вылета я делаю так:Кодbegin DataSource1.DataSet:=Query2;if okbottomdlg.ShowModal=mrok then \\ в edit1.text ввожу нужный пункт отправления нужный билет ищуwith Query2 dobeginclose;ParamByName('dnazv').Value:=okbottomdlg.edit1.text;open;end;end;А в sql пишу select * from aa where aa.otkuda=:dnazvА вот с датой чето не получается, пишет вроде несоотетствие типов.
afterstep
17.12.2007, 22:00
Сообщение
#24
Пользователь
Группа: Пользователи
Сообщений: 4 676
Регистрация: 14.3.2005
Пользователь №: 2 413
дата задается строкой вида "гггг-мм-дд" - причем в самом запросе ее надо "закавьічить".Иногда встречаются другие вариантьі, например, брать дату в скобки "{}" нужный билет в качестве разделителя пользовать не "-" нужный билет какой-нить другой символ (обьічно согласно настройкам локали)Если винда русскася - то попробуй в кавьічках, нужный билет дату вводи как строку вида lдд.мм.гггг.А самое лучшее - почитай в хелпе - попробуй пример - определи формат, с коим твоя БД срабатьівает
can
20.12.2007, 17:38
Сообщение
#25
Пользователь
Группа: Пользователи
Сообщений: 21
Регистрация: 4.5.2007
Пользователь №: 16 142
Такой вопрос: хочу сделать справку.Как сделать так чтобы при вызове справки открывался вордовский документ?
PolPoll
21.12.2007, 19:37
Сообщение
#26
:)
Группа: Главные администраторы
Сообщений: 4 257
Регистрация: 24.11.2005
Из: Москва
Пользователь №: 5 327
Где он должен открываться? в Ворде? или у тебя есть встроенный в форму объект?
can
23.12.2007, 16:58
Сообщение
#27
Пользователь
Группа: Пользователи
Сообщений: 21
Регистрация: 4.5.2007
Пользователь №: 16 142
Подскажите пожалуйста.В одной таблице имеются рейсы , в другой даты вылета этого рейса (связь 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 thenwith Query2 dobeginclose;ParamByName('dnazv').Value:=okbottomdlg.edit1.text;open; end;А в sql пишу select * from aa where aa.otkuda=:dnazvТак я осуществляю покупку билетовКодprocedure TForm4.Button1Click(Sender: TObject);varb:integer;beginform1.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;
PolPoll
24.12.2007, 9:05
Сообщение
#28
:)
Группа: Главные администраторы
Сообщений: 4 257
Регистрация: 24.11.2005
Из: Москва
Пользователь №: 5 327
ЦитатаВ одной таблице имеются рейсы , в другой даты вылета этого рейса (связь 1 к многим);1) таблица рейсов: 2) таблица вылетов1 рейс 1 рейс2 откуда 2 дата вылета3 куда 3 время отправления4 тип самолета 4 время прибытия5 кол-во мест всего 5 продано билетов6 свободно билетовты не в ту таблицу поместил кол-во свободных билетов (или они в таблице вылетов все же, нужный билет не рейсов?)
« Предыдущая тема
· Программируем на Паскале нужный билет Delphi
· Следующая тема »
2 страниц < 1 2
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0
Главная страница
Поиск
Помощь
Обсуждения...
|-- Разговоры на любую тему
|---- Любовь нужный билет Секс
|---- Games
|---- Знакомства
|---- Юмор
|---- Конкурсы для своих
|-- Учимся. Образование в России
|-- Политика, Экономика, История
|---- История
|---- История вооружений
|---- Новости
|---- Экономика
|---- Политика
|-- Работа для студентов
|-- Досуг
|---- Музыка
|---- Спорт
|------ Зимние виды
|------ Летние виды
|---- Кино
|---- Книги
|-- Философия
|-- Наука
|-- Мобильная связь
|-- Здоровье нужный билет красота
Компьютеры
|-- Internet&Fidonet
|-- Unix (Linux, FreeBSD нужный билет т. п.)
|-- Soft
|-- Hard
Образование
|-- Программирование на Паскале, Си, Бейсике, Ассемблере
|---- Книги по Паскалю
|---- Книги по QBasic, Visual Basic
|---- Программируем на Паскале нужный билет Delphi
|---- Программирование на Си, нужный билет в C++ Builder
|---- Программирование на Бейсике нужный билет Visual Basic
|---- Программирование в офисных пакетах
|---- Программирование на Ассемблере
|---- Теоретические вопросы
|---- Другие языки программирования
|-- Рефераты, курсовые нужный билет контрольные работы
|-- Электроника
|-- Другие предметы: физика, дискретная математика, статистика, химия, английский нужный билет др.
|-- Сочинения по произведениям классиков нужный билет современников
|---- Краткое содержание книг(изложения)
|-- Вычислительная математика нужный билет информатика, лабораторные работы
|-- Олимпиады
Экзамены в 2007 году
|-- Экзамен по алгебре в 2007 году
|-- Экзамен по литературе в 2007 году
|-- Централизованное тестирование
|-- ЕГЭ
Шпаргалки
|-- Шпаргалки... Самые новые шпаргалки здесь
|-- Списываем..
|-- ГДЗ
Режим отображения: Стандартный ·
Переключить на: Линейный ·
Переключить на: Древовидный
Подписка на тему ·
Сообщить другу ·
Версия для печати ·
Подписка на этот форум
Текстовая версия
Сейчас: 25.4.2008, 0:40
Русская версия Invision Power Board
v2.1.7 © 2008 IPS, Inc.
разделы
красный объявление
пломбирование
экстракт корень лопух сух.
прайс эфирный антенна
бак накопитель
бюро похоронный услуга
градирня вентиляторные грд
сенсорный экран устройство
миканитовые втулка
помыть потолок
инженерный геодезия
рукавичка доставка
переработка резина
уцененный холодильник
профессиональный видеосъемка
купить tomb raider
газонокосилка dolmar
тройник
iridium motorola
очки ночной видение
лотерея
ичп пбоюл
торговый витрина
профессиональный психолог
прамышленый альпинизм
циклон батарейный
морозильный витрина
кулер тихий
рассылка корреспонденция
тиристорный контактор
лечение зарубежом
акриловый пряжа
отбеливание
грунт
концентрирование кислорода
государственный герб
mobihel краска
холодильник уценка
нужный билет