Talimat: Bir form oluştur ve bir buton ekle. Butona tıklandığında veritabanına bir kayıt ekle.
Kod:
void SaveButtonClick;
{
  InsertQuery = TClSqlQuery.Create(nil);
  Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.176', 'SA', 'reallyStrongPwd123', 'Clomosy', 1433);
  InsertQuery.Connection = Clomosy.DBSQLServerConnection;

  try
    InsertQuery.SQL.Text =
      'INSERT INTO Ilanlar (Adres, Konum, Tarih, Fiyat, Puan, ResimURL, Kategori) ' +
      'VALUES (' +
      QuotedStr(AdminAdresEdit.Text) + ', ' +
      QuotedStr(AdminKonumEdit.Text) + ', ' +
      QuotedStr(AdminTarihEdit.Text) + ', ' +
      AdminFiyatEdit.Text + ', ' +
      AdminPuanEdit.Text + ', ' +
      QuotedStr(AdminResimUrlEdit.Text) + ', ' +
      QuotedStr(AdminKategoriEdit.Text) + ')';
    InsertQuery.ExecSQL;
    ShowMessage('İlan Ekleme Başarılı');
  except
    ShowMessage('Exception Class : ' + LastExceptionClassName + ' Exception Message : ' + LastExceptionMessage);
  }
  InsertQuery.Free;
}