Для каждого города и района вывести информацию о ресурсах с минимальным расходом.(ресурс, расход).
Private Sub Command7_Click() Label.Caption = "Информация о ресурсах с минимальным расходом" Grid.Clear 'очистка сетки Grid.Cols = 5 Grid.Rows = Data2.Recordset.RecordCount + 1 'устанавливаем количество строк в гибкой сетке равным количеству записей в таблице + 1 (для заголовков столбцов) Grid.FormatString = "^Код города|^код района|название района|^№ ресурса|^расход" Data2.Recordset.MoveFirst 'переход к первой записи For I = 1 To Data2.Recordset.RecordCount Min = Data2.Recordset.Fields(3): nommin = "" For J = 3 To 7 'по столбцам записи таблицы If Data2.Recordset.Fields(J) < Min Then Min = Data2.Recordset.Fields(J): nommin = "" If Data2.Recordset.Fields(J) = Min Then nommin = nommin & Str(J - 2) & " " Next J Grid.TextMatrix(I, 0) = Data2.Recordset.Fields(0) Grid.TextMatrix(I, 1) = Data2.Recordset.Fields(1) Grid.TextMatrix(I, 2) = Data2.Recordset.Fields(2) Grid.TextMatrix(I, 3) = nommin Grid.TextMatrix(I, 4) = Min Data2.Recordset.MoveNext 'переход к следующей записи таблицы 1 Next I For J = 1 To 5 'выравниваем ширину столбцов Grid.ColWidth(J - 1) = Grid.Width / 6 Next J Data2.Recordset.MoveFirst 'возврат к первой записи End Sub
По выбираемым ресурсам вывести информацию о районе и городе с максимальным расходом.
Private Sub Command8_Click() Grid.Cols = 4 Grid.FormatString = "" res = InputBox("Введите номер ресурса от 1 до 5", "Ввод данных") Data2.Recordset.MoveFirst 'переход к первой записи таблицы1 Grid.Rows = 1 'количество строк в гибкой сетке Grid.FormatString = "Код города|Код района|Название города|Название _района" For J = 1 To 4 'выравниваем ширину столбцов Grid.ColWidth(J - 1) = Grid.Width / 5 Next J Max = 0 For I = 1 To Data2.Recordset.RecordCount If Data2.Recordset.Fields(res + 2) > Max Then Max = _Data2.Recordset.Fields(res + 2): Grid.Rows = 1 If Data2.Recordset.Fields(res + 2) = Max Then Grid.Rows = Grid.Rows + 1 Grid.TextMatrix(Grid.Rows - 1, 0) = Data2.Recordset.Fields(0) Grid.TextMatrix(Grid.Rows - 1, 1) = Data2.Recordset.Fields(1) Grid.TextMatrix(Grid.Rows - 1, 3) = Data2.Recordset.Fields(2) Data1.Recordset.MoveFirst 'переход к первой записи таблицы1 For J = 1 To Data1.Recordset.RecordCount 'по записям ищем _название города по его коду If Data1.Recordset.Fields(0) = Data2.Recordset.Fields(0) Then _Grid.TextMatrix(Grid.Rows - 1, 2) = Data1.Recordset.Fields(1) Data1.Recordset.MoveNext 'переходим к следующей записи _таблицы2 Next J End If Data2.Recordset.MoveNext 'переходим к следующей записи таблицы1 Next I Label.Caption = "По ресурсу " & Str(res) & " максимальный расход " & Str(Max) & " был в:" End Sub
Private Sub Command9_Click() End End Sub
Заключение. В ходе данного курсового проекта, поставленная цель была реализована (пункты 1 и 2 задания по КП были выполнены на Access., 3 и 4 на Visual Basic.(обработка БД Access)). Были выполнены входящие в индивидуальное задание задачи по следующим разделам VB: программирование линейных алгоритмов, программирование разветвляющихся алгоритмов, программирование циклических алгоритмов, создание процедур и функций пользователя. Список использованной литературы : 1) Методические указания к выполнению лабораторных работ по дисциплине “Компьютерная подготовка” с применением СУБД ACCESS. Выпуск 2. / Сост.: А.Е. Макаренко, Т.В. Бугреева, И.А. Ильина, Е.В. Лемешко, М.В. Седун; ГУУ. – М., 2002. – 48 с. 2) Методические указания к выполнению лабораторной работы по дисциплине “Компьютерная подготовка” с применением СУБД ACCESS. Выпуск 1. / 3) Сост.: Т.В. Бугреева, И.А. Ильина, А.Е. Макаренко, Е.В. Лемешко, М.В. Седун; ГУУ. – М., 2002. – 32 с. 4) Несмеянов И.А., Барковский В.В., Венчковский Л.Б. Использование языка Visual Basic 6.0 при создании программных средств для обработки баз данных: Учебно-практическое пособие – 2-е изд., испр./ ГУУ. – М., 2006. – 180 с.
Популярное: Организация как механизм и форма жизни коллектива: Организация не сможет достичь поставленных целей без соответствующей внутренней... Почему люди поддаются рекламе?: Только не надо искать ответы в качестве или количестве рекламы... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (161)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |