Приложение

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, XPMan, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

XPManifest1: TXPManifest;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

procedure Image2Click(Sender: TObject);

procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3Click(Sender: TObject);

procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image4Click(Sender: TObject);

procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses unit2,unit3,unit10,unit11,unit7, Unit8;

{$R *.dfm}

procedure TForm1.Image2Click(Sender: TObject);

begin

form2.Show;

form1.Hide;

form2.WebBrowser1.Width:=form2.Width-280;

end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image2.Left := Image2.Left + 1; Image2.Top := Image2.Top + 1;

end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image2.left := Image2.Left - 1; Image2.Top := Image2.Top - 1;

end;

procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image3.Left := Image3.Left + 1; Image3.Top := Image3.Top + 1;

end;

procedure TForm1.Image3MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image3.left := Image3.Left - 1; Image3.Top := Image3.Top - 1;

end;

procedure TForm1.Image3Click(Sender: TObject);

begin

form3.Show;

form1.Hide;

end;

procedure TForm1.Image4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image4.Left := Image4.Left + 1; Image4.Top := Image4.Top + 1;

end;

procedure TForm1.Image4MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image4.left := Image4.Left - 1; Image4.Top := Image4.Top - 1;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

form10.Show;

end;

procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image5.left := Image5.Left + 1; Image5.Top := Image5.Top + 1;

end;

procedure TForm1.Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image5.left := Image5.Left - 1; Image5.Top := Image5.Top - 1;

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

form11.Show;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

case MessageDlg('Вы уверены, что хотите выйти?', mtinformation, [mbYes,mbNo], 0) of

mrYes: Application.Terminate;

mrNo: Application.Run;

end;

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

form8.Show;

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, OleCtrls, SHDocVw, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

WebBrowser1: TWebBrowser;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image10: TImage;

Image1: TImage;

Image7: TImage;

Image8: TImage;

procedure FormCreate(Sender: TObject);

procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image10MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image10MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Image7MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image7MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image8Click(Sender: TObject);

procedure Image8MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image8MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

a,b:string;

implementation

uses unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

a:=extractfilepath(paramstr(0));

b:=a+'index.htm';

WebBrowser1.Navigate(b);

end;

procedure TForm2.Image2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image2.Left := Image2.Left + 1; Image2.Top := Image2.Top + 1;

end;

procedure TForm2.Image2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image2.left := Image2.Left - 1; Image2.Top := Image2.Top - 1;

end;

procedure TForm2.Image3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image3.Left := Image3.Left + 1; Image3.Top := Image3.Top + 1;

end;

procedure TForm2.Image3MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image3.left := Image3.Left - 1; Image3.Top := Image3.Top - 1;

end;

procedure TForm2.Image4MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image4.left := Image4.Left - 1; Image4.Top := Image4.Top - 1;

end;

procedure TForm2.Image4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image4.left := Image4.Left + 1; Image4.Top := Image4.Top + 1;

end;

procedure TForm2.Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image5.left := Image5.Left + 1; Image5.Top := Image5.Top + 1;

end;

procedure TForm2.Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image5.left := Image5.Left - 1; Image5.Top := Image5.Top - 1;

end;

procedure TForm2.Image6MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image6.left := Image6.Left + 1; Image6.Top := Image6.Top + 1;

end;

procedure TForm2.Image6MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image6.left := Image6.Left - 1; Image6.Top := Image6.Top - 1;

end;

procedure TForm2.Image10MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image10.left := Image10.Left + 1; Image10.Top := Image10.Top + 1;

end;

procedure TForm2.Image10MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image10.left := Image10.Left - 1; Image10.Top := Image10.Top - 1;

end;

procedure TForm2.Image2Click(Sender: TObject);

begin

a:=extractfilepath(paramstr(0));

b:=a+'index.htm';

WebBrowser1.Navigate(b);

end;

procedure TForm2.Image3Click(Sender: TObject);

begin

a:=extractfilepath(paramstr(0));

b:=a+'ind.htm';

WebBrowser1.Navigate(b);

end;

procedure TForm2.Image4Click(Sender: TObject);

begin

a:=extractfilepath(paramstr(0));

b:=a+'ind_2.htm';

WebBrowser1.Navigate(b);

end;

procedure TForm2.Image5Click(Sender: TObject);

begin

a:=extractfilepath(paramstr(0));

b:=a+'termin.htm';

WebBrowser1.Navigate(b);

end;

procedure TForm2.Image6Click(Sender: TObject);

begin

a:=extractfilepath(paramstr(0));

b:=a+'opredelenie.htm';

WebBrowser1.Navigate(b);

end;

procedure TForm2.Image7Click(Sender: TObject);

begin

a:=extractfilepath(paramstr(0));

b:=a+'ind_2.htm';

WebBrowser1.Navigate(b);

end;

