Delphi中统一显示表格字段名的高效方法
发布时间：2020-12-15 09:54:01 所属栏目：大数据 来源：网络整理
导读：? ? ? ? ?问题描述：在开发数据库程序时，我们经常要使用很多的表格显示组件DBGrid。当DBGrid显示某表格的数据时，其字段标题默认的就是后台数据库中的表格的字段名称。而为了数据库开发方便，后台数据库中的表格的字段标题通常是用英文表示的，如用Employee
|
? ? ? ? ?问题描述：在开发数据库程序时，我们经常要使用很多的表格显示组件DBGrid。当DBGrid显示某表格的数据时，其字段标题默认的就是后台数据库中的表格的字段名称。而为了数据库开发方便，后台数据库中的表格的字段标题通常是用英文表示的，如用Employees表中的EmployeesID表示雇员编号。但是我们开发给用户的程序必须以汉字显示字段标题，即我们要以‘雇员编号’显示给用户。假设我们是用ADOQuery组件（此处为了说明清楚只使用ADOQuery组件，实际可以是其它数据库组件）query1来加载Employees表的，则我们必须在query1组件的EmployeesID字段的DisplayLable改成‘雇员编号’。一个程序通常需要使用很多的表，且通常一个表要多次重复使用，显然表的字段也要多次被使用。每次都去修改每个字段的DisplayLable属性，这显然是一种效率低下的方法。是不是有一劳永逸的方法自动设置这些多而重复性非常大的DisplayLable属性呢？当然有。以下就以一个实例程序的方式介绍一种方法：
?
我们在MS SQL Server 2000 中有一表，其结构如下：
CREATE TABLE [Employees] (
?????? [EmployeesID] [varchar] (6) NOT NULL,
?????? [EmployeesName] [varchar] (16) NOT NULL,
?????? [Sex] [char] (2) NULL,
?????? [Password] [varchar] (32) NULL,
?????? [Address] [varchar] (100) NULL,
?????? [Tel1] [varchar] (13) NULL,
???????[Tel2] [varchar] (13) NULL,
???????[Birthday] [datetime] NULL,
?????? [HireDate] [datetime] NULL,
?????? [LeaveDate] [datetime] NULL,
?????? [Notes] [varchar] (200) NULL,
?????? [CreateDate] [datetime] NOT NULL,
?????? [CreateMan] [varchar] (6) NOT NULL,
?????? [ModifyDate] [datetime] NOT NULL,
?????? [ModifyMan] [varchar] (6) NOT NULL,
)
该表拥有众多的字段，如果由Delphi开发的前台程序要使用该表在DBGrid显示，则我们必须依次修改字段的DisplayLable属性。
我们在数据库中创建一个辅助表，结构如下：
CREATE TABLE [ColumnName] (
?????? [ColumnName] [varchar] (20) PRIMARY KEY,
?????? [ChineseName] [varchar] (20) NULL,
?????? CONSTRAINT [PK_CN_CN]?CLUSTERED
)
该表专门收集该数据库中所有视图和表格的英文字段标题和对应的中文标题。我们在MS SQL Server 2000中创建一个存储过程将所有表和视图的字段插入该表。该存储过程程序如下：
/*将本数据库中的表和视图的字段名插入ColumnName表中*/
CREATE?PROCEDURE pInsertColumnName
AS
INSERT INTO ColumnName (ColumnName)
SELECT TableColumns FROM
(
SELECT DISTINCT c.name AS TableColumns
FROM dbo.sysobjects o FULL OUTER JOIN
????? dbo.syscolumns c ON o.id = c.id
WHERE (o.xtype = ‘U‘ OR
????? o.xtype = ‘V‘) AND (o.name <> ‘dtproperties‘) AND (o.name <> ‘sysconstraints‘) AND
????? (o.name <> ‘syssegments‘)
)as tc
WHERE TableColumns NOT IN (SELECT ColumnName FROM ColumnName)
执行该存储过程，然后在表ColumnName中依次输入每个字段对应的中文标题。
?
我们知道，ADOQuery有Fields的属性，Fields又有FieldName的属性。FieldName即该字段的字段名。通过该FieldName我们就可以到ColumnName表中找到他对应的[ChineseName]。打开Delphi，在Delphi中创建一个过程，通过循环结构实现将每个字段的DisplayLable属性改成对应的[ChineseName]：
{设置表格头，其中参数ADOQuery为临时表，用于获取[ChineseName]，参数ADOQueryMain为要修改字段标题的TADOQuery }
Procedure SetFieldsDisplayName(ADOQuery:TADOQuery;var ADOQueryMain:TADOQuery);
var
?i: integer;
begin
?with ADOQuery do
?begin
??? Close;
??? SQL.Clear;
??? SQL.Add(‘SELECT ColumnName,ChineseName FROM ColumnName‘);
??? Open;
?end;
?try
??? //循环遍历每个字段
??? for i := 0 to ADOQueryMain.FieldCount - 1 do
????? ADOQueryMain.Fields[i].DisplayLabel :=
??????? ADOQuery.Lookup(‘ColumnName‘,ADOQueryMain.Fields[i].FieldName,
??????? ‘ChineseName‘)
?except
??? Exit;
?end;
end;
当query1组件要以中文显示每个字段头时我们在query1的AfterOpen事件中加入上面函数的调用：
SetFieldsDisplayName(qyTemp,query1);
这样就可实现一次性设置表格头。当我们运行程序再次看到DBGrid时，所有字段都成了对应当中文标题了。
?
该方法非常适合于使用表格很多而字段名重复性高的程序，它不但免去了开发时每次使用要设置DisplayLable的繁琐操作，更有一个重要的优点是，它避免了同一字段在不同地方因为程序员粗心使用不同的DisplayLable显示的现象。如需更改某个字段的中文标题只要到ColumnName表中更改该字段对应当[ChineseName]就行了。
?
该方法是不是很好呢？
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |