客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
问题描述：在开发数据库程序时，我们经常要使用很多的表格显示组件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]就行了。
该方法是不是很好呢？
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论