Автоматизация работы аукциона

Санкт-Петербургский

Инженерно-Экономический

Университет

Отчет по курсовой работе

На тему:

«Автоматизация работы аукциона»

                                    Выполнила:

Студентка гр. 371

Комлева Евгения

2009г.

Содержание курсовой работы

1. План постановки задачи                                                         стр.3

2. Вид баз данных и меню                                                           стр.5

3.Программный код                                                                     стр.6

4. Блок-схема «Удаление лота»                                                 стр.25

План постановки задачи.

1.       Наименование задачи: «Автоматизация работы аукциона».

2.       Сущность задачи:

Во время работы аукциона администратор должен принимать, вести учет и запись
поступивших лотов, полученных от оценщика по накладным в которых указаны
наименование экспоната, автор работы, период и т.д.Администратор аукциона регистрирует полученные экспонаты в журнале “лот аукциона ” где указывается помимо наименования экспоната, художника, периода и страны еще  месторасположение(секция, дата аукциона),инвентарный номер. Инвентарный номер присваивается по мере поступления экспонатов то есть . В журнале участников администратор регистрирует желающих принять участие в аукциона. В журнале он отмечает ФИО , присваивает внутренний номер и дату аукциона, в котором участник хочет участвовать. . При формировании нового аукциона  администратор заносит в журнал  «каталог аукциона»   даты начала аукциона . А в журнал “лот аукциона” записывается дата при регистрации экспонатов.  По окончанию  аукциона администратор пишет
отчет, где указывает дату аукциона, кол-во проданных лотов и сумму от продаж. Проданные экспонаты заносятся в журнал «Архив», где указываются все их атрибуты, а также атрибуты покупателя и сумму за которую был куплен экспонат. 

3.       Цель решения:

1)      Сокращается время, затрачиваемое на заполнение баз данных о экспонатах и участниках.

2)      Экспонаты автоматически распределяются в каталоги аукционов по назначенным датам.

3)      Упрощается поиск и учет экспонатов и участников аукциона.

4)      Автоматизированный расчет прибыли аукциона.

4.       Назначение:  данная задача предназначена для работы частного аукционера. Все его функции автоматизированы, что значительно  упрощает работу, сокращает время и уменьшает кол-во нужных организации сотрудников.

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

6.       Источники данных: Главным источником данных аукционера являются базы данных и архивы, из которых он может узнать всю интересующую его информацию: об участниках аукциона, о проданных экспонатах и кто их купил. Можно воспользоваться поиском по названию или автору, который доступен всем. Через меню аукционы можно узнать даты планируемых аукционов.

7.       Потребители результатной информации: результатной информацией является отчет за проведенные аукционы и каталог аукциона для потенциальных покупателей.

Базы данных:

1.Лот аукицона:                               2.Тип лота:

Название                                           Пейзаж 

Автора                                               Портрет

Дата написания                                Натюрморт   

Тип                                                    Живопись

Вид                                                    Двойной портрет  

Место хранения(секция)                 Импровизация

Начальная стоимость                      Современное ис-во

Дата аукциона

Присвоенный номер

3.Вид полотна:                        4.Секция хранения лота: 

Акварель                                   1) 6-1 век до н.э.

Масляные краски                     2)1-6 век н.э.

Сангина                                     3)7-14 век н.э

Пастель                                     4) 15-21 век н.э.

Карандаш

Уголь

Гравюра

Чернила

Фото

5.Участники аукциона:                    6.Каталог аукциона:

Ф.И.О.                                                      Дата аукциона

Дата аукциона

Присвоенный номер

МЕНЮ:

Лот                   Участники     Аукцион      Поиск           Отчет               Выход

Новый лот         Новый              Торги       Поиск по…   Отчет о прибыли

Изменить           Изменить                                                 Печать отчета    

Удалить             Удалить

Код программы:

Модуль:

Sub Auto_Open()

MyMenu

Sheets("Найдено").Visible = 0

Sheets("Лот аукциона").Activate

End Sub

Sub MyMenu()

Dim ГлМеню As Object

Dim Пменю As Object, ПМеню1 As Object, ПМеню2 As Object, ПМеню3 As Object, ПМеню4 As Object, ПМеню5 As Object, ПМеню6 As Object, ПМеню7 As Object, ПМеню8 As Object, ПМеню9 As Object, Пменю10 As Object

Application.CommandBars("Formatting").Visible = False

Set ГлМеню = CommandBars.Add _

(Name:="MyMenu1", Position:=msoBarTop, _

MenuBar:=True, temporary:=True)

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Лот"

End With

Set ПМеню1 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню1

    .Caption = "Новый лот"

    .OnAction = "Add1"

End With

Set ПМеню2 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню2

    .Caption = "Удалить лот"

    .OnAction = "Add2"

End With

Set ПМеню3 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню3

    .Caption = "Изменить лот"

    .OnAction = "Add3"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Участники"

End With

Set ПМеню4 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню4

    .Caption = "Новый"

    .OnAction = "Add4"

End With

Set ПМеню5 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню5

    .Caption = "Изменить"

    .OnAction = "Add5"

End With

Set ПМеню6 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню6

    .Caption = "Удалить"

    .OnAction = "Add6"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Аукцион"

End With

Set ПМеню7 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню7

    .Caption = "Торги"

    .OnAction = "Add7"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Поиск"

End With

Set ПМеню8 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню8

    .Caption = "Поиск по..."

    .OnAction = "Add8"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlPopup)

With Пменю

    .Caption = "Отчёт"

End With

