Tutorial pembuatan Aplikasi penerimaan siswa baru (PSB) Sederhana Part 1

Assalamualikum Wr. Wb

Kawan-kawan semua bertemu lagi dengan saya. Disini saya akan menjelaskan bagaimana membuat sebuah Aplikasi Penerimaan Siswa Baru ( Aplikasi PSB) Sederhana.Mungkin Kawan-kawan Semua dapat terbantu untuk mempelajarinya dan bermanfaat bagi yang membutuhkan mengenai program tersebut.

Tahapan-Tahapan Pembuatan Aplikasi .

-Buka Program Visual Basic Pada Komputer/Laptop Anda.

-Buat Sebuah Project Form Baru Untuk Membuat sebuah Design Aplikasi.

  Lihat Gambar di Bawah ini.

  Design Menu dan Submenu.

Design Menu Sistem.

Design Menu File

Design Menu Laporan.

Design Menu About

-Setelah selesai  membuat design Menu Dan Sub Menu, Kita Lanjutkan dengan

 membuat sebuah  Tampilan Form Untuk Menu Sistem.Yang dibawahnya terdiri

 dari beberapa sub menu diantaranya : 

 - Manajemen User.

    Buat Tampilan Manajemen User Dengan Susunan seperti di bawah ini.

Control	Name	Caption
DataGrid1	DataGrid1	-
Command Buton1	CmdTambah	Tambah Pengguna
Command Buton 2	CmdUbah	Ubah Password
Command Buton3	CmdHapus	Hapus Pengguna
Command Buton 4	CmdKeluar	Keluar

   -Sesuaikan Design Hingga Berbentuk Seperti di bawah ini.

-Masukan Source Code Berikut.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

Private Sub cmdHapus_Click() frmHapusUser.Show 1 End Sub   Private Sub cmdKeluar_Click() Unload Me End Sub   Private Sub cmdTambah_Click() frmTambahUser.Show 1 End Sub   Private Sub cmdUbah_Click() frmUbahPass.Show 1 End Sub   Private Sub Form_Load() koneksi Adodc1.ConnectionString = Conn.ConnectionString Adodc1.RecordSource = "select * from daftar_user" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1   DataGrid1.Columns(0).Caption = "User ID" DataGrid1.Columns(1).Caption = "Password" End Sub   Private Sub Form_Activate() On Error Resume Next Dim i As Integer For i = 0 To 1     DataGrid1.Columns(i).Locked = True Next i Adodc1.Refresh End Sub -Setelah Selesai kita buat Source Code Untuk Submenu Log Out.   Private Sub mnLogOff_Click() Dim pesan pesan = MsgBox("Anda yakin mau Log-Out dari aplikasi ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi") If pesan = vbYes Then     Unload Me     frmLogin.Show End If End Sub -Setelah Selesai kita Masukan Source Code Untuk Submenu Keluar. Private Sub mnKeluar_Click() Dim pesan pesan = MsgBox("Anda yakin mau keluar dari aplikasi ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi") If pesan = vbYes Then     Unload Me End If End Sub