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

UptoLike

ВУЗ: 

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

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

Рубрика: 

-83-
3.3.3. СОЗДАНИЕ ФОРМЫ ДИАЛОГА
Теперь после проведения предварительной подготовки можно
приступить к
разработке формы входного диалога, которая будет реализована в отдельном
модуле.
1. Добавьте в проект новую форму (File\New\Form) . Отредактируйте ее и
переименуйте компоненты, как показано на рис. 58. Сохраните модуль в
ката-
логе проекта под именем uLogin.
2. Установите значения свойств компонентов в соответствии с таблицей:
КОМПОНЕНТ СВОЙСТВО ЗНАЧЕНИЕ
!
fLogin biSystemMenu
biMinimize
biMaximize
BorderStyle
Caption
Position
false
false
false
bsDialog
Вход в систему
poScreenCenter
Label 1
Ca
p
tion
Имя
Пароль
ebUserName Text
ebPassword Text
PasswordChar
_____ I *
btnCancel Caption
ModalResult
Отмена
mrCancel
btnOK Caption
ModalResult
ок
mrO
K
Отредактируйте модуль uLogin, как показано в листинге:
unit uLogin;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, uLoginData;
type
TfLogin = class(TForm)
Labell: TLabel;
Label2: TLabel;
ebUserName: TEdit;
ebPassword: TEdit;
btnCancel: TButton;
btnOk: TButton;
procedure FormShow(Sender: Tobject);
procedure btnOkClick(Sender: Tobject);
procedure btnCancelClick(Sender: Tobject);
private
{ Private declarations }

Страницы