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

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

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

这是第二个。

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

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

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

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

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

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

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

unit eg001;

interface

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

type
  TForm1 = class(TForm)
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  try
    with Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Create Database ljj ');
      SQL.Add('on (Name = ss, Filename = "e:\Delphi\Delphi 范例完全自学手册\实例 001\sss.mdf")');
      ExecSQL;
    end;
    application.MessageBox('创建成功','提示',MB_OK);
  except
    application.MessageBox('创建失败','提示',MB_OK);
  end;
end;

end.