实验4报告册Word文件下载.docx

实验4报告册Word文件下载.docx

《实验4报告册Word文件下载.docx》由会员分享，可在线阅读，更多相关《实验4报告册Word文件下载.docx（7页珍藏版）》请在冰豆网上搜索。

在窗体中单击鼠标右键，将出现一个弹出式的菜单，可以点当天的优惠菜。

在窗体下方的状态栏，显示出对应菜名的说明及当前点过菜打印输出：

通过“重新点菜”按钮，可以将Memo组件中的内容清空，同时将状态栏中的总价格清为零。

鼠标放在上方的BUTTON上，状态栏的左边将显示相应的菜名和菜价信息，点击BUTTON弹出对话框。

确定后相应的菜名就出现在MEMO中，且状态栏的右方显示了所消费的价格。

unitUnit1;

interface

uses

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

Dialogs,Menus,StdCtrls,ComCtrls,ToolWin,ImgList;

type

TForm1=class（TForm）

MainMenu1:

TMainMenu;

N1:

TMenuItem;

N2:

N3:

N6:

N7:

N4:

N5:

Label1:

TLabel;

Button1:

TButton;

Button2:

Label2:

Memo1:

TMemo;

PopupMenu1:

TPopupMenu;

E1:

ImageList1:

TImageList;

ToolBar1:

TToolBar;

ToolButton1:

TToolButton;

ToolButton2:

ToolButton3:

ToolButton4:

ToolButton5:

StatusBar1:

TStatusBar;

procedureN6Click（Sender:

TObject）;

procedureN4Click（Sender:

procedureN5Click（Sender:

procedureN7Click（Sender:

procedureToolButton1MouseMove（Sender:

TObject;

Shift:

TShiftState;

X,

Y:

Integer）;

procedureToolButton2MouseMove（Sender:

procedureToolButton4MouseMove（Sender:

procedureToolButton5MouseMove（Sender:

procedureFormMouseMove（Sender:

procedureButton2Click（Sender:

procedureButton1Click（Sender:

private

{Privatedeclarations}

Price:

Integer;

//总价格

public

{Publicdeclarations}

end;

var

Form1:

TForm1;

implementation

{$R*.dfm}

procedureTForm1.N6Click（Sender:

begin

ifmessagedlg（'

麻辣鸡丝是宫廷名菜，麻辣爽口，鲜香诱人。

确定吗?

'

mtConfirmation,[mbYes,mbNo],0）=mrYesthen

memo1.Lines.Add（'

麻辣鸡丝'

）;

=Price+80;

StatusBar1.Panels[1].Text:

='

总价格:

+IntToStr（Price）+'

元'

;

end;

procedureTForm1.N4Click（Sender:

ifMessageDlg（'

大盘的青椒土豆丝货真价实，包您满意。

memo1.Lines.add（'

大盘的青椒土豆丝'

=Price+20;

StatusBar1.Panels[1].Text:

='

procedureTForm1.N5Click（Sender:

小盘的青椒土豆丝经济实惠,您一定会吃了一盘想两盘,吃了两盘想四盘.确定吗?

mtConfirmation,[mbYes,mbNo],0）=mrYesthen

Memo1.Lines.Add（'

小盘的青椒土豆丝'

=Price+10;

procedureTForm1.N7Click（Sender:

群英荟萃是著名的宫廷名菜，爽口爽心。

群英荟萃'

=Price+70;

procedureTForm1.ToolButton1MouseMove（Sender:

X,Y:

StatusBar1.Panels[0].Text:

大盘的青椒土豆丝仅要20元'

procedureTForm1.ToolButton2MouseMove（Sender:

小盘的青椒土豆丝仅要10元'

procedureTForm1.ToolButton4MouseMove（Sender:

麻辣鸡丝可是宫廷名菜，要您老80元，一点儿都不贵'

procedureTForm1.ToolButton5MouseMove（Sender:

70元一盘香脆可口的群英荟萃（其实就是一盘大萝卜）'

procedureTForm1.FormMouseMove（Sender:

StatusBar1.Panels[0].Text:

欢迎光临!

procedureTForm1.Button2Click（Sender:

memo1.Text:

0元'

procedureTForm1.Button1Click（Sender:

close;

end.