Fungsi Tombol Dasar Pada Delphi

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...

Animasi Opacity Pada Form Tutorial Delphi

Pada Tutorial Delphi Sebelumnya Kita Telah Membahas Tentang Animasi Form Transparan  Mungkin kita  pernah menjumpai sebuah aplikasi yang menerapkan animasi opacity pada saat membuka atau menutup program. Pada saatdijalankan form utama aplikasi tersebut tidak langsung muncul melainkan bertahap, dari tidak tampak, sedikit demi sedikit menjadi tampak dan akhirnya tampak jelas, begitu juga sebaliknya ketika aplikasi ditutup.

Sebenarnya hal itu sangat mudah dibuat, ya setidaknya menggunakan delphi 6 atau 7 dengan sistem operasi windows XP (Win 98 mungkin juga bisa).

Dalam hal ini kita menggunakan property AlphaBlendValue, properti ini bernilai 0 - 255, semakin tinggi nilainya, maka akan semakin jelas tampilan aplikasinya. jadi kalau nilainya nol, maka aplikasi nggak bakal terlihat alias hantu. Dan jangan lupa sebelum kita mengubah nilai dari property AlphaBlendValue maka kita harus mengeset property AlphaBlend menjadi True.

Berikut ini caranya, tambahkan event onActivate pada form utama (yang akan dijalankan ketika form aktif atau dibuka), dan tulis kodenya hingga seperti kode berikut ini :


procedure TForm1.FormActivate(Sender: TObject);
var i:byte;
begin
form1.AlphaBlend:=true;
for i:=0 to 255 do
form1.AlphaBlendValue:=i;
end;
Lalu tambahkan event onClose pada form utama (yang akan dijalankan ketika form ditutup), dan tulis kodenya hingga seperti kode berikut ini :

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:byte;
begin
form1.AlphaBlend:=true;
for i:=255 downto 0 do
form1.AlphaBlendValue:=i;
end;

Selamat mencoba ya!

Saran Dan Kritik Anda Sangat Membantu Saya Dalam Menulis Artikel Selanjutnya Pada Blog Ini...

Animasi Form Transparan Tutorial Delphi

Pada Tutorial Delphi Kali Ini saya akan membahas tentang Animasi Form Transparan Tutorial Delphi dimana pada sebelumnya saya telah membahas tentang fungsi dari masing masing operation dimana pada Delphi 6 sampai dengan versi yang terakhir saya belum tw untuk saat ini saya hanya tahu Delphi versi 7.0.

Delphi versi 6 keatas sudah menyediakan fungsi/properti untuk mengubah transaparansi form.
nilai ini mulai dari terang(transparan) sampai gelap(tidak transparan). Nilai gelap dan terang ini ditampung dalam sebuah properti, Sedangkan untuk mengaktifkan fungsi ini ada pada properti Untuk simulasinya kita gunakan sebuah komponen TrackBar, dengan komponen ini kita akan mengubah nilai alphablend dengan menggerakan TrackBar tersebut

Berikut Listing Programnya:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
TrackBar1: TTrackBar;
Label1: TLabel;
procedure TrackBar1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.TrackBar1Change(Sender: TObject);
begin
form1.AlphaBlend:=true;
form1.AlphaBlendValue:=TrackBar1.Position;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
TrackBar1.Max:=255;
TrackBar1.Position:=230;
end;
end.

Gimana Mudah Dan Sedikitkan Kalau Kita Sudah Tahu He..He...Saya Yakin Teman Teman Semua Bisa Melakukan Hal Seperti INi Karna Saya Pun Yang Tidak Pintar Bisa Melakukan Seperti INi He...

Saran Dan Kritik Anda Sangat Membantu Saya Dalam Menulis Artikel Selanjutnya Pada Blog Ini...