应用TIBDatabaseInfo组件

最新推荐文章于 2019-08-13 14:03:00 发布

原创最新推荐文章于 2019-08-13 14:03:00 发布 · 383 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一个使用Delphi读取数据库信息的具体示例，包括数据库文件名、版本号及用户名等，并展示了如何将这些信息添加到Memo组件中进行显示。

......
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
with IBDatabaseInfo1 do
  begin
    for I := 0 to UserNames.Count - 1 do
         Memo1.Lines.Add(DBFileName);//数据库文件名
    Memo1.Lines.Add(version); //数据库版本号
    Memo1.Lines.Add(UserNames.GetText); //数据库用户名
  end;
end;