Delphi Form Pendaftaran Peserta Seminar ~ EAS Article

Keterangan:
Tools = Data Source, Table dan DBGrid
--
Nomor Peserta = Edit (Name = enomor)
Nama Peserta = Edit (Name = enamapeserta)
Jenis Kelamin = Combo Box (Name = ejeniskelamin)
No Hp/wa = Edit (Name = enohp)
Asal Sekolah= Edit (Name = easalsekolah)
--
&Add = Button (Name = btntambah)
&Save = Button (Name = btnsimpan)
&Edit = Button (Name = btnedit)
&Update = Button (Name = btnupdate)
&Batal = Button (Name = btnbatal)
&Delete = Button (Name = btnhapus)
&Exit = Button (Name = btnkeluar)
--
Cara Membuat Data Base => Membuat database delphi 7
--
Data Base Desktop
File name = “Nomor_Peserta”. Type = A . Size = 5 (Primary Key)
File name = “Nama_Peserta”. Type = A . Size = 30
File name = “Jenis_Kelamin”. Type = A . Size = 15
File name = “No_Hp”. Type = A . Size = 13
File name = “Asal_Sekolah”. Type = A . Size = 20
--
Lakukan Koneksi
Baca Disini => Delphi 7 cara koneksi Database

== Koding ==
Prosedure
public
{ Public declarations }
procedure tampil;
procedure hidup;
procedure mati;
procedure bersih;
end;
--
Koding Prosedure
{$R *.dfm} <= Dibawah kata ini
procedure tform1.hidup ;
begin
enomor.Enabled :=true;
enamapeserta.Enabled :=true;
ejeniskelamin.Enabled :=true;
enohp.Enabled :=true;
easalsekolah.Enabled :=true;
end;
procedure tform1.mati;
begin
enomor.Enabled :=false;
enamapeserta.Enabled :=false;
ejeniskelamin.Enabled :=false;
enohp.Enabled :=false;
easalsekolah.Enabled :=false;
end;
procedure tform1.bersih ;
begin
enomor.Text :='';
enamapeserta.Text :='';
ejeniskelamin.Text :='';
enohp.Text :='';
easalsekolah.Text :='';
end;
procedure tform1.tampil ;
begin
enomor.Text :=table1['Nomor_Peserta'];
enamapeserta.Text :=table1['Nama_Peserta'];
ejeniskelamin.Text :=table1['Jenis_Kelamin'];
enohp.Text :=table1['No_Hp'];
easalsekolah.Text :=table1['Asal_Sekolah'];
end;
--
Click Add (button)
btntambah.Enabled:=false;
btnsimpan.Enabled:=true;
btnedit.Enabled:=false;
btnupdate.Enabled :=false;
btnbatal.Enabled:=true;
btnhapus.Enabled:=true;
hidup;
bersih;
enomor.SetFocus
--
Click Save (button)
if application.MessageBox('Apakah Data Akan Disimpan..??','SIMPAN DATA',36)=6then
table1.Append;
table1['Nomor_Peserta']:=enomor.Text ;
table1['Nama_Peserta']:=enamapeserta.Text ;
table1['Jenis_Kelamin']:=ejeniskelamin.Text ;
table1['No_Hp']:=enohp.Text ;
table1['Asal_Sekolah']:=easalsekolah.Text ;
table1.Post ;
mati;
btntambah.Enabled:=true;
btnsimpan.Enabled:=false;
btnedit.Enabled:=false;
btnupdate.Enabled:=false;
btnbatal.Enabled :=false;
btnhapus.Enabled:=false;
bersih;
--
Click Edit (button)
mati;
enomor.Enabled :=true;
enamapeserta.Enabled :=true;
ejeniskelamin.Enabled :=true;
enohp.Enabled :=true;
easalsekolah.Enabled :=true;
btntambah.Enabled:=false;
btnsimpan.Enabled:=false;
btnedit.Enabled:=false;
btnupdate.Enabled :=true;
btnbatal.Enabled:=true;
btnhapus.Enabled :=true;
--
Click Update (button)
if application.MessageBox('Apakah Anda Yakin Ingin Menyimpan Ulang Data..??','UPDATE',36)=6then
table1.Edit ;
table1['Nomor_Peserta']:=enomor.Text ;
table1['Nama_Peserta']:=enamapeserta.Text ;
table1['Jenis_Kelamin']:=ejeniskelamin.Text ;
table1['No_Hp']:=enohp.Text;
table1['Asal_Sekolah']:=easalsekolah.Text;
table1.Post ;
mati;
bersih;
btntambah.Enabled :=true;
btnsimpan.Enabled:=false;
btnedit.Enabled:=false;
btnupdate.Enabled :=false;
btnbatal.Enabled:=false;
btnhapus.Enabled :=false;
--
Click Batal (button)
bersih;
table1.First;
mati;
btntambah.Enabled:=true;
btnsimpan.Enabled:=false;
btnedit.Enabled:=false;
btnupdate.Enabled :=false;
btnbatal.Enabled:=false;
btnhapus.Enabled:=false;
--
Click Hapus (button)
if application.MessageBox('Apakah Anda Yakin Data Ingin Di Hapus??','HAPUS DATA',36)=6then

table1.Delete ;
mati;
table1.First ;
bersih;
btntambah.Enabled:=true;
btnsimpan.Enabled:=false;
btnedit.Enabled:=false;
btnupdate.Enabled :=false;
btnbatal.Enabled:=false;
btnhapus.Enabled :=false;
--
Click Keluar (button)
if application.MessageBox('Apakah Anda yakin Keluar..??','Keluarprogram',36)=6then
close;
--
Click Edit Enomor (OnKeyPress)
if key=#13 then
begin
if not table1.FindKey([enomor.Text]) then
begin
enamapeserta.SetFocus;
exit;
end
else
hidup;
tampil;
enomor.Enabled :=false;
enamapeserta.Enabled :=false;
ejeniskelamin.Enabled :=false;
enohp.Enabled :=false;
easalsekolah.Enabled :=false;
btntambah.Enabled:=false;
btnsimpan.Enabled:=false;
btnedit.Enabled:=true;
btnupdate.Enabled :=false;
btnbatal.Enabled:=true;
btnhapus.Enabled :=false;
end;
-
Selesai membuat aplikasi form pendaftaran sederhana.
Maaf apabila ada kesalahan dalam mengetik/langkah di blog ini.