Code:

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 0
    Width = 688
    Height = 25
    DataSource = DataSource1
    Align = alTop
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 25
    Width = 688
    Height = 421
    Align = alClient
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object SimpleDataSet1: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'employee'
    Connection.DriverName = 'Interbase'
    Connection.GetDriverFunc = 'getSQLDriverINTERBASE'
    Connection.LibraryName = 'dbexpint.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=Interbase'
      
        'Database=C:\Program Files\Common Files\Borland Shared\Data\emplo' +
        'yee.gdb'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=masterkey'
      'ServerCharSet='
      'SQLDialect=1'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Interbase TransIsolation=ReadCommited'
      'Trim Char=False')
    Connection.VendorLib = 'gds32.dll'
    Connection.Connected = True
    DataSet.CommandText = 'COUNTRY'
    DataSet.CommandType = ctTable
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 72
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = SimpleDataSet1
    Left = 88
    Top = 144
  end
end

Code:
"SELECT * FROM NEKATABLICA"

Code:
IBDataSet.Open;

Code:
IBDataSet.Insert;

Code:
IBDataSet.Post;
IBTransaction.Commit;

Code:
IBDataSet.Edit;

Code:
if FieldByName('POLJE').AsString = EmptyStr then
begin
  ShowMessage('Morate unijeti vrijednost polja!');
  IBTransaction.RollBack;
end;

Code:
with IBDataSet1 do
begin
  Close;
  SelectSQL.Text := 'select nesto, nestodrugo from tablica where '+
          'polje = :parametar and '+
          'neko_drugo_polje = :parametar_drugi';
  Params[0].AsString := Edit1.Text;
  Params[1].AsString := neka_varijabla;
  Prepare;
  Open;
end;

Code:

procedure TForm1.Button6Click(Sender: TObject);
begin
IBDataSet1.Close;
 with IBQuery1 do
  begin
     SQL.Clear;
     Close;
     SQL.Text:='SELECT * FROM POTROSAC ORDER BY ID DESC';
     Open;
  end;
  IBDataSet1.Open;
end;

Code:
procedure TForm1.Button6Click(Sender: TObject);
begin
IBDataSet1.Close;
 with IBDataSet1 do
  begin
     Close;
     SelectSQL.Text:='SELECT * FROM POTROSAC ORDER BY ID DESC';
     Open;
  end;
end;

Code:
ParamByName('naziv_parametra').AsString := neka_varijabla