浙大远程《数据库应用程序设计》离线作业.docx
《浙大远程《数据库应用程序设计》离线作业.docx》由会员分享，可在线阅读，更多相关《浙大远程《数据库应用程序设计》离线作业.docx（22页珍藏版）》请在冰豆网上搜索。
浙江大学远程教育学院
《数据库应用程序设计》课程作业
姓名：
学号：
年级：
学习中心：
—————————————————————————————
作业
第一章
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”是否可用，单击“退出系统”按钮时，结束程序的运行。
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个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。
unit test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;
type
TForm1 = class（TForm）
SpinEdit1:
TSpinEdit;
Label1:
TLabel;
Label2:
TLabel;
SpinEdit2:
TSpinEdit;
Label3:
TLabel;
SpinEdit3:
TSpinEdit;
Label4:
TLabel;
procedure SpinEdit1Change（Sender:
TObject）;
procedure SpinEdit2Change（Sender:
TObject）;
procedure SpinEdit3Change（Sender:
TObject）;
private
{ Private declarations }
procedure CalculateTimeToSencond（timeKind:
String; time:
integer）;
public
{ Public declarations }
end;
var
Form1:
TForm1;
hour:
integer = 0;
minute:
integer = 0;
second:
integer = 0;
tot:
integer = 0;
implementation
{$R *.dfm}
procedure TForm1.CalculateTimeToSencond（timeKind:
String; time:
integer）;
begin
if timeKind = 'hh' then
hour :
= time
else if timeKind = 'mi' then
minute :
= time
else if timeKind = 'ss' then
second :
= time;
tot :
= hour * 60 * 60 + minute * 60 + second;
form1.Label4.Caption :
= '总共为' + IntToStr（tot） + '秒';
end;
procedure TForm1.SpinEdit1Change（Sender:
TObject）;
begin
Form1.CalculateTimeToSencond（'hh', StrToInt（Form1.SpinEdit1.Text））;
end;
procedure TForm1.SpinEdit2Change（Sender:
TObject）;
begin
Form1.CalculateTimeToSencond（'mi', StrToInt（Form1.SpinEdit2.Text））;
end;
procedure TForm1.SpinEdit3Change（Sender:
TObject）;
begin
Form1.CalculateTimeToSencond（'ss', StrToInt（Form1.SpinEdit3.Text））
升级会员 