Delphi 范例自学手册[2] 学生表的创建 实例002，实例003

接实例1的内容。这次在上次建好的数据库中创建一个学生表。

先只用一个TQuery组件。将他的databasename设好。

这个是BDE Administrator中的选项。所以BDE Administrator也要设一下。

上一次

中的DATABASE NAME没有设 因为是创建数据库。

这一次不一样了要把名字弄好。然后保存打开一下。都变成黑体就ok了。

之后是主代码

先上窗体

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    qry1: TQuery;
    btn1: TBitBtn;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
try
  with qry1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Create Table 学生表');
    SQL.Add('(学生编号 Varchar(20) not null,学生姓名 Varchar(20),语文成绩 int,');
    SQL.Add('数学成绩 int, 班主任 Varchar(20))');
    ExecSQL;
  end;
    Application.MessageBox('数据表创建成功。', '提示', MB_OK);
except
  Application.MessageBox('数据表创建失败。', '提示', MB_OK);
end;

end;

end.

这样就可以了。

下面尝试另一种方法。

加了个Tdatabase

直接用图说话：

这是TDataBase组件的属性

这是TQuery的

代码如下：

unit eg002;

interface

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

type
  TForm1 = class(TForm)
    qry1: TQuery;
    btn1: TBitBtn;
    db1: TDatabase;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
try
  with qry1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Create Table 学生表');
    SQL.Add('(学生编号 Varchar(20) not null,学生姓名 Varchar(20),语文成绩 int,');
    SQL.Add('数学成绩 int, 班主任 Varchar(20))');
    ExecSQL;
  end;
    Application.MessageBox('数据表创建成功。', '提示', MB_OK);
except
  Application.MessageBox('数据表创建失败。', '提示', MB_OK);
end;

end;

end.

以上是实例002的内容。实例003 就是SQL语句变一下  教师编号 Varchar(20) not null,Constraint aaaa primaty key('教师编号')

提出的问题：

TDatabase到底有啥用？只是方便连接吗？不用连接提示框吗？