Membuat Form Customer Program Persediaan Barang

Form Customer digunakan untuk menyimpan data customer untuk mengirimkan barang

dari gudang ke customer. Untuk itu ikuti langkah-langkah di bawah ini

1.  Perhatikan gambar di bawah ini, pada form baru anda tambahkan komponen

Image, Label, Textbox dan CommandButton

2.  Lihat table di bawah ini, ubah properties komponen yang tertempel pada lembar

Form

3.  Klik icon view code lalu copy pastekan listing kode di bawah ini :

Sub bersih()

txtkd.Text = ""

txtnm.Text = ""

txtalm.Text = ""

txttlp.Text = ""

txtfax.Text = ""

cmdsimpan.Enabled = True

cmdubah.Enabled = False

cmdhapus.Enabled = False

End Sub

Private Sub cmdbatal_Click()

Call bersih

txtkd.SetFocus

End Sub

Private Sub cmdcari_Click()

kode = InputBox("Masukkan kode customer ", "Pencarian")

If kode = "" Then Exit Sub

On Error Resume Next

Call Koneksi_Database

sql = "select * from customer where kd_customer = '" & _

kode & "'"

rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic

If rs.EOF = False Then

txtkd.Text = rs.Fields("kd_customer")

txtnm.Text = rs.Fields("nm_customer")

txtalm.Text = rs.Fields("alamat_customer")

txttlp.Text = rs.Fields("telp_customer")

txtfax.Text = rs.Fields("fax")

cmdsimpan.Enabled = False

cmdubah.Enabled = True

cmdhapus.Enabled = True

Else

MsgBox "Data tidak ditemukan", vbInformation, "Pesan"

End If

End Sub

Private Sub cmdhapus_Click()

Call Koneksi_Database

sql = "delete from customer where kd_customer = '" & txtkd.Text & "'"

db.Execute (sql)

Call bersih

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdsimpan_Click()

If txtkd.Text = "" Then txtkd.SetFocus: Exit Sub

If txtnm.Text = "" Then txtnm.SetFocus: Exit Sub

If txtalm.Text = "" Then txtalm.SetFocus: Exit Sub

If txttlp.Text = "" Then txttlp.SetFocus: Exit Sub

If txtfax.Text = "" Then txtfax.SetFocus: Exit Sub

Call Koneksi_Database

sql = "select * from customer where kd_customer ='" & txtkd.Text & "'"

rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic

If rs.EOF = False Then

MsgBox "Data Sudah Ada", vbInformation + vbOKOnly, "Pesan"

Call bersih: Exit Sub

Else

Call Koneksi_Database

sql = "insert into customer values ('" & txtkd.Text & "','" & txtnm.Text & _

"','" & txtalm.Text & "','" & txttlp.Text & "','" & txtfax.Text & "')"

db.Execute (sql)

Call bersih

txtkd.SetFocus

End If

End Sub

Private Sub cmdubah_Click()

If txtkd.Text = "" Then txtkd.SetFocus: Exit Sub

If txtnm.Text = "" Then txtnm.SetFocus: Exit Sub

If txtalm.Text = "" Then txtalm.SetFocus: Exit Sub

If txttlp.Text = "" Then txttlp.SetFocus: Exit Sub

If txtfax.Text = "" Then txtfax.SetFocus: Exit Sub

Call Koneksi_Database

sql = "update customer set nm_customer = '" & txtnm.Text &

"',alamat_customer='" & _

txtalm.Text & "',telp_customer= '" & txttlp.Text & "',fax='" & txtfax & _

"'where kd_customer= '" & txtkd.Text & "'"

db.Execute (sql)

Call bersih

End Sub

Private Sub Form_Load()

Call bersih

Me.Top = 1000

Me.Left = 3750

End Sub

4.  Simpan Form Customer dengan nama FrmCustomer di Folder Persediaan

Barang dimana Project & Database Persediaan Barang dibuat

5.Selesai. . .

Selamat belajar teman teman . . .

Semoga sukses. . .