Cara Membuat Form Material di Visual Basic 6.0

Hallo guys, kali ini saya akan membagikan tentang pemrograman Visual Basic 6.0. Dalam Visual Basic 6.0 kita dapat membuat sebuah form. Sebagai contoh adalah Cara Membuat Form Material di Visual Basic 6.0. Membuat program tidak perlu susah hanya sedikit rumit sehingga membutuhkan ketelitian. Langsung saja berikut Cara Membuat Form Material di Visual Basic 6.0.

Buatlah desain form terlebih dahulu, seperti yang terlihat di bawah ini:

Kemudian masukan script berikut di dalam form tersebut:


Sub tampil()
Adodc1.ConnectionString = Strconn
Adodc1.RecordSource = "Select* from T_material order by kode_barang"
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 txtkodebarang.Text = "" Then
MsgBox "Data Yang Akan Anda Hapus Belum di Pilih", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "select kode_barang from T_material where kode_barang='" & txtkodebarang.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_material where kode_barang = '" & txtkodebarang.Text & "'"
Set Rs = Conn.Execute(strsql)
Call tampil
End If
End If
End If
End Sub

Private Sub cmdprint_Click()
P_Material.Show
End Sub

Private Sub cmdsimpan_Click()
If txtkodebarang.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Select kode_barang FROM T_material where kode_barang=' " & txtkodebarang.Text & "'"
Set Rs = Conn.Execute(strsql)
If Not Rs.EOF Then
MsgBox "Kode Barang Sudah Ada" + Chr(13) + "SIlahkan Ganti Kode", vbInformation + vbOKOnly, "Informasi"
Else
strsql = "insert into T_material (kode_barang, nama_barang) values ('" & txtkodebarang.Text & "','" & txtnamabarang.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 txtkodebarang.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Update T_Material set kode_barang = '" & txtkodebarang.Text & "', nama_barang= '" & txtnamabarang.Text & "' where kode_barang= '" & txtkodebarang.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
txtkodebarang.Text = "" & .Fields("kode_barang").Value
txtnamabarang.Text = "" & .Fields("nama_barang").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()
txtkodebarang.Text = ""
txtnamabarang.Text = ""
End Sub


Setelah itu eksekusi program dengan cara klik start. Maka hasilnya adalah seperti dibawah ini:

Demikian Cara Membuat Form Material di Visual Basic 6.0. Semoga bermanfaat,
Selamat mencoba!