2023年浙大远程数据库应用程序设计离线作业

浙江大学远程教育学院

《数据库应用程序设计》课程作业

姓名:学号:

年级:学习中心:

作业

第一章

1.5如何保存Delphi的项目？尝试自己动手创建一个项目，并保存。

答：执行Fi1e|SaveAl1菜单命令或单击工具栏中的SaveAll按钮便可保存，在

保存时可以对工程文献和单元文献进行改名，但后缀名不能改。保存文献之后，单击工具中的

Run按钮或按F9键，系统将开始编译、连接、运营该工程。

Projecting2017/5/2919:05CFG文件1KB|

Projectlxiof2017/5/2919:05DOF文件2KB

，Projectl.dpr201775/2919:05DelphiProject1KB

CProjectl.res2017/5/2919:04RESFile1KB

»testdfm2017/5/2919dMDelphiForm1KB

箜testpas2017/5/2919^4DelphiSourceFile1KB

1.7尝试设计如图1—10所示的窗体。（图见教材P15页图1-10）

图1-10

>关闭计算机J同

也确实要

关机，里后「注销

嗨定取消

XPUVI—1”

您确实要

6耒机「电扇「注销

确定I取消I

AA*—>**一

第一早

2.8设计如图2—5所示的界面。单击"按钮1"或"按钮2"时在标签上显示用户所执行的操作。

单击"启动/停用按钮"可控制"按钮1"和"按钮2"是否可用，单击"退出系统"按钮时，结束程

序的运营。

2.9设计如图2—6所示的界面。当单击按钮时，可控制文本框中字体的颜色。

.....................................................111

7’篡小级件纨合快殖求例,.席；更恒

请在文本框中输入文字:

需注叠或赢百蔻"花"

但爸而|缘阻⑹IMfc(B)

图2-5®图2—6

按出使用实洌

按钮1|按钮2|

开启/停用按钮

退出接招|

;二按钮工1按钮2]

您点击了按钮1

开启/停用按钮

退出技出|

unittest;

interface

uses

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

Dialogs,StdCtrls;

type

TForm1=class(TForm)

showLabe1：TLabel;

btnl:TButton；//按钮1

btn2:TButton;//按钮2

ctlBtn:TButton；〃启动停用按钮

exitBtn:TButton;//退出按钮

procedurebtn1Click(Sender:TObject)；

procedurebtn2Click(Sender:TObject);

procedureexitBtnCIick(Sender：TObject);

procedurectlBtnCIick(Sender:TObject);

private

{Privatedeclarations}

public

{PublicdecIarations}

end；

var

Form1:TForml;

ctlStatus:integer=0；〃控制按钮1和2的启动和关闭,0表达当前为启动,

1表达关闭

implementation

{$R*.dfm}

procedureTForml.btnlClick(Sender:TObject)；

begin

forml.showLabe1.Caption'您点击了按钮1'；

end;

procedureTForml.btn2Click(Sender：TObject)；

begin

forml.showLabe1.Caption：=，您点击了按钮2'；

end;

procedureTForml.exitBtnC1ick(Sender：TObject);

begin

form1.Close;end;

procedureTForml.ct1BtnC1ick(Sender:TObject)；

begin

ifct1Status=0then

begin

form1.btnl.Enab1ed:=false;

forml.btn2.Enabled：=fa1se；

ctlStatus:=1;

end

else

begIn

forml.btnl.Enabled：=true;

form1.btn2.Enabled:=true;

ctlStatus:=0；

end;

end;

end.

2.9：

>有妲ms合碗实例9回后七

请在文本框中榆人文字；

：：：：：lEditi：：:：:

红色（R）I角色@|篮色（B）I

请在文本框中输入文字:

|请注意我颁电的变化

红色（R）绿色（G）蓝色（B）

Jf叁不也小安苫愧用头冽-J■w

请在文本框中输入文字：

I请注意我颜包的变化

出la绿色（G）।一色⑦）।

岁基本第件好合使用实例8•x2Im.回laQ

请在文本框中输入文字：

|请注意我兢包的变化

红色（R）|绿色（G）I蓝■色（B）；

请在文本框中输入文字：

I请过意我避色的变化

一色(R)|♦色⑥|匿买画

unittest;

interface

uses

