Проект Доска объявлений
Проект Поздравительная открытка
Проект Расписание сеансов

Проект Расписание сеансов

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

Описание проекта

При первой загрузке приложения пользователь попадает на страницу, изображенную на рис.

Его вниманию предлагается список кинотеатров. Выбрав нужное и щелкнув на кнопке ОК, посетитель получает перечень фильмов на текущий момент.

База данных проекта

База данных, необходимая для работы приложения Расписание сеансов, содержит две таблицы, связи между которыми представлены на рис.

Таблица MovieTheatres находится на высшем уровне иерархии. В ней хранится информация о кинотеатрах. Таблица Movies содержит сведения о фильмах.

Таблицы связаны отношением «один-ко-многим». Каждый из кинофильмов, внесенных в список, относится к одному кинотеатру, но в каждом кинотеатре может идти по нескольку фильмов.

Код проекта

Приложение Расписание сеансов реализовано в виде единственной страницы.

На странице Расписание сеансов выводятся список кинотеатров и репертуар каждого из них (какого именно -г- указывает пользователь).

Первый элемент управления Label предназначен для отображения заголовка страницы, а второй такой элемент используется для вывода инструкций.

<asp:dropdownlist
id="ddlMqvieTheatreID"
runat=server
DataTextField="TheatreName"
DataValueField-"MovieTheatreID">
</asp:dropdownlist>

<asp:button
id="butSelectTheatre"
text=" ок "
Type="Submit"
OnClick="SubmitTheatre_Click"
runat="server"
/>

<ASP:DataGrid id="dgMovies" runat="server"
Width-"90%"
BackColor="beige"
AlternatingItemStyle-BackColor="cornsilk"
BorderColor="black"
CellPadding-3
CellSpacing="0"
Font-Name="Trebuchet MS"
Font-Size="8pt"
ForeColor="Black"
Headerstуle-BackColor="burlywood"
HeaderStyle-Font-Bold="True"
/>

Sub Page_Load(ByVal Sender a^ Object, ByVal E as EventArgs)
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider-sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC14;" _
& "User Id=sa;"
& "Password-yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select * from MovieTheatres " _
& "Order By TheatreName", DBConn)
DBCommand.Fill(DSPageData, _
"Theatres")
ddlMovieTheatrelD.DataSource = _
DSPageData.Tables("Theatres").DefaultView
ddlMovieTheatrelD.DataBindf)
End If
End Sub