...... 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;
应用TIBDatabaseInfo组件
最新推荐文章于 2022-07-07 16:03:43 发布