数据库应用程序设计离线作业答案.docx

1、数据库应用程序设计离线作业答案浙江大学远程教育学院数据库应用程序设计课程作业（必做）姓名：年级： 学 号： 学习中心： 备注：提交时请直接提交源代码程序，不提交EXE可执行文件。第一章1、Delphi2007 for win32集成开发环境由哪几部件组成？简述各部分的功能。 主窗口：提供系统菜单栏、系统工具条和组件面板 设计视图：提供项目程序设计工作区域 代码编辑器：提供程序代码编写、快捷的代码编写功能、对象观察器 结构视图：窗体设计器工作状态，用于显示窗体中可视化控件的继承结构；窗体设计器代码编辑状态，用于显示源代码对象的继承结构，同时提供代码编写错误提示信息； 项目管理器、模型视图和数据管

2、理器项目管理器：显示工程结构和工程文件管理；模型视图：提供项目逻辑表示数据管理器：用于浏览数据库中的对象，也可以用于创建和管理数据链接； 欢迎界面：引导进入delphi开发，同时显示最近打开过的项目，还是显示网络和RSS的最新新闻、资源； 历史代码页面：记录项目文件历史编辑过程日志，当前单元文件的编辑日期及作者； 帮助系统：Borland delphi 2007快速启动指南；Delphi 2007在线帮助；Mircrosoft .NET Framework在线帮助；Borland软件开发技术支持和相关网站；2、Delphi单元文件主要由哪几个部分组成？简述各部分的功能。 库单元文件头:其中声明

3、了库单元的名字. Interface部分:由保留字interface开始,结束于保留字implementation,它用来声明引用的单元,常量,数据类型,变量,过程和函数.在 Interface部分声明的变量,常量,数据类型,过程,函数都可以供外部引用,对整个程序而言是共有的.也就是说,对于所有引用该单元的单元来说,这 些声明都是可见和可访问的.在Interface部分,只需写出过程和函数的首部,具体的定义是在下面的implementation部分给出的.Interface部分又可分为多个可选部分,分别为单元引入部分(uses),常量说明部分,类型说明部分,变量说明部分,过程和函数声明部分.

4、注：打*为选做作业。 Implementation部分:Implementation部分分为两部分.一部分是声明部分,包括单元引用,常量,类型,变量,过程和函数的声明,这一点和Interface部分相似.区别有两点:(1):在Implementation部分声明的只对本单元是公共的,可见的,其他单元即使引用了该单元,也不能访问它们.(2):在Implementation部分声明的过程和函数,不需要遵循先声明后定义的规则,而可以直接写出过程和函数的定义.另一部分是在Interface部分声明的过程和函数的定义.4.Initialization部分:用于初始化该库单元,此处的代码最先执行.如果多个

5、库单元中包含Initialization部分那么它们的执行顺序就和Program的uses部分引用单元的出现顺序是一致的. Finalization部分:通常用于释放Initialization部分分配的资源.如果多个库单元中包含Finalization部分,其执行顺序和Initialization部分正好相反.3、模仿例1.1，编写一个简单的窗体程序，显示如下内容：*欢迎学习Delphi语言！*提示：使用三个TLabel直接设置其Caption属性值。 注：打*为选做作业。 第二章1、Delphi语言中有哪些常用的数据类型？变量在使用前必须先定义，如何定义各种数据类型的变量？1.有序类型：整

6、型、字符型、布尔型（Boolean） 、枚举类型 、子界类型2. 实数类型：实型、日期时间类型、字符串类型、可变类型Var 变量名：数据类型 /适用于整型、字符型、布尔型变量定义TYPEtypeName = (val1,.,valn) /枚举类型变量定义TYPE类型标示符 = 上界值下界值 /子界类型定义typeTDateTime = type Double; 2、注释语句有哪几种形式？1.花括号注释#2. 圆括号/型号注释(*#*)3.双斜杠注释/#3、编写程序，输入两个浮点数，输出其和、差、积各为多少。program Project2;$APPTYPE CONSOLEusesSysUtil

