Бакалавр
Дипломные и курсовые на заказ

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

Курсовая: Управление данными
Курсовая Купить готовую Узнать стоимостьмоей работы

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… Читать ещё >

Содержание

  • Введение
  • 1. Анализ предметной области
  • 2. Постановка задачи
  • 3. Разработка информационного обеспечения задачи
    • 3. 1. Выделение информационных объектов предметной области
    • 3. 2. Определение связей
    • 3. 3. Построение концептуальной модели
    • 3. 4. Определение структуры базы данных
  • 4. Описание алгоритмов решения задачи
    • 5. 1. Иерархия форм
    • 5. 2. Описание разработанных форм
    • 5. 3. Описание созданных отчетов
      • 5. 3. 1. Создание отчетов
      • 5. 3. 2. Отчеты
  • Заключение
  • Список литературы
  • Приложение — Листинг программы

Управление данными (реферат, курсовая, диплом, контрольная)

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.

Показать весь текст

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

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

ИЛИ
↓


Сдать сессию!