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

UptoLike

ВУЗ: 

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

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

Рубрика: 

-82-
constructor TLoginData.Create
begin
inherited;
ModalResult: = 0;
user_id: = '';
password: = '';
end;
Кроме того, добавьте в раздел uses модуль Controls, чтобы использовать
стандартный тип TModalResult, заданный в этом модуле.
В окончательном варианте uLoginData должен выглядеть следующим обра-
зом:
unit uLoginData;
interface
uses Controls
type
TLoginData = class
modalResult : TModalResult;
user_id, password : shortstring;
constructor create;
end;
implementation
{TLoginData}
constructor TLoginData.Create
begin
inherited;
ModalResult: = 0;
user_id: = ' ';
password: = ' ';
end;
end;
Рис. 58. Форма входного диалог
а

Страницы