Windows,Messages,SysUtilszVariants,Classes,Graphics,Contro1

s,Forms,

Dialogs,StdCtrls；

type

TForml=class(TForm)

Labell:TLabel;

Edit1:TEdit;

btnRed:TButton;

btnGreen:TButton;

btnBlue：TButton;

procedurebtnRedC1ick(Sender:TObject);

procedurebtnGreenCIick(Sender：T0bject)；

procedurebtnBlueClick(Sender:T0bject);

private

{Privatedeciarations}

public

{Publicdeclarations}

end;

var

Form1:TForm1；

imp1ementation

{$R*.dfm}

procedureTForml.btnRedClick(Sender:TObject);

begin

form1.Editl.Font.Color：=c1red；

end;

procedureTForml.btnGreenC1ick(Sender:TObject);

begin

forml.Editl.Font.Co1or:=clgreen;

end;

procedureTForml.btnBlueC1ick(Sender：TObject)；

begin

forml.Editl.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)不合法/J、数点前必须有数字，如表达为0.25+2

(C)合法，即为2500

(D)合法，即为34.5

(E)不合法，同(2)

(F)合法，即为-0.0003

3.12数学式子sin30。写成De1phi表达式是下列哪个？

(A)Sin30(B)Sin(30)(C)SlN(30。)»(D)Sin(30*Pi/180)

D,需要把角度转化为弧度

第四章

4.7运用3个数字编辑框分别输入小时、分、秒，换算共有多少秒,然后使用标签输出。

＞秒数计苴器.R|ID1归

时厂当分丁当秒［3~3

总共为3963秒

unittest；

interface

uses

Windows,Messages,Syslltils,Variants,C1asses,Graphics,Controls,For

ms,

Dialogs,StdCtr1s,Spin;

type

TForml=class(TForm)

SpinEdit1:TSpinEdit;

Labell:TLabe1；

Labe12：TLabel；

spinEdit2:TSpinEdit;

Label3:TLabel;

SpinEdit3:TSpinEdit;

Labe14:TLabe1;

procedureSpinEditlChange(Sender:TObject);

procedureSpinEdit2Change(Sender:TObject);

procedureSpinEdit3Change(Sender:TObject);

private

{Privatedeciarations}

procedureCalcu1ateTimeToSencond(timeKind:String;time：integer);

public

{Publicdec1arations)

end;

Forml：TForml;

hour:integer=0;

minute:integer=0;

second：integer=0;

tot：integer=0;

implementation

{$R*.dfm}

procedureTForml.CalculateTimeToSencond(timeKind：String；time：integer);

begin

iftimeKind='hh'then

hour：=time

elseiftimeKind='mi'then

minute:=time

elseiftimeKind='ss'then

second:=time；

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

forml.Label4.Caption：='总共为'+IntToStr(tot)+'秒，；

end;

procedureTForm1.SpinEditIChange(Sender：TObject);

begin

Forml.Calcu1ateTimeToSencond('hh',StrToInt(Form1.SpinEdit1.Text));

end;

procedureTForml.SpinEdit2Change(Sender：TObject);

begin

Form1.CalculateTimeToSencond('mi',StrToInt(Forml.SpinEdit2.Text));

end;

procedureTForml.SpinEdit3Change(Sender：TObject);

begin

Forml.CalculateTimeToSencond('ss',StrToInt(Forml.SpinEdit3.Text))；

end；

end.

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

承实数计尊

清输入一个实效网

输出结果实敢为05

平方为0.25

平方根为：0707106781186548

,实数计宜

济输入一个实数10书2

输出结果实数为25

unitUnitl；

interface

uses

Windows,Messages,Sysllti1s,Variants,Classes,Graphies,Controls,Forms,

Dialogs,StdCtrls;

type

TForml=c1ass(TForm)

Edit1:TEdit；

Labell:TLabe1;

Memo1:TMemo；

Label2:TLabe1;

procedureEditlChange(Sender:TObject);

private

{Privatedeclarations)

public

{Publicdeclarations}

end;

var

Forml:TForm1;

numl：Real;〃原实数num2:Real;〃实数平方

num3:Rea1;〃实数平方根

implementation

{$R*.dfm)

procedureTForml.EditlChange(Sender：TObject);

begin

ifforml.Editl.Texto"then

