Cara Membuat Form Aset Pada Visual Basic 6.0

Hallo sahabat blogger, kali ini saya akan membagikan Cara Membuat Form Aset Pada Visual Basic 6.0. Form Aset ini merupakan penggabungan dari beberapa tabel maupun form yaitu tabel material, department,  penempatan, dan tabel history. Membuat Form Aset ini sebenarnya tidak sulit hanya sedikit rumit sehingga membutuhkan ketelitian dalam membuatnya.
 Form Aset 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 Aset Pada Visual Basic 6.0:

1. Desain form terlebih dahulu seperti gambar dibawah ini dengan cara klik kanan projek, kemudian add > form
   
2. Masukan semua kode dibawah ini di dalam form tersebut 

Sub tampil()
Adodc1.ConnectionString = Strconn
Adodc1.RecordSource = "Select a.kode_barang, m.nama_barang, a.id_department,d.nama_department, a.jumlah from T_penempatan a, T_department d, T_material m where a.id_department=d.id_department and a.kode_barang=m.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
Sub bersih()
txtkodebarang.Text = ""
txtnamabarang.Text = ""
txtiddepartment.Text = ""
txtnamadepartment.Text = ""
txtjumlah.Text = ""
End Sub
Private Sub cmdbaru_Click()
Call bersih
End Sub
Private Sub cmdcari_Click()
Call tampil_barang
DataGrid2.Visible = True
DataGrid1.Visible = False
DataGrid3.Visible = False
End Sub
Private Sub cmdcari1_Click()
Call tampil_department
DataGrid2.Visible = False
DataGrid1.Visible = False
DataGrid3.Visible = True
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 id_department from T_penempatan where id_department='" & txtiddepartment.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_penempatan where id_department = '" & txtiddepartment.Text & "'"
Set Rs = Conn.Execute(strsql)
Call tampil
Call bersih
End If
End If
End If
End Sub
Private Sub cmdprint_Click()
P_Penempatan.Show
End Sub
Private Sub cmdsave_Click()
If txtkodebarang.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Select kode_barang FROM T_history 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_history(kode_barang, nama_barang, keterangan) values ('" & txtkodebarang.Text & "','" & txtnamabarang.Text & "','" & txtketerangan.Text & "')"
Set Rs = Conn.Execute(strsql)
MsgBox "Berhasil Dimasukan", vbInformation + vbOKOnly, "Informasi"
Call tampil_keterangan
End If
End If
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_penempatan where kode_barang=' " & txtkodebarang.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_penempatan(kode_barang, id_department, jumlah) values ('" & txtkodebarang.Text & "','" & txtiddepartment.Text & "','" & txtjumlah.Text & "')"
Set Rs = Conn.Execute(strsql)
MsgBox "Berhasil Dimasukan", vbInformation + vbOKOnly, "Informasi"
Call tampil
End If
End If
DataGrid1.Visible = True
DataGrid2.Visible = False
DataGrid3.Visible = False
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_penempatan set kode_barang= '" & txtkodebarang.Text & "', id_department= '" & txtiddepartment.Text & "', jumlah= '" & txtjumlah.Text & "' where kode_barang= '" & txtkodebarang.Text & "'"
Set Rs = Conn.Execute(strsql)
MsgBox "Berhasil Diubah", vbInformation + vbOKOnly, "Informasi"
Call tampil
End If
Call tampil
DataGrid1.Visible = True
DataGrid2.Visible = False
DataGrid3.Visible = False
End Sub
Private Sub cmdupdate2_Click()
If txtkodebarang.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Update T_history set keterangan= '" & txtketerangan.Text & "' where kode_barang= '" & txtkodebarang.Text & "'"
Set Rs = Conn.Execute(strsql)
MsgBox "Berhasil Diubah", vbInformation + vbOKOnly, "Informasi"
Call tampil_keterangan
End If
Call tampil_keterangan
End Sub
Private Sub Command3_Click()
P_History.Show
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
txtiddepartment.Text = "" & .Fields("id_department").Value
txtnamadepartment.Text = "" & .Fields("nama_department").Value
txtjumlah.Text = "" & .Fields("jumlah").Value
End With
End If
lbl_jumlah.Caption = "Posisi:" & Adodc1.Recordset.AbsolutePosition & "Dari:" & Adodc1.Recordset.RecordCount& & "" & "Jumlah Data"
End Sub
Private Sub DataGrid3_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Adodc3.Recordset.BOF Then
MsgBox "Data Sudah Diawal", , "PESAN"
ElseIf Adodc3.Recordset.EOF Then
MsgBox "Data Sudah Di Akhir", , "PESAN"
Else
With Adodc3.Recordset
txtiddepartment.Text = "" & .Fields("id_department").Value
txtnamadepartment.Text = "" & .Fields("nama_department").Value
End With
End If
lbl_jumlah3.Caption = "Posisi:" & Adodc3.Recordset.AbsolutePosition & "Dari:" & Adodc3.Recordset.RecordCount& & "" & "Jumlah Data"
DataGrid3.Visible = True
DataGrid2.Visible = False
DataGrid1.Visible = False
End Sub
Private Sub Form_Load()
Call KONEKSI
Call tampil
Call tampil_keterangan
End Sub
Sub tampil_barang()
Adodc2.ConnectionString = Strconn
Adodc2.RecordSource = "Select * from T_material order by kode_barang"
Set DataGrid2.DataSource = Adodc2
Adodc2.Refresh
If Adodc2.Recordset.RecordCount = 0 Then
lbl_jumlah.Caption = 0
Else
lbl_jumlah2.Caption = "Posisi:" & Adodc2.Recordset.AbsolutePosition & "Dari:" & Adodc2.Recordset.RecordCount& & " " & "Jumlah Data"
End If
End Sub

Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Adodc2.Recordset.BOF Then
MsgBox "Data Sudah Diawal", , "PESAN"
ElseIf Adodc2.Recordset.EOF Then
MsgBox "Data Sudah Di Akhir", , "PESAN"
Else
With Adodc2.Recordset
txtkodebarang.Text = "" & .Fields("kode_barang").Value
txtnamabarang.Text = "" & .Fields("nama_barang").Value
End With
End If
lbl_jumlah2.Caption = "Posisi:" & Adodc2.Recordset.AbsolutePosition & "Dari:" & Adodc2.Recordset.RecordCount& & "" & "Jumlah Data"
DataGrid3.Visible = False
DataGrid2.Visible = True
DataGrid1.Visible = False
End Sub

