Готовые работы
Курсовая работа
- Дипломная работа
- Доклад
- Курсовая работа
- Ответы на билеты
- Реферат
- Эссе
Проектирование баз данных

Управление данными

Заказать уникальную курсовую работу

Тип работы: Курсовая работа

Предмет: Проектирование баз данных

23 23 страницы
4 + 4 источника
Добавлена 26.10.2014

1 496 руб.

Содержание
Часть работы
Список литературы
Вопросы/Ответы

Содержание

Введение 2
1. Анализ предметной области 3
2. Постановка задачи 5
3. Разработка информационного обеспечения задачи 6
3.1. Выделение информационных объектов предметной области 6
3.2. Определение связей 8
3.3. Построение концептуальной модели 8
3.4. Определение структуры базы данных 9
4. Описание алгоритмов решения задачи 11
5.1. Иерархия форм 15
5.2. Описание разработанных форм 15
5.3. Описание созданных отчетов 19
5.3.1. Создание отчетов 19
5.3.2. Отчеты 20
Заключение 21
Список литературы 22
Приложение - Листинг программы 23

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

Recordset
SQL = "DELETE FROM Driver WHERE (DriverID=" & DataGrid1.Columns(0).Value & ")"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command4_Click()
Unload Driver
End Sub

Private Sub Command5_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "SELECT * From Driver WHERE LastName = '" & Text9.Text & "'"
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Private Sub Command6_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
If Option1.Value = True Then
SQL = "SELECT * From Driver ORDER BY LastName ASC"
End If
If Option2.Value = True Then
SQL = "SELECT * From Driver ORDER BY LastName DESC"
End If
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Private Sub Command7_Click()
Call UpdateConnect
Text9.Text = ""
End Sub

Private Sub Form_Load()
Call UpdateConnect
End Sub

Sub UpdateConnect()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "SELECT * From Driver"
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Bus
Private Sub Command1_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "INSERT INTO Bus (BusNumber,Brand,Model,YearBus,YearRepair,Distance,Capacity) VALUES (" & Text1.Text & ", '" & Text2.Text & "', '" & Text3.Text & "', " & Text4.Text & ", " & Text5.Text & ", " & Text6.Text & ", " & Text7.Text & ")"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command2_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "UPDATE Bus SET BusNumber = " & DataGrid1.Columns(0).Value & ", Brand = '" & DataGrid1.Columns(1).Value & "', Model = '" & DataGrid1.Columns(2).Value & "', YearBus = " & DataGrid1.Columns(3).Value & ", YearRepair = " & DataGrid1.Columns(4).Value & ", Distance = " & DataGrid1.Columns(5).Value & ", Capacity = " & DataGrid1.Columns(6).Value & " WHERE (BusNumber=" & DataGrid1.Columns(0).Value & ")"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command3_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "DELETE FROM Bus WHERE (BusNumber=" & DataGrid1.Columns(0).Value & ")"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command4_Click()
Unload Bus
End Sub

Private Sub Command5_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "SELECT * From Bus WHERE Brand = '" & Text8.Text & "'"
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Private Sub Command6_Click()
Call UpdateConnect
Text8.Text = ""
End Sub

Private Sub Command7_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
If Option1.Value = True Then
SQL = "SELECT * From Bus ORDER BY YearBus ASC"
End If
If Option2.Value = True Then
SQL = "SELECT * From Bus ORDER BY YearBus DESC"
End If
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Private Sub Form_Load()
Call UpdateConnect
End Sub

Sub UpdateConnect()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "SELECT * From Bus"
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Route
Private Sub Command1_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "INSERT INTO Route (RouteID,DriverID,BusNumber,PointStart,PointStop,DateStart,TimeStart,TimeAll) VALUES (" & Text1.Text & ", " & Text2.Text & ", " & Text3.Text & ", '" & Text4.Text & "', '" & Text5.Text & "', '" & Text6.Text & "', '" & Text7.Text & "', '" & Text8.Text & "')"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command2_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "UPDATE Route SET RouteID = " & DataGrid1.Columns(0).Value & ", DriverID = " & DataGrid1.Columns(1).Value & ", BusNumber = " & DataGrid1.Columns(2).Value & ", PointStart = '" & DataGrid1.Columns(3).Value & "', PointStop = '" & DataGrid1.Columns(4).Value & "', DateStart = '" & DataGrid1.Columns(5).Value & "', TimeStart = '" & DataGrid1.Columns(6).Value & "', TimeAll = '" & DataGrid1.Columns(7).Value & "' WHERE (RouteID=" & DataGrid1.Columns(0).Value & ")"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command3_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "DELETE FROM Route WHERE (RouteID=" & DataGrid1.Columns(0).Value & ")"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command4_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "SELECT * From Route WHERE DateStart = #" & Text9.Text & "#"
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Private Sub Command5_Click()
Call UpdateConnect
Text9.Text = ""
End Sub

