浙大远程《数据库应用程序设计》离线作业Word格式.docx

浙大远程《数据库应用程序设计》离线作业Word格式.docx

《浙大远程《数据库应用程序设计》离线作业Word格式.docx》由会员分享，可在线阅读，更多相关《浙大远程《数据库应用程序设计》离线作业Word格式.docx（22页珍藏版）》请在冰豆网上搜索。

第二章

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:

//按钮2 

ctlBtn:

//开启停用按钮

exitBtn:

//退出按钮 

procedure 

btn1Click（Sender:

TObject）;

btn2Click（Sender:

exitBtnClick（Sender:

ctlBtnClick（Sender:

private 

{ 

Private 

declarations 

} 

public 

Public 

end;

var 

Form1:

TForm1;

ctlStatus:

integer 

0;

//控制按钮1和2的开启和关闭，0表示当前为开启，1表示关闭 

implementation 

{$R 

*.dfm} 

TForm1.btn1Click（Sender:

begin 

form1.showLabel.Caption 

:

'

您点击了按钮1'

;

TForm1.btn2Click（Sender:

您点击了按钮2'

TForm1.exitBtnClick（Sender:

form1.Close;

TForm1.ctlBtnClick（Sender:

if 

ctlStatus 

0 

then 

form1.btn1.Enabled 

false;

form1.btn2.Enabled 

1;

end 

else 

true;

ctlStatus 

end. 

2.9:

Label1:

Edit1:

TEdit;

btnRed:

btnGreen:

btnBlue:

btnRedClick（Sender:

btnGreenClick（Sender:

btnBlueClick（Sender:

TForm1.btnRedClick（Sender:

form1.Edit1.Font.Color 

clred;

TForm1.btnGreenClick（Sender:

clgreen;

TForm1.btnBlueClick（Sender:

clblue;

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个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。

StdCtrls, 

Spin;

SpinEdit1:

TSpinEdit;

Label1:

Label2:

SpinEdit2:

Label3:

SpinEdit3:

Label4:

SpinEdit1Change（Sender:

SpinEdit2Change（Sender:

SpinEdit3Change（Sender:

CalculateTimeToSencond（timeKind:

String;

time:

integer）;

hour:

minute:

second:

tot:

TForm1.CalculateTimeToSencond（timeKind:

timeKind 

hh'

hour 

time 

mi'

minute 

ss'

second 

time;

tot 

* 

60 

+ 

second;

form1.Label4.Caption 

总共为'

IntToStr（tot） 

秒'

TForm1.SpinEdit1Change（Sender:

Form1.CalculateTimeToSencond（'

StrToInt（Form1.SpinEdit1.Text））;

TForm1.SpinEdit2Change（Sender:

StrToInt（Form1.SpinEdit2.Text））;

TForm1.SpinEdit3Change（Sender:

StrToInt（Form1.SpinEdit3.Text））