Страница 175 из 179

Интернет-журнал "Домашняя лаборатория", 2007 №4

Рис. 8.12. Результат работы приложения

Урок 9

Сетка (MSFIexGrid) и улучшенное текстовое окно (RichTextBox)

MSFIexGrid

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

Чтобы добавить объект MSFIexGrid на панель инструментов, выполните команду меню Project — > Components и выберите из списка элементов управления (Controls) Microsoft FlexGrid Control и затем нажмите кнопку ОК.

После этого на панели инструментов появится новая пиктограмма -.

Свойства Row и Col объекта MSFIexGrid определяют положение текущей ячейки. Содержимое текущей ячейки доступно через свойство Text, то есть данные в таблице хранятся в текстовом виде. Этот факт не доставляет много хлопот, так как в Visual Basic есть функции преобразования строки в число и обратно. Если в ячейку требуется занести число, то необходимо использовать функцию преобразования числа в строку CStr, например:

MSFlexGrid1.Text=CStr(sum).

С другой стороны, при извлечении числа из текстового содержимого ячейки можно использовать функцию Val, например:

sum=sum + Val(MSFlexGrid1.Тext)

Свойства Rows и Cols позволяют определить количество строк и столбцов в сетке. Наличие заголовков у строк и столбцов можно установить с помощью свойств FixedRows и FixedCols. Содержимое заголовков определяется свойством FormatString. Например, следующей пример показывает, как установить заголовки столбцов сетки:

MSFlexGrid1.FormatString = s$

Заголовки строк сетки определяются аналогичным образом, только в начало строки необходимо поместить символ “точка с запятой”, который укажет сетке, что это именно заголовки строк:

s$ = Имя|Адрес|Телефон"

MSFlexGridl1.FormatString = s$

Получить или установить содержимое произвольной ячейки позволяет свойство TextArray. Это свойство имеет синтаксис:

MSFlexGrid1.TextArray(cellindex) [= string]

где string — текстовое содержимое ячейки, определенной аргументом cellindex. Аргумент cellindex представляет собой индекс ячейки в сетке и рассчитывается следующим образом. К номеру колонки произвольной ячейки прибавляется произведение ее номера строки на общее количество колонок в сетке, определенное свойством Cols. Для расчета аргумента cellindex удобно использовать следующую функцию:

Function GetCellIndex(row As Integer, col As Integer) As Long GetCellIndex = row*MSFlexGrid1.Cols + col End Function

При операциях со строками и колонками объекта MSFIexGrid следует помнить, что отсчет строк и колонок ведется не с единицы, а с нуля. Таким образом, первая строка сетки, в которой обычно находятся заголовки, на самом деле является нулевой строкой.

Для демонстрации использования объекта MSFlexGrid создадим приложение, предназначенное для просмотра полей базы данных, содержащей информацию о покупателях, сделанных ими заказах и товарах.

База данных CASTOMER.MDB включает в себя три таблицы:

CASTOMER — содержит информацию о покупателях,

ORDERSALES — содержит информацию о сделанных ими заказах,

PRODUCTS — содержит информацией о товарах.

Структуры таблиц базы данных показаны в следующих таблицах.

Таблица. Структура таблицы CASTOMER

Поле ∙ Описание

Idcust ∙ Код покупателя

Name ∙ Имя

LastName ∙ Фамилия

Concern ∙ Предприятие

Address ∙ Адрес

Phone ∙ Телефон

Note ∙ Примечание

Таблица. Структура таблицы ORDERSALES

Поле ∙ Описание

Idprod ∙ Код товара

Dateorder ∙ Дата заказа

idcust ∙ Код покупателя

numorder ∙ Количество заказанного товара

Datesale ∙ Дата продажи

numsale ∙ Количество проданного товара

Note ∙ Примечание

Таблица. Структура таблицы PRODUCTS

Поле ∙ Описание

Idprod ∙ Код товара

Product ∙ Наименование товара

Price ∙ Цена за единицу товара

Repository ∙ Наличие товара на складе

Note ∙ Примечание

Связь между таблицами осуществляется на основании значений совпадающих полей idcust и Idprod.

Создайте новый проект и расположите на форме два объекта управления данными, пять меток, четыре текстовых окна, командную кнопку и объект управления MSFIexGrid. Размещение объектов показано на рис. 9.1.

Рис. 9.1. Расположение элементов управления на экранной форме

В окне свойств первого объекта управления данными установите свойство DataBaseName как имя базы данных CASTOMER.MDB. Затем определите свойство RecordSource этого объекта как CASTOMER. У второго объекта Data установите свойство DataBaseName аналогичным образом, а его свойство RecordSource определим позднее в коде программы и оно будет устанавливаться должным образом во время выполнения приложения. Этот объект можно сделать невидимым, установив его свойство Visible в False.

Определите свойства меток, текстовых окон и объекта MSFIexGrid следующим образом:

Label1.Caption=Имя

Label2.Caption=Фамилия

Label3.Caption=Предприятие

Label4.Caption=Код покупателя

Label5.Caption=Заказы

Text1.DataSource=Data1

Text1.DataField=Name

Text2.DataSource=Data1

Text2.DataField=LastName

Text3.DataSource=Data1

Text3.DataField=Concern

Text4.DataSource=Data1

Text4.DataField=Id_Cust

DataSource=Data2

FixedCols=0

FixedRows=1

Cols=2

Rows=2

Теперь установите свойство Caption командной кнопки как “Просмотр заказов” и добавьте в процедуру обработки нажатия кнопки следующий код:

Private Sub Command1_Click()

' Определим источник данных для объекта

Data2 Dim str As String

str = "SELECT ORDERSALES.Id_prod, PRODUCT.product, PRODUCT.price,

ORDERSALES.num_order, ORDERSALES.Date_order, ORDERSALES.Id_cust, ORDERSALES.Date_sale, ORDERSALES.num_sale FROM ORDERSALES, PRODUCT WHERE ordersales.Id_cust=" + Text4.Text + "AND ordersales.id_prod = product.id_prod"

Data2.RecordSource = str

Data2.Refresh

' Установим Заголовки столбцов у объекта MSFlexGrid

MSFlexGrid1.FormatString = s$

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

MSFlexGrid1.row = MSFlexGrid1.Rows — 1

MSFlexGrid1.col = 0 MSFlexGrid1.Text = "Всего:"

MSFlexGrid1.col = 1