s, Graphics, Controls, Forms ,, jpeg, ExtCtrls, Mask, StdCtrls;=class (TForm): TGroupBox ;: TGroupBox;:TLabel ;: TLabel ;: TEdit ;: TMaskEdit ;: TMaskEdit ;: TImage ;: TImage ;: TLabel; Image2Click (Sender: TObject); Image1Click (Sender: TObject); MaskEdit2KeyPress (Sender: TObject; var Key: Char); Image1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); Image1MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); Image2MouseDown (Sender: TObject; Button: TMouseButton;:TShiftState; X, Y: Integer); Image2MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); public ;: TForm8; DM, Unit4, Unit5, Unit9; TForm8.Image2Click (Sender: TObject ) ;. Close; .show ;; TForm8.Image1Click (Sender: TObject) ;: integer; form8.MaskEdit1.Text= then begin (Handle, PChar ( Введіть логін! ), PChar ( Увага ), MB_ICONWARNING + MB_DEFBUTTON2) ;;; form8.MaskEdit2.Text= then begin (Handle, PChar ( Введіть пароль! ), PChar ( Увага ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end else (form8.MaskEdit1.Text lt; gt; datamodule2.adotable1login.Text) or (form8.MaskEdit2.Textlt;gt;datamodule2.adotable1parol.Text)then.Text:=edit1.Text+laquo;araquo;;edit1.Text=laquo;araquo; then begin MessageBox (Handle, PChar ( Помилка! У Вас залишилося дві спроби ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear; .clear ;; edit1.Text= aa then begin MessageBox (Handle, PChar ( Помилка! У Вас залишилося одна спроба ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear; .clear ;; edit1.Text= aaa then begin MessageBox (Handle, PChar ( Ви помилилися 3 рази! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. hide; .close ;; end; (form8.MaskEdit1.Text=datamodule2.adotable1login.Text) and (form8.MaskEdit2.Text=datamodule2.adotable1parol.Text) then.show;.adotable1.Filtered:=true;.adotable1.Filter:=laquo;login=raquo;+quotedstr(MaskEdit1.Text);.Label2.Caption:=datamodule2.ADOTable1fam.Text;.Label3.Caption:=datamodule2.ADOTable1name.Text;.Label4.Caption:=datamodule2.ADOTable1group.Text;.Hide;.MaskEdit1.Clear;.MaskEdit2.Clear;; end; TForm8.MaskEdit2KeyPress (Sender: TObject; var Key: Char); not (key in [ 0 .. 9 , # 9, # 13]) then key:=# 13; begin; Key=# 13 then beginform8.MaskEdit1.Text= then begin (Handle, PChar ( Введіть логін! ), PChar ( Увага ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end; form8.MaskEdit2.Text= then begin (Handle, PChar ( Введіть пароль! ), PChar ( Увага ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end (form8.MaskEdit1.Text lt; gt; datamodule2.adotable1login.Text) or (form8.MaskEdit2.Textlt;gt;datamodule2.adotable1parol.Text)then.Text:=edit1.Text+laquo;araquo;;edit1.Text=laquo;araquo; then begin MessageBox (Handle, PChar ( Помилка! У Вас залишилося дві спроби ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear; .clear ;; edit1.Text= aa then begin MessageBox (Handle, PChar ( Помилка! У Вас залишилося одна спроба ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear; .clear ;; edit1.Text= aaa then begin MessageBox (Handle, PChar ( Ви помилилися 3 рази! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. hide; .close ;; end; (form8.MaskEdit1.Text=datamodule2.adotable1login.Text) and (form8.MaskEdit2.Text=datamodule2.adotable1parol.Text) then.show;.adotable1.Filtered:=true;.adotable1.Filter:=laquo;login=raquo;+quotedstr(MaskEdit1.Text);.Label2.Caption:=datamodule2.ADOTable1fam.Text;.Label3.Caption:=datamodule2.ADOTable1name.Text;.Label4.Caption:=datamodule2.ADOTable1group.Text;.Hide;.MaskEdit1.Clear;.MaskEdit2.Clear;; end; end; TForm8.Image1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image1.Left + 1; Image1.Top:=Image1.Top + 1 ;; TForm8.Image1MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image1.Left - 1; Image1.Top:=Image1.Top - 1 ;; TForm8.Image2MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image2.Left + 1; Image2.Top:=Image2.Top + 1 ;; TForm8.Image2MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image2.Left - 1; Image2.Top:=Image2.Top - 1 ;;.
Unit9 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, jpeg, ExtCtrls, StdCtrls;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel; N5Click (Sender: TObject); N3Click (Sender: TObject); N8Click (Sender: TObject); N9Click (Sender: TObject); N2Click (Sender: TObject) ;;: TForm9; Unit1, Unit4, Unit12, DM, Unit15, Unit17, Unit18; TForm9.N5Click (Sender: TObject) ;. show; .Close ;; TForm9.N3Click (Sender: TObject); (datamodule2.ADOTable3.Locate ( fam , form9.Label2.Caption, [])) and (datamodule2.ADOTable3.Locate ( name , form9.Label3.Caption, []) ) then (Handle, PChar ( Вибачте, але Ви вже проходили цей тест! ), PChar ( Увага ), MB_I...
