Cara membuat tabel karyawan dan form karyawan

Halo sahabat blogger kembali lagi bersama saya disini, Kali ini kita akan belajar tentang bagaimana caranya membuat TABEL KARYAWAN dan FORM DATA KARYAWAN menggunakan Visual basic yang ada di microsoft acces 2013. Ada banyak sekali yang bisa kita buat dengan software yang satu ini di antara nya:

Membuat aplikasi penjualan
Aplikasi kasir
Cara membuat aplikasi karywan
Membuat aplikasi karywan
Membuat database karyawan
Aplikasi penilaian siswa
Membuat tabel siswa
Membuat database perpustakaan
Membuat database barang penjualan

Sebelum kita membuat database yang lain nya kalian harus mengerti dasar-dasar ynag digunakan seperti tabel, query, query desaign, form desaign dll.Table merupakan objek pertama yang harus kita buat dulu sebelum kita membuat yang lain nya karna ini akan menjadi dasar database program yang kita buat. Dan form desaign sendiri adalah tempat atau layout kita mendesaign program dan database yang akan kita buat seperti gambar di atas itu sebuah desaign yang saya buat. Agar bisa jelas nya tentang pengertian tabel,query, query desaign dan lain-lain. Kalian bisa baca artikel:

Belajar microsoft acces 2013

Di postingan sebelum nya kita sudah membuat Tabel barang dan form tabel barang. Yang belum membaca nya bisa langsung liat disini. Dan sekarang kita akan melengkapi nya dengan membuat data karyawan, Mustahil donk sebuah toko tidak mempunyai karyawan hehehehe...

Dan sekarang kita akan melengkapi toko tersebut dengan membuat form data karyawan nya..

Langsung saja kita ke langkah-langkah nya:

Buka dulu microsft acces nya
Seperti biasa kita buat dulu tabel karyawan nya cara pilih CREATE trus pilih TABEL DESAIGN maka tampilan nya akan seperti di bawah ini:

3. Kita isikan field-field name nya seperti KODE KARYAWAN, NAMA KARYAWAN, ALAMAT,

KOTA, JK(Jenis Kelamin) dan FOTO seperti gambar di bawah ini:

4. Kalok sudah di isi pilih VIEW di pojok kiri atas dan isikan field-field name yang sudah di buat

dengan nama alamat yang agan-agan ingin kan seperti contoh di bawah ini :

5. Nah kalok sudah di isi kita simpan tabel nya dengan Tabel karyawan atau Karyawan saja.

Kenapa saya simpan dengan nama karyawan saja karna di coding VB nya nanti itu saya

memanggil nya dengan nama karyawan.

6.Tahap selanjut nya kita buat form data karyawan nya cara nya pilih CREATE seperti biasa nya

lalu klik FORM DESAIGN, maka akan keluar seperi di bawah ini:

7. Tahap mendesaign sebuah form nya disini saya menggunakan

1 LABEL
6 TEXT BOX dan
10 BUTTON atau COMMAND BUTTON

Desaign lah sesuai keinginan agan-agan dan jangan lupa ganti nama text box dan commend button nya seperti gambar di atas dan sesuaikan nama text box nya denga coding nya agar tidak terjadi error

8. Tahap terakhir kalok sudah di desaign kita memasukan coding nya, cara nya klik DATABASE

TOOLS dan Visual basic trus masukan coding di bawah ini:

Option Compare Database

Dim koneksi As New ADODB.Connection
Dim rskaryawan As New ADODB.Recordset

Sub tampildata()
TxtKodekaryawan.Value = rskaryawan(0)
txtnamakaryawan.Value = rskaryawan(1)
txtalamat.Value = rskaryawan(2)
txtkota.Value = rskaryawan(3)
txtjeniskelamin.Value = rskaryawan(4)
End Sub

Public Sub txt(bk As Boolean)
TxtKodekaryawan.Locked = bk
txtnamakaryawan.Locked = bk
txtalamat.Locked = bk
txtkota.Locked = bk
txtjeniskelamin.Locked = bk
End Sub

Private Sub cmdadd_Click()
TxtKodekaryawan.Value = ""
txtnamakaryawan.Value = ""
txtalamat.Value = ""
txtkota.Value = ""
txtjeniskelamin.Value = ""
Call txt(False)
TxtKodekaryawan.SetFocus
End Sub

Private Sub cmdclose_Click()
a = MsgBox("Yakin mau keluar?", vbYesNo + vbInformation, "PESAN")
If a = vbYesNo Then
End
End If
End Sub

Private Sub cmddel_Click()
If MsgBox("Yakin mau dihapus?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
rskaryawan.Delete
rskaryawan.MoveFirst
Call tampildata
End If
End Sub

Private Sub cmdedit_Click()
Call txt(False)
End Sub

Private Sub Cmdfirst_Click()
rskaryawan.MoveFirst
Call tampildata
MsgBox "Ini adalah data pertama"
End Sub

Private Sub cmdlast_Click()
rskaryawan.MoveLast
Call tampildata
MsgBox "Ini adalah data yang terakhir"
End Sub

Private Sub cmdnext_Click()
rskaryawan.MoveNext
If rskaryawan.EOF Then
rskaryawan.MoveLast
MsgBox "Ini sudah data terakhir"
End If
Call tampildata
End Sub

Private Sub cmdprev_Click()
rskaryawan.MovePrevious
If rskaryawan.BOF Then
rskaryawan.MoveFirst
MsgBox "Ini sudah data pertama"
End If
Call tampildata
End Sub

Private Sub cmdsearch_Click()
If rskaryawan.RecordCount > 0 Then rskaryawan.MoveFirst
rskaryawan.Find "KodeKaryawan='" & txtcari.Value & "'"
If Not rskaryawan.EOF Then
cmdsearch.Visible = False
Call tampildata
    MsgBox "Barang tidak ketemu"
    rskaryawan.MoveFirst
    cmdsearch.Visible = True
    End If
    Call tampildata
    txtcari.Value = ""
End Sub

Private Sub Form_Load()
Set koneksi = CurrentProject.Connection
koneksi.CursorLocation = adUseClient
rskaryawan.Open "karyawan", koneksi, adOpenDynamic, adLockBatchOptimistic
Call tampildata
Call txt(True)
End Sub

Simpen dengan nama form data karyawan dan coba jalan kan....

Demikian tentang cara membuat tabel karyawan menggunakan microsoft acces 2013 dan semoga tutorial ini bermanfaat GOOD LUCK dan SELAMAT MENCOBA

Dan jangan lupa sering-sering lah mencoba karna pepatah bilang BISA KARNA TERBIASA

Cara membuat tabel karyawan dan form karyawan

Langsung saja kita ke langkah-langkah nya:

0 Response to "Cara membuat tabel karyawan dan form karyawan "

Post a Comment