Технология разработки программного продукта

end;

procedure TForm5.sbtbtn9Click(Sender: TObject);

begin

mp1.Stop;

mp1.Position:=0;

end;

procedure TForm5.N4Click(Sender: TObject);

begin

Form5.Hide;

test.Show;

mp1.Close;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, sButton, sLabel, jpeg, ExtCtrls;

type

TSpravka = class(TForm)

img1: TImage;

lbl1: TsLabel;

btn1: TsButton;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Spravka: TSpravka;

implementation

uses

Unit2;

{$R *.dfm}

procedure TSpravka.btn1Click(Sender: TObject);

begin

Spravka.hide;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, sLabel, acPNG, ExtCtrls, Buttons, sBitBtn, jpeg;

type

TProg = class(TForm)

img1: TImage;

lbl1: TsLabel;

lbl2: TsLabel;

lbl3: TsLabel;

lbl4: TsLabel;

lbl5: TsLabel;

lbl6: TsLabel;

sbtbtn1: TsBitBtn;

procedure FormCreate(Sender: TObject);

procedure sbtbtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Prog: TProg;

implementation

uses

Unit2;

{$R *.dfm}

procedure TProg.FormCreate(Sender: TObject);

begin

img1.BringToFront;

end;

procedure TProg.sbtbtn1Click(Sender: TObject);

begin

Prog.Hide;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, sLabel, sSkinProvider, sSkinManager, sButton,

sGroupBox, sCheckBox, ExtCtrls, sPanel, Buttons, sSpeedButton, sBitBtn,

Menus;

type

Ttest = class(TForm)

sknmngr1: TsSkinManager;

sknprvdr1: TsSkinProvider;

lbl1: TsLabel;

btn1: TsButton;

grp1: TsGroupBox;

chk1: TsCheckBox;

chk2: TsCheckBox;

chk3: TsCheckBox;

chk4: TsCheckBox;

grp2: TsGroupBox;

btn2: TsButton;

chk5: TsCheckBox;

chk6: TsCheckBox;

chk7: TsCheckBox;

chk8: TsCheckBox;

grp3: TsGroupBox;

btn3: TsButton;

spnl1: TsPanel;

chk9: TsCheckBox;

chk10: TsCheckBox;

chk11: TsCheckBox;

chk12: TsCheckBox;

grp4: TsGroupBox;

btn4: TsButton;

chk13: TsCheckBox;

chk14: TsCheckBox;

chk15: TsCheckBox;

chk16: TsCheckBox;

grp5: TsGroupBox;

btn5: TsButton;

chk17: TsCheckBox;

chk18: TsCheckBox;

chk19: TsCheckBox;

chk20: TsCheckBox;

lbl2: TsLabel;

btn6: TsButton;

sbtbtn1: TsBitBtn;

mm1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

procedure chk1Click(Sender: TObject);

procedure chk2Click(Sender: TObject);

procedure chk3Click(Sender: TObject);

