2023年数据库应用技术实验指导书.pdf

《2023年数据库应用技术实验指导书.pdf》由会员分享，可在线阅读，更多相关《2023年数据库应用技术实验指导书.pdf（26页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数据库应用技术实验指导书实验一过程、函数和类的应用一、实验目的1 .对delphi的集成开发环境有初步的结识，了解Delphi7编程风格；2.掌握Obj e c t Pascal的语句；3.在掌握过程和函数应用的基础上，通过实践，掌握过程、函数的应用；4.通过自定义类的实验，掌握Delp h i类的应用。二、实验环境1.硬件:微机2.软件：DELPHI 7.0专业版三、相关知识1 .过程和函数在程序设计中，某些特定功能的代码段会反复在程序中出现,为了提高程序的代码效率,也为了使程序的整体结构更加清楚,我们可以使用一些可以完毕特定功能，且由标记符标记的程序段,这些程序段被称为子程序或函数。De

2、1 phi提供了两种机制用于设计子程序，它们分别是过程(pro c e d ure)和 函 数(func tion)oDelp h i的过程分为标准过程与自定义过程两种。标准过程是指系统内部为完毕某种系统功能而定义的过程,无须编写代码，即可直接使用。用户自定义过程则由用户自行编写代码以完毕指定的操作。2.类和对象的定义在客观世界中，每一个事物都可以看作是一个对象(Object),这些对象有自己的属性。对对象进行抽象，提取出对象通用的属性就形成了类。“类”是对某一具有共同特性的实体的描述。从这个角度上看，类”和数据类型是同样的。但是类所不同的是类不仅对实体的属性进行了描述,并且还对实体所具有的动

3、作（方法）特性进行了定义，从而使得类可以完全描述出一个现实的实体。“对象”对象是类的实例化。是类的具体体现。本质上也是一种数据结构。类和对象的关系与数据类型和变量的关系是一致的。在 Delphi编程中对象可以被理解为可视化控件如按钮、标签等。3.对象的特性对象最突出的特性有三个:封装性，继承性，多态性。1）对象的封装性对象的封装特性是把数据和操作数据的动作都组合在一个结构中,并根据需要通过不同的保存字段来设立这些数据和动作（方法）的可见性。这样作的目的是就可以隐藏类内部的复杂性，这对于对象的共享是非常有利的。2）对象的继承性对象的继承性也是对象的很重要的特性。继承性是指对象拥有祖先对象所共有的

4、特性，同时又具有自己的特性。3）多态性多态性是指对象可以接受多个不同类型的参数，然后自动的根据类型进行解决。电视也同样，电视可以接受无线信号，有线信号，VCD,DVD信号。电视会根据不同的信号模式自动选择解决方式。这个特性也是非常有用的。四、实验内容1.熟悉De 1 ph i 集成开发环境中的各个组成部分，涉及主窗口、代码编辑器、窗体设计器、对象观测器（Ob j ec t I nsp e ctor）和工程管理器（P r oj e c t M an ag er）,特别是主窗口的菜单栏和快捷工具栏。熟悉单元文献（*.pas）的结构，涉及unit语句、interface部分、implementati

5、on 部分、uses 子句。2.在一个窗口中包含3 个按钮，当用户单击其中一个时，规定其它个别按钮不能使用，如下图:单击 Button 1单击 B utton2单击 B u tto n 3设计环节如下:(1)应用程序用户界面的建立与对象属性参见上图,注意三个按钮Butt o n 1,Bu t ton2,Button3的T a g 属性分别为：0,1,2。(2)双击按钮Buttonl,系统自动声明默认的事件过程:Bu t tonlClic k,并同时打开代码编辑窗口。(3)编写Button 1 的 OnCli c k 事件过程代码:procedure TFonnl.ButtonlClick(Se

6、ndei TObject);beginCase(Sender as TButton).Tag of0:Button-.Enabled:=False;1:Buttonl Enabled:=False;2:beginButtonl Enabled:=Tnie;Button2.Eiiabled:=Tnie;end;end;end;注：se n der：可以让多个组件共享一个事件区a s 运算符：用来作类的转换，它会将左方操作数的这个变量所属的类，转为右方操作数那种类。(4)在对象观测器中依次选择B u tton2和 But t o n3,并在事件选项卡中选择事件OnCl i ck,从事件名称右边的下

