Журнал практических работ по ПМ03
ПР 00.00.14
Выполнил студент группы ИТ-32
Родов А.Е
Проверила:
Надеждина Е.А.
2014 г.
Практическая работа №
Задача 1.
Выполнил:
Цель работы: Изучение стилистического оформления приложений, создаваемых в Delphi 7. Научиться создавать элементарный способ защиты данных с помощью пароля.
Задание: Создать окно авторизации пользователя, с двумя формами, 3 кнопками, первая кнопка – ввода, вторая – выход, третья – повтор попытки, поле ввода данных пароля и логина. Также используя окно Object Inspector отредактировать стилистическое оформление программы (цвет, стиль шрифта, размеры, подсказки и т.п.)
Ход работы
На форме создал объект поле заполнения, три кнопки и поле, которое будет появляться при вводе неверных данных.
Скриншот экрана на этапе разработки программы:
Для того, чтобы вместо вводимого пароля на экране отображались звездочки, необходимо для элемента Edit1 в окне свойств Object Inspector находим строку PasswordChar и значение, выставленное по умолчанию, меняем на ‘*’.
Для всплывающих подсказок в окне свойств элемента Object Inspector находим строку Hint и пишем необходимое сообщение, которое должно появляться при наведении указателя мыши на элемент. Также в свойстве ShowHint того же элемента устанавливаем значение true.
Скриншот работающей формы:
Полный текст модуля главной формы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Button1: TButton;
Button3: TButton;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams);
override;
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b:string;
implementation
uses Unit2;
{$R *.dfm}
procedure Tform1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style:=Params.Style or ws_popup xor ws_dlgframe;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
FormRgn:hRgn;
begin
Form1.Brush.Style:=bsSolid;
GetWindowRgn(Form1.Handle, FormRgn);
DeleteObject(FormRgn);
Form1.Height:=500;
Form1.Width:=Form1.Height;
FormRgn:=CreateRoundRectRgn(1, 1, Form1.Width -1, Form1.Height -1, Form1.Width, Form1.Height);
SetWindowRgn(Form1.Handle, FormRgn, True);
| Процедура очистки полей ввода данных для редактировании записи |
procedure TForm1.Edit1Click(Sender: TObject);
begin
form1.Edit1.clear;
end;
| Процедура переключения видимого текста «ПАРОЛЬ НЕВЕРНЫЙ»в невидимый текст. |
begin
a:=Edit1.text;
Form1.Label1.Visible:=false;
end;
| Процедура закрытия формы для кнопки «ВЫХОД» |
begin
b:=Edit2.Text;
end;
| Процедура закрытия формы для кнопки «ВЫХОД» |
begin
form1.Close;
end;
| Процедура переключения из режима невидимости текста «Неправильный пароль» |
begin
if a='pass' then
begin
if b='log' then Form2.Visible:=true
else Form1.Label1.visible:=true;
end;
end;
end.
Контрольный перечень файлов проекта и их суммарный объём в байтах:
Суммарный объем проекта: 1745815 байт
Вывод: В результате данной практической работы я научился создавать окно авторизации пользователя, как самого известного способа защиты данных от несанкционированного использования. Рассмотрел некоторые стилистические способы оформления приложений.