PEMBUATAN PROGRAM APLIKASI DATA GURU

TUGAS MATA KULIAH PROGRAM VISUAL BASIC

Langkah pertama bukalah Microsoft Visual Basic 6.0

· Lalu akan tampil menu seperti dibawah ini :

· Setelah tampil pilihlah menu Open, dengan cara mengKlik sekali pada menu open.

· Jika sudah akan ada tampilan dibawah ini :

· Setelah tampil maka buatlah sebuah tampilan seperti gambar dibawah ini :

Keterangan :

NO	OBJEK	PROPERTI	NILAI PROPERTI
1	Label1 Label2 Label3 Label4 Label5 Label6 Label7	Caption Caption Caption Caption Caption Caption Caption	Data Guru SMK Yagsmi Kotabumi NIP NAMA GURU JABATAN MATA PELAJARAN ALAMAT NOMOR TELEPHONE
2	Frame1 Frame2	Caption Caption	(kosong) (kosong)
3	Command button1 Command button2 Command button3 Command button4 Command button5 Command button6	Caption Caption Caption Caption Caption Caption	INPUT EDIT SAVE DELETE SEARCH EXIT

· Setelah selesai, klik menu Add-Isn pada tolbar yang terletak pada bagian atas, seperti dibawah ini :

· Setelah itu pilihlah Visual Data Manager, setelah selesai maka akan tampil menu seperti dibawah ini

· Langkah selanjutnya klik menu File, Lalu pilih New, setelah itu pilih Microsoft Access, lalu pilihlah yang Version 7.0 MDB...

· Jika sudah buatlah folder untuk menyimpan databasenya, setelah itu berilah nama file databasenya dengan GURU1, lalu Save

· Setelah di Save, maka akan tampil menu seperti dibawah ini :

· Setelah tampil menu diatas, langkah selanjutnya adalah klik kanan didalam tampilan diatas, lalu pilih NEW TABEL, maka akan tampil menu seperti dibawah ini :

· Lalu jika sudah, buatlah Field dengan Mengklik Add Field dengan keterangan Sebagai Berikut :

NO	NAMA FIELD	TYPE	SIZE
1	nip	TEXT	16
2	namaguru	TEXT	30
3 4	jabatan matapelajaran	TEXT TEXT	4 20
5	alamat	TEXT	50
6	notelp	TEXT	13

· Jika selesai, Klik tombol Close.

· Langkah selanjutnya buatlah PrimaryKeynya, untuk posisi PrimaryKeynya kita pakai pada NIP, Caranya Klik Add Index seperti gambar dibawah ini

· Kemudian di Name ketikan nip, lalu untuk Indexed Fields cukup klik saja pilihan nip yang ada didalam Available Fields, setelah sudah klik Ok, lalu Close

· Langkah selanjutnya hanyalah klik butom Build the Table, tetapi Judul Tablenya harus diisi, Kita disini menggunakan nama Guru

· Jika selesai kita kembali lagi ke design program kita

· Kita Sekarang lihat pada menu Tols, lalu pilih menu data

· Lalu kita buat data pada form, dengan cara klik menu data pada tols, lalu kita drag di dalam form.

· Lalu untuk data sendiri dibagian properties kita pilih DatabaseName (pilih nama tempat database yang telah kita buat), lalu RecordSource kita pilih nama tabel yang kita buat tadi, untuk RecordsetTypenya kita pilih yang 0 - Table.

· Lalu langksh selanjutnya kita perlu menambahkan DBGRID, caranya klik kanan pada Tols, lalu pilih Componen, setelah itu carilah file yang namanya (Microsoft Data Bound Grid Control 5.0 (sp 3))

· File nya diceklis, lalu klik ok, maka akan muncul komponen DBGRID pada Tols

· lalu kita drag kedalam form kita tadi, maka hasilnya akan seperti ini:

· Setelah selesai, kita edit pada bagian propertiesnya dbgrid, di Datasource nya kita pilih Data1

· Lalu kita klik kanan pada dbgridnya lalu pilih Retrieve Field, maka hasilnya akan seperti ini :

NO	NAMA	recordsource	data field
1	Text1	data1	nip
2	Text2	data1	namaguru
3 4	Text3 Text4	data1 data1	jabatan matapelajaran
5	Text5	data1	alamat
6	Text6	data1	notelp

· Jika sudah selesai dengan pembuatan form tampilannya, langkah selanjutnya yaitu memasukkan codding.
Coding INPUT
On Error GoTo a
Data1.Recordset.AddNew
Text1.SetFocus
a:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True

Coding SIMPAN
On Error GoTo b
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.MoveLast
b:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True

Coding EDIT
On Error GoTo c
Data1.Recordset.Edit

c:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True

Coding HAPUS
On Error GoTo d
Data1.Recordset.Delete
Data1.Refresh
Data1.Recordset.MoveLast
d:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True

Coding CARI
On Error Resume Next
Dim kode As String
kode = InputBox("KETIK NIP :")
Data1.Recordset.Index = "idxnip"
Data1.Recordset.Seek "=", kode
If Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
response = MsgBox("Data Tidak Ditemukan!", 0, "Pencarian Data")
End If

Coding TUTUP

Unload Me

Pages

PEMBUATAN PROGRAM APLIKASI DATA GURU