Delphi 数据库学习[1] TQuery 创建数据库

今天开始根据Delphi 范例自学手册学习。第一个例子弄的我太纠结了。话不多讲进入正题。

一共写了两个。这是第一个：

这是第二个。

是不是很像。对第二个比第一个少了个TDataBase组件。

书上使用的两个。当我发现他的TDataBase是个摆设。TDataBase的内容有待深究。

主要说下BDE Administrator的配置。书上没咋说。

ODBC DSN 要去控制面板管理工具那单设一下。

点配置一步步来就ok。BDE Administrator那边正常的话DATABASE NAME也要弄一下。我是创建数据库就没弄。最后点那个打开如果变成黑体就连接ok了。

这可是我一点点摸索的啊。。。哭。

主要把TQuery这个DataBaseName弄一家就ok了。下面贴下代码。就是书上的那段了。

View Code

 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.