Дипломная работа: Автоматизация и обеспечение безопасности учета посещений клиентов в организации "Чудо Доктор"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
113
QRDBText23: TQRDBText;
QRDBText24: TQRDBText;
QRDBText25: TQRDBText;
QRLabel36: TQRLabel;
QRLabel37: TQRLabel;
QRDBText26: TQRDBText;
QRDBText2: TQRDBText;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRDBText3: TQRDBText;
QRLabel31: TQRLabel;
QRDBText27: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, StdCtrls;
type
TForm7 = class(TForm)
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
114
uses Unit1;
{$R *.dfm}
procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Show;
Form7.Hide;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, jpeg, ExtCtrls;
type
TForm8 = class(TForm)
SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton;
Image1: TImage;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm8.SpeedButton2Click(Sender: TObject);
var s: string;
begin
s:=inputbox('Авторизация','Введите пароль!',' ');
if s='222' then
begin
Form8.hide;
Form1.Show;
Form1.N2.Enabled:=true;
115
Form1.A1.Enabled:=true;
Form1.N22.Enabled:=true;
Form1.N8.Enabled:=true;
Form1.N9.Enabled:=true;
end
else
showmessage('Пароль неверный!');
end;
procedure TForm8.SpeedButton1Click(Sender: TObject);
var s: string;
begin
s:=inputbox('Авторизация','Введите пароль пользователя Klient!',' ');
if s='111' then
begin
Form8.hide;
Form1.Show;
Form1.A1.Enabled:=true;
Form1.N8.Enabled:=true;
Form1.N9.Enabled:=true;
Form1.N22.Enabled:=true;
end
else
showmessage('Пароль неверный!');
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm9 = class(TForm)
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
116
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm10 = class(TForm)
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
{$R *.dfm}
end.
Источник: https://baza.diplomsite.ru/previewfile/1765

Смотрите также:

_1966(~1
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
'Образ–Я' и его развитие средствами диалога
"Логистическая технология JIT"
"Особенности правовой системы Российской Федерации" по дисциплине "Теория государства и права"
«Анализ ликвидности и платежеспособности предприятия» (на материалах ОАО Московская кондитерская фабрика «Красный Октябрь»)