MEMBUAT DATA SISWA
DENGAN MICROSOFT OFFICE ACCESS
DATA BASE
LANGKAH 1 : Membuat Tabel
Masuk ke menu
Create, kemudian pilih Table Design. Isikan Field yang diinginkan dan pilih
Data Type tersebut, pastikan salah satu Data terpasang Primary Key.
DATA SISWA TABLE
|
Data Siswa
|
|||||||
|
NIS
|
Nama
|
Kelas
|
Alamat
|
TempatLahir
|
TanggalLahir
|
Jeni Kelamin
|
KodeJurusan
|
|
101
|
Ika Dian S.
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
27/07/1998
|
P
|
04
|
|
102
|
Givril Fardan A.
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
25/03/1997
|
L
|
02
|
|
103
|
Dionisius
Demosisko Krisnanda
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
20/05/1998
|
L
|
01
|
|
104
|
Dimas Jagat Jalu
P.
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
28/06/1997
|
L
|
01
|
|
105
|
Putra Hadi P.
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
28/10/1997
|
L
|
01
|
|
106
|
Satriyo Budi U.
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
28/12/1998
|
L
|
01
|
|
107
|
Vega Ramzi O.C.
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
07/10/1998
|
L
|
01
|
|
108
|
Burhanudin Ahmad
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
14/08/1998
|
L
|
01
|
|
109
|
Ravica Nanoek
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
10/09/1998
|
P
|
03
|
|
110
|
Adinda EmiLuak
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
31/03/1998
|
P
|
02
|
|
111
|
Nicken Prawanduri
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
08/03/1998
|
P
|
04
|
|
112
|
Octapiut Dwie
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
31/10/1997
|
P
|
03
|
|
113
|
Aditya Murthi
Rahayu
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
24/12/1997
|
P
|
02
|
|
114
|
Julyanti
ProboLinggo
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
30/07/1998
|
P
|
04
|
|
115
|
Intan Ca'em
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
13/03/1998
|
P
|
01
|
|
116
|
Elfanda Bary
Prasetyo
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
22/10/1998
|
P
|
01
|
|
117
|
Hafiz Noya P.
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
08/11/1997
|
L
|
01
|
|
118
|
Ambar JKT 48
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
11/02/1998
|
P
|
02
|
|
119
|
Azmi Faturahman
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
03/09/1997
|
L
|
04
|
|
120
|
Miftahul Janah
|
X
|
Pasti Punya
Alamat
|
Di Sesuatu Kota
Yang Memiliki Nama
|
17/01/1998
|
P
|
03
|
TABEL JURUSAN
|
TabelJurusan
|
|
|
KodeJurusan
|
NamaJurusan
|
|
01
|
Multimedia
|
|
02
|
Rangkaian
Perangkat Lunak
|
|
03
|
Akuntansi
|
|
04
|
Administrasi
Perkantoran
|
LANGKAH 2
: Membuat PROPERTY
Masuk ke menu
Create, kemudian pilih Form Design. Pilih PROPERTY yang akan ditambahkan,
seperti Text Box, Label, dan Button.
NB : Sebelum menuliskan rumus, setiap Text
Box dan Button, harus terlebih dahulu diberi nama di "PROPERTY SHEET" Dan kemudian pilih "OTHER"
LANGKAH 3 : Mencari Data Siswa
Untuk mencari data,
klik Text Box NIS, kemudian pilih PROPERTY SHEET, dilanjutkan dengan pilih
Event dan pilih Before Update, dan tulis rumus :
Dim dio As Recordset
Set dio = CurrentDb.OpenRecordset("Data Siswa",
dbOpenDynaset)
dio.FindFirst "nis=" + "'" + Me.nisx +
"'"
If dio.NoMatch Then
MsgBox "Data Tidak
Tersedia, Ingin Menambahkan Data ?"
Me.namax = ""
Me.kelasx =
""
Me.alamatx =
""
Me.tempatlahirx =
""
Me.tanggallahirx =
""
Me.jeniskelaminx = ""
Me.combokodjur =
""
Me.Jurusanx =
""
Else
Me.namax = dio!Nama
Me.kelasx = dio!Kelas
Me.alamatx = dio!Alamat
Me.tempatlahirx =
dio!TempatLahir
Me.tanggallahirx =
dio!TanggalLahir
Me.jeniskelaminx = dio!JenisKelamin
Me.combokodjur =
dio!KodeJurusan
End If
(NB : dio sebagai pengganti rst, yaitu nama pesuruh)
LANGKAH 4 : Membuat COMBO BOX
Setelah membuat
Form, pilih Desing pilih dan klik Combo Box
Setelah memilih Combo Box,kemudian ikuti
perintah yang tertera.
LANGKAH 5 : Membuat Tombol Button
Input
Seperti cara
sebelumnya, setelah membuat Form, pilih Desing pilih dan klik "BUTTON"
Setelah memilih
tombol Button, secara otomatis keluar perintah, klik Cancel. Seperti langkah sebelumnya, sebelum menuliskan
rumus, diharuskan untuk menuliskan nama di Other, dan pilih Format jika
diperlukan.
Kemudian klik tombol
Button INPUT, kemudian pilih PROPERTY SHEET, dilanjutkan dengan pilih Event dan
pilih On Click, dan tulis rumus :
Dim dio As Recordset
Set dio = CurrentDb.OpenRecordset("Data Siswa",
dbOpenDynaset)
dio.FindFirst "nis=" + "'" + Me.nisx +
"'"
If dio.NoMatch Then
dio.AddNew
dio!NIS = Me.nisx
dio!Nama = Me.namax
dio!Kelas = Me.kelasx
dio!Alamat = Me.alamatx
dio!TempatLahir =
Me.tempatlahirx
dio!TanggalLahir =
Me.tanggallahirx
dio!JenisKelamin =
Me.jeniskelaminx
dio!KodeJurusan =
Me.combokodjur
dio.Update
Else
MsgBox "Data Sudah
Ada"
End If
Me.nisx = ""
Me.namax = ""
Me.kelasx =
""
Me.alamatx =
""
Me.tempatlahirx =
""
Me.tanggallahirx =
""
Me.jeniskelaminx =
""
Me.combokodjur =
""
Me.Jurusanx =
""
MsgBox "Data Baru
Selesai Dibuat"
Me.nisx.SetFocus
LANGKAH
6 : Membuat Tombol Button EDIT
Untuk Tombol Edit, sama seperti Button – button
sebelumnya. Form >>Desing >>BUTTON
Seperti biasa,
jika memilih Button, perintah yang muncul bisa diabaikan atau di klik Cancel.
Kemudian klik tombol Button EDIT, kemudian
pilih PROPERTY SHEET, dilanjutkan dengan pilih Event dan pilih On Click, dan
tulis rumus :
Dim dio As Recordset
Set dio = CurrentDb.OpenRecordset("Data Siswa",
dbOpenDynaset)
dio.FindFirst "nis=" + "'" + Me.nisx +
"'"
If dio.NoMatch Then
Else
dio.Edit
dio!Nama = Me.namax
dio!Kelas = Me.kelasx
dio!Alamat =
Me.alamatx
dio!TempatLahir =
Me.tempatlahirx
dio!TanggalLahir =
Me.tanggallahirx
dio!JenisKelamin =
Me.jeniskelaminx
dio!KodeJurusan =
Me.combokodjur
dio.Update
MsgBox "Data Telah Diperbarui"
Me.nisx = ""
Me.namax =
""
Me.kelasx =
""
Me.alamatx =
""
Me.tempatlahirx =
""
Me.tanggallahirx =
""
Me.jeniskelaminx =
""
Me.combokodjur =
""
Me.Jurusanx =
""
End If
Me.nisx.SetFocus
LANGKAH
7 : Membuat Tombol Button HAPUS
Untuk Tombol Hapus, sama seperti Button – button
sebelumnya. Form >>Desing >>BUTTON. Akan tetap, di Button Hapus /
Delete ini, tidak menggunakan On Click, melainkan On Doubble Click.
klik Event >> On Dbl Click, dan tulis rumus :
Dim dio As Recordset
Set dio = CurrentDb.OpenRecordset("Data Siswa",
dbOpenDynaset)
dio.FindFirst "nis=" + "'" + Me.nisx +
"'"
If dio.NoMatch Then
Else
dio.Delete
MsgBox "Data Telah
Di Hapus", vbCritical
Me.nisx = ""
Me.namax = ""
Me.kelasx =
""
Me.alamatx =
""
Me.tempatlahirx =
""
Me.tanggallahirx =
""
Me.jeniskelaminx =
""
Me.combokodjur =
""
Me.Jurusanx =
""
End If
Me.nisx.SetFocus
LANGKAH
8 : Membuat Tombol Button EXIT
Untuk tombol Button Exit, rumusnya hanya sedikit.
Tombol Button Exit
>>PROPERTY SHEET >>Event >>On Click, dan tulis rumus :
Private Sub Tombol_Exit_Click()
DoCmd.Close
End Sub
Tidak ada komentar:
Posting Komentar