请教关于MSSQL数据库的动态建立及操作

Question

请教关于MSSQL数据库的动态建立及操作
程序图如下SQL代码：
/****** Object: 建立数据库 Database [DemoTest]******/
CREATE DATABASE [DemoTest] ON  PRIMARY 
( NAME = N'DemoTest_Data', FILENAME = N'D:\MSSQLDB\DemoTest_Data.mdf' , SIZE = 5120KB , MAXSIZE = UNLIMITED, FILEGROWTH = 10%)
 LOG ON 
( NAME = N'DemoTest_Log', FILENAME = N'D:\MSSQLDB\DemoTest_Log.ldf' , SIZE = 1024KB , MAXSIZE = 2048GB , FILEGROWTH = 1024KB )
GO
ALTER DATABASE [DemoTest] SET COMPATIBILITY_LEVEL = 100
GO
IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))
begin
EXEC [DemoTest].[dbo].[sp_fulltext_database] @action = 'enable'
end
GO
ALTER DATABASE [DemoTest] SET ANSI_NULL_DEFAULT OFF 
GO
ALTER DATABASE [DemoTest] SET ANSI_NULLS OFF 
GO
ALTER DATABASE [DemoTest] SET ANSI_PADDING OFF 
GO
ALTER DATABASE [DemoTest] SET ANSI_WARNINGS OFF 
GO
ALTER DATABASE [DemoTest] SET ARITHABORT OFF 
GO
ALTER DATABASE [DemoTest] SET AUTO_CLOSE OFF 
GO
ALTER DATABASE [DemoTest] SET AUTO_CREATE_STATISTICS ON 
GO
ALTER DATABASE [DemoTest] SET AUTO_SHRINK OFF 
GO
ALTER DATABASE [DemoTest] SET AUTO_UPDATE_STATISTICS ON 
GO
ALTER DATABASE [DemoTest] SET CURSOR_CLOSE_ON_COMMIT OFF 
GO
ALTER DATABASE [DemoTest] SET CURSOR_DEFAULT  GLOBAL 
GO
ALTER DATABASE [DemoTest] SET CONCAT_NULL_YIELDS_NULL OFF 
GO
ALTER DATABASE [DemoTest] SET NUMERIC_ROUNDABORT OFF 
GO
ALTER DATABASE [DemoTest] SET QUOTED_IDENTIFIER OFF 
GO
ALTER DATABASE [DemoTest] SET RECURSIVE_TRIGGERS OFF 
GO
ALTER DATABASE [DemoTest] SET  DISABLE_BROKER 
GO
ALTER DATABASE [DemoTest] SET AUTO_UPDATE_STATISTICS_ASYNC OFF 
GO
ALTER DATABASE [DemoTest] SET DATE_CORRELATION_OPTIMIZATION OFF 
GO
ALTER DATABASE [DemoTest] SET TRUSTWORTHY OFF 
GO
ALTER DATABASE [DemoTest] SET ALLOW_SNAPSHOT_ISOLATION OFF 
GO
ALTER DATABASE [DemoTest] SET PARAMETERIZATION SIMPLE 
GO
ALTER DATABASE [DemoTest] SET READ_COMMITTED_SNAPSHOT OFF 
GO
ALTER DATABASE [DemoTest] SET HONOR_BROKER_PRIORITY OFF 
GO
ALTER DATABASE [DemoTest] SET  READ_WRITE 
GO
ALTER DATABASE [DemoTest] SET RECOVERY FULL 
GO
ALTER DATABASE [DemoTest] SET  MULTI_USER 
GO
ALTER DATABASE [DemoTest] SET PAGE_VERIFY CHECKSUM  
GO
ALTER DATABASE [DemoTest] SET DB_CHAINING OFF 
GO
/******建立表******/
USE [DemoTest]
GO
/****** Object:  Table [dbo].[Table_Textstudent]******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[Table_Textstudent](
[Text_id] [smallint] IDENTITY(1,1) NOT NULL,
[Text_name] [nvarchar](50) NULL,
[Text_sex] [nvarchar](50) NULL,
[Text_nl] [nvarchar](50) NULL,
[Text_xh] [nvarchar](50) NULL
) ON [PRIMARY]
GO

Answer 1

最好用DELPHI+SQL数据库编程并实现如下功能
　　删除数据库
　　备份数据库
　　恢复数据库
　　压缩数据库

Answer 2

　　删除数据库
　　备份数据库
　　恢复数据库
　　压缩数据库无外乎那几句SQL语句, 还想更全面的话, 可以参考phpMyAdmin 

Answer 3

我想将其 封装到一个DLL文件，这个如何处理呀
function CREATEDBTAB(DBname,DBtab:string):string;
begin
//代码部分
//测试“数据库”是否存在，不存在，则建立数据库及表
{SQL代码：
/****** Object: 建立数据库 Database [DemoTest]******/
CREATE DATABASE [DemoTest] ON PRIMARY  
( NAME = N'DemoTest_Data', FILENAME = N'D:\MSSQLDB\DemoTest_Data.mdf' , SIZE = 5120KB , MAXSIZE = UNLIMITED, FILEGROWTH = 10%)
 LOG ON  
( NAME = N'DemoTest_Log', FILENAME = N'D:\MSSQLDB\DemoTest_Log.ldf' , SIZE = 1024KB , MAXSIZE = 2048GB , FILEGROWTH = 1024KB )
GO
ALTER DATABASE [DemoTest] SET COMPATIBILITY_LEVEL = 100
GO   ..........}end;

Answer 4

难道没有高手吗》》》》》》》》》》》》》》》》》》》
就是通过DELPHI+MSSQL综合编程来实现
创建数据库及表》》》》》》》》》
而不是通过所为的SQL角本