Membuat form entry barang menggunakan delphi

Hey friends ketemu lagi nich, udah lama nich nggak posting jadi nggak ada salahnya posting lagi hehe. Pada postingan kali ini penulis ingin share tentang bagaimana cara membuat form entry barang menggunakan delphi, adapun DBMS (database management system) yang penulis gunakan adalah mySQL.

<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>
<!-- iklan navigasi -->
<ins class="adsbygoogle"
     style="display:inline-block;width:300px;height:250px"
     data-ad-client="ca-pub-3786943708043906"
     data-ad-slot="4760239182"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>

Ok friends tanpa basa-basi lagi langsung saja jalankan delphi teman2 dan buat project baru terserah namanya apa, disini penulis memberi nama projectnya “Prjtransaksi”.

Setelah membuat projectnya silahkan buat form barang dengan desain sebagai berikut:

Nah, untuk komponen2 yang digunakan penulis rasa tidak perlu dijelaskan lagi, karena sudah tertera di desain form diatas dan penulis anggap saja teman2 mampu melakukannya hehehe.

Ok langkah berikutnya adalah membuat koneksi, disini penulis menggunakan ODBC (Open Database Connection) untuk mengkoneksi delphi dengan mysql.

Nah, pada ODBC ini sebenarnya kita membuat DSN(Data Source Name), jika teman2 pemula di delphi harap browsing dulu bagaimana membuat DSN menggunakan ODBC karena penulis tidak menjelaskan hal tersebut disini.

Ok sekarang penulis anggap saja teman2 sudah selesai membuat DSN-nya. Nah, setelah membuat DSN koneksikan DSN yang sudah dibuat tadi dengan form barang kita menggunakan ADOconnection.

1 . klik ADOconnection, lalu pilih Connection String pada Object Inspector, maka akan tampil jendela ConnectionString-nya seperti gambar berikut: 

2 . klik Buid maka akan tampil jendela berikut:

3 . Pilih nama DSN yang teman2 buat sebelumnya, disini penulis telah membuat sebuah DSN bernama dsntransaksi seperti gambar diatas.

4 . Setelah itu klik tombol Test Connection untuk menguji koneksi, jika muncul pesan sukses seperti gambar berikut berarti koneksi kedatabase telah berhasil.

5 . klik Ok dan OK lagi.

Nah, sampai tahap ini koneksi kedatabase telah berhasil.

Sekarang beralih ke ADOQuery dan pilih SQL pada Object Inspector maka tampil jendela seperti gambar berikut:

Nah, disinilah kita mengetikan perintah SQL untuk memanipulasi data, karena penulis ingin menampilkan semua data yang ada ditabel barang maka teman2 bisa mengetikan perintah “select * From barang” tanpa kutip seperti gambar diatas lalu klik Ok.

Masih di ADOQuery, pada Object Inspector setting Connection menjadi ADOConnectio1 dan Active menjadi True seperti gambar berikut:

6 . Untuk komponen DataSource setting DataSet menjadi ADOQuery1.

7 . Sekarang beralih ke DbGrid lalu setting pada Object Inspector yaitu DataSource menjadi menjadi DataSource1 seperti gambar berikut: 

Jika berhasil, maka akan tampil data yang ada pada database di DbGrid seperti gambar berikut:

Koding :

1 . Coding untuk form create (ketika form dijalankan).

Klik 2x pada formnya lalu ketikan coding berikut ini:

procedure Tform1.FormCreate(Sender: Tobject);

begin

Edit1.Enabled:=False;

Edit2.Enabled:=False;

Edit3.Enabled:=False;

Edit4.Enabled:=False;

Edit5.Enabled:=False;

Button2.Enabled:=false;

Button3.Enabled:=false;

Button4.Enabled:=false;

Button5.Enabled:=false;

end;

2 . Coding untuk tombol tambah.

Procedure Tform1.Button1Click(Sender: Tobject);

begin

Edit1.Enabled:=true;

