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 .

转载于:https://www.cnblogs.com/ljjphysics/archive/2011/05/20/2052279.html