台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx

台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx

《台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx（69页珍藏版）》请在冰豆网上搜索。

1.7尝试设计如图1－10所示的窗体。

（图见教材P15页图1－10）

图1－10

设计界面：

运行界面：

第二章

2.8设计如图2－5所示的界面。

单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。

单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用，单击“退出系统”按钮时，结束程序的运行。

代码：

unitUnit1;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls;

type

TForm1=class（TForm）

Button1:

TButton;

Button2:

ctlButton:

exitButton:

showLabel:

TLabel;

procedureButton1Click（Sender:

TObject）;

//按钮1

procedureButton2Click（Sender:

//按钮2

procedurectlButtonClick（Sender:

//开启停用按钮

procedureexitButtonClick（Sender:

//退出按钮

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form1:

TForm1;

ctlStatus:

integer=0;

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

implementation

{$R*.dfm}

procedureTForm1.Button1Click（Sender:

begin

form1.showLabel.Caption:

='

您点击了按钮1'

;

end;

procedureTForm1.Button2Click（Sender:

您点击了按钮2'

procedureTForm1.exitButtonClick（Sender:

form1.Close;

procedureTForm1.ctlButtonClick（Sender:

ifctlStatus=0then

begin

form1.Button1.Enabled:

=false;

form1.Button2.Enabled:

ctlStatus:

=1;

end

else

=true;

=0;

end;

end.

2.9设计如图2－6所示的界面。

当单击按钮时，可控制文本框中字体的颜色。

图2－5 图2－6

设计界面

（按钮快捷键的设置方法为在字母前加&

，如&

R，&

G，&

B）

unittest;

Label1:

Edit1:

TEdit;

btnRed:

btnGreen:

btnBlue:

procedurebtnRedClick（Sender:

procedurebtnGreenClick（Sender:

procedurebtnBlueClick（Sender:

procedureTForm1.btnRedClick（Sender:

form1.Edit1.Font.Color:

=clred;

procedureTForm1.btnGreenClick（Sender:

=clgreen;

procedureTForm1.btnBlueClick（Sender:

form1.Edit1.Font.Color:

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

Dialogs,StdCtrls,Spin;

Label2:

Label3:

SpinEdit1:

TSpinEdit;

SpinEdit2:

SpinEdit3:

Label4:

procedureSpinEdit1Change（Sender:

procedureSpinEdit2Change（Sender:

procedureSpinEdit3Change（Sender:

procedureCalculateTimeToSencond（timeKind:

String;

time:

integer）;

hour:

integer=0;

minute:

second:

tot:

procedureTForm1.CalculateTimeToSencond（timeKind:

iftimeKind='

hh'

then

hour:

=time

elseiftimeKind='

mi'

minute:

ss'

second:

=time;

tot:

=hour*60*60+minute*60+second;

form1.Label4.Caption:

总共为'

+IntToStr（tot）+'

秒'

procedureTForm1.SpinEdit1Change（Sender:

Form1.CalculateTimeToSencond（'

StrToInt（Form1.SpinEdit1.Text））;

procedureTForm1.SpinEdit2Change（Sender:

StrToInt（Form1.SpinEdit2.Text））;

procedureTForm1.SpinEdit3Change（Sender:

StrToInt（Form1.SpinEdit3.Text））;

4.8在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。

Windows,Messa