Cara Membuat Form Suplier Pada Visual Basic 6.0

Hallo sahabat blogger, kali ini saya akan membagikan Cara Membuat Form Suplier Pada Visual Basic 6.0. Form Suplier ini juga sangat berpengaruh dalam pengelolaan aset perusahaan terutama dalam dunia pemrograman. Form Suplier dibuat menggunakan aplikasi Visual Basic 6.0, sedangkan untuk databasenya menggunakan SQL Server. Dalam pembuatan databasenya sudah saya sampaikan pada postingan sebelumnya yaitu Cara Membuat Form Jabatan Pada Visual Basic 6.0. Berikut Cara Membuat Form Suplier Pada Visual Basic 6.0:

1. Desain form terlebih dahulu seperti gambar berikut ini:
   
2. Kemudian masukan semua kode berikut ini ke dalam form tersebut: 

Sub tampil()
Adodc1.ConnectionString = Strconn
Adodc1.RecordSource = "Select* from T_suplier order by kode_suplier"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
lbl_jumlah.Caption = 0
Else
lbl_jumlah.Caption = "Posisi:" & Adodc1.Recordset.AbsolutePosition & "Dari:" & Adodc1.Recordset.RecordCount& & " " & "Jumlah Data"
End If

End Sub



Private Sub cmdbaru_Click()
Call bersih
End Sub

Private Sub cmdhapus_Click()
If txtkodesuplier.Text = "" Then
MsgBox "Data Yang Akan Anda Hapus Belum di Pilih", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "select kode_suplier from T_suplier where kode_suplier='" & txtkodesuplier.Text & "'"
Set Rs = Conn.Execute(strsql)
If Rs.EOF Then
MsgBox "Kode Barang Tidak Ada", vbInformation + vbOKOnly, "Informasi"
Else
If MsgBox("Apakah Anda Yakin Akan Menghapus Data ini", vbYesNo + vbQustion, "Konfirmasi") = vbYes Then
strsql = "delete from T_suplier where kode_suplier = '" & txtkodesuplier.Text & "'"
Set Rs = Conn.Execute(strsql)
Call tampil
End If
End If
End If
End Sub

Private Sub cmdprint_Click()
P_Suplier.Show
End Sub

Private Sub cmdsimpan_Click()
If txtkodesuplier.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Select kode_suplier FROM T_suplier where kode_suplier=' " & txtkodesuplier.Text & "'"
Set Rs = Conn.Execute(strsql)
If Not Rs.EOF Then
MsgBox "Id Department Sudah Ada" + Chr(13) + "SIlahkan Ganti Kode", vbInformation + vbOKOnly, "Informasi"
Else
strsql = "insert into T_suplier (kode_suplier, nama_suplier, alamat_suplier) values ('" & txtkodesuplier.Text & "','" & txtnama.Text & "','" & txtalamat.Text & "')"
Set Rs = Conn.Execute(strsql)
MsgBox "Berhasil Dimasukan", vbInformation + vbOKOnly, "Informasi"
Call tampil
End If
End If
End Sub

Private Sub cmdtutup_Click()
Unload Me
End Sub

Private Sub cmdupdate_Click()
If txtkodesuplier.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Update T_suplier set kode_suplier = '" & txtkodesuplier.Text & "', nama_suplier= '" & txtnama.Text & "', alamat_suplier= '" & txtalamat.Text & "' where kode_suplier= '" & txtkodesuplier.Text & "'"
Set Rs = Conn.Execute(strsql)
MsgBox "Berhasil Diubah", vbInformation + vbOKOnly, "Informasi"
Call tampil
End If
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Adodc1.Recordset.BOF Then
MsgBox "Data Sudah Diawal", , "PESAN"
ElseIf Adodc1.Recordset.EOF Then
MsgBox "Data Sudah Di Akhir", , "PESAN"
Else
With Adodc1.Recordset
txtkodesuplier.Text = "" & .Fields("kode_suplier").Value
txtnama.Text = "" & .Fields("nama_suplier").Value
txtalamat.Text = "" & .Fields("alamat_suplier").Value
End With
End If
lbl_jumlah.Caption = "Posisi:" & Adodc1.Recordset.AbsolutePosition & "Dari:" & Adodc1.Recordset.RecordCount& & "" & "Jumlah Data"
End Sub

Private Sub Form_Load()
Call KONEKSI
Call tampil
End Sub
Sub bersih()
txtkodesuplier.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
End Sub

3.    Setelah kode tersebut dimasukan runn program dengan klik start maka tampilannya seperti  gambar berikut:

Demikian Cara Membuat Form Suplier Pada Visual Basic 6.0. Semoga bermanfaat dan selamat mencoba!