Курсовая работа: Информационно-аналитическая система Казанского вокзала

PrivateSubCOPTuPOBKA(bn)

Range("A1").CurrentRegion.Sort Key1:=Range(bn), Order1:=xlAscending, Header:=xlYes, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Range("A1").Select

End Sub

Private Sub poPOS_Click()

COPTuPOBKA ("c1")

End Sub

Таблица «Тарифы»

На листе «Тарифы» расположена таблица с полями:

· Номер поезда

· Цена билетов по категориям

№ поезда	A	B	C	D
110608	1600	1300	1000	800
113186	1600	1300	1100	900
113514	1500	1200	900	500
113819	1700	1500	1200	1000
117648	1100	800	500	300

Для работы с таблицей предусмотрена пользовательская форма «Тарифы», которая вызывается в меню с панели инструментов.

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

Кнопки работают по тому же принципу.

Таблица «Билеты»

На листе « Билеты» расположена таблица с полями:

· Номер поезда

· ФИО пассажира

· Дата отправления

· категория билета

№ поезда	ФИ пассажира	дата отправления	Категория билета
113819	Виле Вало	05.10.03	B
110608	Гари Гарфилд	01.09.03	D
113186	Гендольф Серый	05.10.03	C
113514	Девид Драииман	01.09.03	C
117648	Джабба Хат	23.12.03	A
113514	Джей Гордон	01.09.03	D
113514	Джон Бон Джови	01.09.03	B

Выполнение задания курсовой работы

Постановка задач

1. Составить ведомость наличия билетов на заданный пункт назначения с указанием цен

2. Составить ведомость выручек на каждый рейс.

Алгоритм решения

1. Составить ведомость наличия билетов на заданный пункт назначения с указанием цен

Dim e As Object, f As Object

Sheets(1).Select

ListBox1.Clear

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""