Kenapa Saya Menulis Artikel Ini Tentang
Tutorial Delphi Karna Teman Teman Saya sekarang lagi belajar tentang mata kuliah Delphi Di Kampusnya masing masing.
Kali Ini Saya Akan Membahas tentang Fungsi Tombol Dasar Pada Delphi ini merupakan TUTORIAL DELPHI DASAR dan Yang Paling Mendasar Dan Inipun Perlu Memainkan Logika Program Dan Jangan Dianggap Remeh Pada Intinya Langsung Yaitu Tentang Fungsi Dari Record Operation dan dimana eventnya diletakkan..
procedure TForm1.FormCreate(Sender: TObject);
begin
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbcombobox1.Enabled:=false;
dbedit3.Enabled:=false;
baru.Enabled:=true;
simpan.Enabled :=false;
ubah.Enabled:=false;
hapus.Enabled:=false;
batal.Enabled:=false;
keluar.Enabled:=true;
carinpm.Enabled:=false;
carinama.Enabled:=false;
edit1.Text:='';
edit2.Text:='';
end;
procedure TForm1.BaruClick(Sender: TObject);
begin
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbcombobox1.Enabled:=true;
dbedit3.Enabled:=true;
table1.Append;
dbedit1.SetFocus;
baru.Enabled:=false;
simpan.Enabled :=true;
ubah.Enabled:=false;
hapus.Enabled:=false;
batal.Enabled :=true;
keluar.Enabled:=true;
end;
procedure TForm1.SimpanClick(Sender: TObject);
begin
if application.MessageBox('Data mau disimpan.?','Peringatan',4+32)=idyes then
table1.Post;
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbcombobox1.Enabled:=true;
dbedit3.Enabled:=true;
baru.Enabled:=true;
simpan.Enabled :=false;
ubah.Enabled:=false;
hapus.Enabled:=false;
batal.Enabled :=false;
keluar.Enabled:=true;
end;
procedure TForm1.UbahClick(Sender: TObject);
begin
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbcombobox1.Enabled:=true;
dbedit3.Enabled:=true;
table1.Edit;
dbedit1.SetFocus;
baru.Enabled:=false;
simpan.Enabled :=true;
ubah.Enabled:=false;
hapus.Enabled:=false;
batal.Enabled :=true;
keluar.Enabled:=true;
end;
procedure TForm1.HapusClick(Sender: TObject);
begin
if application.MessageBox('Yakin data akan dihapus..?','Peringatan',4+32)=idyes then
table1.Delete;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbcombobox1.Enabled:=false;
dbedit3.Enabled:=false;
baru.Enabled:=true;
simpan.Enabled :=false;
ubah.Enabled:=false;
hapus.Enabled:=false;
batal.Enabled :=false;
keluar.Enabled:=true;
end;
procedure TForm1.BatalClick(Sender: TObject);
begin
table1.Cancel;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbcombobox1.Enabled:=false;
dbedit3.Enabled:=false;
baru.Enabled:=true;
simpan.Enabled :=false;
ubah.Enabled:=false;
hapus.Enabled:=false;
batal.Enabled :=false;
keluar.Enabled:=true;
end;
procedure TForm1.KeluarClick(Sender: TObject);
begin
if application.MessageBox('Mau Keluar dari program..?','Peringatan',4+32)=idyes then
application.Terminate;
end;
procedure TForm1.CariNPMClick(Sender: TObject);
begin
with table1 do
begin
indexname:='npmx';
findnearest([edit1.text]);
end;
baru.Enabled:=false;
simpan.Enabled :=false;
ubah.Enabled:=true;
hapus.Enabled:=true;
batal.Enabled :=false;
keluar.Enabled:=true;
end;
procedure TForm1.cariNamaClick(Sender: TObject);
begin
with table1 do
begin
indexname:='namax';
findnearest([edit2.text]);
end;
baru.Enabled:=false;
simpan.Enabled :=false;
ubah.Enabled:=true;
hapus.Enabled:=true;
batal.Enabled :=false;
keluar.Enabled:=true;
end;
Nah Tentang Penjelasannya Untuk Sekarang Saya Sendiri Lagi Pusing Nanti Saja TUnggu Artikel Selanjutnya...
Saran Dan Kritik Anda Sangat Membantu Saya Dalam Menulis Artikel Selanjutnya Pada Blog Ini...
