双击数据集控件,点右键选择,add all fields,然后点中字段名,在display label 中输入中文。方法二: 在dbgrid中双击,选择哪个带红点的按钮(add all),然后对选中字段的title的caption属性赋中文名称即可
把字段英文名称和中文名称分别放到全局常量字符串数组中, 然后根据字段的英文名称查表找出中文名称,赋值给DBGrid.Columns[I].Title;即可 const FieldList: array [0..4] of string = ('f1', 'f2', 'f3', 'f4', 'f5'); NameList: array [0..4] of string = ('编号', '名称', '类别', '大小', '重量');function FindFieldIndex(FieldName: string): Integer; var I: Integer; begin Result := -1; for I := Low(FieldList) to High(FieldList) do begin if FieldList[I] = FieldName then begin Result := I; Exit; end; end; end;
这样不行吗?试一试,查询时就转为中文标题: select sname as [员工姓名], sex as [性别], age as [年龄] from tblStaff
这样不行吗?试一试,查询时就转为中文标题: select sname as [员工姓名], sex as [性别], age as [年龄] from tblStaff
在dbgrid中双击,选择哪个带红点的按钮(add all),然后对选中字段的title的caption属性赋中文名称即可
const
FieldList: array [0..4] of string = ('f1', 'f2', 'f3', 'f4', 'f5');
NameList: array [0..4] of string = ('编号', '名称', '类别', '大小', '重量');function FindFieldIndex(FieldName: string): Integer;
var
I: Integer;
begin
Result := -1;
for I := Low(FieldList) to High(FieldList) do
begin
if FieldList[I] = FieldName then
begin
Result := I;
Exit;
end;
end;
end;
select sname as [员工姓名], sex as [性别], age as [年龄] from tblStaff
select sname as [员工姓名], sex as [性别], age as [年龄] from tblStaff