《图形图像与多媒体技术》由会员分享，可在线阅读，更多相关《图形图像与多媒体技术（34页珍藏版）》请在金锄头文库上搜索。
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 thenb
3、eginfilename:=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 dobeginxt:=round(cos(t/100)+t*sin(t/10
4、0)/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、画弧形：Arc(x1, y1, x2, y2,
5、 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、作图区域（Rect）例：在窗体指定区域中显示图片。,第1
6、3章 Delphi数据库编程,13.1 数据库系统开发基础 13.2 BDE数据库应用程序开发概述 13.3 Delphi中的SQL编程,13.1 数据库系统开发基础,数据库系统由三大部分组成：数据库管理系统、 数据库应用程序和数据库。 一、数据库管理系统（DBMS）是用于描述、管理和维护数据库的系统程序，是 数据库系统的核心组成部分。DBMS主要有三种类型：层次数据库系统、网状 数据库系统、关系数据库系统。关系数据库（Relational Database）：一个关系数据库是由若干表组成。,表（Table）：一个表就是一组相关的数据按行排列，像一张表格一样。 字段（Field）：在表中，每一
7、列称为一个字段。 记录（Record）：在表中，每一行称为一条记录。 二、Delphi的数据库特性及功能简介是Borland公司于1994年底发布的用于开发数 据库应用程序的工具，Delphi结合了传统的编程 语言Object Pascal和数据库语言的强大功能，既 可以用于传统的算术编程又可以用于数据库编程。,三、Delphi的数据库辅助工具 1、Database Desktop(数据库工作平台）可以建立数据库表的结构，并能修改数据库表的结构，完成对数据库表的数据输入、修改、删除及查询等。 打开Database Desktop：单击“开始”菜单“程序” “Borland Delphi 7”
8、“Database Desktop” 建立新表：单击菜单”File” ”New” ”Table” 打开数据表：单击菜单”File” ”Open” ”Table” 编辑数据：单击菜单”Table” ”Edit Data” 修改库结构：单击菜单”Table” ” Restructure”,2、BDE Administrator（数据库引擎管理器）是BDE的配置程序，它主要对Delphi数据库应用程序使用的别名进行管理，配置驱动程序等信息。 打开BDE Administrator ：单击“开始”菜单“程序” “Borland Delphi 7” “BDE Administrator ” 建立新的数据
9、库别名：单击鼠标右键“New” 3、ODBC（开放数据库链路）提供对于Delphi不支持的数据库连接。使用ODBC来连接数据库,就要获得连接数据库的ODBC驱动程序. 配置方法:通过控制面板中的ODBC Data Sources,13.2 BDE数据库应用程序开发概述,Delphi提供了许多控件以方便地创建数据库应用 程序。可以利用BDE访问多种数据库管理系统的数 据库.Delphi的控件板上提供了三页BDE数据库应用 程序开发中所要使用的控件。 一、BDE数据集部件（BDE）用于直接访问数据库中的数据库表。包含了用 于各种BDE数据引擎的数据集构件，这些构件封装 了数据库连接、数据表格、数据
10、查询等特性。但它们本身不能显示数据库中的数据信息。,1、TTable部件可以使用该构件存取数据库表的每一行、每一 列，可以查看和编辑数据库表中的数据。 常用属性： DatabaseName: 指定要访问的数据库所在的路径名，常用的是它的别名。 TableName: 指定要访问数据库中具体的数据库表。 Active: 表示是否打开要访问的数据库表。 ReadOnly: 为True，用户只能读取数据表中的数据。 Filter: 用于指定数据集的筛选器，即相当于使用SQL语句中的Where语句。,Filtered: 用来表明数据集的过滤器是否被激活。缺省情况下，Ttable部件中包含了要访问的数 据
11、库表中所有的字段和记录，用鼠标双击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: 说明数据浏览控件对应数据库表中实际的字段名称；,三、数据访问部件（Data Access） 1、TDataSouece控件是连接数据集部件和数据
13、控制部件的桥梁。 利用此控件，才能交互地对数据库中的数据信息 进行操作。 常用属性： Dataset: 指定一个数据集部件。 AutoEdit: 是否允许用户修改数据库表中的数据。,13.2 Delphi 简单数据库应用程序的开发,一、简单数据库应用的创建 例1、创建一个显示数据库表中内容的应用程序。 例2、采用窗体向导Form Wizard创建一个简单数据库访问程序。 二、数据库的字段对象（TField）字段对象是在打开磁盘上的数据库表时动态产生的，并在数据库表被关闭时自动消失的。 1、字段对象的类型 2、创建静态的字段对象,3、字段对象的属性设置 在程序设计阶段，利用Object Insp
14、ector修改字段对象的属性。 在应用程序中对字段对象的控制和访问。 1）动态字段对象的访问Table1.Fields0.DisplayLabel:=学生学号；Table1.FieldByName(学号).DisplayLabel:=学生学号； 2）静态字段对象的访问Table1BDEdesigner. DisplayLabel:=学生学号；,3）读取字段对象的值通过字段对象的Value属性，可以读取字段对象的值。Edit1.Text:=Table1BDEdesigner.Value;Edit1.Text:=Table1.fields0.AsString; 说明： AsString: 将字段值
15、转换成字符串数据 AsBoolean: 将字段值转换成布尔型数据 AsInteger: 将字段值转换成整型数据 AsFloat: 将字段值转换成实型数据 例：设计一个程序访问字段对象并读取字段对象的值。,5、数据库中记录的查询 1）Locate方法可以直接查询数据库表中的非索引字段，也可以进行对多个字段的组合查询。若查到，将返回True，并指向此记录，否则返回False，记录指针不发生移动。例： if not table1.locate(姓名,edit.text,LoPartialKey ) thenshowmessage(没有相关记录)； 2） Gotokey和Findkey方法在数据库表基
16、于索引中查找记录，它们的主要区别在于如何指定查找值。若查到，将返回True，并指向此记录，否则返回False，记录指针不发生移动。,例: table1.IndexFieldNames:=学号; table1.setkey; table1.fieldbyname(学号).asstring:=edit1.text ;if not table1.gotokey thenshowmessage(记录没找到); 例: indexfieldnames:=学号;seekvalue:=edit1.Text; if findkey(seekvalue) thenlabel3.Caption:=查询成功！; 例：设计程序利用Gotokey和Findkey方法查询数据库记录。,6、数据库中记录的修改、插入及删除 Ttable控件可以使用下列方法： Edit:编辑 Insert:插入 Append:追加 Delete:删除 Cancel:取消 Post:写入（提交） 例：对数据表内容进行编辑操作。,
