浙江大学远程教育学院 《数据库应用程序设计》课程作业
姓名： 年级：
陈 元 2013年秋
学 号： 学习中心：
713124014001 台州电大
—————————————————————————————
作业 第一章
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;
interface
uses
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.Button1.Enabled := true; form1.Button2.Enabled := true; ctlStatus := 0; end; end; end.
2.9 设计如图2－6所示的界面。当单击按钮时，可控制文本框中字体的颜色。
图2－5 答：设计界面
图2－6
运行界面：
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库台州电大陈元的数据库应用程序设计离线作业在线全文阅读。
相关推荐：