Set ПМеню9 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With ПМеню9

    .Caption = "Отчет о прибыли"

    .OnAction = "Add9"

End With

Set Пменю10 = Пменю.CommandBar.Controls.Add(Type:=msoControlButton)

With Пменю10

    .Caption = "Печать отчета"

    .OnAction = "Add10"

End With

Set Пменю = ГлМеню.Controls.Add(Type:=msoControlButton)

With Пменю

    .Style = msoButtonCaption

    .Caption = "Выход"

    .OnAction = "DeleteMyMenu"

End With

With ГлМеню

    .Visible = True

    .Protection = msoBarNoMove

End With

End Sub

Sub DeleteMyMenu()

Application.CommandBars("Formatting").Visible = True

CommandBars("MyMenu1").Delete

End Sub

Sub Add1()

With UserForm1

.ComboBox7.List = Sheets("списки").Range("A1").CurrentRegion.Value

.ComboBox7.ListIndex = 0

.ComboBox6.List = Sheets("списки").Range("C1").CurrentRegion.Value

.ComboBox6.ListIndex = 0

.ComboBox5.List = Sheets("списки").Range("E1").CurrentRegion.Value

.ComboBox5.ListIndex = 0

N = Sheets("каталог аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox4.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(N, 1)).Value

.ComboBox4.ListIndex = 0

.Show

End With

End Sub

Sub Add4()

With UserForm2

N = Sheets("каталог аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(N, 1)).Value

.ComboBox1.ListIndex = 0

.Show

End With

End Sub

Sub Add5()

With UserForm3

N = Sheets("участники аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("участники аукциона").Range("A2", Sheets("участники аукциона").Cells(N, 1)).Value

.ComboBox2.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(N, 1)).Value

.ComboBox2.ListIndex = 0

.Show

End With

End Sub

Sub Add7()

With UserForm4

N = Sheets("каталог аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(N, 1)).Value

'.ComboBox1.ListIndex = 0

'T = Sheets("лот аукциона").Cells(1, 8).CurrentRegion.Rows.Count

'.ComboBox4.List = Sheets("лот аукциона").Range("H2", Sheets("лот аукциона").Cells(T, 8)).Value

'.ComboBox4.ListIndex = 0

M = Sheets("участники аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox3.List = Sheets("участники аукциона").Range("B2", Sheets("участники аукциона").Cells(M, 2)).Value

.Show

End With

End Sub

Sub Add2()

With UserForm5

T = Sheets("лот аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("лот аукциона").Range("A2", Sheets("лот аукциона").Cells(T, 1)).Value

'.ComboBox1.ListIndex = 0

N = Sheets("лот аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox2.List = Sheets("лот аукциона").Range("B2", Sheets("лот аукциона").Cells(N, 2)).Value

'.ComboBox2.ListIndex = 0

K = Sheets("лот аукциона").Cells(1, 3).CurrentRegion.Rows.Count

.ComboBox3.List = Sheets("лот аукциона").Range("C2", Sheets("лот аукциона").Cells(K, 3)).Value

'.ComboBox3.ListIndex = 0

.Show

End With

End Sub

Sub Add3()

With UserForm6

R = Sheets("лот аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("лот аукциона").Range("A2", Sheets("лот аукциона").Cells(R, 1)).Value

W = Sheets("лот аукциона").Cells(1, 1).CurrentRegion.Rows.Count

.ComboBox2.List = Sheets("лот аукциона").Range("B2", Sheets("лот аукциона").Cells(W, 2)).Value

K = Sheets("лот аукциона").Cells(1, 3).CurrentRegion.Rows.Count

.ComboBox3.List = Sheets("лот аукциона").Range("C2", Sheets("лот аукциона").Cells(K, 3)).Value

.ComboBox4.List = Sheets("списки").Range("A1").CurrentRegion.Value

.ComboBox4.ListIndex = 0

.ComboBox5.List = Sheets("списки").Range("C1").CurrentRegion.Value

.ComboBox5.ListIndex = 0

.ComboBox6.List = Sheets("списки").Range("E1").CurrentRegion.Value

.ComboBox6.ListIndex = 0

P = Sheets("каталог аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox9.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(P, 1)).Value

.ComboBox9.ListIndex = 0

.Show

End With

End Sub

Sub add6()

With UserForm7

Q = Sheets("участники аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("участники аукциона").Range("A2", Sheets("участники аукциона").Cells(Q, 1)).Value

J = Sheets("участники аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox2.List = Sheets("участники аукциона").Range("B2", Sheets("участники аукциона").Cells(J, 2)).Value

H = Sheets("участники аукциона").Cells(1, 3).CurrentRegion.Rows.Count

.ComboBox3.List = Sheets("участники аукциона").Range("C2", Sheets("участники аукциона").Cells(H, 3)).Value

.Show

End With

End Sub

Sub add8()

With UserForm8

.Show

End With

End Sub

Sub add9()

With UserForm9

P = Sheets("каталог аукциона").Cells(1, 2).CurrentRegion.Rows.Count

.ComboBox1.List = Sheets("каталог аукциона").Range("A2", Sheets("каталог аукциона").Cells(P, 1)).Value

.ComboBox1.ListIndex = 0

.Show

End With

End Sub

Sub add10()

With UserForm10

.Show

End With

End Sub

Меню «Лот аукциона»:

Private Sub CommandButton1_Click()

Unload Me

End Sub

Private Sub CommandButton2_Click()

Dim M(1 To 9) As Variant

Dim obj As Object

Dim N As Integer, i As Integer