Проектирование уроков по теме "Площади плоских фигур"

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

procedure EfamChange(Sender: TObject);

procedure EnameChange(Sender: TObject);

procedure EklChange(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

sfam,sname,skl:string;

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);

begin

if (Ename.Text<>'') and (Efam.Text<>'') and (Ekl.Text<>'') then

begin

sname:=ename.Text;

sfam:=Efam.Text;

skl:=Ekl.Text;

Form1.Label1.Caption:=sfam+' ';

Form1.Label2.Caption:=sname;

Unit1.sfam1:=sfam;

Unit1.sname1:=sname;

AssignFile(unit1.f2,sfam+' '+sname+'.txt');

Rewrite(Unit1.f2);

Form1.ProgressBar1.Position:=0;

Form1.Timer1.Enabled:=True;

Form1.Show;

end;

close;

end;

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

begin

Action:=caFree;

end;

procedure TForm2.EfamChange(Sender: TObject);

begin

if (Ename.Text<>'') and (Ekl.Text<>'') then

Button1.Enabled:=True;

end;

procedure TForm2.EnameChange(Sender: TObject);

begin

if (Efam.Text<>'') and (Ekl.Text<>'') then

Button1.Enabled:=True;

end;

procedure TForm2.EklChange(Sender: TObject);

begin

if (Ename.Text<>'') and (Efam.Text<>'') then

Button1.Enabled:=True;

end;

end.

unit Unit3;

interface

uses

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

StdCtrls, jpeg, ExtCtrls;

type

TFP = class(TForm)

Label2: TLabel;

Button1: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FP: TFP;

implementation

{$R *.DFM}

procedure TFP.Button1Click(Sender: TObject);

begin

Close

end;

end.

unit UPsw;

interface

uses

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

StdCtrls, Buttons, U_Bd;

type

TFPsw = class(TForm)

Label1: TLabel;

EPsw: TEdit;

BitBtn1: TBitBtn;

procedure EPswKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FPsw: TFPsw;

implementation

{$R *.DFM}

procedure TFPsw.EPswKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (key=VK_RETURN) then

begin

if EPsw.Text<>'111' then

ShowMessage('пароль неверен')

else

begin

FPsw.Close; F_Bd.Show

end;

end;

end;

procedure TFPsw.BitBtn1Click(Sender: TObject);

begin

if EPsw.Text<>'555' then

ShowMessage('пароль верен')

else

begin

FPsw.Close; F_Bd.Show

end;

end;

end.

unit U_main;

interface

uses

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

jpeg, ExtCtrls, Menus, OleCtrls, SHDocVw,Unit1, U_bd,Unit3;

type

TFMain = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N10: TMenuItem;

Web: TWebBrowser;

Image1: TImage;

N11: TMenuItem;

procedure N11Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FMain: TFMain;

implementation

{$R *.DFM}

procedure TFMain.N11Click(Sender: TObject);

begin

close

end;

procedure TFMain.N6Click(Sender: TObject);

begin

Form1.Show;

FMain.Hide;

end;

procedure TFMain.N8Click(Sender: TObject);

begin

F_Bd.Show;

FMain.Hide;

end;

procedure TFMain.N10Click(Sender: TObject);

begin

FP.Show;

end;

procedure TFMain.N5Click(Sender: TObject);

begin

web.Align:=alNone;

web.Height:=1;

web.Width:=1;

end;

end.

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