7、拉列表中选择已建立的事件过程名Bu t ton 1 Cl i c k o(5)单击标准工具栏中的“R u n”按钮或按F9键，运营工程。3.计算阶乘5!、7!、15!,以及阶乘的和5!+7!+1 5!。分析：可以用过程Factorial来计算任意阶乘n!,每次调用过程前给n Value一个值，在过程Fac t oria 1 中将所求结果放入到Total变量中，返回主程序后F a c t变量接受Total的值 Forml-lD|x|Panel!5!+7!+15!=1307674373160|：5 D I 7!1 1 5!15!+7!+1 5!|5!1 7!|1 5!|k 5 l 7!王 T 5

8、ll设计环节如下：应用程序用户界面的建立与对象属性达成设立参见上图，下面给出通用过程以及事件过程代码：Factorial过程为：procedure Factorial(n:integer,var Total:int64);vari:integer,beginTotal:=l;for i:=l to n doTotal:=Total*i;end,按 钮 Buttonl的 OnClick事件代码为：pro c edure TF orm 1.Button 1 Click(S ender:T Obj ect);varFact:int64;beginFactorial 5,Fact);panel 1,C

9、aption:=format(5!=%d,feet);end,按 钮 Button2的 OnClick事件代码为：procedure TForml Button2Click(Sender:TObject);varFact:int64;beginFactorial。,Fact);panel 1,Caption:=format(7!=%d,feet);end;按 钮 Button3的 OnClick事件代码为：procedure TForml.Button3click(Sender:TObject);varFact:int64;beginFactorial 15,Fact);panel 1,Cap

10、tion:=format(45!=%d*,feet);end;按钮Button4的 OnClick事件代码为：procedure TForm 1.Button4Click(Sender:TObject);varsum:int64;Fact:int64;beginFactorial 5,Fact);sum:=Fact;Factorial。,Fact);sum:=sum+Fact,Factorial 15,Fact);sumsum+Fact,panel 1.Caption:=format(5I+71+15!=%d1,Sum);end;说明:通用过程的代码部分必须位于4 个按钮的事件代码之前才干被调

11、用。五、练习题和思考题1.验证b o o k 2 P 7 0 这个工程，并把其中的i f 的多分支语句改为case语句。2.自定义一个类，定义类的数据成员和方法程序，并编写代码实现类的实例化，编写代码实现类的封装、继承。六、预习规定1、熟悉和掌握实验目的。2、复习相关知识七、实验报告规定(1)规定写出程序的核心代码。(2)调试程序并进行分析实验二常用组件的使用一、实验目的通过实验，掌握D e Iphi中几个常用组件的应用。二、实验环境1.硬件:微机2.软件：DELPHI 7.0 专业版三、相关知识Delp h i 编程,窗体是组件的容器,窗体上的各个组件的设立是编程的重要工作。这次实验重要练习

12、如何创建菜单栏，工具栏和状态栏，以及TLab el,TEd i t,TMem o,TLi st b o x,TO p enD i a lo g,T Sav e D i alog 等几个组件的应用。T L a b e l我们称它为标签组件，它的重要功能是文字标注和说明作用。T Labe 1组件不能输入焦点。它重要属性是C aption,我们可以直接给C a pt i on赋值。T E d it组件重要用于实时显示用户输入的文本。当用户在其中输入字符时,将触发OnChange事件，表达编辑框当中的内容正在发生变化。它的T e x t 属性，键盘输入的内容就输入到这个属性中。这是个TStri n g

