台州电大陈元的数据库应用程序设计离线作业.pdf

浙江大学远程教育学院 《数据库应用程序设计》课程作业 姓名： 陈 元 学 号： 713124014001 年级： 2013年秋 学习中心： 台州电大 ————————————————————————————— 作业 第一章 1.5 如何保存 Delphi 的项目？尝试自己动手创建一个项目，并保存。 答：执行 File|Save All 菜单命令或单击工具栏中的 Save All 按钮便可保存，在保存时可以对工 程文件和单元文件进行改名，但后缀名不能改。保存文件之后，单击工具中的 Run 按钮或按 F9 键，系统将开始编译、连接、运行该工程。 1.7 尝试设计如图 1－10 所示的窗体。（图见教材 P15 页图 1－10） 图 1－10 答：设计界面： 1 / 18 运行界面： 第二章 2.8 设计如图 2－5 所示的界面。单击“按钮 1”或“按钮 2 ”时在标签上显示用户所执行的操作。 单击“开启 / 停用按钮”可控制“按钮 1”和“按钮 2 ”是否可用，单击“退出系统”按钮时，结 束程序的运行。 答：设计界面： 运行界面： 2 / 18 代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type 3 / 18 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);