begin

numl:=StrToF1oat(forml.Edit1.Text);

num2:=Sqr(num1);

num3:=Sqrt(numl);

forml.Memo1.Lines.C1ear；

forml.Memo1.Lines.Add('实数为:'+FloatToStr(num1));

form1.Memol.Lines.Add('平方为：'+FloatToStr(num2))；

form1.Memol.Lines.Add('平方根为：'+FloatToStr(num3))；

end；

end；

end.

第五章

5.11任意给定3个实数，按照从大到小的顺序依次输出这3个数。

»比8次小I°13TuJ

清输入三个效

:输出结果

unitUnitl;

interface

uses

Windows,Messages,SysUtiIs,Variants,Classes,Graphics,Controls,Form

s,

Dia1ogs,StdCtrls；

type

TForml=class(TForm)

numlEdit:TEdit;

Labell:TLabel;

Label2：TLabeI；

resuItLabeI：TLabel；

num2Edit：TEdit;

num3Edit：TEdit;

procedurenumlEditChange(Sender：TObject);

procedurenum2EditChange(Sender：T0bject);

procedurenum3EditChange(Sender:TObject)；

private

{Privatedec1arations}

procedureCompareNumber();

public

{Publicdeclarations}

end;

var

Forml:TForml;

numl：Real;〃数字1

num2：Real;〃数字2

num3:ReaI;〃数字3

compnum：Real;〃比较时转换2数

outStr：String;〃输出结果；

imp1ementation

{$R*.dfm)

procedureTForm1.CompareNumber();

begin

if(trim(form1,numlEdit.Text)<>〃)And(trim(forml.num2Edit,Text)<

>")And(trim(forml.num3Edit.Text)<>")then

begin

num1：=StrToF1oat(form1.numlEdit.Text);

num2:=StrToFIoat(forml.num2Edit.Text);

num3:=StrToFloat(forml.num3Edit.Text)；

ifnum2>numl

then

begin

compnum:=num1；

numl:=num2;

num2:=compnum;

end;

ifnum3>num1then

begin

compnum:=numl；

numl:=num3;

num3：=compnum;

end;

ifnum3>num2then

begin

compnum:=num2；

num2：=num3;

num3：=compnum;

end;

outStr:=FloatToStr(numl)+'J+FloatToStr(num2)+'+FloatToStr(n

um3);

forml.resultLabe1.Caption:=outStr;

end;

end;

procedureTForml.num1EditChange(Sender：TObject)；

begin

form1.CompareNumber;end；procedureTForml.num2EditChange(Sender:TObj

ect);

begin

forml.CompareNumber；end;procedureTForml.num3EditChange(Sende

r：TObject);

begin

form1.CompareNumber;end；

end.

5.13假设工资的增幅标准为:若基本工资大于等于1000元，增长工资20%;若小于1000

元大于等于800元，则增长工资15%；若小于800元，则增长工资10%。请根据用户在文本

框中输入的基本工资，计算出增长后的工资。

尊D回—

基本工^二：二二二二

:::::增加后的工资

次工资计算I。I回Hi

基本工资I10®

增加后的工费12m

基本按瓯

增加后的工资1035

，工®■十算

基本工资师

增加后的工资770

unitUnit1;

interfaceuses

Windows,Messages,SysUti1s,Variants,Classes,Graphics,Controls,Fo

rms,

DiaIogs,StdCtrIs；type

TForml=class(TForm)

Labe11:TLabel;

Editl:TEdit；

Labe12:TLabel;

resuItLabe1：TLabeI;

procedureEditlChange(Sender:TObject)；

private

{Privatedeclarations}

public

{Pub1icdeelarations}

end;

var

Forml:TForml；

salary:ReaI；

outSalary：Real;

imp1ementation

{$R*.dfm}

procedureTForml.Edit1Change(Sender:TObject);

begin

salary：=StrToFloat(forml.Editl.Text);

if(salary>=1000)then

outSa1ary:=salary*(1+0.2)

elseif(salary<1000)And(salary>=800)then

outSalary:=salary*(1+0.15)

elseif(salary<800)then

outSa1ary:=salary(1+0.1)；

forml.resu1tLabel.Caption:=FloatToStr(outSa1ary);

end;

end.

第六章

