Дипломная работа: Разработка программного продукта "Отдел кадров ВПТ"

Application. Run;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan, Buttons, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Label1: TLabel;

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm1. Image1Click(Sender: TObject);

begin

Form2: =TForm2. Create(Self);

try

Form2. ShowModal;

finally

Form2. Free;

end;