第十四章　简单数据库利用的成立及MASTAPP介绍（一）[Delphi编程]

        Delphi中嵌入的数据库利用开辟工具如Database Form Expert具有很强盛的功效,我们不需求编写任何程序代码便可以快速地成立一个简单的数据库利用程序,乃至还能成立基于多个数据库表的主要──明细型数据库利用程序.

        本章主要介绍用Delphi开辟简单的数据库利用程序的普通办法和步骤,首先让读者对Delphi强劲的数据库利用开辟工具有一个直观的印象,然后在此底子上举行复杂的数据库利用程序的计划,本章主要包含以下内容:

● 成立数据库利用窗体

         包含用Database Form Expert 或手工方法成立简单的无需编写程序代码的利用程序大概操纵多个部件并编写功效复杂的程序代码成立主要──明细型数据库利用程序.

● 在利用程序中掌握字段有关的属性

         描写怎样读写数据库表中字段的值和掌握字段的显示格局等.

         本章所介绍的例子顶用到的窗体、数据库表以及相关的文件都是在安装Delphi时缺省安装在C:\DELPHI\DEMOS\DB\MASTAPP目录中,并且用别名DBDEMOS表示这一子目录.在本章例子中,除特别声明外,全部的TTable和 TQuery 部件的 DatabaseName 属性都设置为DBDEMOS.

14.1 简单的基于单表的据库利用　

         用Decphi成立显示一个数据库表中的内容的利用非常简单和便利,只需求三个部件,只要将这三个部件通过相关的属性彼此接洽起来,不需求编写任何程序代码便可以实现.比方,用户想查看数据库表Customer.DB中的内容时,可以按下面步骤来实现:　

14.1.1 挑选相关的部件:　

         挑选菜单Project/New开始一个新工程,并改正Form1的Caption属性为CustomerFrom1并把Name属性设置为CustomerForm1,然后从部件挑选板上的Data Access 页上选取一个Datasounce部件和一个Table部件放到窗体的左上角,它们是非可见的部件,在窗体中我们看到的只是部件的图标;从Data Control页上选取DBGrid部件放到窗体中前两个部件的下面.完成这些工作之后,窗体如图14.1所示.　　

图在CustomerFrom1窗体中安排三个部件　

14.1.2 设置部件的属性　

为了使TDBGrid部件可以显示数据库表Customer.DB中的客户信息,我们必须改正窗体三个部件相关的属性,这些属性的设置如表14.1所示.　

表14.1 CustomerFrom1窗体中三个部件的属性设置

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

属 性 属 性 值

──────────────────────────────

DataSource1.AutoEdit False

DataSource1.DataSet Table1

Table1.DatabaseName DBDEMOS

Table1.TableName CUSTOMER.DB

Table1.Active True

DBGrid1.DataSource DataSource1

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　

        这里要注意的是:DBDEMOS是Delphi缺省安装时C:\Delphi\DEMO\DB\MASTAPP目录的别名,并且数据库表Customer.DB存在该目录下,用户在利用这一例子时,请注意这两项设置都是精确的.别的 Datasource1.Dataset,Table1.TableName和DBGrid1.Datasource属性都有下拉式列表框答应用户从大概的值列表中挑选它们的值,这样能便利我们举行属性的设置,并且不简单出错.

        Datasouuce1.AutoEdit属性设置为False是为了避免用户改正数据库表中的数据,在下面的谈论中我们将具体地举行阐明.

        Table1.Active设置为True时,Delphi会翻开Table1.TableName所指定的数据库表.假如这个数据库表不存在（或表中什么也没有,即空表）, Delphi 会弹出出错信息并且Table1.Active变成False.当Table1.Active被设置成True之后,Table1 部件的一些属性就不能再改正了,如Table1.DatabaseName和Table1.Tablename属性.若要改正它们,必须首先要将Table1.Active属性设置为False,然后再举行改正,不然,Delphi会弹出错误信息"Cannot perform this operation on an open database".当看到这个错误信息时,只需把Table1.Active置成False,完成相关的改正后,再把 Table1. Active 属性设置为True.

        当我们把DBGrid1.DataSource的值设置成DataSource1时,Delphi会把Customer.DB中的数据填充到DBGrid1部件中,并且可以用DBGrid1中的转动条来浏览数据库表中的全部记录.