转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
Delphi数据库编程教程(八)         ★★★★

Delphi数据库编程教程(八)

作者:闵涛 文章来源:闵涛的学习笔记 点击数:554 更新时间:2009/4/23 18:38:52
 

第二节浏览和导航

      创建访问数据库数据的表单有两种不同的方法。第一种方法是使用Database Form Expert(数据库表单专家)。但不幸的是,数据库表单专家仅仅只可以处理数据集组件中的BDE-aware(可视化BDE)子集。第二种方法是手工放置和连接所有的数据组件。

         定义用户界面(Defining the User Interface)

      我们将分三步建立自己的数据浏览表单。第一步,为表单定义用户界面;第二步,增加和配置数据访问组件;第三步也是最后一步,增加数据可视化控件。

    在你开始前,关闭所有打开的工程。接着进行下面的步骤:

  • 选择File | New Application。这将创建一个新的工程,包括一个空的表单、一个单元和一个工程文件;
  • 在表单上增加一个PageControl组件。该组件位于组件面板的Win32页。让它的名称为默认名:PageControl。
  • 在PageControl上增加TabSheets(在PageControl上右击并选择"New Page")。设置第一个TablSheet1的标题为“Browse(浏览)”,第二个为“Edit(编辑)”。
  • 在表单上放置一个DataSource(DataAccess页)、一个ADOTable和一个ADOConnection(ADO页)组件。名称全为其默认名。
  • 选择PageControl组件的第一页并在Browse(浏览)标签单上放置一个DBGrid(Data Controls页)组件。
  • 放置一个DBNavigator组件(Data Controls页)。导航器按钮用于移动表中的记录。
  • 通过使用对象检视器设置组件间的连接,如下:

          DBNavigator1.DataSource = DataSource1
          DBGrid1.DataSource = DataSource1
          DataSource1.DataSet = ADOTable1
          ADOTable1.Connection = ADOConnection1
          ADOConnection1.ConnectionString = ...
          ADOConnection1.LoginPrompt = False
          ADOTable1.Table = ''''Applications''''

      注:如在第二章中讨论的一样,ConnectionString属性指出数据存储的物理位置和我们的访问方式。你可以使用与第二章同样的连接字符串,或者通过调用连接字符串编辑器自己建立一个。

      设置ADOConnection组件的LoginPrompt属性为False,阻止数据库登录界面出现。既然我们没有为数据库设置任何密码,我们也不需要登录提示。

Data Browsing at design time with DBGird

      字段(Fields

      当我们想为用户提供整个记录集(表中的数据)的时候,可以使用DBGrid组件。即使我们可以使用DBGrid让我们的用户在表中添加、编辑和删除记录—但最好的方法是为表中的每个字段使用Field(字段)对象。字段对象多用于应用程序中数据显示和编辑的控制。通过使用Fields Editor(字段编辑器),我们可以为表中的每一列设置固定的字段对象列表。字段编辑器可通过双击DataSet组件调用。为了给数据集的固定字段列表增加字段,可以右击列表并选择Add Fields(增加字段)。

      除了为用户显示表中的所有数据(在DBGrid中)外,我们还需要使用field-oriented(面向字段)的数据可视化组件如:编辑框。例如,DBEdit组件是TEdit类的数据可视化版本。它是任何数据输入程序的积木。

      在表单中放置DBEdit并把它与表的字段相连的最简单的方法如下:

  1. 通过双击ADOTable组件调用Fields editor(字段编辑器);
  2. 选择Name字段,如例。让Page Control的第二个标签成为被选项;
  3. 在表单上拖动Name字段。

Dragging field objects

      当你在标签单上放下Name字段时,Delphi会在上面放置一个Label和一个DBEdit组件。Label组件的Caption(标题)与被拖动字段的DisplayLabel(显示标签)属性一样。DBEdit组件通过它的DataSource属性与数据集的数据源相连。如果你从字段编辑器中选择多个字段并把它放置在表单上,Delphi将在表单上放置同样多的Label/DBEdit组件。

Data browsing at design time with field oriented components

      “它活了!”(It''''s alive

      OK,我们现在所需要做的是激活连接并滚动记录。一个数据集(ADOTable)组件的Active(激活)属性指出我们是否与一个表相连。设置Active为True或调用Open方法将使ADOConnection组件的CONonnected属性为True—并在相关的数据可视化控件中显示数据。

      首先、接着、最后......(First, Move by, Last,...

      现在我们作最后的准备。接下来我们了解一下怎样浏览记录集。

      DBNavigator组件为浏览记录集提供了一个友好而简单的工具。除了它的浏览能力外,DBNavigator还提供了方法操作数据,如:插入、删除或取消改变。例如,如果我们点击Delete(删除)按钮,相应的记录将会从记录集中删除。每个按钮都是可选的,你可以随意的组合和匹配它们。

      通过按钮设置,我们可以跳到最后一个记录或移到上一个记录。例如,点击Last(最后)按钮设置当前记录为记录集的最后一条记录并使Last(最后)和Next(下一个)按钮失效。点击Last按钮与调用数据集的Last方法具有相同的功效。

      需要注意的是,DBNavigator不能处理的浏览操作之一是按一定的数量间隔对记录进行向前或向后的移动。数据集的MoveBy方法被用于定位相对于记录集当前记录的任一记录的位置。

       这就是本章。现在我们将准备学习数据集的编辑和查询,这将在本教程的接下来的章节中进行说明......

 

2002年12月26日 20:49


没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台