6.5设s=lX2X3X・・・Xn,求s不大于20230时最大的n°

，计一•大n

120000:

..........,1XXI...............

最大n

总数

最大n7

unitUnitl；

interface

uses

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

Dialogs,StdCtris;

type

TForml=class(TForm)

Labell:TLabel;

Editl:TEdit;

Labe12：TLabel；

resultLabeI：TLabel;

procedureFormCreate(Sender:TObject);

private

{Privatedeclarations}

public

{Pub1icdeclarations}

end;

var

Forml:TForml;

number;n,tot:Integer;

imp1ementation

{$R*.dfm}

procedureTForm1,FormCreate(Sender：TObject);

begin

tot:=1;n：=0;

number:=StrToInt(form1.Edit1.Text);

Whiletot<=numberdo

begin

n:=n+1;

tot:=tot*n;

end；

forml.resultLabel.Caption:=IntToStr(n-1)；

end;

end.

6.10在标签上输出100-200之间的所有的奇数，其中3的倍数除外。

1011G3107109113115119121125127131133137139143145149151155157161163167169173175179181105187191193197199

unitUnitl;

interface

uses

Windows,Messages,Sysllti1s,Variants，Classes,Graphics,Contro1s,Form

s,

Dia1ogs,StdCtrls;

type

TForml=class(TForm)

resu1tLabel:TLabe1;

procedureFormCreate(Sender：TObject)；

private

{Privatedec1arations}

public

{Publicdec1arations}

end;

var

Forml：TForm1；

number,i:Integer;

outStr:String;imp1ementation

{$R*.dfm}

procedureTForm1.FormCreate(Sender：TObject)；

begin

fori:=100to200do

begin

ifimod2<>0then

ifimod3<>0then

outStr:=outStr+'z+IntToStr(i)；

form1.resu1tLabeI.Caption:=outStr；

end;

end；

end.

第七章

7.4求1〜200这200个数的和，当和大于10000时结束计算。（规定使用转向语句）

＞计算1-200的和巨但

总和为10011

unitUnitl;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Contro1szForms,

Dialogs,StdCtrls;

type

TForml=class(TForm)

Labell：TLabel;

procedureFormCreate(Sender:TObject)；

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Forml：TForml；

sum,n：integer;

impIementation

{$R

procedureTForml.FormCreate(Sender:TObject);

begin

sum：=0;

n:=0;

repeat

n:=n+1;

sum:=sum+n;

if(sum>10000)thenbreak;

untiln>=200;

forml.Label1.Caption:='总和为'+IntToStr(sum);

end；

end.

第八章

8.8编写函数，输出100-500之间所有能同时被3和13整除的数。

＞球出坡3和13整除的数

unitUnitl;

interface

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

Dialogs,StdCtr1s;

type

TForml=class(TForm)

Labe11：TLabel;

procedureFormCreate(Sender:TObject);

private

{Privatedec1arations}

FunctioncheckNum(num:integer)：boolean;

pub1ic

{Pub1icdeclarations}

end；

Forml：TForml;

implementation

{$R*.dfm}

FunctionTForml.checkNum(num:integer):boolean；

varn:boolean;

begin

if(nummod3=0)And(nummod13=0)then

n:=true

e1se

n：=false；

resuit:=n；end;procedureTForm1.FormCreate(Sender:T0bject);

vari:integer;

varout:string；begin

fori:=100to500do

begin

ifcheckNum⑴then

out:=out+1'+IntToStr(i);

end;

forml.Label1.Caption:=out；

end;

end.

第九章

9.2打开对话框组件和打开图片对话框组件有什么异同点？

答:两者都会打开一个对话框用于选择电脑本地上的文献不同的是前者可以选择所有类型的

文献，而后者只可以选择图片类型的文献，并且可以预览图片

第十章

10.7菜单命令项与工具栏按钮的单击事件中的代码是否可以关联？如何关联？

答:将工具栏按钮ToolButton的Sty1e属性设立为tbsDropDown,然后在Me

nultem属性中选择相应的菜单项即可

第十一章

11.4调用子窗体的close方法时是否可关闭该子窗体？若不能，需要怎么做?

答:调用close方法只能最小化窗口，假如要真正关闭，需要调用free方法

第十二章

12.3使用红色的画笔在窗体中绘制一个半径