procedure TForm2.Image10Click(Sender: TObject);

begin

form2.Close;

form1.Show;

end;

procedure TForm2.Image7MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image7.left := Image7.Left + 1; Image7.Top := Image7.Top + 1;

end;

procedure TForm2.Image7MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image7.left := Image7.Left - 1; Image7.Top := Image7.Top - 1;

end;

procedure TForm2.Image8Click(Sender: TObject);

begin

a:=extractfilepath(paramstr(0));

b:=a+'opredelenie_1.htm';

WebBrowser1.Navigate(b);

end;

procedure TForm2.Image8MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image8.left := Image8.Left + 1; Image8.Top := Image8.Top + 1;

end;

procedure TForm2.Image8MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image8.left := Image8.Left - 1; Image8.Top := Image8.Top - 1;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, ComCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

RichEdit1: TRichEdit;

Label5: TLabel;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image6Click(Sender: TObject);

procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormCreate(Sender: TObject);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

a,b:string;

implementation

uses unit1,unit4,unit5,unit6,unit7;

{$R *.dfm}

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of 'А'..'Я','а'..'я',#8:;

else key:=chr(0);

end;

end;

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

case key of 'А'..'Я','а'..'я','0'..'9','-',#8:;

else key:=chr(0);

end;

end;

procedure TForm3.Image2Click(Sender: TObject);

begin

a:=edit1.Text;

b:=edit2.Text;

if (length(a)=0) then ShowMessage('Вы не ввели фамилию.')

else

if (length(b)=0) then ShowMessage('Вы не ввели группу.')

else

begin

form4.Show;

form3.Hide;

end;

end;

procedure TForm3.Image3Click(Sender: TObject);

begin

a:=edit1.Text;

b:=edit2.Text;

if (length(a)=0) then ShowMessage('Вы не ввели фамилию.')

else

if (length(b)=0) then ShowMessage('Вы не ввели группу.')

else

begin;

form5.Show;

form3.Hide;

end;

end;

procedure TForm3.Image4Click(Sender: TObject);

begin

a:=edit1.Text;

b:=edit2.Text;

if (length(a)=0) then ShowMessage('Вы не ввели фамилию.')

else

if (length(b)=0) then ShowMessage('Вы не ввели группу.')

else

begin;

form6.Show;

form6.Edit1.Clear;

form6.Edit2.Clear;

form6.Edit3.Clear;

form6.Edit4.Clear;

form6.Edit5.Clear;

form3.Hide;

end;

end;

procedure TForm3.Image5Click(Sender: TObject);

begin

form1.Show;

form3.Close;

end;

procedure TForm3.Image2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image2.Left := Image2.Left + 1; Image2.Top := Image2.Top + 1;

end;

procedure TForm3.Image2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image2.left := Image2.Left - 1; Image2.Top := Image2.Top - 1;

end;

procedure TForm3.Image3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image3.Left := Image3.Left + 1; Image3.Top := Image3.Top + 1;

end;

procedure TForm3.Image3MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image3.left := Image3.Left - 1; Image3.Top := Image3.Top - 1;

end;

procedure TForm3.Image4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image4.Left := Image4.Left + 1; Image4.Top := Image4.Top + 1;

end;

procedure TForm3.Image4MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image4.Left := Image4.Left - 1; Image4.Top := Image4.Top - 1;

end;

procedure TForm3.Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image5.Left := Image5.Left + 1; Image5.Top := Image5.Top + 1;

end;

procedure TForm3.Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image5.Left := Image5.Left - 1; Image5.Top := Image5.Top - 1;

end;

procedure TForm3.Image6Click(Sender: TObject);

begin

form7.Show;

form3.Close;

end;

procedure TForm3.Image6MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image6.Left := Image6.Left + 1; Image6.Top := Image6.Top + 1;

end;

procedure TForm3.Image6MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image6.Left := Image6.Left - 1; Image6.Top := Image6.Top - 1;

end;

procedure TForm3.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

richedit1.Text:=' В данном тесте необходимо выбрать 1 правильный ответ в вопросе. Тест содержит 22 вопроса по окончанию которых будет показан результат прохождения теста. Даный тест не ограничен временем.' ;

richedit1.Show;

end;

procedure TForm3.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

richedit1.Text:=' В данном тесте необходимо выбрать правдиволи утверждение или оно ложно. Если утвеждение правдиво то выбирается "+" в противном случае "-".Тест содержит 10 вопросов. Даный тест не ограничен временем.' ;

richedit1.Show;

end;

procedure TForm3.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

richedit1.Text:=' В данном тесте необходимо сопоставить первый столбец со вторым. Время прохождения теста не ограниченно.';

richedit1.Show;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

richedit1.Text:='';

richedit1.hide;

end;

procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

richedit1.Text:='';

richedit1.hide;

end;

end.

65