2017浙大远程《数据库应用程序设计》离线作业

浙江大学远程教育学院

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

姓名：学号：

年级：学习中心：

—————————————————————————————

作业

第一章

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;

https://www.360docs.net/doc/6f16550449.html,bel4.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));

end;

end.

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

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Memo1: TMemo;

Label2: TLabel;

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

num1 : Real; //原实数num2 : Real; //实数平方

num3 : Real; //实数平方根

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

begin

if form1.Edit1.Text <> '' then

begin

num1 := StrToFloat(form1.Edit1.Text);

num2 := Sqr(num1);

num3 := Sqrt(num1);

form1.Memo1.Lines.Clear;

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

form1.Memo1.Lines.Add('平方为: ' + FloatToStr(num2));

form1.Memo1.Lines.Add('平方根为: ' + FloatToStr(num3));

end;

end;

end.

第五章

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

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

num1Edit: TEdit;

Label1: TLabel;

Label2: TLabel;

resultLabel: TLabel;

num2Edit: TEdit;

num3Edit: TEdit;

procedure num1EditChange(Sender: TObject);

procedure num2EditChange(Sender: TObject);

procedure num3EditChange(Sender: TObject);

private

{ Private declarations }

procedure CompareNumber();

{ Public declarations }

end;

var

Form1: TForm1;

num1 : Real; //数字1

num2 : Real; //数字2

num3 : Real; //数字3

compnum : Real; //比较时转换2 数

outStr : String; //输出结果;

implementation

{$R *.dfm}

procedure https://www.360docs.net/doc/6f16550449.html,pareNumber();

begin

if (trim(form1.num1Edit.Text) <> '') And (trim(form1.num2Edit.Text) <> '') And (trim(for m1.num3Edit.Text) <> '') then

begin

num1 := StrToFloat(form1.num1Edit.Text);

num2 := StrToFloat(form1.num2Edit.Text);

num3 := StrToFloat(form1.num3Edit.Text);

if num2 > num1

then

begin

compnum := num1;

num1 := num2;

num2 := compnum;

end;

if num3 > num1 then

begin

compnum := num1;

num1 := num3;

num3 := compnum;

end;

if num3 > num2 then

begin

compnum := num2;

num2 := num3;

num3 := compnum;

end;

outStr := FloatToStr(num1) + ',' + FloatToStr(num2) + ',' + FloatToStr(num3);

form1.resultLabel.Caption := outStr;

end;

end;

procedure TForm1.num1EditChange(Sender: TObject);

https://www.360docs.net/doc/6f16550449.html,pareNumber; end; procedure TForm1.num2EditChange(Sender: TObject);

begin

https://www.360docs.net/doc/6f16550449.html,pareNumber; end; procedure TForm1.num3EditChange(Sender: TObject);

begin

https://www.360docs.net/doc/6f16550449.html,pareNumber; end;

end.

5.13 假设工资的增幅标准为：若基本工资大于等于1000元，增加工资20%；若小于1000元大于等于800元，则增加工资15%；若小于800元，则增加工资10%。请根据用户在文本框中输入的基本工资，计算出增加后的工资。

unit Unit1;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

resultLabel: TLabel;

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

salary: Real;

outSalary: Real;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

begin

salary := StrToFloat(form1.Edit1.Text);

if (salary >= 1000) then

outSalary := salary * (1 + 0.2)

else if (salary < 1000) And (salary >= 800) then

outSalary := salary * (1 + 0.15)

else if (salary < 800) then

outSalary := salary * (1 + 0.1);

form1.resultLabel.Caption := FloatToStr(outSalary);

end;

end.

第六章

6.5 设s=1X2X3X…Xn，求s不大于20000时最大的n。

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

resultLabel: TLabel;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

number, n, tot: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

tot := 1; n := 0;

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

While tot <= number do

begin

n := n + 1;

tot := tot * n;

end;

form1.resultLabel.Caption := IntToStr(n‐1);

end;

end.

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

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

resultLabel: TLabel;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;

var

Form1: TForm1;

number, i: Integer;

outStr: String; implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

for i:= 100 to 200 do

begin

if i mod 2 <> 0 then

if i mod 3 <> 0 then

outStr := outStr + ' ' + IntToStr(i);

form1.resultLabel.Caption := outStr;

end;

end;

end.

第七章

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

procedure FormCreate(Sender: TObject);

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

sum, n : integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

sum := 0;

n := 0;

repeat

n := n + 1;

sum := sum + n;

if (sum > 10000) then break;

until n >= 200;

https://www.360docs.net/doc/6f16550449.html,bel1.Caption := '总和为' + IntToStr(sum);

end;

end.

第八章

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

Function checkNum(num:integer):boolean;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

Function TForm1.checkNum(num:integer):boolean;

var n :boolean;

begin

if (num mod 3 = 0) And (num mod 13 = 0) then

n := true

else

n := false;

result := n; end; procedure TForm1.FormCreate(Sender: TObject);

var i : integer;

var out : string; begin

for i := 100 to 500 do

begin

if checkNum(i) then

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

end;

https://www.360docs.net/doc/6f16550449.html,bel1.Caption := out;

end;

end.

第九章

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

答：两者都会打开一个对话框用于选择电脑本地上的文件不同的是前者可以选择全部类型的文件，而后者只可以选择图片类型的文件，并且可以预览图片

第十章

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

答：将工具栏按钮ToolButton 的Style 属性设置为tbsDropDown,然后在MenuItem 属性中选择对应的菜单项即可

第十一章

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

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