Інформаційно-аналітична система Казанського вокзалу

[ виправити ] текст може містити помилки, будь ласка перевіряйте перш ніж використовувати.

скачати

Міністерство Освіти Російської Федерації

Камський Державний Політехнічний Інститут

Кафедра ММІТЕ

Курсова робота

з інформатики на тему:

Інформаційно-аналітична система

Казанського вокзалу

Виконав: студент

групи 5111

№ залікової книжки 025115

Кочнєв Денис Миколайович

Перевірила: доцент

кафедри ММІТЕ

Каляшіна А.В.

м. Набережні Челни

2003

Завдання до курсової роботи

Інформаційно-аналітична система Казанського вокзалу.

Вихідна інформація міститься в трьох таблицях:

  • «Рейс» (Номер поїзда, дата відправлення, станція призначення, час в дорозі, кількість місць за категоріями)

  • «Тарифи» (Номер поїзда, ціна квитка за категоріями)

  • «Квитки» (Номер поїзда, ПІП пасажира, дата відправлення, категорія квитка)

Скласти відомість наявності квитків на заданий пункт призначення з зазначенням цін, а так само відомість виручек на кожен рейс.

Зміст

Введення

Таблиці додатку

Таблиця «Рейси»

Введення даних

Видалення даних

Коригування даних

Сортування даних

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

Таблиця «Квитки»

Виконання завдання курсової роботи

Висновок

Список використаних джерел

Введення

Програма MS Excel, будучи лідером на ринку програм обробки електронних таблиць, визначає тенденції розвитку в цій області, містить багато покращень і приємних несподіванок.

Одним з найважливіших функціональних розширень програми, призначених для професіоналів, є вбудована в Excel Середовище програмування Visual Basic (VBA) для вирішення прикладних завдань. Завдяки VBA фірмі Microsoft вдалося ввести новий рівень прикладного програмування, оскільки VBA дозволяє створювати повноцінні прикладні пакети, які за своїми функціями виходять далеко за рамки обробки електронних таблиць.

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

Розробка мови програмування VBA, що вбудовується в прикладні системи, є одним із стратегічних напрямів компанії Microsoft. Ця мова вже інтегрований в такі програми, як Word for Windows, Power Point і ряд інших. VBA дозволяє створювати програмні модулі, меню, діалогові вікна та інші ресурси в середовищі Windows. Завдяки цій мові з'являється можливість значно розширити набір функцій у Excel, а також створювати функції, значення яких залежать від деяких умов і подій. У принципі, можна повністю перепрограмувати всі функції програми Excel, якщо в цьому з'явилася необхідність.

Даний курсовий проект полягає у створенні інформаційно-аналітичної системи акціонерного товариства на базі MS Excel, з використанням мови програмування VBA. У ній реалізовані можливості введення інформації і отримання підсумкових результатів, для чого передбачені користувацькі форми, панелі інструментів, меню.

Таблиці додатку

Програма складається з трьох аркушів, на яких розташовані таблиці:

  1. Рейси

  2. Тарифи

  3. Квитки

Таблиця «Рейси»

На аркуші "Акціонер» розташована таблиця з полями:

  • Номер поїзда

  • Дата відправлення

  • Час в дорозі

  • Кількість місць за категоріями

№ поїзда

Дата відправлення

станція призначення

час шляху

A

B

C

D

110608

12.10.03

Володимир

9

40

30

20

60

113186

05.10.03

Севастополь

14

20

60

20

40

113514

01.09.03

Москва

8

40

60

80

80

113819

01.09.03

Владивосток

12

60

40

20

80

117648

18.10.03

Кіров

21

40

40

20

60

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

Введення даних

Після введення необхідно натиснути кнопку Додати

Виконається наступний код.

Dim i As Integer, j As Integer

i = 1

Do

i = i + 1

If Sheets (1). Cells (i, 1) = "" Then

j = i

Exit Do

End If

Loop

