SELAMAT DATANG

Sabtu, 26 Maret 2011

Membuat aplikasi visual basic

Membuat aplikasi Input Data mahasiswa menggunakan visual basic dengan Database Microsoft Access

Tampilan Microsoft Visual Basic














Yang pertama yaitu memilih New Project dan Pilih Standar EXE.

Maka akan muncul tampilan Form Project berikut ini













Membuat Program Input Data Siswa menggunakan bahasa pemrogaman di Visual Basic
Untuk membuat Program Input Data Mahasiswa Di visual Basic Diperlukan Beberapa ToolBox yaitu :
1. 8 Label
2. 3 textbox
3. 2 combobox
4. 1 Data
5. 1 DBGrid
6. 4 Command button
Untuk Menambah DBGrid pada tool box, klik kanan di toolbox pilih components dan pilih/centang micosoft Data Bound Grid Control 5.0 (SP3) lalu apply dan ok.










Dan Ini contoh project yang akan di buat














Program Input Data Mahasiswa menggunakan Database microsft access
Langkah Pertama membuat database terlebih dahulu untuk meyimpan sebuah data. Cara membuat database access :

1.Add-ins pilih Visual Data Manager maka akan muncul visi data seperti
dibawah ini













2. Pada VisiData Pilih File new - microsoft Accses Pilih Version 7.0 MDB
dan pilih folder tempat menyimpan project ini sebelumnya untuk menyimpan database yang akan dibuat simpan dengan nama Data Siswa.

Maka akan Tampil seperti di bawah ini :














Selanjutnya klik kanan dan pilih new table maka akan Tampil seperti berikut













Isi Tabel name dengan nama Data Siswa dan klik add field, isikan name di add field seperti npm,nama,kelas,jurusan dan agama seperti gambar berikut ini :












Selanjutnya, menuliskan coding/bahasa pemrograman di form code
Untuk Menyimpan data ke database di tuliskan code berikut ini :


Private Sub Command1_Click()
With Data1.Recordset
On Error Resume Next
.AddNew
!npm = Text1.Text
!nama = Text2.Text
!kelas = Text3.Text
!jurusan = Combo1.Text
!agama = Combo2.Text
.Update
End With
On Error GoTo 0
End Sub

Untuk membersihkan tulisan yang ada di textbox dan combobox
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Combo2.Text = ""
End Sub

Untuk menghapus data di database
Private Sub Command3_Click()
HAPUS = MsgBox("Bener Nih Data Mau Di Hapus", vbOKCancel, "MENGHAPUS ")
If HAPUS = vbOK Then
On Error Resume Next
Data1.Recordset.Delete
On Error GoTo 0
End If
Data1.Recordset.MoveFirst
Data1.Refresh
End Sub

Untuk mengisi nama-nama yang ada di combobox :

Private Sub form_load()
Combo1.AddItem "Teknik informatika"
Combo1.AddItem "Sistem Informasi"
Combo1.AddItem "Teknik Komputer"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Manajeman"
Combo1.AddItem "Akutansi“

Combo2.AddItem "Islam"
Combo2.AddItem "Kristen"
Combo2.AddItem "Katolik"
Combo2.AddItem "Hindu"
Combo2.AddItem "Budha"
End Sub

Untuk keluar dari Program :
Private Sub Command4_Click()
x = MsgBox("Anda yakin ingin keluar??", vbYesNo, "PESAN")
If x = vbYes Then
End If
Unload Me
End Sub



Untuk contoh project programnya silahkan download Disini

Tidak ada komentar:

Poskan Komentar