Delphi 中使用 ADO 方法打开 MySQL5.0 数据库并避免汉字乱码

Delphi 7.0编写ADO程序访问MySQL 5.0数据库，字段有中文的时候发现时乱码“???”，经过摸索，和网上文章参考，解决如下：

procedure SetChineseEnv();
var
  qry:TADOQuery;
begin
  qry:=TADOQuery.Create(nil);
  qry.Close();
  qry.Connection :=conn;  //conn是数据库连接
  qry.SQL.Clear();
  qry.SQL.Add('SET NAMES GBK;');
  try
    qry.ExecSQL();
  except
    On E:Exception do
    begin
      ShowMsg('出现异常：'+E.Message);
    end;
  end;
  qry.Free();
end;

注意：主要是执行了SET NAMES GBK;