SQLServer数据库设计好了后，怎样打包给用户自动安装

Question

ADO_DATA: TADOConnection;
Q_temp: TADOQuery;
新数据库名：mNewDatabaseName
数据库名：mServerName
数据库用户：mDatabaseUser
数据库用户口令：mDatabasePassword    Q_temp.Connection:= ADO_DATA;
    with ADO_DATA do
        begin
            Close;
            Provider            := 'SQLOLEDB.1';
            ConnectionString    := 'Data Source=' + mServerName + ';';
            DefaultDatabase     := 'master';
            try
                Open(mDatabaseUser, mDatabasePassword);
            except
                MessageBox(Handle, '创建工作表时数据库打开失败！', '提示信息', MB_OK + MB_ICONWARNING);
                Exit;
            end;
        end;
    with Q_temp do
        begin
            Close;
            SQL.Clear;
            SQL.Add(' CREATE DATABASE ' + mNewDatabaseName);
            try
                ExecSQL;
            except
                mStringTemp := '';
                mStringTemp := mStringTemp + '创建数据库失败' + #13 + #10;
                mStringTemp := mStringTemp + '请检查数据库' + mNewDatabaseName + '是否已经存在！';
                MessageBox(Handle, PChar(mStringTemp), '提示信息', MB_OK + MB_ICONWARNING);
                Exit;
            end;
        end;

Answer 1

ADO_DATA: TADOConnection;
Q_temp: TADOQuery;
新数据库名：mNewDatabaseName
数据库名：mServerName
数据库用户：mDatabaseUser
数据库用户口令：mDatabasePassword    Q_temp.Connection:= ADO_DATA;
    with ADO_DATA do
        begin
            Close;
            Provider            := 'SQLOLEDB.1';
            ConnectionString    := 'Data Source=' + mServerName + ';';
            DefaultDatabase     := 'master';
            try
                Open(mDatabaseUser, mDatabasePassword);
            except
                MessageBox(Handle, '创建工作表时数据库打开失败！', '提示信息', MB_OK + MB_ICONWARNING);
                Exit;
            end;
        end;
    with Q_temp do
        begin
            Close;
            SQL.Clear;
            SQL.Add(' CREATE DATABASE ' + mNewDatabaseName);
            try
                ExecSQL;
            except
                mStringTemp := '';
                mStringTemp := mStringTemp + '创建数据库失败' + #13 + #10;
                mStringTemp := mStringTemp + '请检查数据库' + mNewDatabaseName + '是否已经存在！';
                MessageBox(Handle, PChar(mStringTemp), '提示信息', MB_OK + MB_ICONWARNING);
                Exit;
            end;
        end;

Answer 2

数据库的连接部分和（tianjin）基本一样；
下一步应该对数据库进行附加sp_attech_file_data mnewdatebasename,物理文件路径名