Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Практическая работа 21. Базы данных; элемент управления Data (считать таблицу в двумерный массив и вывести на экран в массив поля списка). Использование стандартного модуля





Задание: создать таблицу базы данных, содержащую данные о 9 программных продуктах с полями: Hersteller - изготовитель, Typ - тип продукта, Preis - цена, Tendenz - тенденция, Anbieter - распространитель, Ort - местность, табл. 4.3:

Таблица 4.3. Software
Коde Hersteler Typ Preis Tendenz Anbieter Ort
  Ahead Nero Burning   A Media Markt Berlin-Tegel
  Steinberg Maxima Studio   В Media Markt Koeln
  Norton Anti Virus   A Schaubandt Flensburg
  G Data Power Adress-manager   A Pro Markt Berlin
  Top Systems Win Zip   B Media Markt Stuttgart
  Alfons Lernwelt Deutsch   A Media Markt Berlin-NeuKoeln
  Microsoft Encarta   A Saturn Duesseldorf
  Cequadrat Picture it   A Schaubandt Isenhagen
  Corel Corel Draw   A US-Electronic Hilden

Следует создать стандартный модуль для обеспечения использования переменных в (данном случае) в 2-х формах. Первую форму использовать для связи проекта с базой данных (использовать элементы управления Data и TextBox) и создания двумерного массива, соответствующего таблице базы данных. Вторую форму использовать для вывода двумерного массива на экран (в массив поля списка) и нахождения максимальной цены программного продукта.

Последовательность действий:

1. Создать

o модуль

o на первой форме (рис.4.1): элементы управления Data и массив Text1(7) для вывода 7 полей таблицы на экран, 3 командные кнопки:

§ для процедуры построчного считывания записей таблицы в двумерный массив,

§ для процедуры разового считывания тех же данных в тот же массив,

§ для перехода ко второй форме,

o на второй форме: массив List1 (9) для вывода данных двумерного массива на экран, элемент управления Label1, 2 командные кнопки для:

§ процедуры вывода двумерного массива на экран в массив поля списка,

§ процедуры нахождения максимальной цены продукта и вывода в поле Label1 результата,

o присвоить значения свойствам элемента управления Data и свойствам элементов массива текстового поля (примеры даны в табл. 4.1: и табл. 4.2:),

o описать переменные в области модуля и ввести код, данный ниже (пояснения даны под комментариями), стартовать проект

 

Рис. 4.1. Доступ к данным; использование элемента управления Data, вид формы Form 1

Рис. 4.2. Доступ к данным - Data, вид формы Form2

(General) (Declarations)' описание двумерного массива, соответствующего' таблице software базы данныхPublic mass(9, 6) As Variant Public i As Integer, j As Integer, k As Integer' переменная-счетчик для работы с номерами записей' таблицыPublic n As Integer' переменная для хранения максимальной цены продуктаPublic max As Integer

Form1

' Последовательное считывание данных таблицы software' в массив текстового поля. Щелчком на правой ' кнопке элемента Data и последовательным ' нажатием командной кнопки Command1 (Caption = Lesen1)' присвоить текущему элементу массива ' mass(n, j) текущее значение свойства Text ' элементов массива текстового поляPrivate Sub Command1_Click() mass (n, 1) = Text1(1): mass (n, 2) = Text1(2)mass (n, 3) = Text1(3): mass (n, 4) = Text1(4)mass (n, 5) = Text1(5): mass (n, 6) = Text1(6)n = n + 1 ' увеличить значение переменной-счeтчик на 1End Sub' автоматическое считывание данных в массив' (Caption = Lesen2)Private Sub Command2_Click()For n = 0 To 8 mass (n, 1) = Text1(1): mass (n, 2) = Text1(2)mass (n, 3) = Text1(3): mass (n, 4) = Text1(4)mass (n, 5) = Text1(5):mass (n, 6) = Text1(6)' MoveNext - метод, обеспечивающий автоматический ' переход к следующей записиData1.Recordset.MoveNext Next nEnd Sub' Методы MoveFirst, MoveLast, MoveNext, MovePrevious ' находят в указанном объекте Recordset соответствующую' запись и делают еe текущейPrivate Sub Command3_Click()Unload MeForm2.ShowEnd Sub

Form2

' вывод данных двумерного массива на экран в ' массив поля спискаPrivate Sub Command1_Click()For i = 0 To 8For j = 1 To 6List1(i).List(j - 1) = mass (i, j)Next j, iEnd Sub' нахождение максимальной цены продукта и вывод в' поле метки результатаPrivate Sub Command2_Click() max = mass(0,3)For k = 1 To 8If mass (k, 3) > max Then max = mass (k, 3)Next kLabel1.Caption = maxEnd Sub






Дата добавления: 2015-06-12; просмотров: 551. Нарушение авторских прав; Мы поможем в написании вашей работы!




Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

ПРОФЕССИОНАЛЬНОЕ САМОВОСПИТАНИЕ И САМООБРАЗОВАНИЕ ПЕДАГОГА Воспитывать сегодня подрастающее поколение на со­временном уровне требований общества нельзя без по­стоянного обновления и обогащения своего профессио­нального педагогического потенциала...

Эффективность управления. Общие понятия о сущности и критериях эффективности. Эффективность управления – это экономическая категория, отражающая вклад управленческой деятельности в конечный результат работы организации...

Мотивационная сфера личности, ее структура. Потребности и мотивы. Потребности и мотивы, их роль в организации деятельности...

Что такое пропорции? Это соотношение частей целого между собой. Что может являться частями в образе или в луке...

Растягивание костей и хрящей. Данные способы применимы в случае закрытых зон роста. Врачи-хирурги выяснили...

ФАКТОРЫ, ВЛИЯЮЩИЕ НА ИЗНОС ДЕТАЛЕЙ, И МЕТОДЫ СНИЖЕНИИ СКОРОСТИ ИЗНАШИВАНИЯ Кроме названных причин разрушений и износов, знание которых можно использовать в системе технического обслуживания и ремонта машин для повышения их долговечности, немаловажное значение имеют знания о причинах разрушения деталей в результате старения...

Studopedia.info - Студопедия - 2014-2025 год . (0.01 сек.) русская версия | украинская версия