Menampilkan Nama User Login di status bar Visual Basic

Pada Kali ini buya akan share tentang cara menampilkan nama user login pada status bar visual basic, sebelum itu saya akan sedikit menjelaskan fungsi dari komponen status bar itu sendiri. Status bar yang sering digunakan oleh programmer yang diterapkan pada projectnya. Status bar berfungsi sebagai keterangan atau identifikasi dari program yang sedang berjalan seperti menampilkan siapakah orang yang yang sedang mengoprasikan program tersebut, menampilkan jam dan tanggal dll, dan bisa juga dengan cara menampilkan nama user tersebut.
Sebelum kita masuk pada tahap tutorial customize status bar, koneksi yang akan kita gunakan pada contoh ini dengan ADODB, yaitu dengan menggunakan Module. dan jika anda ingin menggunakan koneksi  lainnya seperti menggunakan komponen Data dan Adodc, sesuaikan saja pada codingnya. berikut tahap-tahapnya.

• Buat sebuah database dan tabel login
• Buka VB6 dan buat sebuah project baru, tambahkan (2 form)

a. FORM LOGIN ( untuk cara membuat FORM LOGIN silahkan klik disini )
b. FORM UTAMA

• Tambahkan Komponent baru "Microsoft Windows common control 6.0", seperti gambar berikut :

• Tambahkan Module untuk koneksi ke database, dan ketikan kode berikut :

  Global rsLogin As ADODB.RecordsetSub koneksi()
      Set conn = New ADODB.Connection
           Set conn = New ADODB.Connection
           conn.Provider = "microsoft.jet.oledb.4.0"
           conn.CursorLocation = adUseClient
           conn.Open App.Path & "\Nama_DB.mdb"
  End Sub

• Tambahkan komponen status bar pada FORM UTAMA, lalu buat 1 panel dengan cara klik kanan -> pilih tab panel -> kilk tombil insert.
• Tambahkan Coding berikut pada tombol FORM LOGIN

              Frm_Utama.Statusbar1.panels(1)=rslLogin!username

Keterangan :
- rsLogin (warna kuning) = sebagai koneksi ke database dari FORM LOGIN.
- !username (warna biru) = sebagai field yang ada di tabel data login.

• Jalankan Project anda, setelah anda masuk FORM LOGIN dan jika tidak ada masalah maka akan tampil seperti capture berikut :

Selamat berkreasi
Salam Sukses
NB."Jika masih ada yang belum faham,mari dibahas pada form komentar dibawah ini...! ! ! "