13、 类型的属性。我们通过读写T E d it.te x t中的内容来完毕我们的任务。假如要建立一个可以显示和编辑多行文本的文本编辑器，就要用到TM e mo(多行文本编辑器)了。TM e m o与 TEdit的不同之处重要体现在Lines属性上,它也是Tst r ings类型。TStri n g s是一个抽象类，它并没有真正实现操纵字符串的代码，它只是定义了一系列的方法。TS t ring s 的派生组件实现了事实上的字符串操纵方法，使用户可以操纵属于组件的字符串列表。这个类型中定义了 A dd,De 1 et e,1ns e r t 等方法，可以完毕加入，删除,插入某一行数据的操作。此外还可以

14、通过load fro mfile(),SaveT o F i l e()实现从文本文献中读入数据,和保存数据的功能。T L is tB o x 我们称它为列表框组件。它可以显示一个项目列表,并且用户可以从列表中选择一个或者多个项目。列表框的重要属性是Item s,它也是Tstri n g 类型,所以和TMemo的操作同样。四、实验内容1.建立一个列表框之间项目移动的工程，规 定 界 面 如 下 图 所 示，该项目清单如下:unit Unit 1;interfaceusesEndows,Messages,SysUtils,X&riants,Classes,Graphics,Controls,Fo

15、rms,Dialogs,StdCtrls;typeTF orml=class(TF orm)11:TListBox;bl:TButton;b2:TButton,12:TListBox;procedure b 1 CEck(Sender:TObject);procedure b2Click(Sender:TObject);privatePrivate declarations publicPubEc declarations)end;varForml:TFotml;implementation$R*,dftn)procedureTForml.blClick(Sender:TObject);beg

16、in酒口果没有项目被选择if(ll.ltemlndex=-1)thenbeginMessageDlg(请选择需要移动的项目;mtCustommbok,0);endelsebegin/赫加到另一个列表框12.Items.Add(ll.Itemsll.Itemindex);/府原有列表框中移除该项目11.Items.D detail.Itemindex);/汝 果此时原有列表框中还有项目，移动焦点到第一个项目上来(索引为。)if(ll,Count0)thenll.SelectedO:=true;end;end;procedureTForml.b2Click(Sender:TObject);begi

17、nif(12.1temlndex=-1)thenMessageDlg(请选择需要移动的项目、mtCustommbok,0)elsebegin11.Items.Add(12.Items12.Itemindex);12.Items.Ddete(12.Itemindex);if(12.Count0)then12.Selected0:Hrue;end;end;end.2.设计一个综合运用菜单的例子，并建立一个文本文献测试是否能实现应具有的功能。设计环节如下：(1 )向窗体中添加一个Mem o 组件，设立M e m o 的 Ali g n 属性为a 1 Clie n t,充满整个窗体；(2)向工程中添加

18、一个MainMenu组件，在菜单设计器中设立菜单项，设计后如图所示:(3)向工程中添加OpenDi a 1 o g 组件和SaveD i alog组件,设立过滤条件如图所示:(4)为菜单项设计的代码如下：procedureTFotml.OpenlClick(Sender:TObject);beginif OpenDialogl Execute thenbeginMemo 1,Lines.LoadFromFile(OpenDialogl.FileName);用丁开文件Memo 1.ScrollBars:=ssBoth;/设置垂直和水平流动条end;end;procedureTFonnl.Save

19、 1 Click(Sender:TObject);beginSaveDialogl.FileName:=OpenDialogl.Fil eName;if SaveDialo g 1.Ex ecute thenMemo 1,Lines.SaveT oF ile(SaveD ialogl.Fil eName);保存文件end,procedure TFotml.Cut 1 Click(Sender:TObject);beginMemo 1.CutT o Clipboard;end;procedure TFonn 1.CopylClick(Sender:TObject);beginMemo l.Cop

20、yT o Clipboard,end;procedure TFomi 1.Paste 1 Click(Sender:TObject);beginMemo 1 .Past eFromClipb oar d,end,procedure TForm 1.Exit 1 Click(Sender:TObject);beginClose;end;五、练习题和思考题1.编写代码实现TLabel和 TEdi t 组件的综合应用2.完善实验内容2 的设计菜单的例子，在这个例子的基础上，创建一个工具栏，规定在工具栏上有实现Co p y 和 Pa s t e 功能的快捷按钮,按钮上还要有图像(通过T I mageL

21、ist组件实 现)。六、预习规定1、熟悉和掌握实验目的。2、复习相关知识七、实验报告规定 规定写出程序的核心代码。(2)调试程序并进行分析实验三数据库应用程序的开发一、实验目的1 .熟悉数据库设计方法和数据库开发常用的组件；2 .掌握建立数据库应用程序的基本操作，掌握用SQ L 语言对数据库中的数据进行操作；3.掌握开发小型数据库应用系统的环节，综合所学知识。二、实验环境1 .硬件:微机2.软件：DELPHI 7.0 专业版三、相关知识1.数据库分类数据库根据结构可以分为文献型数据库和C/S 型数据库。文献型数据库的特点是数据库由单个或者多个文献组成，没有附加的管理程序。比较著名的文献型数据库

22、由Access、DBF、Pa radox等。A c cess是一个数据库管理系统，是 Of f i c e 办公软件中一个极为重要的组成部分。微软之所以把它集成到Office中而不是V isu a l Stud i。中，是由于它与其他的数据库管理系统相比更加简朴易学，并 且 A ccess的功能也足够强大，足以应付一般的数据管理及解决需要。本课程重要以Ac c e s s 数据库为主。C/S (C lie n t/S e r v e r,客户/服务器)型数据库是当前数据库应用的主流。与文献型数据库不同的是,C/S 型数据库应用程序有两个部分组成:服务器和客户机。服务器指数据库管理系统(D B

23、M S),用于描述、管理和维护数据库的程序系统。客户机则将用户的需求送交到服务器，再把数据从服务器返回给用户。C/S 型数据库非常适合于网络应用,可同时被多个用户所访问，并赋予不同的用户不同的安全权限。C/S型数据库支持的数据量一般比文献型数据库大得多，同时，C/S型数据库一般都能完善地支持SQ L语言。这些特性决定了C/S 型数据适合于高端应用。比较著名的C/S型数据库有SQL Ser ver.Or a c le 以及D e Iphi自带的In ter B a se 等。2.Delp h i 访问数据库的机制ADO(Ac t iveX Da t a。bjects)是Microsof t 公司

24、提供的数据访问技术,De 1 p hi 提供了对ADO技术的完善支持。通过提供的对A D O 常用对象的封装，用户可以迅速实现数据库应用程序的开发而不需要使用BD E。与 BDE相比，ADO是一种通用的数据库访问技术，得到了广泛的支持，其特点是合用范围广泛、易于升级和维护。通过连接的数据库应用程序在分发时一般不需要像BDE同样，需要在每个客户机上安装BDE驱动程序,由于系统中一般都支持A D O 连接。4.数据库组件Delph i 的数据库组件重要有数据控制(感知)组件、数据访问组件和数据连接接受组件。ADO组件和B D E 组件就是数据连接接受组件。它们和数据库的关系可以用下面的示意图来表达

25、：用户 数据控制组件-一 数据访问组件-A D 0 组件-一 数据库A D O 组件位于组件栏的A DO选项卡中，一共有7 个组件。A DO组件分为三组，一类是数据连接组件，比 如 TADOConnecti。n,它用于和数据库建立连接，获取数据库层面的一些信息，并向别的组件提供数据库连接;此外一种是数据集组件，比如TADOTa b 1 e,TADOQu e r y 组件，它们都有一个共同的基类(T ADODa t as e t)。数据集可以理解成是数据库中一张或多张数据表，只但是这种表由ADO封装过以便于程序操作。我们对数据库的操作其实是通过数据集为中介来进行的。数据访问组件位于组件栏的Dat

