DELPHI程序设计报告.docVIP

长春工业大学 DELPHI程序设计报告 题 目： 计算器 学 院： 工商管理学院 专 业： 电子商务 班 级： xxx 学生姓名： xxx 学 号： 2007**** 指导教师： ***** 2009年 12 月 30 日 摘要 我们这一组由*******个人组成。在分工上，肖珉负责的是设计界面，我和胡明明还有张玉梅负责设置属性以及编写代码。在编写代码的过程中 ，我们参考了一些相关的资料，再结合我们自己的看法，最终完成了我们这组的作品---Delphi计算器。我们设计的是一个方便适用的普通计算器，能实现加、减、乘、除等各种操作。点击相应的按钮，就可以进行计算，既传统，又适用。 正文 计算器平面图： 在我们这组设计的计算器中，包括了16个按钮，分别分布在两个Pannel中。其中Pannel1是整个计算器的主体。Pannel2则是镶嵌在pannel1里面的，用于显示输出的数据，分布在pannel1的上部。16个按钮分别是0～9等十个数字，已经+、-、*、/、=等五个符号以及小数点.，它们分布在pannel1的下部。我主要负责的是各个组件的属性的设置。 各个组件的属性如下： 组件名 属性 属性值 属性 属性值 Pannel1 Caption Pannel2 Caption Alignment TaRightJustify BorderStyle bsSingle Color clHighlightText SpeedButton1 Caption 1 Tag 1 GroupIndex 0 SpeedButton2 Caption 2 Tag 2 GroupIndex 0 SpeedButton3 Caption 3 Tag 3 GroupIndex 0 SpeedButton4 Caption 4 Tag 4 GroupIndex 0 SpeedButton5 Caption 5 Tag 5 GroupIndex 0 SpeedButton6 Caption 6 Tag 6 GroupIndex SpeedButton7 Caption 7 Tag 7 GroupIndex 0 SpeedButton8 Caption 8 Tag 8 GroupIndex 0 SpeedButton9 Caption 9 Tag 9 GroupIndex 0 SpeedButton10 Caption 0 Tag 0 GroupIndex 0 SpeedButton11 Caption . Tag 10 GroupIndex 0 SpeedButton12 Caption + Tag 0 GroupIndex 1 SpeedButton13 Caption - Tag 1 GroupIndex 1 SpeedButton14 Caption * Tag 2 GroupIndex 1 SpeedButton15 Caption / Tag 3 GroupIndex 1 SpeedButton16 Caption = Tag 4 GroupIndex 1 计算器代码： unit jsq; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; SpeedButton7: