Mas Budi
Program sudah running Ok, Makasih banyak Mas untuk bantuannya
Have nice day
Thanks & Brgds,
Siswanto
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, March 04, 2003 4:34 PM
Subject: [Delphindo] Re: OnPostError
> Penulisan procedure pada tadi otomais pada waktu kita klik bagian
> event OnPostError.
>
> Harusnya Event OnPostError ada pada TTable dan TAdoTable.
>
> Saya menggunakan Delphi 5. Kamu pake delphi berapa? kalo delphi 6,
> TTable itu ada di "Tab" BDE.
>
> kalo memang tetap ngga ada, coba kamu cek, apakah komponen yang kamu
> gunakan itu merupakan turunan dari TDataset?
>
> caranya, klik dikomponen itu, lalu tekan F1, dan kemudian klik
> Hierarchy.
>
> kalo merupakan turunan dari TDataset, kita bisa buat turunan komponen
> tersebut.
>
> Source Code Komponen :
>
> file://----Potong Dari Sini-----
> unit ExtTbl;
> interface
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
> Dialogs, Db, DBTables;
>
> type
> TExtTbl = class(TTable)//TTable Disini adalah Parentnya,Ganti dengan
> file://Komponen kamu, yang ngga ada
OnPostErrornya
> private
> Procedure ShowError(ErrorCode : Word);
> protected
> Procedure InternalPost;Override;
> public
> published
> end;
>
> procedure Register;
>
> implementation
>
> procedure Register;
> begin
> RegisterComponents('Budianto', [TExtTbl]);
> end;
> { TExtTbl }
> procedure TExtTbl.InternalPost;
> begin
> try
> inherited;
> except
> on E : EDBEngineError do ShowError(E.Errors[0].ErrorCode);
> end;
> end;
> procedure TExtTbl.ShowError(ErrorCode: Word);
> begin
> Case ErrorCode of
> 9729 : Showmessage('Data Sudah Ada');
> end;
> end;
> end.
> file://----sampai disini----
> Save sebagai ExtTbl.Pas.
>
> Cara Install Komponen
> Kemudian Pilih "Component\Install Component" pada menu, pada unit
> filename, isi dengan path dan file Exttbl.pas. dan klik ok, kemudian
> akan muncul windows baru, dan klik "compile"
>
> Komponen diatas bisa langsung digunakan, tanpa harus coding lagi di
> aplikasi lain. Ada di "Tab" Budianto, biasanya "Tab" yang paling
> ujung.
>
> Semoga membantu
>
> Budianto
>
>
>
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/LIgTpC/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