26、 a Access选项卡中，它用来把非可视化的数据集控件与可视的数据控制组件连接在了一起，这样数据集中的数据就可以在数据控制组件中显示出来，并且通过数据控制组件可以编辑、删除、增长数据集中的数据。数据控制组件也可称为数据感知组件或数据显示组件。它们的重要功能是和数据访问组件配合供用户对数据进行浏览、编辑等操作。也就是说应用程序可以通过这些组件浏览数据集中的数据信息，还可以编辑修改数据信息并将它们提交给数据库。数据控制组件位于DataC ontrols选项卡上。4.最重要的SQL语句 SELECTSELECT语句用于从一个表或多个表中根据条件检索列和行。I NSERTIN SE R T 语句用于

27、向一个表中增长行。UPDATEU P DATE语句用于更新表中已经存在的行的一个或者多个字段值。DELETEDELETE语句用于从一个表中删除行。四、实验内容1.数据库的建立我们以A c c e s s为例建立一个学生基本情况库。1）启动A cces s出现数据库建立向导，如图选择空的数据库，然后为数据库命名为学生资料这时一个空的数据库便建立起来。2）规划系统中表结构和关系。建立表。A ccess有几种方式来进行表的建立。我们以使用设计器的方式来建立表。我们要建立一个学生基本信息的库，所以一方面要建立一个学生表。一个学生的基本信息设立如下:国学生资料:数据库表1:表嚼打开地）国 设 计 如 说

28、 新 建 国）%字段名称0 J使用玄计黔创建表使用向导创健走通过研人故糖创建表日月年号名别生级话片学姓性出班电照丽本本本M/本本文文文日文文常规I查阅I字段大小绘对3）击学生表，在表中填入记录如下,国 学 惠 表学 号 姓名 性 别 I出 生 年 月 日I 班 级 电话 里片二 0001002_ 01010010101002张小军李小平赵丽李华_ 0202001_ 03010090301010*平平男男女女男女女女1987-10-1 00计算机应用 821490161986-4-23 00计算机应用 964678971988-5-21 01 计篁机应用 139568493121987-1-24

29、 01 计篁机应用 969696961986-9-5 02网络管理 568791241988-3-12 02计篁机应用 131945687951988-11-28 03信息管理 786548551988-4-5 03信息管理 13562416548这样就完毕了一个简朴的数据库的建立。2.编写一个数据库应用程序，除了可以完毕正常的排序功能之外，还规定单击某列标题时,按照升序方式排序,再次单击时,按照相反的方式排序。设计环节如下:（1）设计应用程序界面如下:Forml,廿 ”公司名称连锁珈I啡用品公司-第四咖啡用品有限公司健康食品屋罗斯文商贸火山物啡公司排序方式 .升序排列,降序排列排序(2)设立

30、 ADO C on n e c t i on!,A D O Q u e r y 1,D a t a S ou r c e 1,DB G r i d 1 的数据库连接为 of f i c e 中自带的 c o n t a c t.m d b,一般保存在 c：p ro g ra m f i l e s M i c r o s o f t o f f i c e o f f i c e s a mp l e s 目录下。(3)程序完整代码如下：unit Unitl;interfaceusesWindows,Messages,SysUtils,&riants,Classes,Graphics,Cont

31、rols,Forms,Dialogs,StdCtrls,Grids,DBGrids,DB,ADODB;typeTForrnl=class(TForm)ListB oxF ieldNames:TListB ox;ADOConnectionl:TAD0 Connection;DataSourcel:TDataSource;DBGridl:TDBGrid;GroupBoxl:TGroupBox;Radio Button 1:TRadio Button;Radio Button2:TRadio Button,Button 1:TButton,ADOQueryl:TADOQuery,proc edure

32、 DB Grid ITitleC lick(C olumn:T C olumn);proc edure Button 1 Click(S ender:T Obj ect);procedure FormCreate(Sender:TObject);function GetSortMode:String,function GetSortName:string;privatePrivate declarationspublicPublic declarationsend;function G etS ortMo delnDB Grid:string;varForml:TFoiml;implement

