raquo ;; edit1.Text= a raquo ; then begin MessageBox (Handle, PChar ( Пароль введен не верно! У Вас залишилося дві спроби ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear ;; edit1.Text= aa then begin MessageBox (Handle, PChar ( Пароль введен не верно! У Вас залишилося одна спроба ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear ;; edit1.Text= aaa then begin MessageBox (Handle, PChar ( Пароль 3 рази був введений не вірно! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. hide; .show ;; end; (form5.MaskEdit1.Text=datamodule2.ADOTable2key2.text) then.show; .Hide; .MaskEdit1.Clear ;; end; end; TForm5.Image1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image1.Left + 1; Image1.Top:=Image1.Top + 1 ;; TForm5.Image1MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image1.Left - 1; Image1.Top:=Image1.Top - 1 ;; TForm5.Image2MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image2.Left + 1; Image2.Top:=Image2.Top + 1 ;; TForm5.Image2MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image2.Left - 1; Image2.Top:=Image2.Top - 1 ;;.
Unit6 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, jpeg, ExtCtrls, StdCtrls;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TImage ;: TLabel; N2Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject); N9Click (Sender: TObject); N10Click (Sender: TObject); N4Click (Sender: TObject); N3Click (Sender: TObject) ;;: TForm6; Unit4, Unit10, Unit13, Unit15, DM, Unit16, Unit1, Unit9, Unit18; TForm6.N2Click (Sender: TObject ) ;. show; .Close ;; TForm6.N5Click (Sender: TObject) ;. show; .Close ;; TForm6.N6Click (Sender: TObject) ;. show ;; TForm6.N9Click (Sender: TObject) ;. show; ; TForm6.N10Click (Sender: TObject);.Show;.adotable4.Filtered:=true;.adotable4.Filter:=laquo;komy=raquo;+quotedstr(laquo;Преподавательraquo;);;TForm6.N4Click(Sender: TObject);.Label2.Caption:=laquo;Преподавательraquo;;.Label3.Caption:=laquo;преподавательraquo;;.Label4.Caption:=laquo;000raquo;;.show;.RadioButton2.Enabled:=true;;TForm6.N3Click(Sender: TObject);
{WinExec(laquo;C:Windowsnotepad.exeraquo;,SW_NORMAL);/}.show;.N4.Enabled:=true;.N5.Enabled:=true;.N7.Enabled:=true;;.Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, jpeg, ExtCtrls, Mask, StdCtrls;=class (TForm): TGroupBox ;: TLabel ;: TLabel ;: TEdit ;: TMaskEdit ;: TMaskEdit ;: TImage ;: TImage; Image1Click (Sender: TObject); Image2Click (Sender: TObject); Image2MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); Image2MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X , Y: Integer); Image1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); Image1MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;;: TForm7; DM, Unit4, Unit6, Unit5, Unit9; TForm7.Image1Click (Sender: TObject) ;: integer; form7.MaskEdit1.Text= then begin (Handle, PChar ( Введіть пароль! ), PChar ( Увага ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end else (form7.MaskEdit1.Text= ) or (form7.MaskEdit1.Text lt; gt; datamodule2.ADOTable2key2.text) then.Text:=edit1.Text + a raquo ;; edit1.Text= a then begin MessageBox (Handle, PChar ( Пароль введен не верно! У Вас залишилося дві спроби ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear; .clear ;; edit1.Text= aa raquo ; then begin MessageBox (Handle, PChar ( Пароль введен не верно! У Вас залишилося одна спроба ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. clear; .clear; end; edit1.Text= aaa then begin MessageBox (Handle, PChar ( Пароль 3 рази був введений не вірно! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. hide; .show ;; end; (form7.MaskEdit1.Text=datamodule2.ADOTable2key2.text) then.ADOTable2.Edit;.ADOTable2key2.text:=form7.MaskEdit2.Text;.ADOTable2.Post;.MessageBox(laquo;Пароль був збережений успішно! , Готово , MB_OK or MB_ICONINFORMATION) ;. show; .Hide ;;. MaskEdit1.Clear; .MaskEdit1.Clear ;; TForm7.Image2Click (Sender: TObject) ;. show; .Close; ; TForm7.Image2MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image2.Left + 1; Image2.Top:=Image2.Top + 1 ;; TForm7.Image2MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image2.Left - 1; Image2.Top:=Image2.Top - 1 ;; TForm7.Image1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left:=Image1.Left + 1; Image1.Top:=Image1.Top + 1 ;; TForm7.Image1MouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;. Left: = Image1.Left - 1; Image1.Top:=Image1.Top - 1 ;;. Unit8 ;, Messages, SysUtils, Variants, Classe...
