TUTORIAL

BLOG PEMBUATAN DATA BASE DOSEN DAN MATAKULIAHNYA

OLEH :

1.     Siti Sumarti.Amd

MATA KULIAH

“REKAYASA PERANGKAT LUNAK”

DOSEN:

SOLLY ARYZA S.T,M.ENG

AMIK TUNAS BANGSA PEMATANG SIANTAR,SUMATERA UTARA

1.      Pertama kali dalam membuat program database ini adalah dengan visual data manager :

2.      Berikut langkah-langkah dalam membuat program database :

1. Buka program VB 6.0 anda

2. Pilih menu Add-Ins >> Visual Data Manager >> File >> New >>

Microsoft Access >> Version 7.0 MDB

3. Beri nama database anda lalu simpan klik kanan Properties >> New Table

4. Beri nama Tabel database anda >> Add Field >> tambahkan satu persatu

komponen data yang ingin anda tampilkan seperti, NAMA, NIM, JURUSAN,

IPK dan lain-lain >> close jika sudah

5. Kemudian Build The Table hasilnya seperti berikut :

6. Klik Add lalu masukkan data mahasiswa jika sudah close

7. Sekarang buka form anda kemudian desain dan tambahkan satu buah

frame, 9 label, 5 commanbutton, 8 textbox dan satu kontrol data, untuk

commandbutton ubah nama pada propertinya sesuai seperti yang dibawah

ini

8. Kemudian klik control data ,lihat diproperties pilih DatabaseName lalu masukkan database yang kita buat tadi, satu lagi RecordSources ganti dengan nama databasenya

9. Kemudian atur properties masing-masing textbox seperti dibawah ini :

 

TextBox	DataSource	DataField
Text1	Data1	NIDN
Text2	Data1	Nama
Text3	Data1	Alamat
Text4	Data1	Jenkel
Text5	Data1	Matakuliah

10. Ketikkan Kode/listing/script program berikut ini :

1.  Private Sub CmdCancel_Click()

MsgBox "apakah anda yakin ingvbin keluar?", vbInformation, vbYesNo

End

End Sub

2.  Private Sub CmdCari_Click()

Data1.Recordset.FindFirst "NIDN='" + Text6 + "'"

If Data1.Recordset.NoMatch Then

MsgBox " NIDN yang anda cari tidak ditemukan", vbOKOnly, "Cari"

Data1.Recordset.MoveFirst

Text6.SetFocus

End If

End Sub

3.  Private Sub CmdHapus_Click()

Delete = MsgBox("Anda Yakin Ingin menghapusnya", vbInformation + vbYesNo, "hapus")

If Delete = vbYes Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Else

Data1.Recordset.MoveFirst

End If

End Sub

4.  Private Sub CmdSimpan_Click()

Data1.Recordset.Update

Data1.Recordset.MoveFirst

Call tidaktampil

End Sub

5.  Private Sub CmdTambah_Click()

Data1.Recordset.AddNew

Call tampil

Text1.SetFocus

End Sub

6.  Private Sub Form_Load()

Call tidaktampil

End Sub

7.  Private Sub tampil()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

End Sub

8.  Private Sub tidaktampil()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

End Sub

9.      Kemudian silahkan coba program anda dan lihat contoh seperti

dibawah ini :

THANK U VERY MUCH FOR ALL MY FRIEND