Разработка клиент-серверных приложений в Microsoft SQL Server 2000 и Borland Delphi 7. Семенова И.И. - 53 стр.

UptoLike

ВУЗ: 

СибАДИ | Омск

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

Рубрика: 

52
вого слова USES в конце списка поставить запятую и дописать название
программного модуля, например UNIT2, который соответствует созданной
форме DM.
Рис. 5.1. Пример расположения компонентов на форме FormBooks
27. Добавить на главной форме в меню пункт с названием Работа с
процедурами. В методе Click пункта меню написать код для запуска фор-
мы FormProcedure (см. пример кода в пункте 17 текущей лабораторной
работы).
28. Подключить хранимую процедуру Count_purchases, выполненную в
задании 9 лабораторной работы №4. На форму DM добавить компонент
ADOStoredProc, переименовать компонент в ADOSP_Count. У
ADOSP_Count изменить следующие свойства:
Connection на ADOConnection1;
ProcedureName на Count_purchases.
29. У компонента ADOSP_Count выбрать свойтсво Parameters и в свой-
ствах каждого входного параметра исправить свойство Value – Type на
Date, а для выходного параметра свойство Value – Type на Integer.
30. На форму FormProcedure добавить 3 компонента типа Edit (имена
соответственно Edit1, Edit2, Edit3) и 1 компонент типа Button. Рядом с ка-
ждым компонентом Edit поставить Label и исправить их свойства Caption
соответственно на «Количество покупок за указанный период», «Введите
дату начала периода», «Введите дату конца периода».
31. На кнопке поменять название на «Выполнить запрос». В методе
Click кнопки написать следующий код:
DM.ADOSP_Count.Prepared;
try
DM.ADOSP_Count.Parameters.ParamByName('@d1').Value:=StrToDate(Edit2.Text);
PDF created with pdfFactory Pro trial version www.pdffactory.com

Страницы