Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 106 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

- 106-
Сохраните модуль под именем ulGroups . pas в каталоге dlglib02.
Пер ейдем к редактированию класса Tf iGroups. Так же, как и класс преды-
Табл. 20. Значения свойств компонента fBaseElemForml
Компонент Свойство Значение
fBaseElemForm
I Name
1 Caption
flGroups
Группы
дущей формы, он должен содержать в секции Private указатель на класс
TGroups — связующее звено с другими модулями, а также несколько методов:
private
{Private declaration}
Groups: TGroups;
procedure CloseDataSet;
function LoadList: boolean;
function DelElement: boolean;
Процедура close DataSet закрывает активные наборы данных, которых
имеется два: storedProcl - для выполнения хранимых процедур и Queryl -
для получения выборки.
procedure TflGroups.CloseDataSet;
begin
if StoredProcl.Active then StoredProcl.Close;
if Queryl.Active then Queryl.Close;
end
Выборку данных и внесение их в список ListBoxl осуществляет функция
LoadList. Но перед описанием функции скажем несколько слов о компоненте
TListBox, который предназначен для вывода на экран строковых списков, в ко-
тор ых могут выбираться элементы. Ядром TListBox является свойство items,
которое и содержит список, отображаемый на экране, items - это потолок аб-
страктного класса TStrings, специально предназначенного для хранения спи-
сков строк. Его можно представить как последовательность связанных друг с
другом параметров «указатель на класс TObject» - «строка» (рис. 67).
Доступ к строкам производится через свойство strings с указанием по-
рядкового номера элемента, например:
ListBoxl.Items.strings[2].
Помимо строк список содержит также указатели на объекты, обращаться к
которым надо через свойство objects:
ListBoxl. items.Objects [2] - указатель на 3-й объект. Количество эле-
ментов в списке определяется свойством count.
Для добавления элементов в список класс имеет следующие методы:

Страницы