浙江大学远程教育学院
《数据库应用程序设计》课程作业
姓名：学号：
年级：学习中心：
—————————————————————————————
作业
第一章
1.5 如何保存Delphi的项目？尝试自己动手创建一个项目，并保存。
答：执行All 菜单命令或单击工具栏中的Save All 按钮便可保存，在保存时可以对工程文件和单元文件进行改名，但后缀名不能改。保存文件之后，单击工具中的Run 按钮或按F9 键，系统将开始编译、连接、运行该工程。
1.7 尝试设计如图1－10所示的窗体。（图见教材P15页图1－10）
图1－10
第二章
2.8设计如图2－5所示的界面。单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用，单击“退出系统”按钮时，结束程序的运行。
2.9 设计如图2－6所示的界面。当单击按钮时，可控制文本框中字体的颜色。
图2－5 图2－6
unit test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
showLabel: TLabel;
btn1: TButton; //按钮1
btn2: TButton; //按钮2
ctlBtn: TButton; //开启停用按钮
exitBtn: TButton; //退出按钮
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure exitBtnClick(Sender: TObject);
procedure ctlBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ctlStatus:integer = 0; //控制按钮1 和2 的开启和关闭，0 表示当前为开启，1 表示关闭
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
form1.showLabel.Caption := '您点击了按钮1';
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
form1.showLabel.Caption := '您点击了按钮2';
end;
procedure TForm1.exitBtnClick(Sender: TObject);
begin
form1.Close; end;
procedure TForm1.ctlBtnClick(Sender: TObject);
begin
if ctlStatus = 0 then
begin
form1.btn1.Enabled := false;
form1.btn2.Enabled := false;
ctlStatus := 1;
end
else
begin
form1.btn1.Enabled := true; form1.btn2.Enabled := true; ctlStatus := 0;
end;
end;
end.
2.9:
unit test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
btnRed: TButton;
btnGreen: TButton;
btnBlue: TButton;
procedure btnRedClick(Sender: TObject);
procedure btnGreenClick(Sender: TObject);
procedure btnBlueClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnRedClick(Sender: TObject);
begin
form1.Edit1.Font.Color := clred;
end;
procedure TForm1.btnGreenClick(Sender: TObject);
begin
form1.Edit1.Font.Color := clgreen;
end;
procedure TForm1.btnBlueClick(Sender: TObject);
begin
form1.Edit1.Font.Color := clblue;
end;
end.
第三章
3.8 下列实数中哪些是合法的，哪些是不合法的？不合法的请说明理由。
（A）0.25E+02 （B）.25+2 （C）25E+2
（D）34.5 （E）.123 （F）-3E-4
（A）合法，即为25
（B）不合法，小数点前必须有数字，如表示为0.25+2
（C）合法，即为2500
（D）合法，即为34.5
（E）不合法，同（2）
（F）合法，即为‐0.0003
3.12 数学式子sin30。写成Delphi表达式是下列哪个？
（A）Sin30 （B）Sin(30) （C）SIN（30。）（D）Sin(30*Pi/180)
D，需要把角度转化为弧度
第四章
4.7 利用3个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。
