Delphi数据库控件使用入门

　　在数据库应用程序中，数据控件是经常要用到的。数据控件都是可视的。也就是说，如果修改了这些构件的属性，能在窗体上马上反映出来。如果这些构件的Enabled属性设为True并且数据集的Active属性也设为True，在设计期就可以看到数据。

　　下面就来介绍一下这些控件的简单应用：

　　指定一个数据源

　　数据控件必须通过TDataSource构件连接数据集。TDataSource构件扮演的角色实际上就是数据控件与数据集之间的桥梁。首先，把一个数据集构件放到窗体或数据模块上，设置它的DatabaseName属性指定要访问的数据库，设置它的TableName属性指定要访问的表。接着，把一个TDataSource构件放到窗体或数据模块上，设置它的DataSet属性指定数据集。然后，把一个数据控件放到窗体上，设置它的DataSource属性指定TDataSource构件，而这个TDataSource构件的DataSet属性已经指定了一个数据集。最后，设置数据控件的DataField属性指定要显示的字段。不过，对于TDBGrid、TDBCtrlGrid和TDBNavigator构件来说，不需要设置DataField属性，因为这几个控件是以整个数据集为工作内容的。

　　编辑和更新数据

　　除了TDBNavigator构件外，其他数据控件都是用来显示和编辑数据的。这里要介绍怎样编辑数据。
要使用户能编辑数据，数据集必须进入dsEdit状态。如果TDataSource的AutoEdit属性设为False，用户不能直接编辑数据，除非程序调用Edit函数。

　　要使用户能够在数据控件中修改数据，必须把数据控件的ReadOnly属性设为False。如果ReadOnly属性设为True，数据控件中显示的数据就是只读的。一般情况下，TDataSource构件的Enabled属性设为True。如果这个属性设为False，数据控件就无法显示数据，更不能修改数据。

　　如果数据集构件的ReadOnly属性设为True，数据集就是只读的，用户在数据控件中所作的修改不能写到数据集中。除了TDBGrid构件外，当用户修改了一个字段的值，还需要把输入焦点移走，新的数据才写到数据集中。在移走输入焦点之前，用户随时可以按ESC键取消修改。在TDBGrid构件建立的栅格中，当用户修改了一个字段的值，还需要把输入焦点移到另一条记录上，新的数据才写到数据集中。

　　禁止和允许数据刷新

　　当程序正在遍历整个数据集或者搜索一个特定的记录时，应当暂时禁止数据控件刷新数据，这样能加快遍历或搜索的速度，防止屏幕总是在闪烁。调用数据集的DisableControls可以暂时禁止连接这个数据集的数据控件刷新数据。DisableControls函数通常在循环操作前调用。等循环结束后，程序应当立即调用数据集构件的EnableControls函数重新允许刷新数据。为了确保最后总是能恢复刷新，建议采用Try...Finally结构。这样，即使在循环中出现异常，也可以保证总能调用EnableControls。

　　下面的代码演示了怎样调用DisableControls和EnableControls函数：

CustTable.DisableControls;
Try
CustTable.First;
While not CustTable.EOF Do
Begin
...
CustTable.Next;
End;
Finally
CustTable.EnableControls;
End;
　　手动刷新数据

　　调用数据集的Refresh可以读取数据集中最新的数据并刷新数据控件，这个功能在多用户环境尤其有用，因为其他用户有可能已改变了数据集中的数据。有时候，调用Refresh可能会导致意想不到的结果。例如，如果另一个用户已经删除了一条记录，调用Refresh后，这条记录将从数据控件中消失。

　　显示单个字段的数据控件

　　有的数据控件以数据库的一个或几个字段作为工作内容，如TDBText和TDBEdit，而有的数据控件以整个数据集为工作内容，如TDBGrid和TDBNavigator。显示单个字段的数据控件往往是从一个标准的Windows控件演化而来的，例如，TDBEdit构件就可以认为是TEdit的数据感知版本。

　　1、把数据作为标签显示

　　TDBText构件是一个只读的数据控件，它非常类似于TLabel构件和TStaticText构件。TDBText构件能够把数据作为标签显示，用来标注其他控件。例如，可以用一个TDBText构件显示名称(Common_Name字段)。

　　TDBText构件需要指定一个字段。当用户使用导航器或其他手段浏览记录时，TDBText构件显示的数据将自动变化，因为TDBText构件总是显示当前记录的数据。

　　TDBText构件的AutoSize属性一般要设为True，这是因为字段的内容长度可能是不同的。如果AutoSize属性设为False，有些较长的内容可能会被截断。

　　2、显示和编辑数据

　　TDBText构件只能显示数据，不能编辑数据。要既能显示数据，又能编辑数据，就要用到TDBEdit构件。TDBEdit可以认为是TEdit的数据感知(Data-Aware)版本。例如，有一个TDataSource构件叫CustomersSource，它的DataSet属性指向一个TTable构件叫CustomersTable。把一个TDBEdit构件放在窗体上，其DataSource属性设为CustomersSource，把它的DataField属性设为CustNo。这个TDBEdit构件马上就能显示CustNo字段的值。用户可以在编辑框中键入新的值。

　　显示和编辑多行文本

　　TDBMemo构件是TMemo构件的数据感知版本，可以显示dBASE和Paradox数据库中备注字段的内容。
与TDBEdit不同的是，TDBMemo能够以多行的形式显示文本，同时也允许用户键入多行文本。

　　默认情况下，TDBMemo允许用户修改它显示的文本。如果不想让用户修改文本，只要把ReadOnly属性设为True即可。

　　要允许用户在文本中插入一个制表符，应当把WantTabs属性设为True，否则，当用户按下Tab键，将把输入焦点移走，而不是插入制表符。要限制用户最多可输入的字符数，可以设置MaxLength属性。如果这个属性设为0，表示没有限制。

　　此外，ScrollBars属性可以设置要不要加上滚动栏，WordWrap属性可以设置是否允许自动绕回，Alignment属性可以设置文本的对齐方式。在运行期，您可以调用CutToClipboard和CopyToClipboard函数把选择的文本剪切和复制到剪贴板中，调用PasteFromClipboard能够粘贴剪贴板中的文本。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有