Private Sub Command6_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
If Option1.Value = True Then
SQL = "SELECT * From Route ORDER BY DateStart ASC"
End If
If Option2.Value = True Then
SQL = "SELECT * From Route ORDER BY DateStart DESC"
End If
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Private Sub Command7_Click()
Unload Route
End Sub

Private Sub Form_Load()
Call UpdateConnect
End Sub

Sub UpdateConnect()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "SELECT * From Route"
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Place
Private Sub Command1_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "INSERT INTO Place (RouteID,Place,PlaceSign,SumDriver,SumTax,Comment) VALUES (" & Text1.Text & ", " & Text2.Text & ", " & Check1.Value & ", " & Text3.Text & ", " & Text4.Text & ", '" & Text5.Text & "')"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command2_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "UPDATE Place SET RouteID = " & DataGrid1.Columns(0).Value & ", Place = " & DataGrid1.Columns(1).Value & ", PlaceSign = " & DataGrid1.Columns(2).Value & ", SumDriver = " & DataGrid1.Columns(3).Value & ", SumTax = " & DataGrid1.Columns(4).Value & ", Comment = '" & DataGrid1.Columns(5).Value & "' WHERE (RouteID=" & DataGrid1.Columns(0).Value & " AND Place=" & DataGrid1.Columns(1).Value & ")"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command3_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "DELETE FROM Place WHERE (RouteID=" & DataGrid1.Columns(0).Value & " AND Place=" & DataGrid1.Columns(1).Value & " AND PlaceSign =" & DataGrid1.Columns(2).Value & ")"
rs.Open SQL, conn, 3, 3
Set rs = Nothing
Call UpdateConnect
End Sub

Private Sub Command4_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
If Option3.Value = True Then
SQL = "SELECT * From Place WHERE PlaceSign = -1"
End If
If Option4.Value = True Then
SQL = "SELECT * From Place WHERE PlaceSign = 0"
End If
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Private Sub Command5_Click()
Call UpdateConnect

End Sub

Private Sub Command6_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
If Option1.Value = True Then
SQL = "SELECT * From Place ORDER BY RouteID, Place ASC"
End If
If Option2.Value = True Then
SQL = "SELECT * From Place ORDER BY RouteID, Place DESC"
End If
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

Private Sub Command7_Click()
Unload Place
End Sub

Private Sub Form_Load()
Call UpdateConnect
End Sub

Sub UpdateConnect()
Set rs = Nothing
Set rs = New ADODB.Recordset
SQL = "SELECT * From Place"
rs.Open SQL, conn, 3, 3
Set DataGrid1.DataSource = rs
End Sub

19

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

1. Ананьев А., Фёдоров А.. Самоучитель Visual Basic 6.0. – СПб.: БХВ-Петербург, 2003.
2. Григорьев Ю.А., Ревунков Г.И. Банки данных. – Москва, 2001.
3. Карпова Т.С. Базы данных: модели, разработка, реализация – СПб.: Питер, 2002.
4. Кузьменко В.Г. Базы данных в Visual Basic и VBA. Самоучитель. – М.: ООО «Бином-Пресс», 2004.

Вопрос-ответ:

Зачем нужен анализ предметной области при управлении данными?

Анализ предметной области позволяет понять основные объекты, связи и характеристики, которые необходимы для эффективного управления данными. Это помогает разработать информационное обеспечение, соответствующее требованиям и потребностям предметной области.

Какие задачи решаются при разработке информационного обеспечения?

Разработка информационного обеспечения включает в себя выделение информационных объектов предметной области, определение связей между ними, построение концептуальной модели и определение структуры базы данных. В результате решаются задачи обеспечения эффективной работы с данными и удовлетворения потребностей пользователей.

Какими алгоритмами можно решить задачу управления данными?

Для решения задачи управления данными можно использовать различные алгоритмы, включающие в себя поиск, сортировку, фильтрацию, агрегацию и анализ данных. Они могут быть реализованы с использованием различных программных и аппаратных средств.

Какие формы могут быть описаны при разработке информационного обеспечения?

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

Что такое концептуальная модель и зачем она нужна?

Концептуальная модель представляет собой абстрактное представление предметной области, которое определяет основные объекты и связи между ними. Она нужна для понимания и описания структуры данных, используемых в системе управления данными. Концептуальная модель является основой для разработки базы данных и других компонентов информационной системы.

Что такое анализ предметной области?

Анализ предметной области - это процесс изучения и извлечения информации о конкретной предметной области с целью понимания ее особенностей, определения проблем и потребностей, а также выделения ключевых элементов и связей.

Каковы этапы разработки информационного обеспечения задачи?

Этапы разработки информационного обеспечения задачи включают выделение информационных объектов предметной области, определение связей между ними, построение концептуальной модели, определение структуры базы данных, а также описание алгоритмов решения задачи.

Какие формы используются в реализации данной задачи?

В реализации данной задачи используются формы, которые позволяют пользователю взаимодействовать с системой и вводить необходимые данные. Описание разработанных форм включает в себя информацию о их иерархии и функциональности.