The InterBase getting started sample shows how to create a temporary connection definition at run-time with InterBase database. This sample allows the user to do:
- Temporary connection definition at run-time.
- Master-details relationship between datasets using TFDQuery.
- Transactions handling with TFDTransaction.
- Management of InterBase database such as: managing users, creating database backup/restoring database from backup and validating a database.
Table of Contents
Location
You can find the InterBase sample project at:
- Start | Programs | Embarcadero RAD Studio Sydney | Samples and then navigate to:
Object PascalDatabaseFireDACSamplesGetting StartedInterBase
- Subversion Repository:
- You can find Delphi code samples in GitHub Repositories. Search by name into the samples repositories according to your RAD Studio version.
How to Use the Sample
- Navigate to the location given above and open
GettingStarted.dproj. - Press F9 or choose Run > Run.
- In the
Databasefield, open the following database: C:ProgramDataEmbarcaderoInterBasegds_dbexamplesdatabaseemployee.gdb.
Files
| File in Delphi | Contains |
|---|---|
GettingStarted.dprojGettingStarted.dpr |
The project itself. |
fGettingStarted.pasfGettingStarted.fmx |
The main form. |
Implementation
The sample implements the following features.
Creating temporary connection definition
The simplest way to configure connection to InterBase database at run-time is to build a temporary connection definition:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
with dbMain do begin Close; with Params do begin Clear; Add('DriverID=IB'); Add('Server=localhost'); Add('Database=x:path_to_dbdb.fdb'); Add('User_Name=sysdba'); Add('Password=masterkey'); end; Open; end; |
In the sample the temporary definition is created when the Connect button is clicked.
Master Details
In this sample, the Categories and Products tables have one-to-many relation by CategoryID field. The qryCategories.SQL property is set up as follows:
|
1 |
select * from Categories |
In addition, the qryProducts.SQL property is set up as follows:
|
1 2 |
select * from Products where CategoryID = :CategoryID |
Finally, the qryProducts.MasterSource property is set to dsCategories, while the MasterFields property is set to CategoryID. This creates a master-details relationship between the datasets.
Transaction handling
The handling of InterBase transactions is demonstrated using TFDTransaction + TFDConnection components. Both are configured as follows: trnMain.Connection property is set to dbMain connection and dbMain.Transaction property is set to trnMain.
Starting a transaction:
|
1 |
trnMain.StartTransaction; |
Committing the transaction:
|
1 |
trnMain.Commit; |
Rolling back the transaction:
|
1 |
trnMain.Rollback; |
Executing queries
Simple queries execution is demonstrated via ExecSQL method of TFDConnection.
Updating records:
|
1 2 |
dbMain.ExecSQL('update {id Products} set UnitPrice = UnitPrice * :P1 + :P2 ' + 'where ProductID < 3', [Random(5), Random(3)]); |
Getting a scalar value from the database:
|
1 |
dMaxPrice := dbMain.ExecSQLScalar('select MAX(UnitPrice) from {id Products}'); |
Management of InterBase database
The sample application provides the following features:
- Security management.
- Database maintenance.
- Tracing server activity
The management of databases is done using the following components TFDIBBackup, TFDIBRestore, TFDIBRestore, TFDIBSecurity, TFDIBTrace and TFDIBValidate.
Please refer to the link below for more information and external links about the sample:
http://docwiki.embarcadero.com/CodeExamples/Sydney/en/FireDAC.InterBase_Sample
Head over and check out the full source code for the FireDAC InterBase sample for Delphi on GitHub.
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
