2023年实验指导书给学生

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

Ｄeｌphi提供了两种机制用于设计子程序，它们分别是过程(proｃeｄure)和函数（funｃtion)。Delpｈi的过程分为标准过程与自定义过程两种。标准过程是指系统内部为完毕某种系统功能而定义的过程,无须编写代码,即可直接使用。用户自定义过程则由用户自行编写代码以完毕指定的操作。2.类和对象的定义在客观世界中，每一个事物都可以看作是一个对象(Object),这些对象有自己的属性。对对象进行抽象,提取出对象通用的属性就形成了类。“类”是对某一具有共同特性的实体的描述。从这个角度上看，“类”和数据类型是同样的。但是类所不同的是类不仅对实体的属性进行了描述,并且还对实体所具有的动作(方法)特性进行了定义,从而使得类可以完全描述出一个现实的实体。“对象”对象是类的实例化。是类的具体体现。本质上也是一种数据结构。类和对象的关系与数据类型和变量的关系是一致的。在Delphi编程中对象可以被理解为可视化控件如按钮、标签等。对象的特性对象最突出的特性有三个:封装性，继承性,多态性。对象的封装性对象的封装特性是把数据和操作数据的动作都组合在一个结构中,并根据需要通过不同的保存字段来设立这些数据和动作(方法）的可见性。这样作的目的是就可以隐藏类内部的复杂性,这对于对象的共享是非常有利的。对象的继承性对象的继承性也是对象的很重要的特性。继承性是指对象拥有祖先对象所共有的特性,同时又具有自己的特性。多态性多态性是指对象可以接受多个不同类型的参数,然后自动的根据类型进行解决。电视也同样，电视可以接受无线信号，有线信号，VCＤ,ＤVD信号。电视会根据不同的信号模式自动选择解决方式。这个特性也是非常有用的。四、实验内容1．熟悉Dｅｌｐhｉ集成开发环境中的各个组成部分，涉及主窗口、代码编辑器、窗体设计器、对象观测器（ＯbｊecｔＩnspｅctor)和工程管理器(PｒojｅcｔManａgeｒ),特别是主窗口的菜单栏和快捷工具栏。熟悉单元文献(*.pas）的结构,涉及unit语句、interfaｃe部分、implementation部分、useｓ子句。2.在一个窗口中包含3个按钮,当用户单击其中一个时，规定其它个别按钮不能使用，如下图：单击Buttoｎ1单击Ｂutton2单击Ｂｕttoｎ3设计环节如下:(1)应用程序用户界面的建立与对象属性参见上图,注意三个按钮Ｂuttｏｎ１,Bｕｔton2,Ｂutton3的Ｔａg属性分别为：０，１,２。(２)双击按钮Button1,系统自动声明默认的事件过程:Bｕｔton1Cliｃｋ，并同时打开代码编辑窗口。(3)编写Button1的OnCliｃk事件过程代码：注：sｅｎｄer：可以让多个组件共享一个事件区ａs运算符：用来作类的转换,它会将左方操作数的这个变量所属的类,转为右方操作数那种类。（４)在对象观测器中依次选择Bｕtton2和Butｔｏn3,并在事件选项卡中选择事件OnClｉcｋ，从事件名称右边的下拉列表中选择已建立的事件过程名Buｔton１Clｉcｋ。

(5）单击标准工具栏中的“Rｕn”按钮或按<Ｆ9>键，运营工程。3.计算阶乘5！、7！、15!,以及阶乘的和5！＋７!+１5！。分析：可以用过程Factorial来计算任意阶乘n!，每次调用过程前给ｎValue一个值,在过程Facｔoriaｌ中将所求结果放入到Total变量中,返回主程序后Fａct变量接受Total的值

设计环节如下:

应用程序用户界面的建立与对象属性达成设立参见上图,下面给出通用过程以及事件过程代码:说明:通用过程的代码部分必须位于４个按钮的事件代码之前才干被调用。五、练习题和思考题１．验证bｏok２p７０这个工程,并把其中的ｉf的多分支语句改为case语句。2．自定义一个类，定义类的数据成员和方法程序,并编写代码实现类的实例化，编写代码实现类的封装、继承。六、预习规定1、熟悉和掌握实验目的。2、复习相关知识七、实验报告规定（1）规定写出程序的核心代码。(2）调试程序并进行分析实验二常用组件的使用一、实验目的通过实验,掌握Ｄｅlphi中几个常用组件的应用。二、实验环境１．硬件:微机2．软件：ＤELPHI7.0专业版三、相关知识Delpｈi编程,窗体是组件的容器,窗体上的各个组件的设立是编程的重要工作。这次实验重要练习如何创建菜单栏,工具栏和状态栏,以及TLaｂel,ＴEdｉt,TMemｏ，TＬiｓｔbｏｘ,TOｐenDｉａloｇ,ＴSavｅＤｉalog等几个组件的应用。ＴＬａbel我们称它为标签组件，它的重要功能是文字标注和说明作用。ＴＬabeｌ组件不能输入焦点。它重要属性是Caption，我们可以直接给Cａptｉon赋值。TＥdiｔ组件重要用于实时显示用户输入的文本。当用户在其中输入字符时,将触发OnＣhange事件,表达编辑框当中的内容正在发生变化。它的Tｅxｔ属性,键盘输入的内容就输入到这个属性中。这是个TStrｉｎｇ类型的属性。我们通过读写ＴＥｄit．ｔext中的内容来完毕我们的任务。假如要建立一个可以显示和编辑多行文本的文本编辑器，就要用到TＭｅmo（多行文本编辑器）了。TMｅmo与ＴEdit的不同之处重要体现在Lines属性上,它也是Tstｒings类型。TStriｎgs是一个抽象类，它并没有真正实现操纵字符串的代码，它只是定义了一系列的方法。TSｔringｓ的派生组件实现了事实上的字符串操纵方法，使用户可以操纵属于组件的字符串列表。这个类型中定义了Adｄ，Deｌetｅ,Insｅrｔ等方法，可以完毕加入，删除,插入某一行数据的操作。此外还可以通过loadｆrｏmfile（）,SaveTｏFｉle()实现从文本文献中读入数据,和保存数据的功能。TＬisｔBoｘ我们称它为列表框组件。它可以显示一个项目列表,并且用户可以从列表中选择一个或者多个项目。列表框的重要属性是Itemｓ，它也是Ｔstriｎｇ类型,所以和ＴＭemo的操作同样。四、实验内容1．建立一个列表框之间项目移动的工程,规定界面如下图所示,2．设计一个综合运用菜单的例子，并建立一个文本文献测试是否能实现应具有的功能。设计环节如下：(１)向窗体中添加一个Ｍeｍｏ组件，设立Ｍｅmｏ的Aliｇｎ属性为aｌClieｎｔ，充满整个窗体；(2)向工程中添加一个ＭainＭenu组件,在菜单设计器中设立菜单项，设计后如图所示:(3)向工程中添加OpenDiａlｏg组件和SaveＤｉalog组件,设立过滤条件如图所示:（4)为菜单项设计的代码如下:五、练习题和思考题1．编写代码实现ＴLabel和TEdiｔ组件的综合应用2.完善实验内容2的设计菜单的例子，在这个例子的基础上，创建一个工具栏，规定在工具栏上有实现Coｐｙ和Paｓtｅ功能的快捷按钮,按钮上还要有图像（通过TＩmageList组件实现）。六、预习规定1、熟悉和掌握实验目的。2、复习相关知识七、实验报告规定(1)规定写出程序的核心代码。（2)调试程序并进行分析实验三数据库应用程序的开发一、实验目的１．熟悉数据库设计方法和数据库开发常用的组件；２.掌握建立数据库应用程序的基本操作，掌握用SＱL语言对数据库中的数据进行操作；3．掌握开发小型数据库应用系统的环节，综合所学知识。二、实验环境１．硬件:微机2．软件:ＤELPHI7.0专业版三、相关知识1.数据库分类数据库根据结构可以分为文献型数据库和Ｃ/S型数据库。文献型数据库的特点是数据库由单个或者多个文献组成，没有附加的管理程序。比较著名的文献型数据库由Access、DBF、Pａradox等。Aｃcess是一个数据库管理系统,是Ofｆiｃe办公软件中一个极为重要的组成部分。微软之所以把它集成到Office中而不是ViｓuａlStudｉo中,是由于它与其他的数据库管理系统相比更加简朴易学,并且Accｅss的功能也足够强大，足以应付一般的数据管理及解决需要。本课程重要以Acｃesｓ数据库为主。C／S（Clｉeｎt／Sｅrver，客户/服务器）型数据库是当前数据库应用的主流。与文献型数据库不同的是,Ｃ／S型数据库应用程序有两个部分组成:服务器和客户机。服务器指数据库管理系统(DBＭS），用于描述、管理和维护数据库的程序系统。客户机则将用户的需求送交到服务器，再把数据从服务器返回给用户。C／S型数据库非常适合于网络应用,可同时被多个用户所访问,并赋予不同的用户不同的安全权限。C/S型数据库支持的数据量一般比文献型数据库大得多，同时，C/S型数据库一般都能完善地支持SQL语言。这些特性决定了Ｃ／Ｓ型数据适合于高端应用。比较著名的C/S型数据库有SQLSerｖer,Ｏrａｃle以及Dｅlphi自带的IｎterＢａse等。2.Ｄelpｈi访问数据库的机制ADＯ(AcｔiveＸDaｔaＯbjects)是Ｍicrosofｔ公司提供的数据访问技术,Deｌpｈｉ提供了对ADO技术的完善支持。通过提供的对ＡＤO常用对象的封装,用户可以迅速实现数据库应用程序的开发而不需要使用BDＥ。与BDE相比，ADO是一种通用的数据库访问技术，得到了广泛的支持,其特点是合用范围广泛、易于升级和维护。通过连接的数据库应用程序在分发时一般不需要像BDE同样，需要在每个客户机上安装BDＥ驱动程序,由于系统中一般都支持AＤO连接。数据库组件Delphｉ的数据库组件重要有数据控制(感知)组件、数据访问组件和数据连接接受组件。ADO组件和BＤE组件就是数据连接接受组件。它们和数据库的关系可以用下面的示意图来表达:用户←→数据控制组件←→数据访问组件←→AＤO组件←→数据库ＡＤO组件位于组件栏的ＡDO选项卡中，一共有7个组件。ＡDO组件分为三组，一类是数据连接组件，比如TADOConnectioｎ，它用于和数据库建立连接，获取数据库层面的一些信息，并向别的组件提供数据库连接;此外一种是数据集组件,比如ＴAＤOTａbｌe，TＡDOQuｅrｙ组件,它们都有一个共同的基类(ＴＡDＯDaｔasｅt)。数据集可以理解成是数据库中一张或多张数据表，只但是这种表由ADO封装过以便于程序操作。我们对数据库的操作其实是通过数据集为中介来进行的。数据访问组件位于组件栏的DatａＡccess选项卡中，它用来把非可视化的数据集控件与可视的数据控制组件连接在了一起,这样数据集中的数据就可以在数据控制组件中显示出来,并且通过数据控制组件可以编辑、删除、增长数据集中的数据。数据控制组件也可称为数据感知组件或数据显示组件。它们的重要功能是和数据访问组件配合供用户对数据进行浏览、编辑等操作。也就是说应用程序可以通过这些组件浏览数据集中的数据信息,还可以编辑修改数据信息并将它们提交给数据库。数据控制组件位于DataＣontrols选项卡上。4.最重要的SQL语句ＳELECTSELECT语句用于从一个表或多个表中根据条件检索列和行。ＩNSERTＩNＳERT语句用于向一个表中增长行。ＵPDＡTＥUＰDATE语句用于更新表中已经存在的行的一个或者多个字段值。DELEＴEＤELETE语句用于从一个表中删除行。四、实验内容1．数据库的建立我们以Ａｃｃｅｓｓ为例建立一个学生基本情况库。启动Aｃceｓｓ出现数据库建立向导，如图选择空的数据库,然后为数据库命名为学生资料。这时一个空的数据库便建立起来。规划系统中表结构和关系。建立表。Acceｓs有几种方式来进行表的建立。我们以使用设计器的方式来建立表。我们要建立一个学生基本信息的库，所以一方面要建立一个学生表。一个学生的基本信息设立如下：击学生表，在表中填入记录如下,这样就完毕了一个简朴的数据库的建立。２.编写一个数据库应用程序,除了可以完毕正常的排序功能之外，还规定单击某列标题时,按照升序方式排序,再次单击时,按照相反的方式排序。设计环节如下:设计应用程序界面如下：(2)设立ADOＣonnection1,ＡＤOQuery1,DataSource1,DBＧrid1的数据库连接为office中自带的coｎtaｃt.mdb,一般保存在c：\prograｍｆiles\Miｃｒosｏｆtoffice＼office\ｓａｍples＼目录下。(3)程序完整代码如下:（4)运营之后，选择排序字段,选择排序方式,单击按钮，看运营结果(5)两次单击某列标题，看运营结果。３．看一个TＤＢＴext和TDBEｄｉt组件的应用实例，这个例子可以通过ＴDBNａvigaｔor组件控制数据集的记录指针，并通过TDBTeｘt组件和ＴＤＢEdit组件显示数据集的数据，用户还可以通过TDBEdit组件修改数据集中某些字段的值,然后提交更改。我们还可以通过DＢImａｇｅ1组件的快捷菜单来添加照片或删除照片，照片这里为ｂｍp文献格式。设计环节如下：ﻫ(1）设计应用程序界面如下：(2)设立组件的属性：AＤOConｎection1连接到数据库实验1刚刚建立的数据库“学生资料.mｄb”上；ＡDOQuerｙ1的属性：Cｏnneｃtｉon:AＤOCoｎnｅcｔioｎ1SQL:selｅct*from学生Acｔｉve：TruｅDＢNａvｉｇaｔｏr1的属性:DaｔaSｏuｒce:DataSｏurce1DＢTeｘｔ1的属性：ＤataSource：ＤataSoｕrｃe1DａｔａFｉｅld:NameDＢEdit1的属性设立与ＤＢTexｔ1类似，ＯpenDialｏｇ1和SaｖｅDiaｌog1的Filter属性:FｉｌterNaｍe为BMＰ图片，Fｉｌｔer为*.bｍｐPopupMenu设立为如图所示：至于其他的一些属性设立这里就不赘述了。(3)整个程序的代码如下：unitUnit1;interfaｃeusesＷｉndowｓ,Mesｓages,SysUtils,Ｖａriａｎts,Ｃｌａsses,Gｒapｈics,Ｃontrolｓ,Forｍs,Diａlogs，DB,ADOＤB，StdＣｔｒls,Mask,DBＣtrｌs，ＥxtＣtrｌｓ,Menus;tｙpeTForｍ1＝cｌａsｓ(ＴForm)Label1：TLａbeｌ;Labeｌ2:TＬaｂｅl;Lａbel3：TLabel;Labeｌ4:TLaｂｅｌ；Label5：ＴLaｂｅl;Label6：TLabｅl;ＤBText1:TDBTｅｘｔ;ＤＢＥdｉt1:ＴＤBＥdit；ＤＢEdit２：ＴDBEdｉt;ＤBEdｉt3:TDBEdiｔ;ＤＢEｄｉｔ4:TＤＢEdit;ＤＢEdｉt5:TDBＥdiｔ;AＤOCoｎｎｅctioｎ1：TＡDOCoｎｎection；ADOQuｅｒy1:TＡＤOＱueｒy;ＤataＳource1：TDataＳource；DBNaviｇaｔor1：TＤBNavigator;OｐｅｎＤialog１：ＴＯpｅnDialｏg;ＳaveDialｏg1:ＴSaveDialog；PopupMenu1:TPopupMenu；ＭｅnuLoad:TMeｎuＩtem;MenuDeｌeｔe:TMeｎuItem;MenuSeperａtor:TMenｕItｅm；MｅnuＣopｙ:TＭenuＩｔｅm；MenuPaste:TMeｎｕIｔem;MenuＣut:TＭeｎuItem;MｅｎｕSaveＡs:TMenｕItem;DＢImage1：TDBImage;