语法
TRANSFORM aggfunction
selectstatement
PIVOT pivotfield [IN (value1[, value2[, ...]])]

TRANSFORM 语句包含以下部分：

部分 说明
aggfunction 操作所选数据的 SQL 聚合函数。
selectstatement SELECT 语句。
pivotfield 希望用于创建查询结果集中列标题的字段或表达式。
value1，value2 用于创建列标题的固定值。

说明
使用交叉表查询汇总数据时，将从作为列标题的指定字段或表达式中选择值，以便能够以一种比使用选择查询更紧凑的方式来查看数据。

TRANSFORM 是可选的，但被包括时则是 SQL 字符串中的第一个语句。它在 SELECT 语句之前以指定作为行标题的字段，在 GROUP BY 子句之前以指定行分组方法。您也可以包含其他子句（如 WHERE），以指定其他选择或排序条件。还可以在交叉表查询中使用子查询作为谓词，特别是在 WHERE 子句中。

pivotfield 中返回的值作为查询结果集中的列标题。例如，在交叉表查询中如果依据月销售量来透视销售数据，将会创建 12 个列。可以约束 pivotfield 以便从可选 IN 子句中所列出的固定值（value1，value2）内选择标题。也可以包含固定值用于没有数据来创建其他列的情况。

举例
TRANSFORM Sum(Score.score) AS score之总计
SELECT Score.Name, Sum(Score.score) AS [总计 score]
FROM Score
GROUP BY Score.Name
PIVOT Score.subject;

sp_renamedb
更改数据库的名称。

语法
sp_renamedb  [  @dbname =  ]   ' old_name '  ,
     [  @newname =  ]   ' new_name '

参数
[ @dbname = ]   ' old_name '

是数据库的当前名称。old_name 为 sysname 类型，无默认值。

[ @newname = ]   ' new_name '

是数据库的新名称。new_name 必须遵循标识符规则。new_name 为 sysname 类型，无默认值。

返回代码值
0 （成功）或非零数字（失败）

权限
只有 sysadmin 和 dbcreator 固定服务器角色的成员才能执行 sp_renamedb。

示例
下例将数据库 accounting 改名为 financial。

EXEC  sp_renamedb  ' accounting ' ,  ' financial '

二、更改表名或列名

sp_rename  [  @objname =  ]   ' object_name '  ,
     [  @newname =  ]   ' new_name '
     [  , [ @objtype =  ]   ' object_type '  ]

/////////////////////////////////////////////
A. 重命名表
下例将表 customers 重命名为 custs。

EXEC  sp_rename  ' customers ' ,  ' custs '

B. 重命名列
下例将表 customers 中的列 contact title 重命名为 title。

EXEC  sp_rename  ' customers.[contact title] ' ,  ' title ' ,  ' COLUMN '

//控件源码如下：
unit MultiLang;

interface

uses
  SysUtils, Classes, DB, ADODB, Forms, Dialogs, Controls, Menus, ExtCtrls;

type
  TMultiLang = class(TComponent)
  private
    FADOConnection: TADOConnection;
    FTableName: string;
    FLanguageField: string;
    FFormName: string;
    procedure SetFormName(const Value: string);
    procedure SetLanguageField(const Value: string);
    procedure SetTableName(const Value: string);
    procedure SetADOConnection(const Value: TADOConnection);
    { Private declarations }
  protected
    { Protected declarations }
    function GetValue(Command: string): string;
  public
    { Public declarations }
    procedure SetControlCaption(theForm: string);
    procedure SetFieldDispLabel(ADM: TDataModule);
  published
    { Published declarations }
    property ADOConnection: TADOConnection read FADOConnection write SetADOConnection;
    //property FormName: string read FFormName write SetFormName;
    property TableName: string read FTableName write SetTableName;
    property LanguageField: string read FLanguageField write SetLanguageField;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TMultiLang]);
end;

{ TComponent1 }

function TMultiLang.GetValue(Command: string): string;
var
  tmp: TADOQuery;
