Вы должны поместить TUIBDatabase, TUIBTransaction, затем TUIBDataSet, и он должен быть подключен к вашей TUIBDatabase, а TUIBTransaction в конце поставить TDataSource, подключенный к TUIBDatabase: TUIBDatabase -> TUIBDatabase -> TDataSource
например
object UIBTransaction1: TUIBTransaction
DataBase = UIBDataBase1
end
object UIBDataBase1: TUIBDataBase
Params.Strings = (
'sql_dialect=3'
'lc_ctype=NONE'
'user_name=SYSDBA'
'password=masterkey'
'sql_role_name=')
DatabaseName =
'D:\FIREBIRDTEST.FDB'
UserName = 'SYSDBA'
PassWord = 'masterkey'
LibraryName = 'fbclient.dll'
end
object UIBDataSet1: TUIBDataSet
Transaction = UIBTransaction1
Database = UIBDataBase1
SQL.Strings = ('select * from CUSTOMER;')
end
object DataSource1: TDataSource
DataSet = UIBDataSet1
end
вы также можете использовать опцию, указанную markus_ja, однако не используйте TUIBQuery, а вместо этого используйте TUIBDatabase
TUIBDatabase -> TUIBDatabase -> TDataSetProvider -> TClientDataSet -> TDataSource
просто вставьте этот код в форму:
object UIBTransaction1: TUIBTransaction
DataBase = UIBDataBase1
Left = 120
Top = 112
end
object UIBDataBase1: TUIBDataBase
Params.Strings = (
'sql_dialect=3'
'lc_ctype=NONE'
'user_name=SYSDBA'
'password=masterkey'
'sql_role_name=')
DatabaseName =
'D:\FIREBIRDTEST.FDB'
UserName = 'SYSDBA'
PassWord = 'masterkey'
LibraryName = 'fbclient.dll'
end
object UIBDataSet1: TUIBDataSet
Transaction = UIBTransaction1
Database = UIBDataBase1
SQL.Strings = ('select * from CUSTOMER;')
end
object DataSetProvider1: TDataSetProvider
DataSet = UIBDataSet1
end
object ClientDataSet1: TClientDataSet
ProviderName = 'DataSetProvider1'
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
end
Я надеюсь, что это поможет