东北大学,数据库开发技术,数据库实验1计算器.doc

数据库开发技术报告 题目：数据库开发技术 实验报告 学院：工商管理学院 班级：信息1001 姓名：彭振宇 学号时间：2012/6/25实验一：简单计算器 一．实验题目：简单计算器 二．实验内容：使用Delphi 7 设计一个简单计算器 三．实验目的：掌握Delphi 7 软件的使用方法进行界面设计和编写代码，完成实验题目中的内容。 四．实验要求：设计一个简单的计算器，能在显示框内显示基本运算的结果，要求的按钮包含数字键0-9、小数点键、加减乘除键、等于键、C键、CE键、正负键、退格键等。 五．界面设计： 主窗体设计： 运行时： 六．详细程序清单及注释说明： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) scr: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; Button16: TButton; Button17: TButton; Button18: TButton; Button19: TButton; Button20: TButton; procedure Button1Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button17Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button18Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button20Click(Sender: TObject); procedure Button19Click(Sender: TObject); private { Private declarations } //全局变量的定义 pnt,er,fb:boolean; fstnm:Extended; fbcaption:string; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //0-9数字 procedure TForm1.Button1Click(Sender: TObject); var temp:string; begin if er then exit; if pnt then scr.Caption:=scr.Caption+(sender as Tbutton).Caption else if (scr.Caption=0.) or fb then begin scr.Caption:=(sender as Tbutton).caption+.; fb:=false; end else begin temp:=scr.Caption; insert((sender as Tbutton).Caption,temp,length(temp)); scr.Caption:=temp; en