用ADOQuery创建SQL Server数据库，并创建表结构、存储过程和视图

昨天做系统的安装，搞这个搞到头大，现在把总结写下巴。

PS：贴上来代码的缩进就乱掉了

用SQL Server企业管理器导出的SQL文件是不能直接在ADOQuery里用的，因为ADOQuery不支持GO，不支持注释，视图和存储过程的创建也必须放到查询开头，所以必须要对企业管理器导出的SQL文件进行处理，才能用。

首先，导出SQL语句

如图设置

注意这一步，“编写主键、外键、默认值和检查约束脚本”别忘了选。文件格式要选ANSI，因为貌似TStrings.LoadFromFile这个方法对Unicode的文本支持不好，如果你的代码不用TStringList读SQL文件，那这里选什么都无所谓。选择创建一个文件，可以确保结构按照顺序创建，免得多个文件又要搞依赖关系，分析哪个要先创建，麻烦。

然后，创建数据库

强烈建议将用于创建数据库和数据库结构的ADOQuery的ParamCheck属性设置为False

(要是非要设置成True，后面莫名其妙报个错，可别怨我没拦你^_^)

将生成的SQL文件中开头创建数据库的那部分删除（就是直到第一句use XXX这里，包含这句，也一并删除），因为创建数据库的语句我们要自己组装。

创建数据库需要知道数据库文件和日志的存放位置(强迫用户指定貌似不太礼貌，最好自动获取到)，数据库和日志文件初始大小，数据库名和排序规则。

取数据库文件和日志存放位置的办法：（我这里是把第一个库文件的位置当做默认存放位置的）

ADOQuery查询master库： SELECT TOP 1 filename FROM sysaltfiles

然后存放默认位置就是IncludeTrailingPathDelimiter(ExtractFilePath(Trim(FieldByName('filename').AsString)))

创建数据库(仍然是在master库里执行)：

        SQL.Add(Format('IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N''%s'')',[teDBName.Text]));
        SQL.Add(Format('DROP DATABASE [%s]',[teDBName.Text]));
        SQL.Add(Format(
          'CREATE DATABASE [%s] ON (NAME = N''%s_Data'', FILENAME = N''%s%s_Data.MDF'' , SIZE = 7, FILEGROWTH = 10%%) LOG ON (NAME = N''%s_Log'', FILENAME = N''%s%s_Log.LDF'' , SIZE = 7, FILEGROWTH = 10%%) COLLATE Chinese_PRC_CI_AS',
          [teDBName.Text,teDBName.Text,FDBPath,teDBName.Text,teDBName.Text,FDBPath,teDBName.Text]));
        ExecSQL;

这里两个SIZE分别是数据库文件和日志文件的初始大小，单位MB。Chinese_PRC_CI_AS为默认排序规则

需要注意的是，如果库正在被使用，DROP会出错。貌似用SQLDMO可以杀掉连那个库的进程，可以用这个野蛮残忍的办法停止对库的使用。。。

修改SQL，创建数据库结构

以下需要在刚创建的数据库中执行

1.去掉注释(--和/* */)

        Mark:=False;
        for Index:=0 to SQLList.Count-1 do
        begin
          //--开头
          TmpStr:=Trim(SQLList[Index]);
          if Copy(TmpStr,1,2)='--' then
            SQLList[Index]:=''
          else begin
            if Mark then
            begin
              if Copy(TmpStr,Length(TmpStr)-1,2)='*/' then
              begin
                Mark:=False;
              end;
              SQLList[Index]:='';
            end
            else begin
              if Copy(TmpStr,1,2)='/*' then
              begin
                Mark:=True;
                SQLList[Index]:='';
              end;
            end;
          end;
        end;

2.去掉go

SQLList.Text:=StringReplace(SQLList.Text,#13#10'GO'#13#10,#13#10,[rfReplaceAll,rfIgnoreCase]);

3.在CREATE VIEW前加exec

       SQLList.Text:=StringReplace(SQLList.Text,'CREATE VIEW ','exec(''CREATE VIEW ',[rfReplaceAll,rfIgnoreCase]);
        Mark:=False;
        for Index:=0 to SQLList.Count-1 do
        begin
          if Mark then
          begin
            //把exec('')之中的'替换为''，否则报错
            SQLList[Index]:=StringReplace(SQLList[Index],'''','''''',[rfReplaceAll,rfIgnoreCase]);
            if System.Pos('SET ',SQLList[Index])>0 then
            begin
              Mark:=False;
              //CREATE VIEW结尾加')
              SQLList[Index-1]:=SQLList[Index-1]+''')';
            end;
          end
          else if System.Pos('exec(''CREATE VIEW ',SQLList[Index])>0 then
          begin
            Mark:=True;
          end;
        end;

4.存储过程前加exec

这里注意存储过程中经常出现SET，所以不能让SET做为判断'CREATE PROCEDURE 结束的标志，而要用

SET QUOTED_IDENTIFIER OFF，只要是企业管理器导出的创建存储过程语句，必定以SET QUOTED_IDENTIFIER OFF紧跟着创建语句

        SQLList.Text:=StringReplace(SQLList.Text,'CREATE PROCEDURE ','exec(''CREATE PROCEDURE ',[rfReplaceAll,rfIgnoreCase]);
        Mark:=False;
        for Index:=0 to SQLList.Count-1 do
        begin
          if Mark then
          begin
            //把exec('')之中的'替换为''，否则报错
            SQLList[Index]:=StringReplace(SQLList[Index],'''','''''',[rfReplaceAll,rfIgnoreCase]);
            if System.Pos('SET QUOTED_IDENTIFIER OFF',SQLList[Index])>0 then
            begin
              Mark:=False;
              //CREATE PROCEDURE 结尾加')
              SQLList[Index-1]:=SQLList[Index-1]+''')';
            end;
          end
          else if System.Pos('exec(''CREATE PROCEDURE ',SQLList[Index])>0 then
          begin
            Mark:=True;
          end;
        end;