Delphi 7 数据库编程入门捷径.pdf

《Delphi 7 数据库编程入门捷径.pdf》由会员分享，可在线阅读，更多相关《Delphi 7 数据库编程入门捷径.pdf（43页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Delphi 7Delphi 7数据库编程数据库编程学习捷径学习捷径敬喜敬喜王昀王昀北京科海电子出版社北京科海电子出版社目目录录第第1 1章章Delphi 7 Delphi 7 集成开发环境（集成开发环境（IDEIDE）介绍）介绍第第2 2章章Delphi 7Delphi 7数据库系统概述数据库系统概述第第3 3章章Delphi 7Delphi 7和数据库和数据库第第4 4章章创建数据库创建数据库第第5 5章章读写字段值读写字段值第第6 6章章计算字段计算字段第第7 7章章链接表链接表第第8 8章章查找和确认数据查找和确认数据第第9 9章章制作数据输入窗体制作数据输入窗体第第1010章章列表和

2、查找表列表和查找表第第1111章章查询和设定范围查询和设定范围第第1212章章多窗体和打印窗体多窗体和打印窗体第第1313章章制作报表制作报表第第1414章章开发图表开发图表第第1515章章将图或文件存入数据库将图或文件存入数据库第第1616章章编写多媒体数据库应用程序编写多媒体数据库应用程序第第1717章章数据库开发实例数据库开发实例学生管理系统学生管理系统第1章Delphi 7 Delphi 7 集成开发环境（集成开发环境（IDEIDE）介绍）介绍1.1.Delphi 7 IDE Delphi 7 IDE 运行界面运行界面通常，启动通常，启动Delphi 7Delphi 7的方法是：单击的

3、方法是：单击“开始开始”按钮，然后依次从级联按钮，然后依次从级联菜菜单中选择单中选择“程序程序”Borland Delphi 7Borland Delphi 7 Delphi 7Delphi 7选项，就进入了选项，就进入了Delphi 7Delphi 7IDE IDE 运行界面，如图运行界面，如图1.11.1所示。其各组成部分的功能见教材所示。其各组成部分的功能见教材1.31.31.71.7节。节。图图1 1.1 1DelphiDelphi7 7 IDEIDE 运行界面的组成运行界面的组成12453 主窗口主窗口 窗体窗口窗体窗口 代码编辑窗口代码编辑窗口 对象查看器对象查看器 对象树形结构浏

4、览窗口对象树形结构浏览窗口1232.2.主窗口是Delphi 7 IDE的核心，开发人员通过主窗口进行创建工程、编写程序、调试程序、运行和维护应用程序等一系列管理工作。Delphi 7 31.3组件模板（Component Palette）主菜单（Menu）快捷工具条（Speed Bar）3.3.组件模板及组件设置组件模板及组件设置放置组件、设置属性和为“终止”事件编写代码的步骤：单击窗体空闲部分，放置一个按钮。设置按钮标题为“终止”。在事件标签页上双击OnClick右边单元格。在代码编辑窗口中编写终止程序的代码。在组件模板上选择组件，例如Ok按钮。第第2章章 Delphi 7数据库系统概述数

5、据库系统概述1.Delphi 7 1.Delphi 7 数据库特性数据库特性数据访问组件（Data Access Components）：主要用于说明数据库的有关信息，如应用程序要访问（连接）的数据库和要访问数据库中的具体的数据库表，以及要访问表中的哪些字段等。常用的数据访问组件有TTable、TQuery、TDataSource等。数据控制组件（Data Control Components）：主要用于显示浏览数据库中的数据信息，为用户提供可视化的界面，可以让用户对数据库中的数据信息，进行浏览、编辑、插入、删除等操作。因而，数据控制组件也被称之为数据浏览组件。数据控制组件既能够把数据库中的数

6、据显示到窗体中，又能将其自身的经过修改的数据写回到数据库中。常用的数据控制组件有TDBGrid、TDBEdit、TDBCheckBox等。BDEData Access Components数据访问组件TTableTDataSourceTQueryTDataSourceData Control Components数据控制组件TDBGridTDBEditTDBCheckBoxTDBGridTDBEditTDBCheckBox(用户接口)数 据 库DBD窗口工具条DBD窗口菜单2 2.数据库桌面数据库桌面（DBDDBD：DatabaseDatabase DesktopDesktop）数据库桌面DB

