Salam sejahtera. Saya sedang membuat aplikasi Address Book menggunakan Delphi 6. Saya punya sebuah Form Edit yg terdiri dari DBNavigator, beberapa DBEdit (sesuai kebutuhan), dan 2 bh Button (OK dan Cancel) dgn ModalResult adl mrOK utk Button OK dan mrCancel utk Button Cancel. Database Address Book ini telah saya hubungkan pada sebuah Data Module yang saya buat (MastSrc.TablePersonal). Saya menginginkan kedua Button ini juga memiliki fungsi yg sama dgn method Post (utk Button OK) dan method Cancel (utk Button Cancel) spt halnya pada DBNavigator. Button OK tsb akan melakukan method Post jika terjadi perubahan terhadap satu atau beberapa field pada sebuah record atau tidak melakukan method Post jika saya telah melakukannya melalui Button Post Edit pada DBNavigator. Sementara Button Cancel akan melakukan method Cancel terhadap perubahan satu atau beberapa field atau tidak melakukan method Cancel jika sudah dilakukan pada DBNavigator. Kedua Button tsb kemudian diikuti oleh statement "Close;" utk menutup Form Edit. Saya mohon sekiranya Klik-Kanan.com dapat memberi bantuan berupa source code dan setting object inspector untuk kasus tersebut diatas. Terima kasih sebelumnya.
Jawaban
Pada event Button OK, OnClick :
procedure TForm1.Button1Click(Sender: TObject);
begin
with MastSrc.TablePersonal do
if State in [dsInsert,dsEdit] then
Post;
end;
Pada event Button CANCEL, OnClick :
procedure TForm1.Button2Click(Sender: TObject);
begin
with MastSrc.TablePersonal do
if State in [dsInsert,dsEdit] then
Cancel;
end;
Form.Close akan otomatis bila anda memberikan result mrOK/Cancel pada
TButton
-----------------------------------------------------------
WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,
SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC
PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO
-----------------------------------------------------------
Tidak ada komentar:
Posting Komentar