Delphi TDatabase 组件

时间:2023-01-18 00:35:31

TDatabase 组件是一个能与远程数据库通过 BDE 建立连接的组件,可使本地端的程序获取远程的数据。 通过 TDatabase 组件的使用,可以减少与远程数据库连接的窗口,当远程数据库的设置变动时,只要更改 TDatabase 组件的单一窗口即可,对于同一个数据库的连接,所有 TTable, TQuery 或其他的 BDE 数据访问组件都可以通过 TDatabase 组件与远程数据库进行连接。TDatabase 组件可以保存登录数据库所需要身份认证数据,所以只需设置 TDatabase 组件,登录时就可以免去输入登录身份认证的麻烦,而所有通过该组件和远程数据库相连的组件也可以免去输入认证数据的操作。

TDatabase 组件的常用属性

Aliasname:指定连接的数据库的名称

Databasename:设置一个用来识别这个组件的数据库名称,当设置好该名称后,便可在其他数据访问组件中的 DatabaseName 属性下拉菜单中使用这个设置的名称。

Connected:连接数据库

Keepconnection:设置是否保持 TDatabase 组件和远程数据库的连接状态,属性值为 True 时永远保持连接。

Loginprompt:登录时的参数输入对话框

Params:和远程数据库连接时所要传递的参数,最常传递的参数为登录时身份认证信息。

ReakOnly:设置该组件提供的连接是否为只读状态。

在用 TQuery 控件创建数据时,首先要连上数据库实例,因此要创建一个 TDatabase 控件,并且连上数据库实例(随便连上一个目前数据库实例中的数据库即可),这样才能用TQuery新创建一个数据库,否则,程序不知道在哪创建数据库,报以下错误:invalid use of keyword。

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Try
with query1 do
begin
close;
SQL.Clear;
SQL.Add('Create Database dbtang on ');
SQL.Add('(Name=tang, Filename="D:\Microsoft SQL Server02\MSSQL.2\MSSQL\Data\tang.mdf")');
ExecSQL;
end;
Application.MessageBox('创建成功', '提示', );
Except
Application.MessageBox('创建失败', '提示', );
close;
end;
end;