Cara Membuat Form Department Pada Visual Basic 6.0

Hallo sahabat blogger, kali ini saya akan membagikan Cara Membuat Form Department Pada Visual Basic 6.0. Membuat program menggunakan visual basic sangat menyenangkan. Dalam Program department ini saya menggunakan aplikasi Visual Basic 6.0 dalam membuat desain tampilannya, sedangkan untuk databasenya saya menggunakan aplikasi SQL Server.
Untuk cara pembuatan databasenya sudah saya bahas dalam postingan Cara Membuat Database Bank Menggunakan SQL Server. Langsung saja berikut langkah-langkah dalam membuat form department:

1. Buatlah desainnya terlebih dahulu seperti yang gambar berikut ini:
   
2. Kemudian masukan kode berikut :
   Sub tampil()
   Adodc1.ConnectionString = Strconn
   Adodc1.RecordSource = "Select* from T_Department order by id_department"
   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 txtiddepartment.Text = "" Then
   MsgBox "Data Yang Akan Anda Hapus Belum di Pilih", vbCritical + vbOKOnly, "Informasi Kesalahan"
   Else
   strsql = "select id_department from T_Department where id_department='" & txtiddepartment.Text & "'"
   Set Rs = Conn.Execute(strsql)
   If Rs.EOF Then
   MsgBox "ID Department Tidak Ada", vbInformation + vbOKOnly, "Informasi"
   Else
   If MsgBox("Apakah Anda Yakin Akan Menghapus Data ini", vbYesNo + vbQustion, "Konfirmasi") = vbYes Then
   strsql = "delete from T_Department where id_department = '" & txtiddepartment.Text & "'"
   Set Rs = Conn.Execute(strsql)
   Call tampil
   End If
   End If
   End If
   End Sub
   
   
   Private Sub cmdprint_Click()
   P_Department.Show
   End Sub
   
   
   Private Sub cmdsimpan_Click()
   If txtiddepartment.Text = "" Or txtnamadepartment.Text = "" Then
   MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
   Else
   strsql = "Select id_department FROM T_Department where id_department=' " & txtiddepartment.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_Department (id_department, nama_department) values ('" & txtiddepartment.Text & "','" & txtnamadepartment.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 txtiddepartment.Text = "" Then
   MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
   Else
   strsql = "Update T_Department set id_department = '" & txtiddepartment.Text & "', nama_department= '" & txtnamadepartment.Text & "' where id_department= '" & txtiddepartment.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
   txtiddepartment.Text = "" & .Fields("id_department").Value
   txtnamadepartment.Text = "" & .Fields("nama_department").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()
   txtiddepartment.Text = ""
   txtnamadepartment.Text = ""
   End Sub
3. Setelah selesai memasukkan kode tersebut kita runn dengan klik start. Jika sudah dihubungkan dengan database di SQL Server maka datanya akan muncul di dalam tabel tersebut.
   

Demikian Cara Membuat Form Department Pada Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat!