图形图像与多媒体技术.ppt

1、Delphi程序设计教程,机械工业出版社 刘瑞新等编著,主讲：王洪锦,第十二章 图形图像与多媒体技术,11.1 几何图形控件Shape 11.2 图象控件Image 12.3 画布（Canvas）对象,11.1 几何图形控件Shape,位于工具栏上的additional页中，用于窗体上绘制一些常见的几何图形，如矩形、圆、椭圆、圆角矩形等。 常用属性： 1、Shape: 设置需要绘制的几何图形种类； 2、Brush: 设置图形填充的模式（style）和颜色（color）； 3、Pen属性: 像Brush一样，包含Color，Style，Mode，Width子属性。,11.2 图象控件Image,

2、图象控件是一种容器控件，它在应用程序窗体上提 供一个矩形区域，用于显示位图、图标、图元文件。 1、常用属性 Picture: 调入指定的图形文件 Autosize: 是否自动调整大小以适应调入的图形 Stretch: 图形是否自动缩小或放大以适应控件的大小 2、使用调用过程 Procedure LoadFromFile(const DileName:string); 说明：在程序运行期间调入图形。,例：在窗体中显示图形 Image1.Picture.LoadFromFile(c:progr a1.bmp); 也可以使用打开图片对话框： if openpicturedialog1.execute

3、 then begin filename:=openpicturedialog1.filename; image1.picture.loadfromfile(filename); end;,12.3 画布（Canvas）对象,画布对象用于应用程序的图形输入。 一、像素操作（Pixels） 像素是组成图形最基本的单位。画布上的每一个 点都有一个对应的像素，用来代表此点的颜色。 例：使用Pset的方法绘制圆的渐开线。 x:=form1.ClientWidth/2; y:=form1.clientheight/2; for t:=0 to 15000 do begin xt:=round(cos(t

4、/100)+t*sin(t/100)/100+x); yt:=round(-sin(t/100)-t*cos(t/100)/100+y); canvas.pixelsxt,yt:=clblue;,二、画笔操作 1、画线的方法 1）画笔移动：Moveto(x, y: integer)； 2）画直线段：Lineto(x, y: integer); 3）画折线：Polyline(points: array of TPoint); 2、画矩形：Rectangle(x1, y1, x2, y2: integer); 3、画椭圆：Ellipse(x1, y1, x2, y2: integer); 4、画弧

5、形：Arc(x1, y1, x2, y2, x3, y3, x4, y4: integer); 5、圆角矩形：Roundrect(x1, y1, x2, y2, x3, y3: integer); 例：使用Canvas属性基本作图方法，画出以下图形 利用窗体的paint事件编码。,三、画刷操作 1、画刷的属性 1）颜色属性（Color） Canvas.Brash.Color:=; 2）风格属性（Style） 3）位图属性（Bitmap） 可以程序运行阶段动态的创建或删除 Bitmap.Creat; Bitmap.LoadFormFile(文件路径); Bitmap.Free; 2、作图区域（R

6、ect） 例：在窗体指定区域中显示图片。,第13章 Delphi数据库编程,13.1 数据库系统开发基础 13.2 BDE数据库应用程序开发概述 13.3 Delphi中的SQL编程,13.1 数据库系统开发基础,数据库系统由三大部分组成：数据库管理系统、 数据库应用程序和数据库。 一、数据库管理系统（DBMS） 是用于描述、管理和维护数据库的系统程序，是 数据库系统的核心组成部分。 DBMS主要有三种类型：层次数据库系统、网状 数据库系统、关系数据库系统。 关系数据库（Relational Database）：一个关 系数据库是由若干表组成。,表（Table）：一个表就是一组相关的数据按行排

7、 列，像一张表格一样。 字段（Field）：在表中，每一列称为一个字段。 记录（Record）：在表中，每一行称为一条记录。 二、Delphi的数据库特性及功能简介 是Borland公司于1994年底发布的用于开发数 据库应用程序的工具，Delphi结合了传统的编程 语言Object Pascal和数据库语言的强大功能，既 可以用于传统的算术编程又可以用于数据库编程。,三、Delphi的数据库辅助工具 1、Database Desktop(数据库工作平台） 可以建立数据库表的结构，并能修改数据库表的结构，完成对数据库表的数据输入、修改、删除及查询等。 打开Database Desktop： 单

8、击“开始”菜单“程序” “Borland Delphi 7” “Database Desktop” 建立新表：单击菜单”File” ”New” ”Table” 打开数据表：单击菜单”File” ”Open” ”Table” 编辑数据：单击菜单”Table” ”Edit Data” 修改库结构：单击菜单”Table” ” Restructure”,2、BDE Administrator（数据库引擎管理器） 是BDE的配置程序，它主要对Delphi数据库应用程序使用的别名进行管理，配置驱动程序等信息。 打开BDE Administrator ： 单击“开始”菜单“程序” “Borland Delp

9、hi 7” “BDE Administrator ” 建立新的数据库别名：单击鼠标右键“New” 3、ODBC（开放数据库链路） 提供对于Delphi不支持的数据库连接。使用ODBC来连接数据库,就要获得连接数据库的ODBC驱动程序. 配置方法:通过控制面板中的ODBC Data Sources,13.2 BDE数据库应用程序开发概述,Delphi提供了许多控件以方便地创建数据库应用 程序。可以利用BDE访问多种数据库管理系统的数 据库. Delphi的控件板上提供了三页BDE数据库应用 程序开发中所要使用的控件。 一、BDE数据集部件（BDE） 用于直接访问数据库中的数据库表。包含了用 于各

10、种BDE数据引擎的数据集构件，这些构件封装 了数据库连接、数据表格、数据查询等特性。 但它们本身不能显示数据库中的数据信息。,1、TTable部件 可以使用该构件存取数据库表的每一行、每一 列，可以查看和编辑数据库表中的数据。 常用属性： DatabaseName: 指定要访问的数据库所在的路径 名，常用的是它的别名。 TableName: 指定要访问数据库中具体的数据库表。 Active: 表示是否打开要访问的数据库表。 ReadOnly: 为True，用户只能读取数据表中的数据。 Filter: 用于指定数据集的筛选器，即相当于使用 SQL语句中的Where语句。,Filtered: 用来

11、表明数据集的过滤器是否被激活。 缺省情况下，Ttable部件中包含了要访问的数 据库表中所有的字段和记录，用鼠标双击Ttable， 会出现一个字段编辑器（Fidlds Editor)，可以对显 示格式等属性进行编辑。 2、TQuery部件 提供一种使用SQL语句进行数据访问的方法。 可以对一个或多个数据库表中的记录进行访问。 常用属性： DatabaseName: 指定将要访问的数据库的路径名。 SQL: 指定对数据库表进行访问SQL语句。 Active: 表示是否打开要访问的数据库表。,Params: 设置SQL语句使用的多个参数。 二、数据控制部件（Data Controls） 也称数据浏

12、览控件，主要用于设计用户界面，对数据库中的数据进行浏览、编辑、插入、删除等操作。但它不具备访问磁盘数据库的能力。 1、TDBGrid控件 用网格的形式显示数据库表中的记录信息。 2、TDBNavigator控件 使用该部件可以向前向后移动记录指针，可以使用该部件对单条记录进行编辑。,3、TDBText控件 显示数据库中的数据的文本框，只能显示当 前记录的字段值，用户不能对其修改。 4、TDBEdit控件 显示和编辑数据的编辑框，可以显示和编辑 数据库表中当前记录的字段值。 常用属性： DataSource: 连接数据源； DataField: 说明数据浏览控件对应数据库表中实 际的字段名称；,

13、三、数据访问部件（Data Access） 1、TDataSouece控件 是连接数据集部件和数据控制部件的桥梁。 利用此控件，才能交互地对数据库中的数据信息 进行操作。 常用属性： Dataset: 指定一个数据集部件。 AutoEdit: 是否允许用户修改数据库表中的数 据。,13.2 Delphi 简单数据库应用程序的开发,一、简单数据库应用的创建 例1、创建一个显示数据库表中内容的应用程序。 例2、采用窗体向导Form Wizard创建一个 简单数据库访问程序。 二、数据库的字段对象（TField） 字段对象是在打开磁盘上的数据库表时动态产生的，并在数据库表被关闭时自动消失的。 1、字

14、段对象的类型 2、创建静态的字段对象,3、字段对象的属性设置 在程序设计阶段，利用Object Inspector修改字 段对象的属性。 在应用程序中对字段对象的控制和访问。 1）动态字段对象的访问 Table1.Fields0.DisplayLabel:=学生学号； Table1.FieldByName(学号).DisplayLabel:=学生学号； 2）静态字段对象的访问 Table1BDEdesigner. DisplayLabel:=学生学号；,3）读取字段对象的值 通过字段对象的Value属性，可以读取字段对象的值。 Edit1.Text:=Table1BDEdesigner.Val

15、ue; Edit1.Text:=Table1.fields0.AsString; 说明： AsString: 将字段值转换成字符串数据 AsBoolean: 将字段值转换成布尔型数据 AsInteger: 将字段值转换成整型数据 AsFloat: 将字段值转换成实型数据 例：设计一个程序访问字段对象并读取字段 对象的值。,5、数据库中记录的查询 1）Locate方法 可以直接查询数据库表中的非索引字段，也可以进行对多个字段的组合查询。若查到，将返回True，并指向此记录，否则返回False，记录指针不发生移动。例： if not table1.locate(姓名,edit.text,LoPar

16、tialKey ) then showmessage(没有相关记录)； 2） Gotokey和Findkey方法 在数据库表基于索引中查找记录，它们的主要区别在于如何指定查找值。若查到，将返回True，并指向此记录，否则返回False，记录指针不发生移动。,例: table1.IndexFieldNames:=学号; table1.setkey; table1.fieldbyname(学号).asstring:=edit1.text ; if not table1.gotokey then showmessage(记录没找到); 例: indexfieldnames:=学号; seekvalu

17、e:=edit1.Text; if findkey(seekvalue) then label3.Caption:=查询成功！; 例：设计程序利用Gotokey 和Findkey方法查询 数据库记录。,6、数据库中记录的修改、插入及删除 Ttable控件可以使用下列方法： Edit:编辑 Insert:插入 Append:追加 Delete:删除 Cancel:取消 Post:写入（提交） 例：对数据表内容进行 编辑操作。,13.3 Delphi中的SQL编程,SQL是Structured Query Language（结构化查 询语言）的缩写。是关系数据库管理系统中的一种 通用的标准化查询语

18、言，支持SQL编程是Delphi的 一个重要特征。 一、SQL查询语言简介 SQL是一个非过程化的语言，可以提供查询数 据；在表中插入、修改和删除记录；建立、修改和 删除数据对象等等。 1、SELECT： 用于检索已经存在的数据。 Select * from abc.dbf;,Select 学号，姓名，语文，数学 from abc.dbf; Select * from abc where 语文60 Select * from abc where 姓名 like “李%”; Select * from abc where 学号 between 1001 and 1020; 2、INSERT：用于

19、向数据表中插入数据。 Insert into abc.dbf values (1020,”张三”,70,80); Insert into abc (姓名,语文,数学) values (”李四”,75,86); 3、UPDATE：实现对表中数据的修改更新。 Update abc.dbf set 数学=数学+5，语文=语文+2； Update abc set 总分=数学+语文 where 学号=110；,4、DELETE：可以删除数据表中的记录。 Delete from abc.dbf where 学号=110； 二、Tquery部件在SQL编程中的运用 1、Tquery部件的使用 SQL语句是通

20、过Tquery部件传递到要访问的数据库系统的数据库引擎中，由数据库引擎具体执行SQL语句。 在Delphi应用程序中编写和使用的SQL语句有两种：静态SQL语句和动态SQL语句。 静态SQL语句：不包含参数的SQL文本。 动态SQL语句：SQL语句中包含一系列的参数。,SQL语句的编写有两种方法： 在程序设置阶段将相应的SQL语句写入到Tquery部件的SQL属性中。 在Delphi开发的应用程序中，将SQL语句包含在Pascal代码单元中。 2、在Tquery部件中编写简单的SQL查询命令 例：通过查询命令实现对chengji.db中的数据查询。 三、静态SQL语句的编程 query1.close; query1. sql.Clear; query1. sql.Add(select * from chengji); query1. open;,说明： Open方法只能用来执行SQL语言的查询语句（select），并返回一个查询结果集。 ExecSQL方法还可以用来执行其他常用的SQL语句（insert ，update，delete），但没有返回结果。 例：对chengji.dbf表进行不同的查询并计算。,四、动态SQL语句的编程 1、利用参数编辑器（Editing Query1.params）来为参数赋值。 例：Query1.SQL中设置