Cara Membuat Form Jabatan Pada Visual Basic 6.0

Hallo sahabat blogger, kali ini saya akan berbagi tentang Cara Membuat Form Jabatan Pada Visual Basic 6.0. Form Jabatan ini sangat berperan dalam pembuatan sebuah projek program dalam penggelolaan aset perusahaan. Form jabatan ini saya membuatnya menggunakan aplikasi Visual Basic 6.0. Sedangkan untuk databasenya saya menggunakan aplikasi SQL Server.
Sebelum membuat form jabatan, anda harus membuat databasenya terlebih dahulu. Untuk pembuatan database sudah saya bahas pada postingan sebelumnya dalam Cara Membuat Form Jabatan Pada Visual Basic 6.0. Setelah databasenya dibuat kemudian dihubungkan dalam sebuah projek di Visual Basic 6.0. Salah satu isi dari projek tersebut yaitu form Jabatan. Langsung saja berikut Cara Membuat Form Jabatan Pada Visual Basic 6.0

1. Buatlah disainnya seperti gambar berikut ini:
   
2. Kemudian masukan kode-kode berikut ini ke dalam form Jabatan

Private Sub cmdbaru_Click()
Call bersih
End Sub


Private Sub cmdhapus_Click()
If txtkodejabatan.Text = "" Then
MsgBox "Data Yang Akan Anda Hapus Belum di Pilih", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "select kd_jabatan from T_jabatan where kd_jabatan='" & txtkodejabatan.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_jabatan where kd_jabatan = '" & txtkodejabatan.Text & "'"
Set Rs = Conn.Execute(strsql)
Call tampil
End If
End If
End If
End Sub


Private Sub cmdprint_Click()
P_Jabatan.Show
End Sub


Private Sub cmdsimpan_Click()
If txtkodejabatan.Text = "" Or txtnamajabatan.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Select kd_jabatan FROM T_jabatan where kd_jabatan=' " & txtkodejabatan.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_jabatan (kd_jabatan, jabatan) values ('" & txtkodejabatan.Text & "','" & txtnamajabatan.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 txtkodejabatan.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Update T_jabatan set kd_jabatan = '" & txtkodejabatan.Text & "', jabatan= '" & txtnamajabatan.Text & "' where kd_jabatan= '" & txtkodejabatan.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
txtkodejabatan.Text = "" & .Fields("kd_jabatan").Value
txtnamajabatan.Text = "" & .Fields("Jabatan").Value
End With
End If
lbl_jumlah.Caption = "Posisi:" & Adodc1.Recordset.AbsolutePosition & "Dari:" & Adodc1.Recordset.RecordCount& & "" & "Jumlah Data"
End Sub


Sub tampil()
Adodc1.ConnectionString = Strconn
Adodc1.RecordSource = "Select* from T_jabatan order by kd_jabatan"
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 Form_Load()
Call KONEKSI
Call tampil
End Sub
Sub bersih()
txtkodejabatan.Text = ""
txtnamajabatan.Text = ""
End Sub

3. Setelah semua kode tersebut dimasukan silahkan di runn dengan klik start maka tampilannya seperti berikut ini:

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