Padepokan IT, Kursus Komputer, Private Komputer, Jasa Komputer, : Cara Mudah Membuat Form Master Data User Insert, Update, dan Delete di Delphi

Dalam Membuat Aplikasi, Data Master adalah data yang paling utama karena merupakan sumber dari data transaksi contoh master data seperti data user, data barang, data supplier, dan lainnya. Dalam tutorial ini akan dibahas bagaimana membuat Form Data Master User di Delphi.

Langkahnya Adalah Sebagai berikut:

1. Pastikan Anda telah Membuat data Modul untuk Koneksi ke database

2. Selanjutnya Design Form data user dan Tambahkan Komponen yang diperlukan seperti terlihat pada gambar berikut

DESIGN FORM MASTER USER

3. Selanjutnya atur masing-masing property komponen seperti berikut

Komponen	Name	Caption	Password Char
Edit1	Ed_user	-
Edit2	Ed_password	-	*
Button1	Btn_tambah	Tambah
Button2	Btn_edit	Edit
Button3	Btn_hapus	Hapus
Button4	Btn_selesai	Selesai
Button5	Btn_simpan	Simpan
Panel1	Panel 1	-
Zquery1	quser	Connection : dm.koneksidb SQL : select * from user
Data source	dsuser	Dataset : Quser, Allign : All Client
dbgrid	griduser	Data Sorce : dsuser

4. Selanjutnya Buat Codingnya

Modul	Global unit_master
Coding var Fuser: TFuser; sts:smallint; implementation uses unit_modul_data;

Komponen	Form
Event	On Close
Coding	Quser.close

Komponen	Form
Event	On Show
Coding	quser.Close; quser.open; panel1.Enabled:=true; panel2.Enabled:=true; panel3.Visible:=false; ed_user.Text := ''; ed_password.Text := '';

Komponen	Tombol Tambah
Event	On Click
Coding	panel1.Enabled:=false; panel2.Enabled:=false; panel3.Visible:=true;

Komponen	Tombol Simpan
Event	On Click
Coding if (ed_user.Text = '') or (ed_password.Text='') then begin application.MessageBox ('Lengkapi data Terlebih Dahulu..','SIMKorin',MB_ok + MB_NOFOCUS + MB_ICONERROR); ed_user.SetFocus; exit; end; if sts=1 then begin //tambah data with dm.qr do begin close; sql.Clear; sql.Add('insert into user(name,pass)values("'+Ed_user.Text+'",md5("'+Ed_password.Text+'")) '); ExecSQL; ShowMessage('tambah data berhasil..'); close; end; end; if sts=0 then begin //edit data with dm.qr do begin close; sql.Clear; sql.Add('update user set name="'+Ed_user.Text+'",pass=md5("'+Ed_password.Text+'") where name="'+quser['name']+'" '); ExecSQL; ShowMessage('edit data berhasil..'); close; end; end; quser.Refresh; panel1.Enabled:=true; panel2.Enabled:=true; panel3.Visible:=false;

Komponen	Tombol Batal
Event	On Click
Coding	panel3.Hide; panel1.Enabled := true; panel2.Enabled := true;

Komponen	Tombol Edit
Event	On Click
Coding panel1.Enabled:=false; panel2.Enabled:=false; panel3.Visible:=true; ed_user.Text:=quser['name']; ed_password.clear; sts:=0;

Komponen	Tombol Hapus
Event	On Click
Coding if quser.Active and not quser.IsEmpty then begin with dm.qr do begin close; sql.Clear; sql.Add('delete from user where name="'+quser['name']+'" '); ExecSQL; ShowMessage('Hapus data berhasil..'); close; end; quser.Refresh; end;