7、s;varx,y:real;sum,n,m:real;begintry TODO -oUser -cConsole Main : Insert code here writeln(请输入2位浮点数:);readln(x,y);sum:=x+y;n:=x-y;m:=x*y;writeln(和为：,sum);writeln(差为：,n);writeln(积为：,m);readln;excepton E:Exception doWriteln(E.Classname, : , E.Message);注：打*为选做作业。 end;end.4、编写程序，输入5个整数，输出这5个数的平均值。program

8、 Project2;$APPTYPE CONSOLEusesSysUtils;vara,b,c,d,e:integer;sum:integer;avg:integer;begintry TODO -oUser -cConsole Main : Insert code here writeln(请输入5个整数:);read(a,b,c,d,e);sum:=a+b+c+d+e;avg:=sum div 5;writeln(5个整数的平均数为:,avg);readln;excepton E:Exception doWriteln(E.Classname, : , E.Message);end;end

9、.第三章1、循环语句有哪几种形式？break语句与continue语句有何异同？While语句直到循环For语句辅助控制语句循环嵌套break语句与continue语句有何异同？Continue语句只结束本次循环，而不是终止整个循环的执行，而break语句则是结束整个循环过程，不再判断循环条件是否成立；2、某市出租车3公里的起租价为6元，3公里以外按1.5元每公里计费。现编写程序，要求：输入行车里程数，输出应付车费。program Project2;$APPTYPE CONSOLEusesSysUtils;varkm:integer;注：打*为选做作业。 paykm:integer;pay:r

10、eal=0;begintry TODO -oUser -cConsole Main : Insert code here writeln(请输入行车里程数:);readln(km);if (km>0)and(km<=3) thenbeginpay:=6;writeln(输出应付车费为:,pay,元整);endelse if (km>3) thenbeginpaykm:=km-3;pay:=6+paykm*1.5;writeln(输出应付车费为:,pay,元整);endelsewriteln(输出应付车费为:0元整);readln;excepton E:Exception do

11、Writeln(E.Classname, : , E.Message);end;end.3、编写计算阶乘的函数，在主程序中调用函数求4！+6！+9！。 program Project1;$APPTYPE CONSOLEusesSysUtils;function ff(n:integer):integer;var f:integer;beginif (n=0)or(n=1)thenf:=1elsef:=ff(n-1)*n;ff:=f;end;var x,y,z,fact:integer;beginx:=4;注：打*为选做作业。 y:=6;z:=9;fact:=ff(x)+ff(y)+ff(z);

12、writeln(4！+6！+9！=,fact);readln;try TODO -oUser -cConsole Main : Insert code here excepton E:Exception doWriteln(E.Classname, : , E.Message);end;end.4、有两个红球、三个黄球、四个白球、任意取四个球，其中必须有一个红球，编程输出所有可能的方案。program Project1;$APPTYPE CONSOLEusesSysUtils;varred,yellow,white:integer;beginred:=1;for red := 1 to 2 d

13、obeginyellow:=0;while yellow<4-red dobeginwhite:=4-red-yellow;yellow:=yellow+1;writeln(红球个数：,red,黄球个数：,yellow, 白球个数：,white) ; end;end;readln;try TODO -oUser -cConsole Main : Insert code here excepton E:Exception doWriteln(E.Classname, : , E.Message);end;end.注：打*为选做作业。 第四章1、什么是类？什么是对象？什么是方法？三者有何关系

