Вход

Продажа туристических путёвок

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 333427
Дата создания 07 июля 2013
Страниц 29
Мы сможем обработать ваш заказ (!) 1 ноября в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 310руб.
КУПИТЬ

Содержание

Описание предметной области
1.Техническое задание
2.Диаграмма вариантов использования
3.Диаграмма деятельности
4.Диаграмма классов
5.Диаграмма последовательности
6.Диаграмма кооперации
7.Разработка интерфейсных форм
Вывод
Список литературы
Приложение

Введение

Продажа туристических путёвок

Фрагмент работы для ознакомления

Имя: manager
Пароль: manager
Рис. 18. Интерфейс поиска и распечатки ваучера покупателю (интерфейс менеджера)
Рис. 19. Ваучер покупателя (интерфейс менеджера)
Вывод
В результате проделанной работы была разработана информационная система, содержащая сведения о работе турагентства, включающая работу с БД.
Была изучена технология визуального проектирования UML и язык SQL. Были приобретены навыки работы в Rational Rose, MS Access.
Список литературы
1. Лекции
2. URL: http://ru.wikipedia.org/wiki/UML
3. URL: http://www.caseclub.ru/
4. URL: http://www.info-system.ru/
ПРИЛОЖЕНИЕ
Листинг программы
Option Compare Database
‘Form: Аутентификация
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim name As String
Dim password As String

Поле0.SetFocus
name = Поле0.Text
Поле2.SetFocus
password = Поле2.Text
If (name = "Admin" And password = "Admin") Then
stDocName = "Access"
DoCmd.OpenForm stDocName, , , stLinkCriteria

ElseIf (name = "User" And password = "User") Or (name = "manager" And password = "manager") Then
stDocName = "Поиск и покупка тура"
DoCmd.OpenForm stDocName, , , stLinkCriteria
ElseIf (name = "redactor" And password = "redactor") Then
stDocName = "Туры"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else: MsgBox "Пользователь не определен"
End If
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click

End Sub
‘Form: Sale
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click

End Sub
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
Dim stDocName As String
stDocName = "Voucher"
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click

End Sub
‘Form; Поиск и Покупка
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1086) & ChrW(1080) & ChrW(1089) & ChrW(1082) & ChrW(32) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click

End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim name As String
Dim password As String

Forms!Аутентификация.Поле0.SetFocus
name = Forms!Аутентификация.Поле0.Text
Forms!Аутентификация.Поле2.SetFocus
password = Forms!Аутентификация.Поле2.Text

If name = "User" And password = "User" Then
stDocName = "Sale"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms!Sale.DataEntry = True
Forms!Sale.Кнопка10.Visible = False
ElseIf name = "manager" And password = "manager" Then
stDocName = "Sale"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms!Sale.DataEntry = False
Forms!Sale.Кнопка10.Visible = True
End If
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
‘Form: Поиск тура
Private Sub Найти_Click()
Dim p1 As String 'город вылета
Dim p21 As String 'дата
Dim p22 As String 'дата
Dim p3 As String 'назначение
Dim p41 As String 'ночей с
Dim p42 As String 'ночей до
Dim p51 As String 'взрослых
Dim p52 As String 'детей
Dim p6 As String 'курорт
Dim p7 As String 'звездность
Dim p8 As String 'питание
Dim p91 As String 'стоимость
Dim p92 As String 'стоимость
Dim p10 As String 'наличие билетов
Dim p11 As String 'наличие свободных номеров
CurrentDb.QueryDefs.Delete ("Search")
ПолеСоСписком32.SetFocus
If ПолеСоСписком32.Text = "" Then p1 = "WHERE tours.city_air like '*'"
If ПолеСоСписком32.Text <> "" Then p1 = "WHERE tours.city_air='" & ПолеСоСписком32.Text & "'"
Поле3.SetFocus
If Поле3.Value = "" Then p21 = ""
If Поле3.Value <> "" Then p21 = " AND tours.date>=#" & Format(Поле3.Value, "dd") & "/" & Format(Поле3.Value, "mm") & "/" & Format(Поле3.Value, "yyyy") & "#"
Поле5.SetFocus
If Поле5.Value = "" Then p22 = ""
If Поле5.Value <> "" Then p22 = " AND tours.date<=#" & Format(Поле5.Value, "dd") & "/" & Format(Поле5.Value, "mm") & "/" & Format(Поле5.Value, "yyyy") & "#"
ПолеСоСписком9.SetFocus
If ПолеСоСписком9.Text = "" Then p3 = ""
If ПолеСоСписком9.Text <> "" Then p3 = " AND tours.Country='" & ПолеСоСписком9.Text & "'"

Список литературы

1.Лекции
2.URL: http://ru.wikipedia.org/wiki/UML
3.URL: http://www.caseclub.ru/
4.URL: http://www.info-system.ru/
Очень похожие работы
Найти ещё больше
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00457
© Рефератбанк, 2002 - 2024