使用代码创建数据库

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）的连接。