Wednesday, 5 April 2017T4/05/2017 10:25:00 pm

PROSES INPUT,EDIT, UPDATE DAN DELETE PADA PROGRAM DELPHI

Salam blogger…pada kesempatan kali ini saya akan share cara menginput data dari sebuah program di Delphi. Pada proses penginputan data di program delphi kita akan mengenal beberapa proses utama dari sebuah pengolahan data diantaranya adalah input, edit, update, dan delete. Input merupakan sebuah proses dimana user memasukan data ke dalam database. Sedangkan Edit adalah proses memanipulasi data yang sudah ada dan  Delete adalah proses menghapus data. Ketiga bagian ini merupakan hal penting dalam sebuah proses pengolahan data dari suatu database.

Nah pada kesempatan kali ini saya akan memberikan beberapa bagian dari coding program untuk ketiga proses tersebut di atas. Sebelum dapat melakukan proses diatas tentunya kita harus mempunyai sebuah database yang gunanya sebagai tempat penyimpanan sejumlah data yang kita inputkan dari aplikasi yang kita buat di Delphi. Untuk proses pembuatan database saya kira sobat semua sudah tentu memahami nya, jadi disini saya akan langsung saja ke bagian proses inputan data pada aplikasi Delphi nya saja.

Adapun langkah langkah nya adalah sebagai berikut :

  • Buat sebuah tampilan form pada Delphi seperti pada gambar di bawah ini. Kali ini saya akan membuat sebuah pengolahan data pegawai dengan menggunakan program Delphi.

  • Langkah selanjutnya kita akan membuat beberapa coding program inputan yang ada di form tersebut.

1. Pada button new klik 2x lalu masukan coding program berikut :

procedure TFpegawai.BitBtn1Click(Sender: TObject);
tpegawai.Append;
end;

2. Pada button Save klik 2x lalu masukan coding program berikut :

procedure TFpegawai.BitBtn2Click(Sender: TObject);
begin
//jika kotak isian masih ada yang kosong maka muncul kotak pesan
if not(dbedit1.Text <>'') or not(dbedit2.Text <>'') or not(dbcombobox2.Text <>'')or not (dbcombobox1.Text <>'')  then
begin
Application.MessageBox('Masih Ada Data Yang Belum Di Isi, Cek Kembali !','Peringatan',
mb_Ok + Mb_IconExclamation);
dbedit2.SetFocus;
exit;
end;
Application.MessageBox('Data Pegawai Sudah Tersimpan','Info', mb_Ok + Mb_ICONINFORMATION);
tpegawai.Post;
end;

3. Pada button Edit klik 2x lalu masukan coding program berikut :

procedure TFpegawai.BitBtn3Click(Sender: TObject);
begin
tpegawai.Edit;
dbedit2.SetFocus;
end;

4. Pada button Delete klik 2x lalu masukan coding program berikut :

if  fmenu.Label7.Caption='Operator' then
Application.MessageBox('MAAF,  DATA HANYA DAPAT DI HAPUS OLEH ADMIN !!!','Informasi',mb_Ok + Mb_IconQuestion)
else
if (application.MessageBox('Anda Yakin Ingin Menghapus Data Ini ?','Informasi',MB_ICONINFORMATION+MB_YESNO)=IDYES) then
tpegawai.Delete;
end;

5. Pada button Cancel klik 2x lalu masukan coding program berikut :

procedure TFpegawai.BitBtn5Click(Sender: TObject);
begin
tpegawai.Cancel;
end;

6. Pada button close masukan koding berikut :

procedure TFpegawai.BitBtn6Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin Ingin Keluar ?','Informasi',MB_ICONINFORMATION+MB_YESNO)=IDYES
then
close;
end;

Adapun hasil dari program di atas ditunjukan pada gambar di bawah ini :

Demikian postingan kali saya kali ini tentang proses penginputan data dari sebuah program yang di buat dari Delphi yang dapat saya share buat sobat semua, semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "PROSES INPUT,EDIT, UPDATE DAN DELETE PADA PROGRAM DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status