delphi 中操作access数据库的几个函数。

unit U_AccessFun;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ADODB, DB, ComObj, ActiveX;

const
  con_LocalDBFile  = 'ptdb.mdb';
  con_LocalDBPSW   = 'Lmi';
  con_ConnectionString =
      'Provider=Microsoft.Jet.OLEDB.4.0;'+
      'Data Source=%s;'+
      'Jet OLEDB:Database Password=%s;';

  //取得临时文件名
  function GetTempPathFileName():string;

  //建立Access文件，如果文件存在则失败
  function Create_Access_File(FileName:String; PassWord:string = ''):Boolean;

  //压缩与修复数据库,覆盖源文件
  function CompactDataBase(AFileName, APassWord:string): Boolean;

  //执行SQL语句
  function EXEC_SQL(Query: TADOQuery; sSQLText: string): Boolean;

  function OPEN_SQL(Query: TADOQuery; sSQLText: string): Boolean;

  //是否存在表
  function ExistsUserTable(Query: TADOQuery; sTableName: string): Boolean;

  //删除表
  function DropTable(Query: TADOQuery; sTableName: string): Boolean;

  //重命名表: 将 sOldName 改为 sNewName
  function RenameTable(Query: TADOQuery; sOldName, sNewName: string): Boolean;

  //是否存在视图
  function ExistsUserView(Query: TADOQuery; sViewName: string): Boolean;

  //删除视图
  function DropView(Query: TADOQuery; sViewName: string): Boolean;

  //创建远程SQL数据库的视图
  function CreateView(Query: TADOQuery;
                      sLocalViewName  : string;//本地视图名
                      sServerTableName: string;//远程表名
                      sDataSource     : string;//远程数据源地址
                      sDataBase       : string;//远程数据库名
                      sUserName       : string;//远程数据库登录名
                      sPassWord       : str