7、D是数据库维护和数据定义的工具，利用它可以完成查询、连接、建立、重建结构（简称重构）、索引、修改和复制数据库表，而且在操作时，用户不必拥有Paradox或dBASE数据库管理系统。使用数据库桌面DBD还可以把一种格式的数据和数据字典拷贝为另一种格式，例如，将一个dBASE的表拷贝到远程的SQL服务器上的一个数据库中去。另外，数据库桌面DBD程序可以建立数据库并执行与数据库有关的其他操作。例如，设置工作目录、设置工作目录别名、创建数据库表、在数据库表中输入数据、对表中记录排序、移动记录、用不同字体或其他形式显示表中的数据，以及用表来检查和测试Delphi 7 程序等。3.3.部分数据访部分数据访

8、问组件的主问组件的主要用途要用途部分数据访问组件的主要用途组件名称主要用途TDataSource是数据集组件与数据控制组件之间传送数据的通道TTable是存取数据库表的媒介，通过BDE存取数据库表中的数据，再与TDataSource进行对话，使得数据控制组件能在TTable中访问数据，以及显示、编辑数据TQuery利用SQL语言访问数据库表中的数据，并与TDataSource进行对话以实现数据控制组件访问数据库TStoredProc在应用程序中用于访问远程服务器中的存储过程（它封装了数据库服务器上的存储过程）TQuickRep在应用程序中用于创建数据库的输出报表TSession这是一个全局的组

9、件，用户可以在程序中使用它的属性和方法TDatabase它可以连接到单一数据库上，例如，当需要与数据库持续连接、使用了定制的数据库服务、使用事物处理组件或程序中确定了BDE别名时，就可以使用TDatabase组件。但最主要的用途是在SQL数据库的应用中4.部分部分数据数据控控制制组件组件的主的主要用途要用途部分数据控制组件的主要用途部分数据控制组件的主要用途组件名称组件名称主主要要用用途途TDBText是一个只读的数据显示组件，它显示的是表中的当前记录值，因此它的显示是动态变化的TDBEdit专门用来显示和编辑数据库表中的单个字段。通过它的DataSource属性和DataField属性来指定

10、对应的表和字段TDBGrid以网格方式显示数据库中的数据并可以进行编辑。利用字段编辑器（Field Editor）可以对数据库中字段的显示格式、顺序或者是否显示进行控制TDBCheckBox浏览数据库中数据的复选框，用于显示和编辑数据库中布尔型字段的字段值TDBNavigator称为导航控件，可用来前后移动记录指针，对单个记录进行编辑（包括插入、删除、刷新显示和取消等操作）TDBImage用于显示、复制、粘贴数据库表中的图像类型的字段第第3 3章章 Delphi 7Delphi 7和数据库和数据库3.1 3.1 创建一个创建一个Delphi 7 Delphi 7 工程（工程（ProjectPr

11、oject）的步骤）的步骤3.2 3.2 定制窗体定制窗体（1 1）启动）启动Delphi 7Delphi 7，从，从FileFile菜单中选择菜单中选择FileFile NewNew Applicatin Applicatin 命令，创建一个新工程。命令，创建一个新工程。（2 2）保存新的工程。从）保存新的工程。从FileFile菜单中选择菜单中选择FileFile Save AsSave As命令命令,保存单元文件保存单元文件CHello.pasCHello.pas和工程文件和工程文件Hello.dprHello.dpr。（3 3）执行程序便生成一个可执行的）执行程序便生成一个可执行的EX

12、EEXE文件文件Hello.EXEHello.EXE。第3章第1节完成的定制窗体CdmHello清除欢迎终止执行程序后单击“欢迎”按钮的程序窗口欢迎清除终止3.3 3.3 编写代码编写代码为为“终止终止”按钮编写代码的目的是，当用户单击按钮编写代码的目的是，当用户单击“终止终止”按钮按钮时，可以终止时，可以终止CHello.EXECHello.EXE程序的运行。那么，应该为程序的运行。那么，应该为cmdExitClickcmdExitClick过程输入下列代码：过程输入下列代码：Application.Terminate;Application.Terminate;。这样，当用户单击这样，当用

