Текст программы, выполненной в Borland Pascal

{X+}

Uses objects,app, menus, drivers, Views, msgbox;

type

MyApp = object (TApplication)

procedure InitMenuBar;

virtual;

Procedure HandleEvent(var Event: TEvent);

Virtual;

end;

const

cm1 = 120;

cm2 = 130;

cm3 = 140;

cm4 = 150;

cm5 = 160;

cm6 = 170;

cm7 = 180;

cm8 = 190;

cm9 = 200;

cm10= 210;

cm11= 220;

cm12= 230;

Procedure MyApp.InitMenuBar;

var

R:Trect;

Begin

GetExtent (R);

R.B.Y:= succ(R.A.Y);

MenuBar:=New (PmenuBar, Init(R,

NewMenu(NewSubMenu('EXIST',hcNoContext,

NewMenu(

NewItem('О нашей фирме','ALT+G',kbAltg,cm4,0,NIL)),

NewSubMenu('Продукция',hcNoContext,

NewMenu(

NewItem('Наша продукция','F5',kbF5,cm8,0,NIL)),

NewSubMenu('Оформление заказа',hcNoContext,

NewMenu(

NewItem('Информация о покупателе','F6',kbF6,cm9,0,

NewItem('Информация о товаре','F7',kbF7,cm10,0,NIL))),

NewSubMenu('справка',hcNoContext,

NewMenu(

NewItem('о разработчике','F1',kbF1,cm11,0,

NewItem('о программе','F2',kbF2,cm9,0,

NIL))),

NewSubMenu('Выход',hcNoContext,

NewMenu(

NewItem('выход','ESC',kbEsc,cmQuit,0,NIL)),NIL))))))));

end;

Procedure MyApp.HandleEvent;

const

Flag: Boolean = True;

cms = [cm1,cm2,cm3,cm4,cm5,cm6,cm7,cm8,cm9,cm10,cm11,cmQuit];

Begin

Inherited HandleEvent (Event);

case Event.Command of

cm1: MessageBox(#3'1', NIL,0);

cm2: MessageBox(#3'2', NIL,0);

cm3: MessageBox(#3'3', NIL,0);

cm4: MessageBox(#3'4', NIL,0);

cm5: MessageBox(#3'5', NIL,0);

cm6: MessageBox(#3'6', NIL,0);

cm7: MessageBox(#3'7', NIL,0);

cm8: MessageBox(#3'8', NIL,0);

cm9: MessageBox(#3'9', NIL,0);

cm10: MessageBox(#3'10', NIL,0);

cm11: MessageBox(#3'Программа для просмотра услуг и заказов.', NIL,0);

cm12:

Begin

MessageBox(#3'А.В.', NIL,0);

if Flag then

DisableCommands (cms)

else

EnableCommands (cms);

Flag:= not Flag

end

end

end;

var

P: MyApp;

begin

p.init;

p.run;

p.done

end.

Приложение Д

Текст программы, выполненной в Delphi

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls, Menus, ShellAPI, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Image1: TImage;

N7: TMenuItem;

N8: TMenuItem;

EXIST1: TMenuItem;

N5: TMenuItem;

Timer1: TTimer;

StatusBar1: TStatusBar;

Label1: TLabel;

Label2: TLabel;

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit7;

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

ShellExecute (Handle, nil, 'F:\1.xls', nil, nil, SW_RESTORE);

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form4.show;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:=' Дата: '+DateToStr(Date);

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if MessageDlg('Закрыть программу?', mtWarning,

[mbOk, mbCancel], 0) = mrCancel then

CanClose:= False;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form7.show;

end;

end.

Дата добавления: 2015-10-30