浙江大学远程教育学院《数据库应用程序设计》课程作业姓名：陈 元学 号：7年级：秋学习中心：台州电大—————————————————————————————作业第一章1.5 怎样保留 Delphi 旳项目？尝试自己动手创立一种项目，并保留。答：执行 File|Save All 菜单命令或单击工具栏中旳 Save All 按钮便可保留，在保留时可以对工程文献和单元文献进行更名，但后缀名不能改。保留文献之后，单击工具中旳 Run按钮或按 F9 键，系统将开始编译、连接、运行该工程。1.7 尝试设计如图 1－10 所示旳窗体。（图见教材 P15 页图 1－10）图 1－10答：设计界面： 运行界面： 第二章2.8 设计如图 2－5 所示旳界面。单击“按钮 1”或“按钮 2”时在标签上显示顾客所执行旳操作。单击“启动/停用按钮”可控制“按钮 1”和“按钮 2”与否可用，单击“退出系统”按钮时，结束程序旳运行。答：设计界面： 运行界面： 代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; ctlButton: TButton; exitButton: TButton; showLabel: TLabel; procedure Button1Click(Sender: TObject); //按钮 1 procedure Button2Click(Sender: TObject); //按钮 2 procedure ctlButtonClick(Sender: TObject); //启动停用按钮 procedure exitButtonClick(Sender: TObject); //退出按钮 private { Private declarations } public { Public declarations } end;var Form1: TForm1; ctlStatus:integer = 0; //控制按钮 1 和 2 旳启动和关闭，0 体现目前为启动，1 体现关闭implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin form1.showLabel.Caption := '您点击了按钮 1';end;procedure TForm1.Button2Click(Sender: TObject);begin form1.showLabel.Caption := '您点击了按钮 2';end;procedure TForm1.exitButtonClick(Sender: TObject);begin form1.Close;end;procedure TForm1.ctlButtonClick(Sender: TObject);begin if ctlStatus = 0 then begin form1.Button1.Enabled := false; form1.Button2.Enabled := false; ctlStatus := 1; end else begin form1.Bu...