begin
  tmp := TADOQuery.Create(Self);
  try
    tmp.Connection := Self.ADOConnection;
    with tmp do
    begin
      Close;
      SQL.Clear;
      SQL.Add(Command);
      //ShowMessage(Command);
      Open;
      Result := Fields[0].AsString;
    end;
  finally
    tmp.Free;
  end;
end;

procedure TMultiLang.SetADOConnection(const Value: TADOConnection);
begin
  FADOConnection := Value;
end;

procedure TMultiLang.SetControlCaption(theForm: string);
var
  I, J: integer;
  AForm: TForm;
  Capt, ctrl_nme, S: string;
begin
  if not Assigned(FADOConnection) then
  begin
    MessageDlg('Missing ADOConnection property', mtError, [MBOK], 0);
    Exit;
  end;
  if FTableName = '' then
  begin
    MessageDlg('Missing TableName property', mtError, [MBOK], 0);
    Exit;
  end;
  {if FFormName = '' then
  begin
    MessageDlg('Missing FormName property', mtError, [MBOK], 0);
    Exit;
  end; }
  if FLanguageField = '' then
  begin
    MessageDlg('Missing LanguageField property', mtError, [MBOK], 0);
    Exit;
  end;
  //窗口標題
  S := GetValue('SELECT ' + FLanguageField + ' FROM '
          + FTableName + ' WHERE Frm_Nme=' + QuotedStr(theForm)
          +' and Ctrl_Nme=' + QuotedStr(theForm));

  //
  for I := 0 to Screen.FormCount - 1 do
  begin
    if UpperCase(Screen.Forms[I].Name) = UpperCase(theForm) then
    begin
      AForm := Screen.Forms[I];
      if S <> '' then
    //ShowMessage(S);
      AForm.Caption := S;
      for J := 0 to AForm.ComponentCount - 1 do
      begin
        Ctrl_Nme := AForm.Components[J].Name;
        Capt := GetValue('SELECT ' + FLanguageField + ' FROM '
          + FTableName + ' WHERE Frm_Nme=' + QuotedStr(theForm)
          +' and Ctrl_Nme=' + QuotedStr(Ctrl_Nme));
        //ShowMessage(ctrl_nme+':'+capt);
        if Capt <> '' then
        begin
          if AForm.Components[J] is TMenuItem then
            TMenuItem(AForm.Components[J]).Caption := Capt
          else
          if AForm.Components[J] is TField  then
            TField(AForm.Components[J]).DisplayLabel := Capt
          else
          //if  AForm.Components[J] is TImageList  then
            TControl(AForm.Components[J]).SetTextBuf(Pchar(Capt));
        end;
      end;
      Exit;
    end;
  end;
end;

procedure TMultiLang.SetFieldDispLabel(ADM: TDataModule);
var
  I: integer;
  Nme: string;
  Capt: string;
begin
  for I := 0 to ADM.ComponentCount - 1 do
  begin
    if ADM.Components[I] is TField then
    begin
      Nme := TField(ADM.Components[I]).Name;
      Capt := GetValue('SELECT ' + FLanguageField + ' FROM '
          + FTableName + ' WHERE Frm_Nme=' + QuotedStr(ADM.Name)
          +' and Ctrl_Nme=' + QuotedStr(Nme));
      if Capt <> '' then
        TField(ADM.Components[I]).DisplayLabel := Capt;
    end;
  end; 
end;

procedure TMultiLang.SetFormName(const Value: string);
begin
  FFormName := Value;
end;

procedure TMultiLang.SetLanguageField(const Value: string);
begin
  FLanguageField := Value;
end;

procedure TMultiLang.SetTableName(const Value: string);
begin
  FTableName := Value;
end;

end.

left join 时UpdateMode设为upWhereKeyOnly，并双击dataset添加所有字段，将key字段的ProviderFlag中的pfInkey设为true
但在ClientDataSet中Refresh方法不会更新，要先将Active设为False,再设为True;