33、ation$R*dftn)procedure TForml.FormCreate(Sender:TObject);beginAD0 Connectionl.GetFiddNames。公司,ListBoxFieldNames Items);end;function TF orm 1.G etS ortMo de:String;beginif(Radio Button 1.Checked)thenResult-ASCelseResult尸DESO;end;function TForml.GetSortName:string;beginResult:=ListB oxF i eldNames.Ite

34、ms ListB oxF ieldNames.Itemindex;end;pro c edure TF arm 1.Button 1 Click(S ender:T Obj ect);beginAD 0 Query 1.S ort:=G et S ortName+1+GetS ortMo de,end,function G etS ortMo delnDB Grid:string,varT empString,S ortString:string;begin娥得排序字符串S ortString:=F orm l.ADOQuetyl.Sort;网 E 序字符串的形式是“字段排序常数得利用两者之间

35、的空格获取排序常数字符串T empString:=c opy(S ortString,p o 父 二 S ortString),255);比较排序方式，得到新的排序常数字符串/Tnm用于消除字符串的空格，Uppercase用于将字符串转换为大写意用于比较字符串if(Upp er Cas e(Trim(T emp String)-AS C)thenTempStringDESCelseTempString:=ASC;Result:=T emp String;end;pro c edure TF orm 1.DB Grid 1 TitleC lick(C olutnn:T C olumn);begi

36、nADOQuery 1.Sort:=Column.DisplayName+,+GetSortModeInDBGrid;end;end.(4)运营之后，选择排序字段，选择排序方式，单击按钮，看运营结果(5)两次单击某列标题，看运营结果。3 .看一个T D B T e x t 和 T DBEd i t 组件的应用实例，这个例子可以通过T DBN a v i g a t o r组件控制数据集的记录指针，并通过T DBT e x t 组件和T D B Ed i t 组件显示数据集的数据,用户还可以通过T DBEd i t 组件修改数据集中某些字段的值,然后提交更改。我们还可以通过DBIm a g e

37、1 组件的快捷菜单来添加照片或删除照片，照片这里为b mp文献格式。设计环节如下：18)设计应用程序界面如下:7 Fonnl电话(2)设立组件的属性：A D O C o n n e c t i o n 1连接到数据库实验1刚刚建立的数据库“学生资料.m d b”上；A DO Q u e r y 1 的属性：C o n n e c t i o n:A D O C o n n e c t i o n 1S Q L:s e l e c t *f ro m 学生A c t i v e：T ru eD B N a v i g a t o rl 的属性:Da t a S o u r c e:Da t a

38、S o u rc e lD BT e x t 1 的属性：D a t a S o u rc e：Da t a S o u r c e lD a t a F i e l d:N a m eD B E d i t l的属性设立与D BT e x t 1类似，O p e n Di a l o g l 和S a v e Di a l o g l 的 Fi l t e r属性:Fi 1 t e r N a m e 为 B M P 图 片,Fi 1 t e r 为*.b m pP o p u p M e n u设立为如图所示：L读取2删除二复制E粘贴X剪切2另存为至于其他的一些属性设立这里就不赘述了。(3

39、)整个程序的代码如下：u n i t U n i t 1;i n t e rf a c eu s e sW i n d o w s ,M e s s a g e s,S y s U t i l s,V a ri a n t s,C 1 a s s e s,G r a p h i c s,C o n t ro l s ,Fo rm s,Di a l o g s,DB,A D O D B,S t d C t r Is,M a s k,DBC t r 1 s,E x t C t r 1 s ,M e n u s;t y p eT Fo rm 1 =c l a s s (T Fo rm)Label 1

40、 ：TL a be 1 ;Labe 1 2:TLa b e 1;L a be13：TLabel;Labe I 4:TLa b e 1 ；Label5：TLa b e 1;Label6：TLab e 1;DBTextl:TDBT e x t;D B Ed i tl:T DBEdit；D BEdit2：TDBEd i t;DBEd i t3:TDBEdi t;D BEd i t 4:TD BEdit;D BEd i t5:TDBEdi t;A D OCo n n e ctio n 1 ：T A DOCo n n ection；ADOQu e ryl:T A DOQue ry;D ata S our

41、ce 1 ：TData S ource；DBNavi g a t orl：T D BNavigator;O p e n Dialog 1 ：T Op e nDial o g;S aveDial o g l:T SaveDialog：PopupMenu 1:TPopupMenu；M e nuLoad:TMe n u I tern;MenuDe 1 e t e:TMe n ultem;MenuSeper a tor:TMen u It e m；M e nuCop y:TMenu I t e m；MenuPaste:TMe n u I t em;MenuC ut:TMe n ultem;M e n

42、u Save As:TMen u Item;D B Image 1 ：TDBImage;p r o c edu r e Me n u L o a dCli c k(S e nder：T Object)；proc e du r e MenuD e le t eC 1 i c k(S e nder:TO b j e c t);p rocedure Men u CopyClick(Sen d e r：TOb j e ct);p roc e dure Menu PasteClick(Sender：TOb j e c t);pr o cedu r e Men u C u tC lick(S e n d

43、e r:TObject)；proced u r e MenuSave AsC 1 i c k(Sen d er:TObject);private Pr i v a t e d e c la r a ti o n s)p u b lic P u b lie dec 1 arations end；v arFo r ml:TForml;implem e nt a tion$R*.d f mprocedure TForml.MenuLoadClick(Sender:TObject);varPic:TPicture;begin设定数据集为编辑状态，这段代码相当于ADO Query 1.Edit;/DB

44、Image 1.DataS ourc e.DataS etEdit;的丁开文件选择对话框选择文件if(Op enDialo g 1.Execute)thenbegin创建f TPicture对象Pic:=TPicture Create();try从文件中读取图片Pic.LoadFromFile(Op enD ialo gl.F ileName);川各图片赋解 DBImagel对象DB Image 1.Picture.Bitmap.As sign(Pic);finally/佣 Try.Finally结构确保新建的TPicturu对象被释放Pic.Free;end,end;/便新数据集DB Ima

45、ge 1.DataS ourc e.DataS et.Po st;end;procedure TForm 1.MenuDeleteClick(Sender:TObject);beginDB Image 1 .DataSource.DataSet.Edit;DB Image 1.Picture.Bitmap:=nil;DB Image 1.DataS ourc e.DataS et.Po st;end;procedure TForm 1.MenuCopyClick(Sender:TObject);beginDBImagel.CopyTo Clipboard;end;procedure TForm

46、 1.MenuPasteClick(Sender:TObject);beginDB Image l.PasteF romCEpboard,end;procedure TForm 1.MenuCutClick(Sender:TObject);beginDBImagel.CutTo Clipboard;end;pro c edure TF orm 1.MenuSaveAs Click(S ender:T Obj ect);beginif(SaveDialo g 1.Execute)thenDB Image 1.Picture.Graphic.SaveT oFile(SaveD ialo gl.Fi

47、l eName);end;end.(4)运营程序，验证是否能实现应有的功能。4.使用动态SQL语句来完毕查询比如我们需要通过“姓名”字段查询“学生”数据表中的数据。和往常同样新建一个应用程序，添加一些人口0 组件以及一个丁口8614(1组件、一个TBut t on组件和一个T E dit 组件。TEd i t 组件用于输入条件值。在 TA DOQue r y 组件的SQL属性中填入“S elect*fro m 学 生 WHERE姓名一姓名”。程序界面设计如下:添 加B u t t o n i ck的事件代码如下:pro c edure TF arm 1.Button 1 Click(S ender:T Obj ect);beginwith ADOQueryl dobeginClose;为参数赋值Parameters.ParamByName(姓名),&lue:=Edit 1.T ext;Open;end,end;5 .综合设计综合运用知识完毕一个功能完整的小型数据库应用系统，规定完毕数据的增长、删 除、修改等功能夕卜，还需要:灵活而强大的数据查询功能;对图像数据的支持;五、预习规定1、熟悉和掌握实验目的。2、复习相关知识六、实验报告规定（1）规定写出程序的核心代码。（2）调试程序并进行分析