Вход

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

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 69888
Дата создания 2014
Страниц 23
Источников 4
Мы сможем обработать ваш заказ 17 января в 16:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 810руб.
КУПИТЬ

Содержание

Содержание
Введение 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

Список литературы [ всего 4]

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