浙大远程数据库应用程序设计离线作业必做Word下载.doc
- 文档编号:4015285
- 上传时间:2023-05-02
- 格式:DOC
- 页数:16
- 大小:160.50KB
浙大远程数据库应用程序设计离线作业必做Word下载.doc
《浙大远程数据库应用程序设计离线作业必做Word下载.doc》由会员分享,可在线阅读,更多相关《浙大远程数据库应用程序设计离线作业必做Word下载.doc(16页珍藏版)》请在冰点文库上搜索。
(2):
在Implementation部分声明的过程和函数,不需要遵循先声明后定义的规则,而可以直接写出过程和函数的定义.另一部分是在Interface部分声明的过程和函数的定义.
4.Initialization部分:
用于初始化该库单元,此处的代码最先执行.如果多个库单元中包含Initialization部分那么它们的执行顺序就和Program的uses部分引用单元的出现顺序是一致的.
Finalization部分:
通常用于释放Initialization部分分配的资源.如果多个库单元中包含Finalization部分,其执行顺序和Initialization部分正好相反.
3、模仿例1.1,编写一个简单的窗体程序,显示如下内容:
***************************
欢迎学习Delphi语言!
提示:
使用三个TLabel直接设置其Caption属性值。
第二章
1、Delphi语言中有哪些常用的数据类型?
变量在使用前必须先定义,如何定义各种数据类型的变量?
1.有序类型:
整型、字符型、布尔型(Boolean)、枚举类型、子界类型
2.实数类型:
实型、日期时间类型、字符串类型、可变类型
Var变量名:
数据类型//适用于整型、字符型、布尔型变量定义
TYPE
typeName=(val1,…..,valn)//枚举类型变量定义
类型标示符=上界值…下界值//子界类型定义
type
TDateTime=typeDouble;
2、注释语句有哪几种形式?
1.花括号注释
{##############}
2.圆括号/型号注释
(*################*)
3.双斜杠注释
//################
3、编写程序,输入两个浮点数,输出其和、差、积各为多少。
programProject2;
{$APPTYPECONSOLE}
uses
SysUtils;
var
x,y:
real;
sum,n,m:
begin
try
{TODO-oUser-cConsoleMain:
Insertcodehere}
writeln('
请输入2位浮点数:
'
);
readln(x,y);
sum:
=x+y;
n:
=x-y;
m:
=x*y;
和为:
sum);
差为:
n);
积为:
m);
readln;
except
onE:
Exceptiondo
Writeln(E.Classname,'
:
'
E.Message);
end;
end.
4、编写程序,输入5个整数,输出这5个数的平均值。
var
a,b,c,d,e:
integer;
sum:
avg:
try
请输入5个整数:
read(a,b,c,d,e);
=a+b+c+d+e;
avg:
=sumdiv5;
5个整数的平均数为:
avg);
第三章
1、循环语句有哪几种形式?
break语句与continue语句有何异同?
While语句
直到循环
For语句
辅助控制语句
循环嵌套
Continue语句只结束本次循环,而不是终止整个循环的执行,而break语句则是结束整个循环过程,不再判断循环条件是否成立;
2、某市出租车3公里的起租价为6元,3公里以外按1.5元每公里计费。
现编写程序,要求:
输入行车里程数,输出应付车费。
km:
paykm:
pay:
real=0;
请输入行车里程数:
readln(km);
if(km>
0)and(km<
=3)then
begin
pay:
=6;
输出应付车费为:
pay,'
元整'
end
elseif(km>
3)then
paykm:
=km-3;
=6+paykm*1.5;
else
0元整'
3、编写计算阶乘的函数,在主程序中调用函数求4!
+6!
+9!
。
programProject1;
functionff(n:
integer):
varf:
begin
if(n=0)or(n=1)then
f:
=1
else
f:
=ff(n-1)*n;
ff:
=f;
end;
varx,y,z,fact:
x:
=4;
y:
z:
=9;
fact:
=ff(x)+ff(y)+ff(z);
writeln('
4!
='
fact);
readln;
4、有两个红球、三个黄球、四个白球、任意取四个球,其中必须有一个红球,编程输出所有可能的方案。
red,yellow,white:
red:
=1;
forred:
=1to2do
begin
yellow:
=0;
whileyellow<
4-reddo
begin
white:
=4-red-yellow;
yellow:
=yellow+1;
writeln('
红球个数:
red,'
黄球个数:
yellow,'
白球个数:
white);
end;
end;
第四章
1、什么是类?
什么是对象?
什么是方法?
三者有何关系?
类就是对一类事物的总称
例如:
吉普车、跑车、垃圾车等等他们都是属于汽车这个类的
汽车就是一个类,这个类代表了所有的车,虽然有各种各样的车
但是它们都有一些共同的特性:
比如它们都有车门、发动机、变速箱等
对象就是类的实例
比如上面的汽车类
有很多种分类,有跑车、轿车、越野车等
它们的基本构造都是类似的
这时候我们就称跑车、轿车、越野车等属于汽车类的对象或实例
方法通俗来讲就是实例或对象拥有的一些功能
汽车的对象或实例都可以启动、停车、打转向灯等
2、构造函数和析构函数的功能分别是什么?
构造函数:
创建类的实例(对象),并对对象的数据成员进行初始化
析构函数:
销毁调用的对象并且释放对象的内存
3、Delphi提供了几种异常类?
运行期间库异常类:
I/O异常;
堆异常;
整数异常;
浮点异常;
类型匹配异常;
类型转换异常;
硬件异常;
组件异常类:
预定义异常;
通用异常;
其他异常:
流异常;
图形异常;
打印异常;
4、Delphi提供了哪两种常用的异常处理结构?
使用try……except…..end处理异常
使用try……finally….end处理异常
第五章
1、按照组件在运行期间是否可见,Delphi中的组件可以分为哪两大类型?
各有何特点?
可视化组件和非可视化组件
可视化组件特点:
基于窗口的可视化组件具有窗口句柄,可以作为输入焦点,并可以含有控件;
基于图形控件没有窗口句柄,不可以作为输入焦点;
非可视化组件特点:
可以为程序增加功能,如TTimer
2、TEdit组件和TMemo组件在使用上有何不同?
TEdit只处理单行信息;
TMemo可处理多行信息;
3、TListBox组件和TComboBox组件的用途有何不同?
TListBox显示一系列条文列表,用户可以选中一个或多个项,但不能直接对条文进行编辑,但TComboBox可以直接输入数据
4、利用常用组件设计一个具有加、减、乘、除功能的简易计算器,如下图所示。
interface
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
TForm1=class(TForm)
Scr:
TLabel;
Button1:
TButton;
Button2:
Button3:
Button4:
Button5:
Button6:
Button7:
Button8:
Button9:
Button10:
Button11:
Button12:
Button13:
Button14:
Button15:
Button16:
Button17:
Button18:
Button19:
Button20:
procedureButton1Click(Sender:
TObject);
procedureButton12Click(Sender:
procedureFormCreate(Sender:
procedureButton11Click(Sender:
procedureButton13Click(Sender:
procedureButton20Click(Sender:
procedureButton19Click(Sender:
procedureButton18Click(Sender:
private
{Privatedeclarations}
pnt,er,fb:
boolean;
fstnm:
Extended;
fbcaption:
string;
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
{$R*.dfm}
procedureTForm1.Button1Click(Sender:
temp:
iferthenexit;
ifpntthen
scr.Caption:
=scr.Caption+(senderasTbutton).Caption
elseif(scr.Caption='
0.'
)orfbthen
=(senderasTbutton).caption+'
.'
;
fb:
=false;
end
else
=scr.Caption;
insert((senderasTbutton).Caption,temp,length(temp));
=temp;
procedureTForm1.Button12Click(Sender:
ifscr.Caption<
>
then
ifpos('
-'
scr.Caption)>
0then
delete(temp,1,1);
+scr.Caption;
procedureTForm1.FormCreate(Sender:
pnt:
er:
procedureTForm1.Button11Click(Sender:
=true;
procedureTForm1.Button13Click(Sender:
ifnotfbthen
button20click(nil);
=strtofloat(scr.Caption);
=(senderasTbutton).Caption;
procedureTForm1.Button20Click(Sender:
iffbcaption='
+'
=floattostr(strtofloat(scr.Caption)+fstnm);
=floattostr(fstnm-strtofloat(scr.Caption));
*'
=floattostr(strtofloat(scr.Caption)*fstnm);
/'
=floattostr(fstnm/strtofloat(scr.Caption))
zerodividerror!
scr.caption)=0then
=scr.Caption+'
procedureTForm1.Button19Click(Sender:
procedureTForm1.Button18Click(Sender:
第六章
1、利用TMainMenu组件创建一个主菜单“数据查询”,包括的菜单项有“查询基本情况”、“查询工作情况”和“查询工资情况”。
2、利用TPopupMenu组件建立快捷菜单(包括的菜单项有“还原”、“最小化”、“移动”和“关闭”)。
设计好后,如何使其在程序执行时右击窗体会弹出相应的菜单?
设置Form窗体的PopupMenu属性为:
TPopupMenu1
3、模仿Windows记事本的菜单界面编写一个程序。
4、根据教材6.8.2节中的示例,设计一个具有2个垂直分割条窗体程序,并运行测试它。
unitUnit1;
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,ExtCtrls;
TForm1=class(TForm)
Panel1:
TPanel;
Splitter1:
TSplitter;
Panel2:
Splitter2:
Panel3:
private
{Privatedeclarations}
public
{Publicdeclarations}
Form1:
第七章
1、简述TCanvas(画布)组件的主要属性和方法。
TColor:
RGB颜色定义
Pen:
指定画线和画图形轮廓
MoveTo方法:
将笔的当前文职设置到点(x,y)处;
LineTo方法:
配合MoveTo方法画出从(x1,y1)到(x2,y2)的线段;
Brush属性:
决定画布填充图形的背景颜色和填充图案模式;
Rectangle方法:
在画布上用当前画刷绘制矩形;
RoundRect方法:
画带圆角的矩形;
Ellipse方法:
画椭圆
Font属性:
设置字体的名称、颜色、尺寸、风格;
TextOut方法:
在画布指定位置处绘制文本字符串
Pixels属性:
是一个二维数组,它的每个元素代表窗体表面或客户区的一个像素的Color值;
Draw方法:
在画布指定的位置处复制一个图像
StretchDraw方法:
在画布指定的矩形区域里绘制一个图像;
第八章
1、Delphi2007的TMediaPlayer组件主要有哪些功能?
播放AVI影片、Fic和Fli动画文件,还可以通过MCI播放很多媒体文件,如WAV、MIDI、MP3、CD音乐文件和WMV视频文件
第九章
1、简述在Delphi中创建数据库应用程序的过程。
通过TADOConnection组件建立数据库的连接,然后使用一个ADOConnection组件或者ADOQuery组件向数据库发送SQL命令,最后通过数据
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浙大 远程 数据库 应用 程序设计 离线 作业