1 unit eg001;
 2 
 3  interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs, DB, DBTables, StdCtrls, Buttons;
 8 
 9 type
10   TForm1 = class(TForm)
11     Query1: TQuery;
12     BitBtn1: TBitBtn;
13     BitBtn2: TBitBtn;
14     Label1: TLabel;
15     procedure BitBtn1Click(Sender: TObject);
16   private
17     { Private declarations }
18   public
19     { Public declarations }
20   end;
21 
22 var
23   Form1: TForm1;
24 
25 implementation
26 
27 {$R *.dfm}
28 
29 procedure TForm1.BitBtn1Click(Sender: TObject);
30 begin
31   try
32     with Query1 do
33     begin
34       Close;
35       SQL.Clear;
36       SQL.Add('Create Database ljj ');
37       SQL.Add('on (Name = ss, Filename = "e:\Delphi\Delphi 范例完全自学手册\实例 001\sss.mdf")');
38       ExecSQL;
39     end;
40     application.MessageBox('创建成功','提示',MB_OK);
41   except
42     application.MessageBox('创建失败','提示',MB_OK);
43   end;
44 end;
45 
46 end.