procedure chk4Click(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure chk5Click(Sender: TObject);

procedure chk6Click(Sender: TObject);

procedure chk7Click(Sender: TObject);

procedure chk8Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure chk9Click(Sender: TObject);

procedure chk10Click(Sender: TObject);

procedure chk11Click(Sender: TObject);

procedure chk12Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure chk13Click(Sender: TObject);

procedure chk14Click(Sender: TObject);

procedure chk15Click(Sender: TObject);

procedure chk16Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

procedure chk17Click(Sender: TObject);

procedure chk18Click(Sender: TObject);

procedure chk19Click(Sender: TObject);

procedure chk20Click(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure btn6Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure sbtbtn1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

test: Ttest;

h,c:Byte; i:Integer;

implementation

uses

Unit3, Unit2, Unit1;

{$R *.dfm}

procedure Ttest.chk1Click(Sender: TObject);

begin

if chk1.Checked then

begin

h:=1;

chk3.Checked:=False;

chk2.Checked:=False;

chk4.Checked:=False;

end;

end;

procedure Ttest.chk2Click(Sender: TObject);

begin

if chk2.Checked then

begin

h:=0;

chk3.Checked:=False;

chk1.Checked:=False;

chk4.Checked:=False;

end;

end;

procedure Ttest.chk3Click(Sender: TObject);

begin

if chk3.Checked then

begin

h:=0;

chk2.Checked:=False;

chk1.Checked:=False;

chk4.Checked:=False;

end;

end;

procedure Ttest.chk4Click(Sender: TObject);

begin

if chk4.Checked then

begin

h:=0;

chk3.Checked:=False;

chk1.Checked:=False;

chk2.Checked:=False;

end;

end;

procedure Ttest.btn1Click(Sender: TObject);

begin

if (chk3.Checked=False)and(chk1.Checked=False)and(chk2.Checked=False)and(chk4.Checked=False) then

spnl1.Visible:=True

else

begin

lbl1.Caption:='За что отвечает поле Host?';

grp1.Visible:=False;

btn1.Visible:=False;

grp2.Visible:=true;

btn2.Visible:=True;

spnl1.Visible:=false;

if h=1 then

c:=1;

end;

end;

procedure Ttest.FormCreate(Sender: TObject);

begin

grp2.Left:=16;

grp2.Top:=48;

btn2.left:=32;

btn2.Top:=208;

grp3.Left:=16;

grp3.Top:=48;

btn3.left:=32;

btn3.Top:=208;

grp4.Left:=16;

grp4.Top:=48;

btn4.left:=32;

btn4.Top:=208;

grp4.Width:=305;

grp4.Height:=145;

grp5.Width:=305;

grp5.Height:=145;

grp1.Width:=305;

grp1.Height:=145;

grp2.Width:=305;

grp2.Height:=145;

grp5.Left:=16;

grp5.Top:=48;

btn5.left:=32;

btn5.Top:=208;

end;

procedure Ttest.chk5Click(Sender: TObject);

begin

h:=0;

chk6.Checked:=False;

chk7.Checked:=False;

chk8.Checked:=False;

end;

procedure Ttest.chk6Click(Sender: TObject);

begin

h:=0;

chk5.Checked:=False;

chk7.Checked:=False;

chk8.Checked:=False;

end;

procedure Ttest.chk7Click(Sender: TObject);

begin

h:=2;

chk6.Checked:=False;

chk5.Checked:=False;

chk8.Checked:=False;

end;

procedure Ttest.chk8Click(Sender: TObject);

begin

h:=0;

chk6.Checked:=False;

chk7.Checked:=False;

chk5.Checked:=False;

end;

procedure Ttest.btn2Click(Sender: TObject);

begin

if (chk5.Checked=False)and(chk6.Checked=False)and(chk7.Checked=False)and(chk8.Checked=False) then

spnl1.Visible:=True

else

begin

lbl1.Caption:='Что указываеться в свойстве Bindings?';

grp2.Visible:=False;

btn2.Visible:=False;

grp3.Visible:=true;

btn3.Visible:=True;

spnl1.Visible:=false;

if h=2 then

c:=c+1;

end;

end;

procedure Ttest.btn3Click(Sender: TObject);

begin

if (chk9.Checked=False)and(chk10.Checked=False)and(chk11.Checked=False)and(chk12.Checked=False) then

spnl1.Visible:=True

else

begin

lbl1.Caption:='Назначение библиотеки xmlerrdisp.js?';

grp3.Visible:=False;

btn3.Visible:=False;

grp4.Visible:=true;

btn4.Visible:=True;

spnl1.Visible:=false;

if h=3 then

c:=c+1;

end;

end;

procedure Ttest.chk9Click(Sender: TObject);

begin

h:=0;

chk10.Checked:=False;

chk11.Checked:=False;

chk12.Checked:=False;

end;

procedure Ttest.chk10Click(Sender: TObject);

begin

h:=0;

chk9.Checked:=False;

chk11.Checked:=False;

chk12.Checked:=False;

end;

procedure Ttest.chk11Click(Sender: TObject);

begin

h:=0;

chk10.Checked:=False;

chk9.Checked:=False;

chk12.Checked:=False;

end;

procedure Ttest.chk12Click(Sender: TObject);

begin

h:=3;

chk10.Checked:=False;

chk11.Checked:=False;

chk9.Checked:=False;

end;

procedure Ttest.btn4Click(Sender: TObject);

begin

if (chk13.Checked=False)and(chk14.Checked=False)and(chk15.Checked=False)and(chk16.Checked=False) then

spnl1.Visible:=True

else

begin

lbl1.Caption:='Назначение Элемента DataGrid?';

grp4.Visible:=False;

btn4.Visible:=False;

grp5.Visible:=true;

btn5.Visible:=True;

spnl1.Visible:=false;

if h=4 then

c:=c+1;

end;

end;

procedure Ttest.chk13Click(Sender: TObject);

begin

h:=0;

chk14.Checked:=False;

chk15.Checked:=False;

chk16.Checked:=False;

end;

procedure Ttest.chk14Click(Sender: TObject);

begin

h:=4;

chk13.Checked:=False;

chk15.Checked:=False;

chk16.Checked:=False;

end;

procedure Ttest.chk15Click(Sender: TObject);

begin

h:=0;

chk14.Checked:=False;

chk13.Checked:=False;

chk16.Checked:=False;

end;

procedure Ttest.chk16Click(Sender: TObject);

begin

h:=0;

chk14.Checked:=False;

chk15.Checked:=False;

chk13.Checked:=False;

end;

procedure Ttest.btn5Click(Sender: TObject);

begin

if (chk13.Checked=False)and(chk14.Checked=False)and(chk15.Checked=False)and(chk16.Checked=False) then

spnl1.Visible:=True

else

begin

grp5.Visible:=False;

btn5.Visible:=False;

spnl1.Visible:=false;

btn6.Visible:=True;

sbtbtn1.Visible:=True;

if h=5 then

c:=c+1;

lbl2.Visible:=true;

lbl2.Caption:='Ваша оценка '+inttostr(c);

end;

end;

procedure Ttest.chk17Click(Sender: TObject);

begin

h:=5;

chk18.Checked:=False;

chk19.Checked:=False;

chk20.Checked:=False;

end;

procedure Ttest.chk18Click(Sender: TObject);

begin

h:=0;

chk17.Checked:=False;

chk19.Checked:=False;

chk20.Checked:=False;

end;

procedure Ttest.chk19Click(Sender: TObject);

begin

h:=0;

chk18.Checked:=False;

chk17.Checked:=False;

chk20.Checked:=False;

end;

procedure Ttest.chk20Click(Sender: TObject);

begin

h:=0;

chk18.Checked:=False;

chk19.Checked:=False;

chk17.Checked:=False;

end;

procedure Ttest.FormHide(Sender: TObject);

begin

lbl1.Caption:='Что из перечисленного относиться к визуальным компонентам?';

grp1.Visible:=True;

btn1.Visible:=true;

grp2.Visible:=False;

btn2.Visible:=False;

grp3.Visible:=False;

btn3.Visible:=False;

grp4.Visible:=False;

btn4.Visible:=False;

grp5.Visible:=False;

btn5.Visible:=False;

btn6.Visible:=False;

sbtbtn1.Visible:=False;

chk1.Checked:=False;

chk2.Checked:=False;

chk3.Checked:=False;

chk4.Checked:=False;

chk5.Checked:=False;

chk6.Checked:=False;

chk7.Checked:=False;

chk8.Checked:=False;

chk9.Checked:=False;

chk10.Checked:=False;

chk11.Checked:=False;

chk12.Checked:=False;

chk13.Checked:=False;

chk14.Checked:=False;

chk15.Checked:=False;

chk16.Checked:=False;

chk17.Checked:=False;

chk18.Checked:=False;

chk19.Checked:=False;

chk20.Checked:=False;

lbl2.Caption:='';

lbl2.Visible:=False;

c:=0;

h:=0;

end;

procedure Ttest.btn6Click(Sender: TObject);

begin

lbl1.Caption:='В следствии чего создаёться обьект типа TwebRequest';

grp1.Visible:=True;

btn1.Visible:=true;

grp2.Visible:=False;

btn2.Visible:=False;

grp3.Visible:=False;

btn3.Visible:=False;

grp4.Visible:=False;

btn4.Visible:=False;

grp5.Visible:=False;

btn5.Visible:=False;

btn6.Visible:=False;

sbtbtn1.Visible:=False;

chk1.Checked:=False;

chk2.Checked:=False;

chk3.Checked:=False;

chk4.Checked:=False;

chk5.Checked:=False;

chk6.Checked:=False;

chk7.Checked:=False;

chk8.Checked:=False;

chk9.Checked:=False;

chk10.Checked:=False;

chk11.Checked:=False;

chk12.Checked:=False;

chk13.Checked:=False;

chk14.Checked:=False;

chk15.Checked:=False;

chk16.Checked:=False;

chk17.Checked:=False;

chk18.Checked:=False;

chk19.Checked:=False;

chk20.Checked:=False;

lbl2.Caption:='';

lbl2.Visible:=False;

c:=0;

h:=0;

end;

procedure Ttest.FormClose(Sender: TObject; var Action: TCloseAction);

begin

zast.Close;

end;

procedure Ttest.sbtbtn1Click(Sender: TObject);

begin

Glav.img1.Picture.LoadFromFile(GetCurrentDir+'\Image\zast.jpg');

test.Hide;

Glav.Show;

end;

procedure Ttest.N3Click(Sender: TObject);

begin

test.Hide;

teor.show;

end;

procedure Ttest.N1Click(Sender: TObject);

begin

Glav.img1.Picture.LoadFromFile(GetCurrentDir+'\Image\zast.jpg');

test.Hide;

Glav.Show;

end;

procedure Ttest.N5Click(Sender: TObject);

begin

if MessageBox(Glav.Handle,

PChar('Вы действительно хотите выйти'),

PChar('Выход'), MB_YESNO or MB_ICONQUESTION)=mrYes

then

test.Close;

end;

end.

Размещено на Allbest.ru