14、？ 类就是对一类事物的总称例如：吉普车、跑车、垃圾车等等他们都是属于汽车这个类的汽车就是一个类，这个类代表了所有的车，虽然有各种各样的车但是它们都有一些共同的特性：比如它们都有车门、发动机、变速箱等 对象就是类的实例比如上面的汽车类有很多种分类，有跑车、轿车、越野车等它们的基本构造都是类似的这时候我们就称跑车、轿车、越野车等属于汽车类的对象或实例 方法通俗来讲就是实例或对象拥有的一些功能例如：汽车的对象或实例都可以启动、停车、打转向灯等 2、构造函数和析构函数的功能分别是什么？构造函数：创建类的实例（对象），并对对象的数据成员进行初始化析构函数：销毁调用的对象并且释放对象的内存3、Delphi

15、提供了几种异常类？运行期间库异常类：I/O异常；堆异常；整数异常；浮点异常；类型匹配异常；类型转换异常；硬件异常；组件异常类：预定义异常；通用异常；其他异常：流异常；图形异常；打印异常；4、Delphi提供了哪两种常用的异常处理结构？使用tryexcept.end处理异常使用tryfinally.end处理异常第五章1、按照组件在运行期间是否可见，Delphi中的组件可以分为哪两大类型？各有何特点？可视化组件和非可视化组件可视化组件特点：基于窗口的可视化组件具有窗口句柄，可以作为输入焦点，并可以含有控件；基于图形控件没有窗口句柄，不可以作为输入焦点； 非可视化组件特点：可以为程序增加功能，如T

16、Timer2、TEdit组件和TMemo组件在使用上有何不同？TEdit只处理单行信息；TMemo可处理多行信息；3、TListBox组件和TComboBox组件的用途有何不同？TListBox显示一系列条文列表，用户可以选中一个或多个项，但不能直接对条文进行编辑，但TComboBox可以直接输入数据4、利用常用组件设计一个具有加、减、乘、除功能的简易计算器，如下图所示。 interface注：打*为选做作业。 usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdC

17、trls;typeTForm1 = class(TForm)Scr: TLabel;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Button5: TButton;Button6: TButton;Button7: TButton;Button8: TButton;Button9: TButton;Button10: TButton;Button11: TButton;Button12: TButton;Button13: TButton;Button14: TButton;Button15: TButt

18、on;Button16: TButton;Button17: TButton;Button18: TButton;Button19: TButton;Button20: TButton;procedure Button1Click(Sender: TObject);procedure Button12Click(Sender: TObject);procedure FormCreate(Sender: TObject);procedure Button11Click(Sender: TObject);procedure Button13Click(Sender: TObject);proced

19、ure Button20Click(Sender: TObject);procedure Button19Click(Sender: TObject);procedure Button18Click(Sender: TObject);private Private declarations pnt,er,fb:boolean;fstnm:Extended;fbcaption:string;public Public declarations end;var注：打*为选做作业。 Form1: TForm1;implementation$R *.dfmprocedure TForm1.Button

20、1Click(Sender: TObject); vartemp:string;beginif er then exit;if pnt thenscr.Caption:=scr.Caption+(sender as Tbutton).Caption else if (scr.Caption=0.) or fb thenbeginscr.Caption:=(sender as Tbutton).caption+.; fb:=false;endelsebegintemp:=scr.Caption;insert(sender as Tbutton).Caption,temp,length(temp)

21、; scr.Caption:=temp;end;end;procedure TForm1.Button12Click(Sender: TObject); vartemp:string;beginif er then exit;if scr.Caption<>0. thenif pos(-,scr.Caption)>0 thenbegintemp:=scr.Caption;delete(temp,1,1);scr.Caption:=temp;endelsescr.Caption:=-+scr.Caption;end;procedure TForm1.FormCreate(Sen

22、der: TObject); beginpnt:=false;fstnm:=0;fb:=false;fbcaption:=;注：打*为选做作业。 er:=false;end;procedure TForm1.Button11Click(Sender: TObject); beginif er then exit;pnt:=true;end;procedure TForm1.Button13Click(Sender: TObject); beginif er then exit;if not fb thenbutton20click(nil);if er then exit;fstnm:=str

