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.

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.

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

Mungkin Demikian Untuk Pembuatan Menu Sistem pada Aplikasi Penerimaan Siswa Baru (Aplikasi PSB) Sederhana ini. Untuk Pembuatan Menu Selanjutnya ,akan Hadir di Tutorial Penerimaan Siswa Baru Part 2.

Sampai jumpa.

#

About Author

hendra

Seorang lulusan teknik informatika yang gemar menulis Coding yang tanpa lelah terus belajar untuk dapat menaklukan bahasa pemrograman.


Comment & Discussions

  • Sundoro Pramuji
    bagus tutorialnya.. ada yang versi web nya ga ?

  • Please LOGIN before if you want to give the comment.