target pembaca : Advance
Masih tetap berambisi bikin opf/orm framework sendiri cari referensi
sana sini,bahkan sampai 2 kali redesign , sekarang saya sudah cukup
yakin dengan designnya.
Sekarang hade-framework sudah mampu menjalankan tugas dasarnya :D mari saya contohkan penggunaannya.
- Pertama yang anda lakukan adalah membuat Bussines Objectnya yang merupakan turunan dari THadeObject
uses
hadeobject;
Type
TTest = class(THadeObject)
private
FAge: integer;
FLName: string;
FName: string;
public
function Full_Name : String;
published
property First_Name: string read FName write FName;
property Last_Name: string read FLName write FLName;
property Age: integer read FAge write FAge;
end;
Property yang ingin di mapping harus berada pada published section,
property yang berada pada published section juga tidak harus di mapping
ke schema database.
semisal anda hanya ingin First_Name dan Last_Name saja yang di mapping anda tidak perlu meremove property Age.
- Langkah berikutnya adalah melakukan Register Mapping ( uses unit hademapping ).
GHadeMappingManager.RegisterMapping(TTest, 'person', 'OID', 'oid',
ftInteger, 0, [ptkPK, ptkReadOnly]);
GHadeMappingManager.RegisterMapping(TTest, 'person', 'Name',
'first_name', ftVarchar, 25);
GHadeMappingManager.RegisterMapping(TTest, 'person', 'Age', 'age', ftInteger);
GHadeMappingManager.RegisterMapping(TTest, 'person', 'Last_Name',
'last_name', ftVarchar, 25);
GHadeMappingManager adalah singleton function lebih detil bisa dilihat hademappingmanager.pas
interface dari RegisterMapping adalah
procedure RegisterMapping(const AObjClass: THadeObjectClass;
const ATable, APropName, AColName: string; const AFieldType: THadeFieldType;
const ALength: integer = 0; const ASetPtkInfo: TSetPtkInfo = []);
- Selanjutnya Register Connection ( uses unit hadeopfmanager,hadebroker )
GHadeOPFManager.RegisterConnection('test', 'test.s3db',
'', '', '', SQLDB_SQLITE);
GHadeOPFManager.OIDStrategy := oidAutoInc;
code diatas berarti "Registrasikan koneksi dengan nama 'test' ,
'nama DB','Host','username','password' dengan menggunakan broker
SQLLite"
anda bisa mempunyai lebih dari satu koneksi dalam satu applikasi :D .
OIDStrategy := oidAutoInc berarti anda menggunakan PK(Primary Key)
dengan strategy AutoIncrement fitur yang tersedia dihampir semua R/DBMS,
anda juga bisa menggunakan oidGUID sebagai OIDStrategy, oidGUID
menggunakan GUID(Global Unique Identifier) sebagai primary key nya yang
disimpan sebagai string.
- Create/Read/Update/Delete Bussines Object
Untuk Melakukan CRUD pada Bussines Object anda harus menggunakan
session, mungkin bagi sebagian orang penggunaan session cuma bikin
ribet,tetapi sebenarnya penggunaan session sangat powerfull untuk
melakukan transaksi,management koneksi dll.
uses
hadeobject,
hadeopfmanager,
hademapping,
hadession;
//..some code omitted for brevity
var
MySession : THadeSession;
obj : TTest;//class TTest yang tadi
begin
MySession := GHadeSessionFactory('test');//session dengan koneksi 'test'
obj := TTest.Create(71);//mengeset OID/pk dengan nilai 71
Try
MySession.read(obj);//sekarang obj = record di table person dengan OID = 71
//kita update
obj.First_Name := 'Test Doank';
obj.MarkDirty;//tandai object ini adalah dirty( kotor dalam artian tidak sama dengan database )
MySession.save(obj);//sekarang record dengan OID 71 sudah terupdate.
end.
untuk melakukan Create(Insert) sangat mudah dan sama seperti operasi update/delete
//tanpa OID karena oidAutoInc , jika oidGUID tambahkan(uses) unit hadeoid
//tmp := GHadeOID.getOID.getGUID; dan pass variable tmp ke TTest Constructor
obj := TTest.create();
obj.First_Name := 'Test';
obj.Last_Name := 'Lagi'
obj.Age := 76;
MySession.save(obj);//tersimpan
//untuk Delete cukup tandai object dengan MarkDelete
obj.MarkDelete();
MySession.save(obj);// record terhapus
- Transaction
Katakanlah anda mempunyai 2/lebih object yang harus di
save(insert/update/delete) yang mana jika salah satu objectnya gagal
maka keseluruhan object tersebut harus di rollback.
begin
MySession.StartTransaction;
Try
//save/read operation
except
MySession.Rollback;
//raise again?
end;
MySession.Commit;
end.
Session tidak perlu di free secara manual karena THadeSession adalah interface.
anda juga bisa menaruh Session di constructor suatu class dan session akan hidup sepanjang object dari class tersebut hidup.
well tentunya framework ini masih jauh untuk di release saya masih
berhati-hati takutnya gagal lagi :D. nanti tak kabarin lagi kalo ada
major improvement.
kalo mau ngulik sourcenya bisa di checkout di
http://hd-framework.googlecode.com/svn/trunk/ dengan svn client kesayangan anda :D
Thanks happy coding.
amin.tak ada kata lain selain ucapan terima kasih kepada semua
pengunjung yang setia dan tidak setia yang ikut meramaikan blog
ini,terimakasih banyak juga untuk pengunjung yang berkomentar(walaupun
sedikit)baik positip ataupun negative.
.kalo
boleh jujur pernah ada sedikit rasa cemburu kepada blog lain yang
menurut pribadi tidak lebih bermanfaat dari blog ini tetapi mendapat
apresiasi lebih dari pembacanya (halagh malah curhat
).tapi
bagaimanapun juga niat saya hanya ingin berbagi dan mohon dimaafkan
jika ada kesalahan penulisan atau apapun dengan tulisan-tulisan saya
disini.
),jawabannya
adalah mudah.yang diperlukan adalah sebuah Form untuk melakukan
pengeditan,tambahkan saja di dalam Form itu sebuah Memo,Panel dan button
kurang lebih seperti screeen shoot di atas.jangan lupa untuk merubahnya
Formnya menjadi Available Form di Project Options. pada event
onDblClick di dbGrid tambahkan code berikut:
.nih situs resminya 
.
.
