Cara Membuat Form Staf Pada Visual Basic 6.0

Hallo sahabat blogger, kali ini saya akan berbagi tentang Cara Membuat Form Staf  Pada Visual Basic 6.0. Form staf atau sering disebut dengan form karyawan merupakan sebuah form yang sangat penting bagi suatu perusahaan. Form Staf ini dibuat dengan gabungan dari berbagai tabel maupun form seperti tabel karyawan dan tabel jabatan.
Form Staf ini menggunakan kode-kode yang cukup memudahkan teman-teman dalam membuat form tersebut.  Form Staf 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 Staf  Pada Visual Basic 6.0:

1. Desain form staf dengan cara klik kanan projek > add > form, sehingga hasilnya seperti gambar dibawah ini:
   
2. Masukan kode berikut ini kedalam form staf tersebut

Private Sub cmdbaru_Click()
Call bersih
txtnik.SetFocus
End Sub
Private Sub cmdcari_Click()
Call tampil_jabatan
DataGrid2.Visible = True
DataGrid1.Visible = False
End Sub
Private Sub cmdhapus_Click()
If txtnik.Text = "" Then
MsgBox "Data Yang Akan Anda Hapus Belum di Pilih", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "select nik from T_karyawan where nik='" & txtnik.Text & "'"
Set Rs = Conn.Execute(strsql)
If Rs.EOF Then
MsgBox "Data yang akan di hapus belum anda pilih", vbInformation + vbOKOnly, "Informasi"
Else
If MsgBox("Apakah Anda Yakin Akan Menghapus Data ini", vbYesNo + vbQustion, "Konfirmasi") = vbYes Then
strsql = "delete from T_karyawan where nik = '" & txtnik.Text & "'"
Set Rs = Conn.Execute(strsql)
Call tampil
Call bersih
End If
End If
End If
End Sub
Private Sub cmdsimpan_Click()
If txtnik.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Select nik FROM T_karyawan where nik=' " & txtnik.Text & "'"
Set Rs = Conn.Execute(strsql)
If Not Rs.EOF Then
MsgBox "NIK Sudah Ada" + Chr(13) + "SIlahkan Ganti NIK", vbInformation + vbOKOnly, "Informasi"
Else
strsql = "insert into T_karyawan(nik, nama, alamat, kd_jabatan) values ('" & txtnik.Text & "','" & txtnama.Text & "','" & txtalamat.Text & "','" & txtkodejabatan.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 txtnik.Text = "" Then
MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbCritical + vbOKOnly, "Informasi Kesalahan"
Else
strsql = "Update T_karyawan set nik= '" & txtnik.Text & "', nama= '" & txtnama.Text & "', alamat= '" & txtalamat.Text & "', kd_jabatan= '" & txtkodejabatan.Text & "' where nik= '" & txtnik.Text & "'"
Set Rs = Conn.Execute(strsql)
MsgBox "Berhasil Diubah", vbInformation + vbOKOnly, "Informasi"
Call tampil
End If
Call tampil
End Sub
Private Sub Form_Load()
Call KONEKSI
Call tampil
End Sub
Sub bersih()
txtnik.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtkodejabatan.Text = ""
txtnamajabatan.Text = ""
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
txtnik.Text = "" & .Fields("Nik").Value
txtnama.Text = "" & .Fields("Nama").Value
txtalamat.Text = "" & .Fields("alamat").Value
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"
DataGrid1.Visible = True
DataGrid2.Visible = False
Adodc1.Visible = True
Adodc2.Visible = False
lbl_jumlah.Visible = True
lbl_jumlah2.Visible = False
End Sub
Sub tampil()
Adodc1.ConnectionString = Strconn
Adodc1.RecordSource = "Select k.nik, k.nama, k.alamat, k.kd_jabatan, j.jabatan from T_karyawan k, T_jabatan j where k.kd_jabatan=j.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
Sub tampil_jabatan()
Adodc2.ConnectionString = Strconn
Adodc2.RecordSource = "Select kd_jabatan, jabatan from T_jabatan order by kd_jabatan"
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
DataGrid2.Visible = True
DataGrid1.Visible = False
Adodc2.Visible = True
Adodc1.Visible = False
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
txtkodejabatan.Text = "" & .Fields("kd_jabatan").Value
txtnamajabatan.Text = "" & .Fields("jabatan").Value
End With
End If
lbl_jumlah2.Caption = "Posisi:" & Adodc2.Recordset.AbsolutePosition & "Dari:" & Adodc2.Recordset.RecordCount& & "" & "Jumlah Data"
DataGrid2.Visible = False
DataGrid1.Visible = True
End Sub
Private Sub txtnik_Change()
If IsNumeric(txtnik.Text) = False Then
txtnik.Text = ""
End If
End Sub

    3.   Setelah semua kode tersebut dimasukkan, kemudian jalankan program dengan cara klik start,               maka hasilnya adalah seperti berikut ini:

Demikian Cara Membuat Form Staf  Pada Visual Basic 6.0. Semoga bermanfaat.

Selamat mencoba!