Sub tampil_department()
Adodc3.ConnectionString = Strconn
Adodc3.RecordSource = "Select * from T_department order by id_department"
Set DataGrid3.DataSource = Adodc3
Adodc3.Refresh
If Adodc3.Recordset.RecordCount = 0 Then
lbl_jumlah.Caption = 0
Else
lbl_jumlah3.Caption = "Posisi:" & Adodc3.Recordset.AbsolutePosition & "Dari:" & Adodc3.Recordset.RecordCount& & " " & "Jumlah Data"
End If
End Sub
Private Sub txtjumlah_Change()
If IsNumeric(txtjumlah.Text) = False Then
txtjumlah.Text = ""
End If
End Sub
Sub tampil_keterangan()
Adodc4.ConnectionString = Strconn
Adodc4.RecordSource = "Select * from T_History "
Set DataGrid4.DataSource = Adodc4
Adodc4.Refresh
If Adodc4.Recordset.RecordCount = 0 Then
lbl_jumlah4.Caption = 0
Else
lbl_jumlah4.Caption = "Posisi:" & Adodc4.Recordset.AbsolutePosition & "Dari:" & Adodc4.Recordset.RecordCount& & " " & "Jumlah Data"
End If
End Sub
Private Sub DataGrid4_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Adodc4.Recordset.BOF Then
MsgBox "Data Sudah Diawal", , "PESAN"
ElseIf Adodc4.Recordset.EOF Then
MsgBox "Data Sudah Di Akhir", , "PESAN"
Else
With Adodc4.Recordset
txtkodebarang.Text = "" & .Fields("Kode_barang").Value
txtnamabarang.Text = "" & .Fields("Nama_Barang").Value
txtketerangan.Text = "" & .Fields("Keterangan").Value
End With
End If
lbl_jumlah4.Caption = "Posisi:" & Adodc4.Recordset.AbsolutePosition & "Dari:" & Adodc4.Recordset.RecordCount& & "" & "Jumlah Data"
End Sub

3. Setelah semua kode dimasukkan kemudian eksekusi program dengan klik start, maka hasilnya adalah seperti gambar dibawah ini:

Demikian  Cara Membuat Form Aset Pada Visual Basic 6.0. Semoga bermanfat.
Selamat mencoba!