23、tofloat(scr.Caption);fbcaption:=(sender as Tbutton).Caption;fb:=true;pnt:=false;end;procedure TForm1.Button20Click(Sender: TObject); beginif er then exit;if fbcaption=+ thenbeginscr.Caption:=floattostr(strtofloat(scr.Caption)+fstnm); end;if fbcaption=- thenbeginscr.Caption:=floattostr(fstnm-strtoflo

24、at(scr.Caption); end;if fbcaption=* thenbeginscr.Caption:=floattostr(strtofloat(scr.Caption)*fstnm); end;if fbcaption=/ thenbeginif scr.Caption<>0. thenscr.Caption:=floattostr(fstnm/strtofloat(scr.Caption) elsebeginscr.Caption:=zero divid error!;er:=true;end;end;注：打*为选做作业。 if pos(.,scr.caption

25、)=0 thenscr.Caption:=scr.Caption+.;fb:=true;pnt:=false;fbcaption:=;end;procedure TForm1.Button19Click(Sender: TObject); beginpnt:=false;fstnm:=0;fb:=false;fbcaption:=;er:=false;scr.Caption:=0.;end;procedure TForm1.Button18Click(Sender: TObject); beginif er then exit;scr.Caption:=0.;end;end. 注：打*为选做作

26、业。 第六章1、利用TMainMenu组件创建一个主菜单“数据查询”，包括的菜单项有“查询基本情况”、“查询工作情况”和“查询工资情况”。 2、利用TPopupMenu组件建立快捷菜单（包括的菜单项有“还原”、“最小化”、“移动”和“关闭”）。设计好后，如何使其在程序执行时右击窗体会弹出相应的菜单？设置Form窗体的PopupMenu属性为：TPopupMenu13、模仿Windows记事本的菜单界面编写一个程序。 注：打*为选做作业。 4、根据教材6.8.2节中的示例，设计一个具有2个垂直分割条窗体程序，并运行测试它。 unit Unit1;interfaceusesWindows, Mes

27、sages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;typeTForm1 = class(TForm)Panel1: TPanel;注：打*为选做作业。 Splitter1: TSplitter;Panel2: TPanel;Splitter2: TSplitter;Panel3: TPanel;private Private declarations public Public declarations end;varForm1: TForm1;implementation$R *.

28、dfmend.第七章1、简述TCanvas(画布)组件的主要属性和方法。TColor：RGB颜色定义Pen：指定画线和画图形轮廓MoveTo 方法：将笔的当前文职设置到点(x,y)处；LineTo方法：配合MoveTo方法画出从(x1,y1)到(x2,y2)的线段；Brush属性：决定画布填充图形的背景颜色和填充图案模式；Rectangle方法：在画布上用当前画刷绘制矩形；RoundRect方法：画带圆角的矩形；Ellipse方法：画椭圆Font属性：设置字体的名称、颜色、尺寸、风格；TextOut方法：在画布指定位置处绘制文本字符串Pixels属性：是一个二维数组，它的每个元素代表窗体表面或

29、客户区的一个像素的Color值；Draw方法：在画布指定的位置处复制一个图像StretchDraw方法：在画布指定的矩形区域里绘制一个图像；第八章1、Delphi2007的TMediaPlayer组件主要有哪些功能？播放AVI影片、Fic和Fli动画文件，还可以通过MCI播放很多媒体文件，如WAV、MIDI、MP3、CD音乐文件和WMV视频文件第九章1、简述在Delphi中创建数据库应用程序的过程。通过TADOConnection组件建立数据库的连接，然后使用一个ADOConnection组件或者ADOQuery组件向数据库发送SQL命令，最后通过数据集获得数据，这时，数据集组件必须将Connection属性指向所使用的ADOConnection组件；2、什么是数据集组件？数据集组件在数据库应用程序中起什么作用？ 数据集组件包含一个数据缓冲区，通常说的数据集就是这个缓冲区；作用：数据集组件连接数据库，将数据集读入缓冲区，