Edit2.Enabled:=true;

Edit3.Enabled:=true;

Edit4.Enabled:=true;

Edit5.Enabled:=true;

Edit4.Text:=’’;

Edit3.Text:=’’;

Edit2.Text:=’’;

Edit1.Text:=’’;

Edit5.Text:=’’;

Edit1.SetFocus;

Button2.Enabled:=true;

Button3.Enabled:=false;

Button4.Enabled:=false;

Button5.Enabled:=true;

Button1.Enabled:=false;

end;

3 . Koding tombol simpan.

Procedure Tform1.Button2Click(Sender: Tobject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(‘insert into barang values(“’+Edit1.Text+’”,”’+Edit2.Text+’”,”’+Edit3.Text+’”,”’+Edit4.Text+’”,”’+Edit5.Text+’”)’);

ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(‘select*from barang’);

ADOQuery1.Open;

Edit1.Text:=’’;

Edit2.Text:=’’;

Edit3.Text:=’’;

Edit4.Text:=’’;

Edit5.Text:=’’;

end;

4 . Coding untuk tombol Edit.

Procedure Tform1.Button3Click(Sender: Tobject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(‘update barang set namabrg=”’+Edit2.Text+’”,hrgbeli=”’+Edit3.Text+’”,hrgjual=”’+Edit4.Text+’”,stok=”’+Edit5.Text+’”where kodebrg=”’+Edit1.Text+’”’);

ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(‘select*from barang’);

ADOQuery1.Open;

Edit1.Text:=’’;

Edit2.Text:=’’;

Edit3.Text:=’’;

Edit4.Text:=’’;

Edit5.Text:=’’;

end;

5 . Coding untuk tombol hapus.

Procedure Tform1.Button4Click(Sender: Tobject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(‘delete from barang where kodebrg=”’+Edit1.Text+’”’);

ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(‘select*from barang’);

ADOQuery1.Open;

Edit1.Text:=’’;

Edit2.Text:=’’;

Edit3.Text:=’’;

Edit4.Text:=’’;

Edit5.Text:=’’;

end;

7 . Coding untuk tombol batal.

Procedure Tform1.Button5Click(Sender: Tobject);

begin

Edit1.Enabled:=False;

Edit2.Enabled:=False;

Edit3.Enabled:=False;

Edit4.Enabled:=False;

Edit5.Enabled:=False;

Edit1.Text:=’’;

Edit2.Text:=’’;

Edit3.Text:=’’;

Edit4.Text:=’’;

Edit5.Text:=’’;

Button1.Enabled:=true;

Button2.Enabled:=false;

Button3.Enabled:=false;

Button4.Enabled:=false;

Button5.Enabled:=false;

end;

8 . Coding untuk tombol keluar.

Procedure Tform1.Button6Click(Sender: Tobject);

begin

halt;

end;

9 . Coding untuk DBGrid double klik.

Klik DbGrid, lalu klik 2x pada Events OnDblClick pada Object Inspector seperti gambar berikut:

Ketikakan coding berikut :

            procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

Edit1.Text:=DBGrid1.Fields[0].AsString;

Edit2.Text:=DBGrid1.Fields[1].AsString;

Edit3.Text:=DBGrid1.Fields[2].AsString;

Edit4.Text:=DBGrid1.Fields[3].AsString;

Edit5.Text:=DBGrid1.Fields[4].AsString;

Edit2.Enabled:=true;

Edit3.Enabled:=true;

Edit4.Enabled:=true;

Edit5.Enabled:=true;

Button2.Enabled:=false;

Button3.Enabled:=true;

Button4.Enabled:=true;

Button5.Enabled:=true;

end;

Ok finish sudah program kita, silahkan di jalankan maka hasilnya akan terlihat seperti gambar berikut:

Nah, sekian dulu tutorial kali ini friends, jika ada diantara teman2 yang masih bingung silahkan tinggalkan komentar, wassalaaamm...