在FORM中放入1 個TDatabase,2個TQUERY控件....

------------------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Database1: TDatabase;
    Query1: TQuery;
    Query2: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
   close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
            screen.Cursor:=crsqlwait;
            if (Edit1.Text <>'') and
            (Edit2.Text <>'') and
            (Edit3.Text<>'') then
         begin
             with Database1.Params do
             begin
               try
                Database1.Connected :=False;
                Clear;
                Add('DATABASE NAME=MASTER');
                Add('SERVER NAME='+Edit1.Text);
                Add('USER NAME='+Edit3.Text);
                Add('PASSWORD='+Edit4.Text);
                Database1.Connected :=true;
                Query1.Close;
                Query1.SQL.Text :='Create database '+Edit2.Text;
                Query1.ExecSQL;
                Query1.Close;
                Query2.Close;
                Query1.SQL.Text :=Query2.SQL.Text;
                Query2.SQL.Text := 'Use '+ Edit2.Text+#13+Query1.SQL.Text;
                Query2.ExecSQL;
                Application.MessageBox(PChar('成功！'+Edit2.Text+
                '數据庫已建立!'),'建立成功',
                  mb_iconInformation);
               except
                Application.MessageBox(PChar('參數錯誤！'+Edit2.Text+
                '數据庫已存在!'+#13+'或者沒有安裝SQL SERVER'+#13+'或者是沒有打幵數据庫服務器!'),'參數錯誤',
                 mb_iconError);
                Edit2.SetFocus;
               end;
             end;
         end else
         begin
            Application.MessageBox(PChar('參數不全！'+
            '數据庫名稱沒有輸入!'+#13+'或者沒有服務器名稱'+#13+'或者沒有輸入數据庫用戶!'),'參數不全',
              mb_iconError);
            Edit2.SetFocus;
         end;
         screen.Cursor:=crdefault;
end;

end.