$sudo lazarus-ide or
SQLdb tab also contains a component TIBConnection that you can place it on the form
we will connect to /var/lib/firebird/2.1/data/employee.fdb
On the form put an TIBConnection, TSQLTransaction,TSQLQuery,TDatasource and an TDBGrid
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjM9Rf5-K_d_fJzptLV-okQfdM6nLGiYoida1Jil8gHfhGJTtXLjvw7Uj-z17lEpp4CtcudNXGoFoOr3CpivCc0G95f7sWlPc8S-5zZSH9L7M1iLNGEGPDl3yJeMUNibFMN9d0x/s400/emoployeeform.png)
TIBConnection is configured to have DatabaseName=/var/lib/firebird/2.1/data/employee.fdb
Password=masterkey
Username=sysdba
and Transaction=SQLTransaction1
You can put it to be Connected = True
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZpeh4YC_7Qefks88QNgKmWZ2_FEwek53Spv52pGPk5e1wbEaabTDoDytjwpEqg9g7KdACGlk1R6kjBXwD4ab2ZEK2PBYc9Q4_DDQ4phvnYbTVBNhyphenhyphenBbL8VWksnb04xIRrGMZz/s400/IbConnection.png)
Then configure SQLTransaction1
to use
Database=IBConnection1
Active =True;
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj3GwtUt1FBs-W_oId5SH-eT-m3DJz32MHF72QqLi6T9S4bcE1LzhSMIQ3bNfzFUDTbF7Jo2ZEfgr1zRVmGFARk57TNvvv9OMOSEd6QP2ZD9b8Lf98gS36c7p-bVcR11WP7P3Fe/s400/SQLTransaction1.png)
Configure TSQLQuery this way
Database:IBConnection1
SQL=select * from employee;
Active = True;
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi0Xqp-VVlUeNlQLOdb1Tft43kQZx7AVuXY_oEYUbV2fzhgKrYzRkRoH3Rj-ekcggicmK436OlaV6dZbgwJFXKBxQ36aYcmOXs2JBcWer7Z2hrsQUaigZ1Halml7N9Rfy5M9xh-/s400/SQLQuery.png)
Configure TDatasource
DataSet=SQLQuery1
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4pXPpRirxVMivMYBkrzj5VtYmSGLsqYnqeldnISit0G2PVu7vIBIboCKs9WTlx1PZcLau_bFlHEQmVCoWvbAi6QeuCKxt1D9-wGmgEN-8_IhSbvHXYz6huKA6dY9D8xUXsQfa/s400/TdataSource.png)
Configure TDBGrid
DataSource = DataSource1
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgtXCXxDzVqQmW_-fN4KpBj4eXJndmVjCqOLZ_t6Dkj8J40Djg58kx_FboSc3IS8RcMrfVy18eyQkclZbD3PBCr2AewLjQM7S6rsKRj_0pZDUmlVdkpflxexDdGTK3utVNiW82a/s400/TDBGrid.png)
Next you can put an button and make them active from run time
procedure TForm1.Button1Click(Sender: TObject);
begin
SQLQuery1.Active:=true;
end;
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpfSP-mFijumEJAJ7TZktB62Z0rnznL_jJijymDETKs9QH0KVUKuz9ZF66mPXj1JR_IrwNroUq5_g9n3QraRejhxNxuq1tyTOAJLBIEGyl4rBycPH75RJu6_UZFvUG8IE4lnkZ/s400/Employee_RunTime.png)
ps: screenshots are from a previous article and by default now lazarus usese gtk2 so it looks nicer than the above ones
2 comments:
Thanks for nice example,but I wonder how to read RFT/TXT files from Firebird database and display on simple TRichText component ?
I will try to write an example today
Post a Comment