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;

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)); 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

{ Public declarations } end; var

Form1: TForm1;

num1 : Real; //数字 1 num2 : Real; //数字 2 num3 : Real; //数字 3

compnum : Real; //比较时转换 2 数 outStr : String; //输出结果; implementation {$R *.dfm}

procedure TForm1.CompareNumber(); begin

if (trim(form1.num1Edit.Text) <> '') And (trim(form1.num2Edit.Text) <> '') And (trim(form1.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);

begin

form1.CompareNumber; end; procedure TForm1.num2EditChange(Sender: TObject); begin

form1.CompareNumber; end; procedure TForm1.num3EditChange(Sender: TObject); begin

form1.CompareNumber; 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);

第十二章

12.3 使用红色的画笔在窗体中绘制一个半径为5的圆，并且用黄色来填充圆的内部。

unit Unit1; interface uses

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

TForm1 = class(TForm)

procedure FormPaint(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var

Form1: TForm1; implementation {$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject); var r, x, y:integer; begin r := 5;

Canvas.Pen.Color := clred;

Canvas.Brush.Color := clyellow; Canvas.Ellipse(0, 0, r*2, r*2); end; end. 第十三章

13.3 打开一个文本文件有几种方法？区别是什么？

（1） Reset 过程以只读方式打开一个文件。

（2） Rewrite 过程创建并打开文件，对于一个已经存在的文件，此操作将使文件被覆盖。 （3） Append 过程以追加方式打开文件，并向已经存在的文本文件中追加文本。 第十四章

14.4 使用Database DeskTop设计如表14－5所示的数据表，并创建简单的应用程序完成数据的浏览和编辑功能。

表14－5 数据表字段设置说明 字段名 Id Name Price Count 14.6 使用数据库软件（如Sql Server2000）创建如表14－6所示的数据表，并开发一个学生档案管理系统，完成学生基本信息的添加、删除、修改等。同时，可以按照学生的学号、姓名等进行数据的查询。最后，将学生的基本信息以报表的方式输出。 表14－6 数据表字段设置说明

字段名 Id Name Sex Birthday Address

字符型 字符型 字符型 日期型 字符型 类型 8 8 2 4 50 长度 学号 姓名 性别 出生日期 家庭住址 说明 字符型 字符型 数值型 短整型 类型 4 20 长度 说明 产品编号 产品名称 产品单价 产品库存量

本文来源：https://www.bwwdw.com/article/28ih.html