Script Input, Edit, Delete, dan Refresh pada Rad Studio dengan Menggunakan SnapServer

Embarcadero ® RAD Studio adalah solusi pengembangan perangkat lunak lengkap untuk membangun aplikasi untuk Windows, Mac, iOS dan Android dari singgle codebase. Menggunakan bahasa pemrograman pascal yang sebelumnya dikenal dengan Delphi dan sekarang menjadi Embarcadero Delphi .

 Pada RAD Studio terdapat DataSnap Server sebagai teknologi multi tier yang memungkinkan bagi pengembang dapat membuat aplikasi Client Server yang berkomunikasi melalui jaringan internet atau host lokal.

Untuk menghubungkan  antara Client dan Server maka pada project Server pada Class ServerMethods perlu ditambahkan penghubung seperti Firedac atau Unidac sedangkan pada Class ClientModule ditambahkan SQLConection.

Nah Kali ini saya akan membahas tentang Script yang dapat digunkan untuk Input, delete, edit dan refresh pada sistem yang terhubung dengan database.

* Input 

begin 

with ClientModule1.ClientDataSet1 do

begin

insert;

FieldByName ('nama_kolom').text:=Edit1.text;

FieldByName ('nama_kolom').text:=Edit1.text;

FieldByName ('nama_kolom').text:=Edit1.text; 

post;

ApplayUpdates (-1);

ShowMessage ('data berhasil di input');

end;

end; 

* Edit ; 

begin 

with ClientModule1.ClientDataSet1 do

begin

close;

ParamByName ('nama_kolom').value:=Edit1.text;

Open;

Edit

FieldByName ('nama_kolom').text:=Edit1.text;

FieldByName ('nama_kolom').text:=Edit1.text;

FieldByName ('nama_kolom').text:=Edit1.text; 

post;

ApplayUpdates (-1);

ShowMessage ('data berhasil di Edit');

end;

end; 

* Delete

begin 

with ClientModule1.ClientDataSet1 do

begin

Filter:='Nama_Kolom='+QuotedStr(Edit1.Text);

Filtered:=True

 Delete;

 ApplyUpdates(-1) ;

end;

end; 

*Refresh

begin 

with ClientModule1.ClientDataSet1 do

begin

close;

open;

end;

end;

Nah itulah contoh script atau perintah untuk Input, Edit, Delete dan Refresh . Semoga pembahasan tadi dapat membatu rekan rekan, mohon maaf jika ada kesalahan. Terimakasih



=======================> Silahkan di Cek BONUS