BCB讲座第十五讲简单数据库查询操作.

1、简单数据库查询操作上一讲我们学习了数据库编程的基础知识，并对MP3Collect进行了一番改造，使 其具有数据库 访问能力。在本讲中,我们首先设置三个数据库元件 Queryl、DataSource1和DBGrid1的属性，接下来学习如何通过Query控件实现简单的数据库查询操作。设置控件属性Queryl控件的用途是查询数据库，获取可以显示在窗体中的数据。Query控件和Table控件一样，它们都是从VCL类TDataSet （数据集元件中继承来的，都代表数 据库中一组记录的集合。不 同的是,Table控件代表库中实际存在的一个数据表对 象，而Query控件则代表一次查询的结果。Query控件支

2、持通过SQL进行查询，因此比Table控件具有更大的灵活性，它可以同时访问多个数据表，可以灵活访问数据 表中的行和列，可以实现十分复杂的条件查询。SQL的全称是结构化查询语言，它是一种标准的数据库查询语言，具有自己的关 键字（SQL中的关键字是不分大小写的,SELECT和Select的作用是相同的和语法, 典型的SQL查询语句如下 所示：SELECT 字段名FROM 数据表名WHERE 条件子句其中 SELECT、FROM和 WHERE都是SQL的关键字。SELECT代表查询操作，字段名”表示返回的记录集中所包含的字段，字段名可以使用通配符*,表示查 询的数据表中的所有字段，数据表名”表示在哪

3、个数据表中进行查询，条件子句” 为查询的条件。了解了 SQL的基本语法后,下面我们来设置Query1控件的SQL属性。在对象 监视器中双击Query1控件的SQL属性（该属性为TStrings*类型，打开字符串列表编 辑器,在其中输入这样两句 “ Select * From MP3Info和 “ Order by FileName ASC。注 意第二句要另起一行，这样在后面的编程中可以 很方便地改变记录的排序方式。这 两句合在一起的意思是获取MP3Info数据表中的所有记录，并以FileName字段为基准按升序方式排序。除了指定 Query1控件的SQL属性外，还要指定它在哪个数据库中进行查询

4、将其Database属性设为别名MP3Collect。然后指定其Active属性为true，其它属性值都接受缺省值。DataSource控件从字面上可翻译为数据源控件,不过它与上一讲介绍的ODBC 数据源可不是一回 事。DataSource控件是一个中间控件,它位于数据集控件（如Table控件或Query控件和数据控制控 件（如DBGrid控件或DBEdit控件之间，是联系两类控件的桥梁。DataSource控件最重要的属性是它的数据集属性DataSet在对象浏览器中点击该属性右侧的下拉式列表框，可以看到其中列出了 Tablel和Queryl,我们选中Queryl表示DataSource控件从

5、Queryl中获取数据。DBGrid控件是一种常用的数据控制元件，它以表格的方式显示记录，表格中的行 表示记录，而列表示记录的字段。 所有的数据控制元件都必须和某个 DataSource控件相关联，才能获取所需要的数 据，因此我们在这里将DBGridl控件的DataSource 属性设为DataSourcel指定DBGridl的数据来源后，我们可以看到DBGridl的表 格中立即显示出相应的记录了。缺省情况下,DBGridl会显示数据集的全部字段，并以字段的名称显示在列标题中，我们可以 在设计时通过DBGrid控件的列编辑器修改列的数目、标题以及布局 等。在对象浏览器中双击Columns属性,

6、打开列编辑器，此时列编辑器中的内容还是 空的，因此我们在列编辑器中点击鼠标右键,选择关联菜单中的“ Add All Field命令,先把数据集中的所有字段添加进来。由于我们不希望将记录的编号显示出来，所以 要删除其中的“ID字段。接下来我们来设置各列的列标题。首先选中“ FileName列:这时可以在对象浏览器中看到该列的各种属性，其中FieldName属性为“ FileName表示该列显示“ FileName字段的内容，列对象的Title属性为复合属性，展开Title属性，将其中的Caption子属性改为 文件名称”然后设置“ FileName列的列宽度，其缺省的Width属性为-1,表示根

7、据字段的宽度自动设 置列宽度,我们可以根据窗体的布局为其重新设置一个实际的值。按照同样的方法我们继续把“ SongName、 “ SingerName的列标题改为 歌曲名称”和 歌手名 称”。设置好DBGridl控件的列对象的属性后，接下来还要设置它的Options属性，该 属性决定了显示 记录的方式。展开DBGridl控件的Options属性，可以看见其中有 十多项选项，将其中的dgEditing、dgAlwaysShowEdit和dgMultiSelect三个选项设 为false其余的选项都设为true，如此设置可以屏蔽在DBGrid中直接修改记录以及 同时选中多条记录的功能。另外还可以设

8、置 DBGridl的Read On ly属性为true使 用户不能在网格中进行添加、修改、删除记录的操作。最后 ，设置DBGridl的PopupMenu属性为PopupMenu1为其指定关键菜单。现在所有元件的属性都设置好了 ，下面我们来看看访问数据库的具体方法。为了简洁起见，下面的代码中都没有异常处理措施，读者朋友可以根据第13讲的内容 自己添加相应的异常处理代码。实现查询功能Table控件和Query控件都可以实现查询，但Table不支持SQL ,只能通过数据 表中的索引实现 比较简单的检索功能(在后面还会用到Table的查询功能，因此心铃 决定用Query1控件进行查询,提供显示在DBG

9、rid1中的数据。所有的查询都是通过设置 Query1控件的SQL属性来完成的。实现显示所有记 录的SQL语句最 简单,即前面给出的SQL属性。下面是btnShowAIICIick事件处理 函数的新代码，其中给出了在运 行时改变Query控件SQL属性的方法。void _fastcall TMai nForm:bt nShowAIICIick(TObject *Se nderQuery1->Close(;/先关闭上一次查询Query1->SQL->Clear(;/清除原来的 SQL 语句Query1->SQL->Add("SeIect * from MP

10、31 nfo"/ 添加一个字符串,SQL 属性由多个字符串组合而成Query1->SQL->Add("0rder By FileName ASC"Colum nToSort=0;/记下当前排序的基准列为“ FileName ”m_lsAsc=1;/记下当前排序的方式为升序方式Query1->0pen(;/设置好SQL属性后，打开Query1,获取数据并自动更新DBGricM在改变Queryl的SQL属性之前,首先应将上一次查询关闭。SQL属性是一个TStrings对象指 针，它将多个字符串组成一个完整的 SQL查询语句，其中的Order By 是

11、SQL中的关键字,表示按照某一个字段进行排序,ASC是排序方式关键字，表示升 序方式。Colu mn ToSort和m_IsAsc是Mai nF orm类的成员变量,用于保存排序的基 准列号和排序方式，有关排序的内容还要在下一节仔细 介绍。设置好SQL属性后， 调用Query控件的Open(方法，该方法会通过BDE引擎向数据库进行 一次查询操作， 获取所需的数据，并自动更新DBGridl中显示的数据。条件查询操作需要使用SQL语句中的WHERE条件子句。查询的原理是依次 读取三个条件输入框的内容,如果某一条件输入框不为空，则添加一个查询条件。这 里使用的查询条件的语法如下所 示：字段名Like

12、 '带通配符的字符串其中字段名为要检查的字段，LIKE为SQL的关键字,表示将字段内容与 带 通配符的字符串”进行比较，看是否符合给定的模式。带通配符的字符串”需要用单引号包括起来，常用的通配符有“ %”“?等。其中“ ”示任意字符串。例如,F面的SQL语句表示从MP3Info中取出所有FileName字段中包括“ MP3字样的记录:SELECT * FROM MP 3I nfo WHERE FileName Like %MP3%另外，在MP 3Collect中,各个查询条件之间是逻辑与的关系，因此多个查询条件 之间要用关键 字AND进行连接,表示只有符合所有查询条件的记录才是所需要的

13、 记录。下面是btnFindClick事件 处理函数的新代码：void _fastcall TMai nForm:bt nFi ndClick(TObject *Se nderQuery1->Close(;/首先关闭 Query1Query1->SQL->Clear(;/清除原有的 SQL 语句Query1->SQL->Add("Select * from MP31 nfo"/ 表示从数据表中 MP31 nfo 中查询/如果edtFileName不为空，则添加对FileName字段的查询，注意不要漏了其中的单引号 if(!edtFileName

14、->Text.IsEmpty(Query1->SQL->Add(" where FileName Like '%"+edtFileName->Text+"%”：/如果edtSongName不为空，则添加对SongName字段的查询，由于整个条件子句中只有一个WHERE关键字，多个条件之间需要用AND关键字连接，所以要进行一些特殊处理 if(!edtSongName->Text.lsEmpty(if(Query1->SQ L->Cou nt>1/判断是否已经包含查询条件了Query1->SQL->A

15、dd(" and "/如果是，则用AND连接本查询条件elseQuery1->SQL->Add(" where "/ 否则用 WHERE 引出查询条件Query1->SQL->Add("S on gName Like '%"+edtS on gName->Text+"%'"/ 添加一个查询条件如果edtSingerName编辑框中不为空，则添加对SingerName字段的查询if(!edtSi ngerName->Text.lsE mp ty(if(Query1-

16、>SQ L->Cou nt>1/判断是否已经包含查询条件了Query1->SQL->Add(" and "/如果是，则用AND连接本查询条件elseQuery1->SQL->Add(" where "/ 否则用 WHERE 引出查询条件Query1->SQL->Add("Si ngerName Like '%"+edtSi ngerName->Text+"%”：/ 添加一个查询条件Query1->SQL->Add(" Order By

17、FileName ASC"/ 添加排序子句Colum nToSort=0;/记下当前排序的基准列为“ FileName ”m_lsAsc=1;/记下当前排序的方式为升序方式Query1-> Open(;实现排序前面我们已经用到了 SQL语言的排序子句,排序子句是由关键词Order By引 出的,其后跟一个 或多个字段，表示以某个字段为基准进行排序，如果有多个字段,则 先按第一个字段进行排序，如果出现第一个字段的内容相同，再按第二个字段排序，依 此类推。另外还可以用 ASC (升序方式 和DESC (降序方式规定其排序的方式。我们在TMa in Form中添加了一个成员变量 m_

18、lsAsc,用于保存当前排序的方式, 注意应在窗体 的初始化函数FormCreate中将m_IsAsc初始化为1。下面是菜单命 令mnuSortByFileName的命令处 理函数:void _fastcall TMai nForm:m nuSortByFileNameClick(TObject *Se nderif(ColumnToSort!=O/如果以前不是按FileName字段排序，则改为按FileName字段排序Query1->Close(;Query1->SQL->Delete(Query1->SQ L->Cou nt-1;/ 清除原来的排序子句Quer

19、y1->SQL->Add("Order By FileName ASC"/ 添加新的排序子句Colum nToSort=0;/记下当前排序的基准列为“ FileName ”m_lsAsc=1; 记下当前排序的方式为升序方式Query1->O pen(;else /否则切换排序的方式Query1->Close(;Query1->SQL->Delete(Query1->SQ L->Cou nt-1;if(m_lsAscQuery1->SQL->Add("Order By FileName DESC"/ 如果原来是升序，改为降序elseQuei7l->SQL->Add("0rder By FileName Asc"/ 如果原来是降序，改为升序m_lsAsc=1-m_lsAsc;/改变m_lsAsc的值,反映排序方式的改变Query1-&