87
begin
Form4.ShowModal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Form7.Showmodal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form7.Showmodal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
88
Form9.ShowModal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
Form10.ShowModal;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Form11.Showmodal;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Form12.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Close;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
89
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var a,s:string;
begin
a:=Edit2.Text;
s:=Edit1.Text;
if ((s='Admin') and (a='123')) then
Form2.ShowModal
else
begin
ShowMessage('Неправильный логин или пароль');
Edit1.Clear;
Edit2.Clear;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;
end.
90
ПРИЛОЖЕНИЕ 2
Фрагмент кода создания БД
CREATE TABLE strana
(kod_s int IDENTITY,
nazvanie varchar(50)NOT NULL,
CONSTRAINT pk_kod_s PRIMARY KEY(kod_s))
CREATE TABLE goroda
(kod_g int IDENTITY,
kod_st int IDENTITY,
nazvanie varchar(50)NOT NULL,
CONSTRAINT pk_kod_g PRIMARY KEY(kod_v)),
CONSTRAINT fk_kod_st foreign key (kod_st) references strana(kod_s))
CREATE TABLE vido
(kod_vida IDENTITY,
Vid_o date,
CONSTRAINT pk_kod_vida PRIMARY KEY(kod_vida))
CREATE TABLE otpravl
(kod_otp int IDENTITY,
kod_vida int,
nazvanie varchar(50)NOT NULL,
nazvanie currency,
CONSTRAINT pk_kod_otp PRIMARY KEY(kod_otp)),
CONSTRAINT fk_kod_vida foreign key (kod_vida) references vido(kod_vida))
CREATE TABLE Klient
(kod_kl int IDENTITY,
fio varchar(35),
n_pasporta varchar(35),
seria varchar(35),
tel varchar(35),
CONSTRAINT pk_kod_kl PRIMARY KEY(kod_kl))
CREATE TABLE registraziya
(kod_r int IDENTITY,
kod_g int,
data_r date,
kod_otp int,
91
data_r date,
CONSTRAINT pk_kod_r PRIMARY KEY(kod_r)) ,
CONSTRAINT fk_kod_g foreign key (kod_g) references goroda(kod_g)) ,
CONSTRAINT fk_kod_ otp foreign key (kod_ otp) references otpravl (kod_otp))
CREATE TABLE Vidacha
(kod_vid int IDENTITY,
kod_ag int,
kod_otp int,
kod_g int,
kod_kl int,
data_r date,
ves int,
CONSTRAINT pk_kod_vid PRIMARY KEY(kod_vid),
CONSTRAINT fk_kod_g foreign key (kod_g) references goroda(kod_g)) ,
CONSTRAINT fk_kod_ otp foreign key (kod_ otp) references otpravl (kod_otp))
CONSTRAINT fk_kod_kl foreign key (kod_kl) references Klient (kod_kl))
CREATE TABLE Priem
(kod_priema int IDENTITY,
kod_ag int,
kod_otp int,
kod_g int,
kod_kl int,
data_r date,
ves int,
CONSTRAINT pk_kod_priema PRIMARY KEY(kod_priema),
CONSTRAINT fk_kod_g foreign key (kod_g) references goroda(kod_g)) ,
CONSTRAINT fk_kod_ otp foreign key (kod_ otp) references otpravl (kod_otp))
CONSTRAINT fk_kod_kl foreign key (kod_kl) references Klient (kod_kl))