浙大远程《数据库应用程序设计》离线作业Word文档下载推荐.docx
- 文档编号:3558939
- 上传时间:2023-05-01
- 格式:DOCX
- 页数:21
- 大小:59.88KB
浙大远程《数据库应用程序设计》离线作业Word文档下载推荐.docx
《浙大远程《数据库应用程序设计》离线作业Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《浙大远程《数据库应用程序设计》离线作业Word文档下载推荐.docx(21页珍藏版)》请在冰点文库上搜索。
showLabel:
TLabel;
btn1:
TButton;
//按钮1
btn2:
//按钮2
ctlBtn:
//开启停用按钮
exitBtn:
//退出按钮
procedurebtn1Click(Sender:
TObject);
procedurebtn2Click(Sender:
procedureexitBtnClick(Sender:
procedurectlBtnClick(Sender:
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
ctlStatus:
integer=0;
//控制按钮1和2的开启和关闭,0表示当前为开启,1表示关闭
implementation
{$R*.dfm}
procedureTForm1.btn1Click(Sender:
begin
您点击了按钮1'
;
procedureTForm1.btn2Click(Sender:
您点击了按钮2'
procedureTForm1.exitBtnClick(Sender:
form1.Close;
procedureTForm1.ctlBtnClick(Sender:
ifctlStatus=0then
=1;
end
else
ctlStatus:
=0;
end.
2.9:
interface
Label1:
Edit1:
TEdit;
btnRed:
btnGreen:
btnBlue:
procedurebtnRedClick(Sender:
procedurebtnGreenClick(Sender:
procedurebtnBlueClick(Sender:
procedureTForm1.btnRedClick(Sender:
procedureTForm1.btnGreenClick(Sender:
procedureTForm1.btnBlueClick(Sender:
第三章
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;
SpinEdit1:
TSpinEdit;
Label1:
Label2:
SpinEdit2:
Label3:
SpinEdit3:
Label4:
procedureSpinEdit1Change(Sender:
procedureSpinEdit2Change(Sender:
procedureSpinEdit3Change(Sender:
procedureCalculateTimeToSencond(timeKind:
String;
time:
integer);
hour:
minute:
second:
tot:
procedureTForm1.CalculateTimeToSencond(timeKind:
iftimeKind='
hh'
then
=time
elseiftimeKind='
mi'
ss'
=time;
=hour*60*60+minute*60+second;
总共为'
+IntToStr(tot)+'
秒'
procedureTForm1.SpinEdit1Change(Sender:
procedureTForm1.SpinEdit2Change(Sender:
procedureTForm1.SpinEdit3Change(Sender:
4.8在编辑框中输入一个实数,利用备注框输出该实数及其平方和平方根。
unitUnit1;
Memo1:
TMemo;
procedureEdit1Change(Sender:
num1:
Real;
//原实数num2:
//实数平方
num3:
//实数平方根
procedureTForm1.Edit1Change(Sender:
num2:
=Sqr(num1);
=Sqrt(num1);
实数为:
'
+FloatToStr(num1));
平方为:
+FloatToStr(num2));
平方根为:
+FloatToStr(num3));
第五章
5.11任意给定3个实数,按照从大到小的顺序依次输出这3个数。
num1Edit:
resultLabel:
num2Edit:
num3Edit:
procedurenum1EditChange(Sender:
procedurenum2EditChange(Sender:
procedurenum3EditChange(Sender:
procedureCompareNumber();
//数字1
//数字2
//数字3
compnum:
//比较时转换2数
outStr:
//输出结果;
procedureTForm1.CompareNumber();
ifnum2>
num1
=num1;
=num2;
=compnum;
ifnum3>
num1then
=num3;
num2then
=FloatToStr(num1)+'
'
+FloatToStr(num2)+'
+FloatToStr(num3);
procedureTForm1.num1EditChange(Sender:
form1.CompareNumber;
procedureTForm1.num2EditChange(Sender:
procedureTForm1.num3EditChange(Sender:
5.13假设工资的增幅标准为:
若基本工资大于等于1000元,增加工资20%;
若小于1000元大于等于800元,则增加工资15%;
若小于800元,则增加工资10%。
请根据用户在文本框中输入的基本工资,计算出增加后的工资。
interfaceuses
salary:
outSalary:
if(salary>
=1000)then
=salary*(1+0.2)
elseif(salary<
1000)And(salary>
=800)then
=salary*(1+0.15)
800)then
=salary*(1+0.1);
第六章
6.5设s=1X2X3X…Xn,求s不大于20000时最大的n。
procedureFormCreate(Sender:
number,n,tot:
Integer;
procedureTForm1.FormCreate(Sender:
n:
Whiletot<
=numberdo
n:
=n+1;
=tot*n;
‐1);
6.10在标签上输出100~200之间的所有的奇数,其中3的倍数除外。
number,i:
fori:
=100to200do
ifimod2<
>
0then
ifimod3<
=outStr+'
+IntToStr(i);
第七章
7.4求1~200这200个数的和,当和大于10000时结束计算。
(要求使用转向语句)
sum,n:
integer;
sum:
repeat
=sum+n;
if(sum>
10000)thenbreak;
untiln>
=200;
总和为'
+IntToStr(sum);
第八章
8.8编写函数,输出100~500之间所有能同时被3和13整除的数。
FunctioncheckNum(num:
integer):
boolean;
FunctionTForm1.checkNum(num:
varn:
if(nummod3=0)And(nummod13=0)then
=true
=false;
result:
=n;
vari:
varout:
string;
=100to500do
ifcheckNum(i)then
out:
=out+'
end;
第九章
9.2打开对话框组件和打开图片对话框组件有什么异同点?
两者都会打开一个对话框用于选择电脑本地上的文件不同的是前者可以选择全部类型的文件,而后者只可以选择图片类型的文件,并且可以预览图片
第十章
10.7菜单命令项与工具栏按钮的单击事件中的代码是否可以关联?
如何关联?
将工具栏按钮ToolButton的Style属性设置为tbsDropDown,然后在MenuItem属性中选择对应的菜单项即可
第十一章
11.4调用子窗体的close方法时是否可关闭该子窗体?
若不能,需要怎么做?
调用close方法只能最小化窗口,如果要真正关闭,需要调用free方法
第十二章
12.3使用红色的画笔在窗体中绘制一个半径为5的圆,并且用黄色来填充圆的内部。
Dialogs;
procedureFormPaint(Sender:
{$R*.dfm}
procedureTForm1.FormPaint(Sender:
varr,x,y:
r:
=5;
Canvas.Ellipse(0,0,r*2,r*2);
第十三章
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所示的数据表,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库应用程序设计 浙大 远程 数据库 应用 程序设计 离线 作业