Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.04.2011, 23:35   #1
angels-group
Новичок
Джуниор
 
Регистрация: 29.04.2011
Сообщений: 1
По умолчанию Плейлист кинотеатра

Доброго времени суток!
Задача вот какая у меня.
Есть DBGrid (например). На форме нажимаю на кнопку "Добавить фильм". Открывается окно с кнопками (на кнопках названия фильмов. их всего 5, например). Нажимаем на требуемый фильм и в DBGrid заносится строка, которая состоит из 4 столбцов.
1 - Номер порядковый
2 - Название фильма
3 - Начало
4 - окончание
5 - кол-во свободных мест
Итак по нажатию вставляется название фильма. Все остальные строки - пустые.
Так вставляем много строк (сколько надо). На форме есть еще кнопка "Запуск". Если ее нажать, то в первой строке впишется текущее время (Начало), в Окончание впишется время начала+30 минут (например), затем следующий фильм (второй добавленный и ниже по списку) впишется время начала и окончания. Между фильмами 5 минут пауза.
Далее, если кликнуть по ячейке (5) то появится форма с Edit, куда можно вписать число, макс. 18 и кнопка "ОК", по нажатию которой закрывается форма с едитом и введенное число записывается в ячейку (5).
Если мы вписали в ячейку (5) число 7, а потом еще раз вписали 3, то он складывает и выводит 10.
Также на форме есть часы. Если время часов больше времени окончания фильма, то строка выделяется красным. И становится на паузу (т.е. следующие строки не станут красными по истекшему времени, а будут ждать нажатия кнопки "Запуск". как только мы нажимаем на кнопку, время переназначается (т.к. пауза может растянуться с 5 минут, на 10 и все собьется. это время на рассадку зрителей)).
По закрытию формы (выход) программа создает отчет.
Отчет таков: (например)
------------------------
Отчет за хх.хх.2011
1. Фильм 1 показов 120, зрителей 500
2. Фильм 2 показов 20, зрителей 56
Итого зрителей 556.
------------------------

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

http://zalil.ru/30953915
angels-group вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Схема кинотеатра Steil Microsoft Office Access 3 17.02.2022 21:42
модернизированный плейлист. adr Мультимедиа в Delphi 9 01.11.2010 19:22
Оцените плейлист ZuBy Мультимедиа в Delphi 28 16.09.2010 17:28
Колонки от домашнего кинотеатра. nub' Компьютерное железо 8 04.06.2010 18:48
MediaPlayer плейлист pnz_punisher Общие вопросы Delphi 5 10.01.2010 00:58