13 лаба

Федеральное агентство связи

Ордена Трудового Красного Знамени

Федеральное бюджетное образовательное учреждение высшего образования

«Московский Технический Университет Связи и Информатики»

(МТУСИ)

Кафедра Информатики

Предмет Информатика

Лабораторная работа №13

Тема:

Средства Visual Studio.Net – ADO.NET

для работы с базами данных.

Вариант 00

Выполнил:

Москва 0000

3)Задание:

4)Формализация и уточнение заданий:

Формализованная формулировка: Создать БД с заданными полями с произвольным содержанием через СУБД Access, загрузить БД в Microsoft VB, и написать программу, выводящую список товаров заданного изготовителя, кол-во которого находится в заданных пределах.

5.1форма

5.2)Схема Алгоритма

5.3)Программный код

Module Module1

Sub Poisk(ByVal n As Integer, ByRef U As Double, ByRef t As String, ByRef b As DataRowCollection)

Dim i, j, k As Integer

Dim F As Double

U = 0

Dim learn() As String = {"фактическая прибыль"}

For i = 0 To n

j = 4

F += b(i)(j)

k = k + 1

Next

U = F / k

For i = 0 To n

j = 4

If b(i)(j) > U Then

t = t & b(i)(2) + vbCrLf

End If

Next

End Sub

Sub vivod(ByVal z As String, ByVal T As TextBox)

T.Text = z

End Sub

End Module

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: данная строка кода позволяет загрузить данные в таблицу "База_данных_13_лабаDataSet.Изделия". При необходимости она может быть перемещена или удалена.

Me.ИзделияTableAdapter.Fill(Me.База_данных_13_лабаDataSet.Изделия)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim t As String = ""

Dim NOMER As Integer

Dim u As Double

Dim b As DataRowCollection

TextBox1.Text = ""

b = База_данных_13_лабаDataSet.Изделия.Rows

NOMER = База_данных_13_лабаDataSet.Изделия.Rows().Count() - 1 'число записей в БД

Poisk(NOMER, u, t, b)

vivod(Str(u), TextBox1)

vivod(t, TextBox2)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

End Class

6)Результат

Изделия Автомобиль «Pegas» и Автомобиль «Xray» на предприятиях ГАЗ и Оксана больше среднего

122 по всем предприятиям «230» и «160»