使用代码创建数据库

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    Database1: TDatabase;
    Memo1: TMemo;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    with Query1 do
    begin
      close; //在修改SQL语句前先关闭与数据库的连接
      SQL.clear; //清空SQL语句
      SQL.Add(\'Create Database newdata on\'); //(添加SQL语句)创建数据库
      SQL.Add(\'(Name = SSS, Filename = "f:\db2010\newdata.mdf")\');
      ExecSQL;   //执行SQL语句
    end;
    Application.MessageBox(\'创建成功\',\'提示\',mb_ok);
  Except
    Application.MessageBox(\'创建失败\',\'提示\',mb_ok);
    close;
  end;
end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption:=\'使用代码创建数据库\';
  Database1.AliasName:=\'DB2010\';   //Database1是数据源组件，这里指定数据库别名一般是指向已经注册好的ODBC数据源\'DB2010\'
  Database1.DatabaseName:=\'DB2010\';   //指定数据库的名称，可以任意(也可以为空)
  Database1.Params.Add(\'User name=sa\'); //用户名
  Database1.Params.Add(\'Password=\');   //口令
  Query1.DatabaseName:=\'DB2010\';  //Query1是数据集组件，这里指定数据库的名称一般是也是指向已经注册好的ODBC数据源\'DB2010\'

end;

end.

应用程序要访问SQLServer2000，首先必须用ODBC管理器预先注册好的数据源（例如名为\'DB2010\'的数据源），根据数据源\'DB2010\'，建立起ODBC与具体数据库（SQLServer2000）的联系。这样，只要应用程序将数据源名提供给ODBC，ODBC就能建立起与相应数据库（SQLServer2000）的连接。