Автор: Пользователь скрыл имя, 11 Января 2011 в 17:33, курсовая работа
Целью моей курсовой работы является проектирование базы данных регистрации заказов и создание полноценного приложения, с помощью которого пользователь имеет возможность добавлять и удалять заказы.
Для реализации поставленной цели необходимо выполнить ряд задач:
1. Провести бизнес-анализ ситуации
2. Определение требований
3. Проектирование технического проекта
4. Разработка продукта
5. Тестирование и оценка качества системы
Введение…………………………………………………………….......................3
1. Бизнес-анализ и определение требований……………………………………5
2. Проектирование (разработка технического проекта)……………………....15
3. Разработка продукта (создание приложений)………………………………18
4. Тестирование и оценка качества системы………………………………......25
Заключение………………………………………………………………………28
Список литературы………………………………………………………….......30
Приложения……………………………………………………………………...31
If reply = vbOK Then
Data2.Recordset.Delete
Data2.Recordset.MoveFirst
End If
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click(Index As Integer)
reply =
MsgBox("Введите новую запись
If reply = vbOK Then
Text1.SetFocus
Data2.Recordset.AddNew
End If
End Sub
Private Sub Command6_Click()
reply = MsgBox("Введите новую запись и нажмите кнопку", vbOKCancel, "Добавить запись")
If reply = vbOK Then
Text1.SetFocus
Data3.Recordset.AddNew
End If
End Sub
Private Sub Command7_Click()
reply = MsgBox("Вы желаете удалить эту запись", vbOKCancel, "Удалить запись")
If reply = vbOK Then
Data3.Recordset.Delete
Data3.Recordset.MoveFirst
End If
End Sub
Private Sub Command8_Click()
reply = MsgBox("Вы желаете удалить эту запись", vbOKCancel, "Удалить запись")
If reply = vbOK Then
Data4.Recordset.Delete
Data4.Recordset.MoveFirst
End If
End Sub
Private Sub Command9_Click()
reply = MsgBox("Введите новую запись и нажмите кнопку", vbOKCancel, "Добавить запись")
If reply = vbOK Then
Text1.SetFocus
Data4.Recordset.AddNew
End If
End Sub
Private Sub Form_Load()
reply = MsgBox("Создать резервную копию БД?", vbOKCancel, Data1.DatabaseName)
If reply = vbOK Then
FileNm$
= InputBox$("Введите путь для
End If
If FileNm$ <> "" Then
FileCopy Data1.DatabaseName, FileNmS
End If
End Sub
Рис. 30 «Отчёт
о проданных путёвках»
Рис. 31 «Отчёт по работе с клиентами»
Информация о работе Проектирование автоматизированной информационной системы