浙大远程《数据库应用程序设计》离线作业.docx
《浙大远程《数据库应用程序设计》离线作业.docx》由会员分享，可在线阅读，更多相关《浙大远程《数据库应用程序设计》离线作业.docx（21页珍藏版）》请在冰豆网上搜索。
浙大远程《数据库应用程序设计》离线作业
浙江大学远程教育学院
《数据库应用程序设计》课程作业
姓名：
学号：
年级：
学习中心：
—————————————————————————————
作业
第一章
1.5如何保存Delphi的项目？
尝试自己动手创建一个项目，并保存。
答：
执行File|SaveAll菜单命令或单击工具栏中的SaveAll按钮便可保存，在保存时可以对工程文件和单元文件进行改名，但后缀名不能改。
保存文件之后，单击工具中的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
unittest;
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;//退出按钮
procedurebtn1Click（Sender:
TObject）;
procedurebtn2Click（Sender:
TObject）;
procedureexitBtnClick（Sender:
TObject）;
procedurectlBtnClick（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
ctlStatus:
integer=0;//控制按钮1和2的开启和关闭，0表示当前为开启，1表示关闭
implementation
{$R*.dfm}
procedureTForm1.btn1Click（Sender:
TObject）;
begin
您点击了按钮1';
end;
procedureTForm1.btn2Click（Sender:
TObject）;
begin
您点击了按钮2';
end;
procedureTForm1.exitBtnClick（Sender:
TObject）;
begin
form1.Close;end;
procedureTForm1.ctlBtnClick（Sender:
TObject）;
begin
ifctlStatus=0then
begin
ctlStatus:
=1;
end
else
begin
ctlStatus:
=0;
end;
end;
end.
2.9:
unittest;
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;
procedurebtnRedClick（Sender:
TObject）;
procedurebtnGreenClick（Sender:
TObject）;
procedurebtnBlueClick（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
{$R*.dfm}
procedureTForm1.btnRedClick（Sender:
TObject）;
begin
end;
procedureTForm1.btnGreenClick（Sender:
TObject）;
begin
end;
procedureTForm1.btnBlueClick（Sender:
TObject）;
begin
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个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。
unittest;
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;
procedureSpinEdit1Change（Sender:
TObject）;
procedureSpinEdit2Change（Sender:
TObject）;
procedureSpinEdit3Change（Sender:
TObject）;
private
{Privatedeclarations}
procedureCalculateTimeToSencond（timeKind:
String;time:
integer）;
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
hour:
integer=0;
minute:
integer=0;
second:
integer=0;
tot:
integer=0;
implementation
{$R*.dfm}
procedureTForm1.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;
总共为'+IntToStr（tot）+'秒';
end;
procedureTForm1.SpinEdit1Change（Sender:
TObject）;
begin
end;
procedureTForm1.SpinEdit2Change（Sender:
TObject）;
begin
end;
procedureTForm1.SpinEdit3Change（Sender:
TObject）;
begin
end;
end.
4.8在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TForm1=class（TForm）
Edit1:
TEdit;
Label1:
TLabel;
Memo1:
TMemo;
Label2:
TLabel;
procedureEdit1Change（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
num1:
Real;//原实数num2:
Real;//实数平方
num3:
Real;//实数平方根
implementation
{$R*.dfm}
procedureTForm1.Edit1Change（Sender:
TObject）;
begin
begin
num2:
=Sqr（num1）;
num3:
=Sqrt（num1）;
实数为:
'+FloatToStr（num1））;
平方为:
'+FloatToStr（num2））;
平方根为:
'+FloatToStr（num3））;
end;
end;
end.
第五章
5.11任意给定3个实数，按照从大到小的顺序依次输出这3个数。
unitUnit1;
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;
procedurenum1EditChange（Sender:
TObject）;
procedurenum2EditChange（Sender:
TObject）;
procedurenum3EditChange（Sender:
TObject）;
private
{Privatedeclarations}
procedureCompareNumber（）;
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
num1:
Real;//数字1
num2:
Real;//数字2
num3:
Real;//数字3
compnum:
Real;//比较时转换2数
outStr:
String;//输出结果;
implementation
{$R*.dfm}
procedureTForm1.CompareNumber（）;
begin
begin
ifnum2>num1
then
begin
compnum:
=num1;
num1:
=num2;
num2:
=compnum;
end;
ifnum3>num1then
begin
compnum:
=num1;
num1:
=num3;
num3:
=compnum;
end;
ifnum3>num2then
begin
compnum:
=num2;
num2:
=num3;
num3:
=compnum;
end;
outStr:
=FloatToStr（num1）+','+FloatToStr（num2）+','+FloatToStr（num3）;
end;
end;
procedureTForm1.num1EditChange（Sender:
TObject）;
begin
form1.CompareNumber;end;procedureTForm1.num2EditChange（Sender:
TObject）;
begin
form1.CompareNumber;end;procedureTForm1.num3EditChange（Sender:
TObject）;
begin
form1.CompareNumber;end;
end.
5.13假设工资的增幅标准为：
若基本工资大于等于1000元，增加工资20%；若小于1000元大于等于800元，则增加工资15%；若小于800元，则增加工资10%。
请根据用户在文本框中输入的基本工资，计算出增加后的工资。
unitUnit1;
interfaceuses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;type
TForm1=class（TForm）
Label1:
TLabel;
Edit1:
TEdit;
Label2:
TLabel;
resultLabel:
TLabel;
procedureEdit1Change（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
salary:
Real;
outSalary:
Real;
implementation
{$R*.dfm}
procedureTForm1.Edit1Change（Sender:
TObject）;
begin
if（salary>=1000）then
outSalary:
=salary*（1+0.2）
elseif（salary<1000）And（salary>=800）then
outSalary:
=salary*（1+0.15）
elseif（salary<800）then
outSalary:
=salary*（1+0.1）;
end;
end.
第六章
6.5设s=1X2X3X…Xn，求s不大于20000时最大的n。
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TForm1=class（TForm）
Label1:
TLabel;
Edit1:
TEdit;
Label2:
TLabel;
resultLabel:
TLabel;
procedureFormCreate（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
number,n,tot:
Integer;
implementation
{$R*.dfm}
procedureTForm1.FormCreate（Sender:
TObject）;
begin
tot:
=1;n:
=0;
Whiletot<=numberdo
begin
n:
=n+1;
tot:
=tot*n;
end;
‐1）;
end;
end.
6.10在标签上输出100~200之间的所有的奇数，其中3的倍数除外。
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TForm1=class（TForm）
resultLabel:
TLabel;
procedureFormCreate（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
number,i:
Integer;
outStr:
String;implementation
{$R*.dfm}
procedureTForm1.FormCreate（Sender:
TObject）;
begin
fori:
=100to200do
begin
ifimod2<>0then
ifimod3<>0then
outStr:
=outStr+''+IntToStr（i）;
end;
end;
end.
第七章
7.4求1~200这200个数的和，当和大于10000时结束计算。
（要求使用转向语句）
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TForm1=class（TForm）
Label1:
TLabel;
procedureFormCreate（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
sum,n:
integer;
implementation
{$R*.dfm}
procedureTForm1.FormCreate（Sender:
TObject）;
begin
sum:
=0;
n:
=0;
repeat
n:
=n+1;
sum:
=sum+n;
if（sum>10000）thenbreak;
untiln>=200;
总和为'+IntToStr（sum）;
end;
end.
第八章
8.8编写函数，输出100~500之间所有能同时被3和13整除的数。
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TForm1=class（TForm）
Label1:
TLabel;
procedureFormCreate（Sender:
TObject）;
private
{Privatedeclarations}
FunctioncheckNum（num:
integer）:
boolean;
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
{$R*.dfm}
FunctionTForm1.checkNum（num:
integer）:
boolean;
varn:
boolean;
begin
if（nummod3=0）And（nummod13=0）then
n:
=true
else
n:
=false;
result:
=n;end;procedureTForm1.FormCreate（Sender:
TObject）;
vari:
integer;
varout:
string;begin
fori:
=100to500do
begin
ifcheckNum（i）then
out:
=out+''+IntToStr（i）;
end;
end;
end.
第九章
9.2打开对话框组件和打开图片对话框组件有什么异同点？
答：
两者都会打开一个对话框用于选择电脑本地上的文件不同的是前者可以选择全部类型的文件，而后者只可以选择图片类型的文件，并且可以预览图片
第十章
10.7菜单命令项与工具栏按钮的单击事件中的代码是否可以关联？
如何关联？
答：
将工具栏按钮ToolButton的Style属性设置为tbsDropDown,然后在MenuItem属性中选择对应的菜单项即可
第十一章
11.4调用子窗体的close方法时是否可关闭该子窗体？
若不能，需要怎么做？
答：
调用close方法只能最小化窗口，如果要真正关闭，需要调用free方法
第十二章
12.3使用红色的画笔在窗体中绘制一个半径为5的圆，并且用黄色来填充圆的内部。
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs;
type
TForm1=class（TForm）
procedureFormPaint（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;implementation
{$R*.dfm}
procedureTForm1.FormPaint（Sender:
TObject）;varr,x,y:
integer;
begin
r:
=5;
Canvas.Ellipse（0,0,r*2,r*2）;
end;
end.
第十三章
13.3打开一个文本文件有几种方法？
区别是什么？
（1）Reset过程以只读方式打开一个文件。
（2）Rewrite过程创建并打开文件，对于一个已经存在的文件，此操作将使文件被覆盖。
（3）Append过程以追加方式打开文件，并向已经存在的文本文件中追加文本。
第十四章
14.4使用DatabaseDeskTop设计如表14－5所示的数据表，并创建简单的应用程序完成数据的浏览和编辑功能。
表14－5数据表字段设置说明
字段名
类型
长度
说明
Id
字符型
4
产品编号
Name
字符型
20
产品名称
Price
数值型
产品单价
Count
短整型
产品库存量
14.6使用数据库软件（如SqlServer2000）创建如表14－6所示的数据表，
升级会员 