13、户单击“终止终止”按钮时，程序执行按钮时，程序执行“Application.Terminate;Application.Terminate;”语句，即终止语句，即终止CHello.EXECHello.EXE程序。程序。3 3.4 4MethodsMethods（方法方法）现在现在，我们来介绍有关我们来介绍有关MethodsMethods（方法方法）的主题的主题。在在PascalPascal语言中语言中，在对象中说明的过程或函数称为方法在对象中说明的过程或函数称为方法。它的语法是：它的语法是：例如例如，ApplicationApplication.TerminateTerminate;,这个程序

14、语句说明这个程序语句说明TerminateTerminate（终止终止）方法被调用方法被调用，或者说或者说，ApplicationApplication对象调用了对象调用了TerminateTerminate方法方法。当程序执行这当程序执行这个语句时个语句时，就实现这个就实现这个TerminateTerminate方法方法，即终止程序运行即终止程序运行。又例如程序语句又例如程序语句MemoMemo1 1.CutToClipboardCutToClipboard;，表明调用一个名为表明调用一个名为MemoMemo1 1的的MemoMemo组件的组件的CutToClipboard(CutToCli

15、pboard(剪贴剪贴)方法方法。其中其中，MemoMemo1 1是一个对象的名称是一个对象的名称，当程序执当程序执行这个语句时行这个语句时，就实现这个就实现这个CutToClipboardCutToClipboard方法方法，即把即把MemoMemo1 1中的文本剪贴到剪中的文本剪贴到剪贴板上去贴板上去。举例：作为一个例子举例：作为一个例子，打开一个空窗体打开一个空窗体，加入一个加入一个MemoMemo组件和一个按钮组件和一个按钮，设置按钮的设置按钮的NameName属性为属性为CutCut，再将按钮的再将按钮的CaptionCaption属性设置为属性设置为&Cut&Cut。以及双击按以及

16、双击按钮 的钮 的 OnClickOnClick 事 件 右 边 单 元 格事 件 右 边 单 元 格，弹 出 代 码 编 辑 窗 口弹 出 代 码 编 辑 窗 口，输 入 语 句输 入 语 句MemoMemo1 1.CutToClipboardCutToClipboard;。这样就为这样就为C Cutut按钮建立了按钮建立了CutClickCutClick事件处理过程：事件处理过程：方法方法CutToClipboardCutToClipboard实现剪贴实现剪贴:Procedure Tform1.CutClick(Sender:TObject);BeginMemo1.CutToClipboa

17、rd;End;方法方法CopyToClipboardCopyToClipboard实现拷贝：实现拷贝：ProcedureTform1.CopyClick(Sender:TObject);BeginMemo1.CopyToClipboard;End;再再看看一一个个例例子子3.5 3.5 数据库设计数据库设计Delphi开发数据库应用程序的一般步骤开发数据库应用程序的一般步骤1 1.系统设计系统设计步骤步骤1 1：工作活动性质鉴别：工作活动性质鉴别对设计者来说对设计者来说，当他承担了某个部门建立数据库的任务时当他承担了某个部门建立数据库的任务时，首先应当鉴别该部门的需要和用户的需求首先应当鉴别该

18、部门的需要和用户的需求。并做出下列决策：并做出下列决策：（1 1）决定该部门数据处理的一般策略决定该部门数据处理的一般策略。（2 2）估算现有数据处理能力及其性能估算现有数据处理能力及其性能。（3 3）进行可行性研究进行可行性研究，规划各种方案规划各种方案。（4 4）选择某种方案选择某种方案。（5 5）搜集有关信息类型搜集有关信息类型、确定有什么样的信息流入和流出确定有什么样的信息流入和流出，以及信息流入流出的频度等以及信息流入流出的频度等。步骤步骤2 2：定义：定义此步骤是建立该部门的模型此步骤是建立该部门的模型。主要工作是：主要工作是：（1 1）在书面上记载可能出现的数据类型在书面上记载可

19、能出现的数据类型。（2 2）建立原始概念：实体集合建立原始概念：实体集合、实体属性实体属性、属性值属性值、实体联系集合实体联系集合（简称关联集合简称关联集合）。步骤步骤3 3：用数据表示实体集合和关联集合：用数据表示实体集合和关联集合（1 1）确定每一个实体类型确定每一个实体类型，并为其分配一个惟一的名字并为其分配一个惟一的名字。（2 2）确定每一个定义域确定每一个定义域，并为其分配一个惟一的名字并为其分配一个惟一的名字。（3 3）为每个实体类型确定主键为每个实体类型确定主键。（4 4）用主键定义域代替每一个实体用主键定义域代替每一个实体。求出与实体属性对应的各个关系求出与实体属性对应的各个关

20、系，并给每个关系确定一个名字并给每个关系确定一个名字。（5 5）求出全部的关联类型求出全部的关联类型，并为其确定一个名字并为其确定一个名字。（6 6）用相应的主键来代替关联类型用相应的主键来代替关联类型。步骤步骤4 4：建立：建立E E-R R模型模型以下的步骤是对关系型数据库来说的以下的步骤是对关系型数据库来说的。步骤步骤5 5：将实体和关联转化为关系：将实体和关联转化为关系步骤步骤6 6：分解关系：分解关系。对每个关系确定其不可分解单元对每个关系确定其不可分解单元，可以得到一个基本关系集合可以得到一个基本关系集合。步骤步骤7 7：根据传递定律确定所得到的基本关系集合的传递闭包：根据传递定律

21、确定所得到的基本关系集合的传递闭包。步骤步骤8 8：由得到的传递闭包推导最小覆盖：由得到的传递闭包推导最小覆盖，得到若干个最小覆盖得到若干个最小覆盖，选择其一作为数据库总体逻辑模型选择其一作为数据库总体逻辑模型。一般方法是用数据字典作为数据项和记录型的描述文本一般方法是用数据字典作为数据项和记录型的描述文本。数据字典中可以包括：数据字典中可以包括：组织模型中各组成部分的数据项名组织模型中各组成部分的数据项名、类型类型、取值范围取值范围、长度和数据量长度和数据量、各实体间联系的频度各实体间联系的频度、存取需求执存取需求执行频度等行频度等。系统运行是为了考核系统及其设备系统运行是为了考核系统及其设

22、备、软件系统和数据库应用程序等是否能达到预期的目标软件系统和数据库应用程序等是否能达到预期的目标。而对应用程序来说而对应用程序来说，更多的是调试更多的是调试。所谓维护是指在运行中排除应用程序的错误及不合理的内容所谓维护是指在运行中排除应用程序的错误及不合理的内容，以及在系统运行中还要根据用户提以及在系统运行中还要根据用户提出的一些新的要求和建议出的一些新的要求和建议，对应用程序做一定的修改对应用程序做一定的修改，使其进一步得到完善和提高使其进一步得到完善和提高。在每个实施步骤中都有数据库的开发和应用程序界面的开发任务在每个实施步骤中都有数据库的开发和应用程序界面的开发任务。数据库和应用程序开发

23、任务的执行数据库和应用程序开发任务的执行，则会根则会根据开发项目的大小和范围而定据开发项目的大小和范围而定，可能会由不同的人来完成和执行可能会由不同的人来完成和执行。顾客顾客（）到商店购买商品到商店购买商品（），交款后交款后，商店要给顾客开出商店要给顾客开出发票发票。发票上标出的内容有：顾客姓名发票上标出的内容有：顾客姓名、单位单位、地址地址、商品名商品名、单价单价、总价以及总价以及购买日期等购买日期等。以往这项工作是手工在发票单上填写以往这项工作是手工在发票单上填写，现在要用计算机来完成现在要用计算机来完成，那那么该如何做呢么该如何做呢？对商店或者计算机来说对商店或者计算机来说，要求有一份顾

24、客名单要求有一份顾客名单，我们称之为我们称之为表表。还要有一份商品清单还要有一份商品清单，我们称之为我们称之为表表。将这两张表联系在一起将这两张表联系在一起，就构成了就构成了数据库数据库。现在给数据库下个定义：按照一定结构组织的相关的数据集合称做数据库现在给数据库下个定义：按照一定结构组织的相关的数据集合称做数据库。ItemsCustomerPartsPSDB数据库的E-R图关联实体实体CustNumLastNameFirstNameCustomer标明Customer的属性实体属性在数据库通用设计方法中在数据库通用设计方法中，通常采用一种通常采用一种“实体实体-联系联系”方法方法，简称简称E

25、 E-R R方法方法。这样这样，就可以将就可以将PSDBPSDB数据库用数据库用E E-R R图表示图表示。3.7 E E-R R方法在完成实体设计后，例如完成在完成实体设计后，例如完成E E-R R图设计后，就要为每个实体标明属性。图设计后，就要为每个实体标明属性。首先，数据库中的每个实体都要有个标识符，而且是惟一的，称其为首先，数据库中的每个实体都要有个标识符，而且是惟一的，称其为主标识符主标识符（也称为（也称为主关键字主关键字或或主属性主属性）。）。1.1.标明标明CustomerCustomer属性属性例如，在例如，在PSDBPSDB数据库中的数据库中的CustomerCustomer

26、实体应有一个主关实体应有一个主关键字，显然，顾客的姓名不成，因为有重名重姓，所以只键字，显然，顾客的姓名不成，因为有重名重姓，所以只好给顾客好给顾客CustomerCustomer再加一个顾客编号再加一个顾客编号CustNumCustNum。同样理由，。同样理由，要给商品要给商品PartsParts加一个编号加一个编号PartNumPartNum，以及给关联实体，以及给关联实体ItemsItems加一个编号加一个编号ItemNumItemNum。注意，为了简化数据库设计的说明，。注意，为了简化数据库设计的说明，对于现在讨论的课题，我们只列出主要的属性，而不追求对于现在讨论的课题，我们只列出主要

27、的属性，而不追求对它的客观需求。设对它的客观需求。设CustomerCustomer属性有属性有CustNumCustNum（顾客编号）、（顾客编号）、LastNameLastName（顾客的姓）和（顾客的姓）和FirstNameFirstName（顾客名字）。（顾客名字）。设设PartsParts属性有属性有PartNumPartNum（商品编（商品编号）、号）、DescriptionDescription（有关商品的说（有关商品的说明）、明）、QtyInStockQtyInStock（商品的库存量）（商品的库存量）和和SellingPriceSellingPrice（销售价）。（销售价）。

28、标明标明PartsParts属性属性实体属性PartNumDescriptionQtyInStockPartsParts标明Parts的属性SellingPrice设设ItemsItems属性有属性有ItemNumItemNum（ItemsItems记录编号记录编号）、CustNumCustNum（顾客编号顾客编号）PartNumPartNum（商 品 编 号商 品 编 号）和和 QtySlodQtySlod（商品销售量商品销售量）。标明标明ItemsItems属性属性现在来说明为什么给现在来说明为什么给ItemsItems标明这些属性标明这些属性。首先首先，为什么要建立为什么要建立ItemN

29、umItemNum属性呢属性呢？因为因为ItemsItems需要有一个惟一的主标识符需要有一个惟一的主标识符（也称为主属也称为主属性性），也就是需要有一个惟一的主关键字也就是需要有一个惟一的主关键字。另外另外，ItemsItems是把是把CustomerCustomer表和表和PartsParts表表联系起来的关联实体联系起来的关联实体，那么最简明的联系那么最简明的联系，就是在就是在ItemsItems中放置中放置CustomerCustomer的主关键字的主关键字CustNumCustNum和和PartsParts的主关键字的主关键字PartNumPartNum。事实上事实上，根据根据Cus

30、tomerCustomer的主关键字的主关键字CustNumCustNum就就可以通过可以通过ItemsItems中的中的PartsParts的主关键字的主关键字PartNumPartNum查到查到PartsParts表中的一切信息表中的一切信息，例如例如，某某商品的销售价是由商品的销售价是由PartsParts表中属性表中属性SellingPriceSellingPrice标识的标识的。又例如有关每种商品的说明又例如有关每种商品的说明是由属性是由属性DescrptionDescrption标识的标识的。同时同时，依据依据PartNumPartNum还可以在还可以在ItemsItems表中直接

31、查到购买表中直接查到购买了多少该种商品了多少该种商品，即销售量是由即销售量是由ItemsItems表中的属性表中的属性QtySoldQtySold标识的标识的。ItemNumCustNumPartNumItems图3.2.3标明Items的属性(关联)实体属性QtySlod在关系型数据库中，把实体视为一种关系。关系的一般表示方法如下：在关系型数据库中，把实体视为一种关系。关系的一般表示方法如下：关系名（属性关系名（属性1 1，属性，属性2 2，属性，属性n n）在一个关系表达式中，也需要确定一个惟一的标识符（也称之为主属性，在一个关系表达式中，也需要确定一个惟一的标识符（也称之为主属性，或主键

32、，或主关键字），用以标识这个关系。如果在关系表达式中，我们假设或主键，或主关键字），用以标识这个关系。如果在关系表达式中，我们假设指定指定“属性属性k k”为主属性（关键字），那么在关系表达式中就把属性为主属性（关键字），那么在关系表达式中就把属性k k放在最前放在最前面并用下划线面并用下划线“_ _”表示它是主属性（主键字）。于是，关系表达式表示它是主属性（主键字）。于是，关系表达式就变成：就变成：关系名（关系名（属性属性k k，属性，属性1 1，属性，属性2 2，属性，属性n n）这样，根据给这样，根据给CustomerCustomer、PartsParts和和ItemsItems标明的属

33、性，就可以把它们用关系标明的属性，就可以把它们用关系表达式表示如下：表达式表示如下：这三个关系就是这三个关系就是PSDBPSDB的关系数据库模型。的关系数据库模型。Customer（CustNum，LastName，FiestName）Parts（PartNum，Description，QtyInStock，SellingPrice）Items（ItemNum，CustNum，PartNum，QtySlod）3.8 3.8 关系型数据库关系型数据库1.1.关系模型关系模型在关系模型中，一个关系可以在关系模型中，一个关系可以用一个二维表来表示。用一个二维表来表示。二维表的行二维表的行称为记录，列

34、称为字段（记录项）。称为记录，列称为字段（记录项）。把这样的表统称为数据库表。一个把这样的表统称为数据库表。一个数据库表的一般化表示。数据库表的一般化表示。关系CustomerCustomer（CustNum，LastName，FirstName）的二维表表示。其表结构：关系PartsParts（PartNum，Description，tyInStock，SellingPrice）的二维表表示。其表结构：PartNumDescriptiontyInStockSellingPriceItemNumCustNumPartNumQtySlod关系ItemsItems（ItemNum，CustNum，

35、PartNum，QtySlod）二维表表示。其表结构：CustNumLastNameFiestName字段名称记录字 段用二维表表示关系3.3.数据库表结构设计数据库表结构设计所谓表结构设计就是对表中的每个字段（Field）、字段类型（Type）、字段大小（Size）以及该字段是否为主关键字段（Key）等进行规定，以便将来能够对表进行数据操作（包括对数据的存取、增删、查询、修改等）。设计CustomerCustomer表结构 设计PartsParts表结构Field（字段）Type（类型）Size（大小）Key（主关键字）ItemNumAutoincriment(+)n/aYesCustNum

36、Numericn/aYes PartNumNumericn/aYes QtySlodNumericn/aNo 设计ItemsItems表结构Field（字段）Type（类型）Size（大小）Key（主关键字）CustNumNumeric(N)n/aYes(是)LastNameAlpha(A)30No(不是)FiestNameAlpha(A)25No(不是)Field（字段）Type（类型）Size（大小）Key（主关键字）PartNumNumericn/aYesDescriptionAlpha40NotyInStockNumericn/aNoSellingPriceNumericn/aNo4.

37、4.设计数据库表的数据设计数据库表的数据现在给出现在给出PSDBPSDB数据库中数据库中三个表的实际使用的数据。三个表的实际使用的数据。设计好的这些数据，我设计好的这些数据，我们以后还要用到。们以后还要用到。(1)CustomerCustomer表的数据CustNumLastNameFiestName1001KennedyTom1002AndersonJean1003GeorgeTim1004SamJean(2)PartsParts表的数据PartNumDescriptionQtyInStockSellingPrice1001PartNum 1011,000301002PartNum 1025

38、42001003PartNum 103211231004PartNum 104200751005PartNum 1051110(3)ItemsItems表的数据ItemNum注CustNumPartNumQtySlod10011013100310221001105110011026第第4 4章章 创建数据库创建数据库1 1.构造表的结构构造表的结构创建过程如下：创建过程如下：（1 1）启动数据库桌面启动数据库桌面DBDDBD。（2 2）设 置 工 作 目 录设 置 工 作 目 录。选 择选 择 FileFile WorkingWorking DirectoryDirectory 命令命令。（3

39、 3）设置工作目录的别名设置工作目录的别名。选择选择ToolsTools AliasAliasManagerManager 命 令命 令。选 择选 择TableTable RestructureRestructure 命 令命 令，构 造 表构 造 表CustomerCustomer.dbdb的结构的结构。2 2.向向CustomerCustomer表中输入数据表中输入数据 选 择 FileOpenTable 命 令。打 开Customer.db表。选择TableEdit Data命令，将表置于编辑模式。向一个字段输入数据。即单击该字段，然后即可输入数据。使用Navigator控件对表中记录排

40、序、移动。3.3.继续向继续向Parts.dbParts.db和和Items.dbItems.db表输入数据，完成之后，建立表输入数据，完成之后，建立PSDBPSDB完成。完成。4.创建创建数据库程序数据库程序（1）建立一个新的工程l 运行Delphi 7；l 从主菜单中选择FileNewApplication命令,则Delphi 7 自动创建一个新工程。l 从主菜单中选择FileSave As命令，保存单元文件CMyCust.Pas，保存工程文件MyCust.Dpr。（2）用数据库窗体向导创建窗体在数据库窗体向导DatabaseForm Wizard 命 令 创 建 的Form2窗体上，已经

41、自动地放置了5个控 件：TPanel、TDBNavigator、TDBGrid、TTable和TDataSource。Navigator控件TTable控件DBGrid控件Tpanel控件控件（3）执行MyCust程序当程序被运行时，便自动生成一个可执行的.EXE程序。Delphi 7会显示Customer.DB 表 中 的 数 据。其 中Navigator控件中辉亮的按钮是可用的，可以使用Navigator控件的按钮在各记录之间移动。第第5 5章章 读写字段值读写字段值5.1 字段编辑器和列编辑器字段编辑器和列编辑器字段编辑器列编辑器Columns EditorAddAdd fieldsfi

42、elds命令：使用这个命令可为命令：使用这个命令可为TableTable对象增对象增加物理字段加物理字段。每个增加的字段都代表窗体类中的一个对每个增加的字段都代表窗体类中的一个对象象。所谓所谓“增加物理字段增加物理字段”，是指有选择地使用数据库是指有选择地使用数据库表中实际存在的字段表中实际存在的字段，因为因为，根据需要不是总要使用数根据需要不是总要使用数据库表中实际存在的全部字段据库表中实际存在的全部字段。在实际操作中在实际操作中，虽然数虽然数据库表中实际存在很多字段据库表中实际存在很多字段，但有些是当前不需要的字但有些是当前不需要的字段段，就不去选择它们了就不去选择它们了。在字段编辑器在字

43、段编辑器FieldsFields EditorEditor中中“增加物理字段增加物理字段”、不被选择的字段或者被删除的字段不被选择的字段或者被删除的字段，都不会改变数据都不会改变数据库表中实际存在的字段库表中实际存在的字段。NewNew fieldsfields命令：使用这个命令可以创建新的数据命令：使用这个命令可以创建新的数据库表中实际不存在的字段库表中实际不存在的字段。这种字段分为三类：这种字段分为三类：Data(Data(数据字段数据字段)、CalculatedCalculated（计算字段计算字段）和和LookupLookup（查找查找字段字段）。所创建的每个新字段都代表窗体类中的一个

44、对所创建的每个新字段都代表窗体类中的一个对象象。而且主要是创建计算字段而且主要是创建计算字段（CalculatedCalculated）。但所创但所创建的新字段也不会添加到实际的数据库表中建的新字段也不会添加到实际的数据库表中。它仅用于它仅用于显示的目的显示的目的。不要忘记不要忘记！要想创建和修改实际的数据库表要想创建和修改实际的数据库表，还得还得使用数据库桌面使用数据库桌面DatabaseDatabase DesktopDesktop程序程序。双击Grid1控件双击ItemsTable控件5 5.2 2使用字段编辑器选择字段使用字段编辑器选择字段双击ItemsTable控件，弹出数据库表字段

45、编辑器在编辑器内单击鼠标右键，弹出快捷菜单在快捷菜单中选择 Addallfield,然 后 选 择 Selectall,则Itemss.db表的所有字段被选择。（1 1）双击双击ItemsTableItemsTable控件控件,Delphi,Delphi 7 7显示数据库表字段编辑器显示数据库表字段编辑器。（2 2）操作过程如下图所示操作过程如下图所示。在在ItemsItems.dbdb表中选择字段表中选择字段5.3 5.3 使用列编辑器选择字段使用列编辑器选择字段选择网格显示字段选择网格显示字段（1 1）双击双击GridGrid控件控件,显示列编辑器窗口显示列编辑器窗口。（2 2）操作过程如

46、下图所示操作过程如下图所示。在Grid内双击，显示列编辑器在列编辑器内单击鼠标右键，弹出菜单选择“添加所有字段”按钮或选择菜单中Add All Fields 则显示Items.db表的全部字段Add All Fields命令5.4 5.4 使用使用列编辑器列编辑器选择显示字段选择显示字段如下图所示如下图所示，选中要删除的字段选中要删除的字段FieldNameFieldName，单击单击“删除删除”按钮按钮，字段字段FirstNameFirstName即被删除即被删除。这里所谓删除是非永久性删除这里所谓删除是非永久性删除，即不是删除数据表中的字段即不是删除数据表中的字段，而是不在网格表中显示它而

47、是不在网格表中显示它。恢复字段添加字段删除字段添加所有字段列编辑器快捷菜单按钮的功能现在采用上页现在采用上页图中的结果图中的结果，即只选择含有两个字段即只选择含有两个字段CustNumCustNum和和LastNameLastName的的DBGridDBGrid1 1的网格表的网格表。我们看一看我们看一看DelphiDelphi 7 7 为字段为字段CustNumCustNum和和LastNameLastName还做还做了些什么工作了些什么工作？事实上事实上，一旦选择了这两个字段一旦选择了这两个字段，DelphiDelphi 7 7 就在就在FormForm2 2窗体中自动地窗体中自动地放 置

48、 两 个 不 可 见 的 附 加 组 件放 置 两 个 不 可 见 的 附 加 组 件 CustomerTableCustNumCustomerTableCustNum 和和CustomerTableLastNameCustomerTableLastName，通常把这种附加组件称为通常把这种附加组件称为字段对象字段对象。当然当然，可以可以像其他任何组件一样查看和设置它们的属性像其他任何组件一样查看和设置它们的属性，而且这一点也是非常重要的而且这一点也是非常重要的特性特性。打开对象查看器打开对象查看器（ObjectObject InspectorInspector）上的对象选择器上的对象选择器（

49、ObjectObjectSelectorSelector）的 下 拉 列 表 框的 下 拉 列 表 框，就 会 看 到就 会 看 到 CustomerTableCustNumCustomerTableCustNum 和和CustomerTableLastNameCustomerTableLastName这两个对象这两个对象。如下图所示如下图所示。5.5 5.5 字段对象字段对象 在对象查看的 Properties标签页 中设置Align属性为alNone,并使Grid框变小。5.6 5.6 用代码改变字段属性用代码改变字段属性 选中Grid控件,打开对象查看器的Properties标签页。1

50、1.设置设置GridGrid控件的边框控件的边框设置设置GridGrid控件的边框的目的是使之可以调整大小，以适应用户的要求。控件的边框的目的是使之可以调整大小，以适应用户的要求。操作过程如图操作过程如图5.55.5所示。所示。3 3.设置设置CheckboxCheckbox1 1（Name设置为chkVisible）和和 CheckboxCheckbox2 2（Name设置为chkCenter）复选框复选框。为复选框为复选框chkVisiblechkVisible和和chkCenterchkCenter的的OnClickOnClick事件添事件添加代码加代码:2.2.给给ExitExit按钮