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

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