实验4报告册Word文件下载.docx
- 文档编号:19248766
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:7
- 大小:52.14KB
实验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.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)