Cells (j, 1) = ¹. Text

Cells (j, 2) = Data.Value

Cells (j, 3) = pos.Text

Cells (j, 4) = time1.Value

Cells (j, 5) = time2.Value

Cells (j, 6) = AA.Value

Cells (j, 7) = bB.Value

Cells (j, 8) = cc.Value

Cells (j, 9) = dd. Value

Видалення даних

Процедура, що реагує на подію Click кнопки Видалити, виглядає наступним чином:

Dim c As Object, d As Object

Set c = Range ("A2")

Do While Not IsEmpty (c)

Set d = c.Offset (1, 0)

If c = ¹. Text Then

c.EntireRow.Delete

End If

Set c = d

Loop

End Sub

Коригування даних

Для ізіененія даних використовувався наступний код.

Dim i As Integer, j As Integer

i = 1

Do

i = i + 1

If Sheets (1). Cells (i, 1) = "" Then

j = i - 1

Exit Do

End If

Loop

For i = 3 To j

If Cells (i, 1) = ¹. Te xt Then

Cells (i, 2) = Data.Value

Cells (i, 3) = pos.Text

Cells (i, 4) = time1.Value

Cells (i, 5) = time2.Value

Cells (i, 6) = AA.Value

Cells (i, 7) = bB.Value

Cells (i, 8) = cc.Value

Cells (i, 9) = dd.Value

End If

Next i

End Sub

Сортування даних

Сортування дозволяє вибудовувати дані в алфавітному чи цифровому порядку за зростанням.

Натискання кнопки для сортування таблиці за певним полю викликає процедуру DoSort. Наприклад, сортування по станції призначення. виглядає так:

Private Sub COPTuPOBKA (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 = ""

TextBox4 = ""

TextBox5 = ""

TextBox6 = ""

TextBox7 = ""

TextBox8 = ""

TextBox9 = ""

Set e = Range ("C2")

Do While Not IsEmpty (e)

Set f = e.Offset (1, 0)

If e.Text = ComboBox1.Text Then

ListBox1.AddItem (e.Offset (0, -1). Text)

End If

Set e = f

Loop

End Sub

Private Sub ListBox1_Click ()

Dim e As Object, f As Object, k As Object, l As Object, _

a As Integer, b As Integer, c As Integer, d As Integer, _

v As Object, w As Object

Sheets (1). Select

Set e = Sheets (1). Cells (2, 2)

Set w = Sheets (2). Cells (2, 1)

Set k = Sheets (3). Cells (2, 3)

Do While Not IsEmpty (e)

Set f = e.Offset (1, 0)

If e.Text = ListBox1.Text And e.Offset (0, 1). Text = ComboBox1 Then

TextBox9.Text = e.Offset (0, -1). Text

a = e.Offset (0, 4)

b = e.Offset (0, 5)

c = e.Offset (0, 6)

d = e.Offset (0, 7)

End If

Set e = f

Loop

Do While Not IsEmpty (k)

Set l = k.Offset (1, 0)

If k.Text = ListBox1.Text And k.Offset (0, -2). Text = TextBox9.Text Then

If k.Offset (0, 1). Text = "A" Then

a = a - 1

ElseIf k.Offset (0, 1). Text = "B" Then

b = b - 1

ElseIf k.Offset (0, 1). Text = "C" Then

c = c - 1

Else

d = d - 1

End If

End If

Set k = l

Loop

TextBox1.Text = a

TextBox2.Text = b

TextBox3.Text = c

TextBox4.Text = d

Do While Not IsEmpty (w)

Set v = w.Offset (1, 0)

If w.Text = TextBox9.Text Then

TextBox5.Text = w.Offset (0, 1)

TextBox6.Text = w.Offset (0, 2)

TextBox7.Text = w.Offset (0, 3)

TextBox8.Text = w.Offset (0, 4)

End If

Set w = v

Loop

End Sub

Private Sub UserForm_Activate ()

Dim c As Object, d As Object

Sheets (1). Select

Set c = Range ("C2")

Do While Not IsEmpty (c)

Set d = c.Offset (1, 0)

ComboBox1.AddItem c

Set c = d

Loop

End Sub

  1. Скласти відомість виручек на кожен рейс.

ListBox1.Clear

Dim i As Integer, j As Integer, l As Integer, r As Integer, z As Integer, x As Integer, a As Integer, _

b As Integer, c As Integer, d As Integer, y As Long, t As Integer, k As Integer

Do

i = i + 1

If Sheets (1). Cells (i, 1) = "" Then

j = i - 1

Exit Do

End If

Loop

i = 1

Do

i = i + 1

If Sheets (2). Cells (i, 1) = "" Then

l = i - 1

Exit Do

End If

Loop

i = 1

Do

i = i + 1

If Sheets (3). Cells (i, 1) = "" Then

r = i - 1

Exit Do

End If

Loop

For z = 2 To j

For x = 2 To r

If Sheets (3). Cells (x, 1). Text = Sheets (1). Cells (z, 1). Text And _

Sheets (3). Cells (x, 3). Text = Sheets (1). Cells (z, 2). Text Then

If Sheets (3). Cells (x, 4). Text = "A" Then

a = a + 1

ElseIf Sheets (3). Cells (x, 4). Text = "B" Then

b = b + 1

ElseIf Sheets (3). Cells (x, 4). Text = "C" Then

c = c + 1

Else

d = d + 1

End If

End If

Next x

For t = 2 To l

If Sheets (2). Cells (t, 1). Text = Sheets (1). Cells (z, 1). Text Then

y = a * Sheets (2). Cells (t, 2). Value + b * Sheets (2). Cells (t, 3). Value + _

c * Sheets (2). Cells (t, 4). Value + d * Sheets (2). Cells (t, 5). Value

End If

Next t

ListBox1.AddItem (Sheets (1). Cells (z, 1). Text)

ListBox1.List (k, 1) = Sheets (1). Cells (z, 2). Text

ListBox1.List (k, 2) = Sheets (1). Cells (z, 3). Text

ListBox1.List (k, 3) = y

k = k + 1

Next z

End Sub

Висновок

У цій роботі були реалізовані автоматизовані операції з робочим листом, обробка та аналіз даних, призначений для користувача інтерфейс (рядок меню, панель інструментів, контекстне меню, призначені для користувача форми).

Процес створення був полегшений потужними інтелектуальними засобами, які дозволяють навіть починаючому користувачеві самостійно розробляти професійні додатки. Так при написанні коду програми редактор VBA сам пропонує можливі продовження коду. Макрорекодер, який переводить вручну виконані дії користувача, дозволяє користувачеві зрозуміти алгоритми VBA, а також доручати комп'ютера самому створювати великі шматки коду програми.

Список використаних джерел

  1. Гарнаєв А.Ю. Microsoft Excel 2002: розробка додатків. - Санкт-Петербург, 2003.

  2. Інформатика (Методичні вказівки до виконання курсової роботи) І. В. Макарова, Ю. Н. Смирнов

  3. Інформатика (Використання можливостей VBA для створення додатків) І. В. Макарова, Ю. Н. Смирнов

    Додати в блог або на сайт

    Цей текст може містити помилки.

    Програмування, комп'ютери, інформатика і кібернетика | Курсова
    65.7кб. | скачати

    Схожі роботи:
    Інформаційно-аналітична система Аптека
    Автоматизована інформаційно-аналітична система Міністерства фінансів України
    Інформаційно-аналітична довідка на фірму Boeing
    Інформаційно Пошукова система
    Інформаційно-довідкова система 2
    Інформаційно-пошукова система
    Інформаційно довідкова система
    Сучасна соціально економічна система в теорії інформаційно
    Ансамбль стародавнього Казанського Кремля
© Усі права захищені
написати до нас