Membuat "Form Login Sistem Aplikasi Inventory"

Pembuatan Form Login Aplikasi Inventory

Pembahasan ini merupakan kelanjutan dari pokok bahasan "Membuat Aplikasi Inventory dan Lapoan Keuangan", baca terlebih dahulu pokok bahasan tersebut agar lebih jelas.

Pada pertemuan kali ini Kita akan membahas bagaimana membuat Form Login Sistem yang digunakan dalam pembuatan aplikasi Inventory ini. Sebelum kita membahas lebih lanjut saya akan menyampaikan mengenai fungsi dari Login Form ini. Form Login pada intinya berfungsi sebagai hak akses untuk masuk ke dalam sistem aplikasi komputer, sehingga tidak sembarang orang dapat menggunakan aplikasi tersebut.

Langsung saja kita bahas bagaimana cara membuat Form Login untuk aplikasi inventory ini. Sebelum kita membahas cara pembuatannya, kita bahas terlebih dahulu bagaimana sistem kerja dari Form Login ini, sistem kerjanya adalah berdasarkan status pengguna aplikasi inventory, dalam pembuatan aplikasi inventory ini kita akan membatasi Hak Akses pengguna diantaranya yaitu :

• ADMIN (Bagian administrasi sistem), bagian ini bertugas untuk melakukan pendataan data-data master, transaksi, dan pembuatan Laporan keuangan.

• PIMPINAN (Pemilik Perusahaan), pada level pemilik, hanya dapat melihat laporan-laporan keuangan saja, untuk menginputkan dan melakukan transaksi tidak bisa. 

Membuat Desain Form Login

Buat desain Form login seperti gambar di atas, ke dalam Form1 yang telah disediakan oleh project yang sebelumnya kita buat. Ubahlah nama dari objek Form1 menjadi Frm_login melalui jendela properties. Tambahkan objek-objek kontrol ke dalam area desain Frm_login dengan desain seperti gambar Desain Form Login di atas, objek kontrol tersebut diantaranya adalah :

• LABEL

• TEXTBOX

• COMMAND BUTTON

Untuk gambar background Form, Anda dapat download gambar berikut ini :

Setelah Anda menambahkan objek kontrol tersebut ke dalam area desain form, selanjutnya Anda atur karakteristik objek mulai dari Objek utama (Form) sampai dengan objek kontrol yang berada di dalamnya dengan pengaturan seperti pada tabel berikut ini: 

Kontrol	Properties	Nilai
Form1	Name Caption Font Font size Font style Picture	Frm_login SIA – PENJUALAN DAN PEMBELIAN Arial 10 Standard [ambil dari komputer gambar yang sudah Anda download]
Label1	Name Caption Font Font size Font style	Label1 User Name Arial 10 Bold
Label2	Name Caption Font Font Size Font Style	Label2 Password Arial 10 Bold
TextBox1	Name Font Font Size Font Style Text	t_user Arial 10 Standard [dikosongkan]
TextBox2	Name Font Font Size Font Style PasswordChar Text	t_password Arial 10 Standard * [dikosongkan]
CommandButton1	Name Caption Font Font Size Font Style	cmd_ok &OK Verdana 10 Standard
CommandButton2	Name Caption Font Font Size Font Style	cmd_cancel &Cancel Verdana 10 Standard

Setelah pengaturan tersebut di atas telah selesai, selanjutnya Anda tulikan kode program Frm_login tersebut dengan kode program seperti tabel di bawah ini:

KODE PROGRAM Frm_login

Dim rsPASS As ADODB.Recordset Dim salahpass As Integer Private Sub Cmd_Cancel_click()     Unload Me End Sub ''----------------------------------------------------------------------------------------------------- Private Sub cmd_Ok_Click()      Call sambung      sql = "SELECT * FROM USER WHERE username ='" & t_user.Text & "' And password = '" & t_password.Text & "'"         Set rsPASS = Conn.Execute(sql)         If rsPASS.EOF Then                 If salahpass >= 2 Then                 MsgBox "Anda Bukan User yang Berhak", vbExclamation, "Ilegal User"                 End                 End If                 MsgBox "Password atau Nama Anda salah, COBA LAGI !", vbInformation, "Informasi"         salahpass = salahpass + 1         t_user.SetFocus         t_password.Text = ""         t_user.Text = ""         Else             Unload Me             MsgBox " Selamat Datang di Sistem Informasi Akuntansi EKA JAYA ELEKTRONIK", vbInformation, "Selamat Datang"             If rsPASS("statususer") = "ADMIN" Then             Frm_MenuUtama.Show             Frm_MenuUtama.mnFile1.Enabled = True             Frm_MenuUtama.mnDataMaster1.Enabled = True             Frm_MenuUtama.mnLaporanak1.Enabled = True             Frm_MenuUtama.mnMutasi1.Enabled = True             Frm_MenuUtama.mnUntilitas1.Enabled = True             Frm_MenuUtama.mnUntilitas(1).Enabled = True             Frm_MenuUtama.mnhelp1.Enabled = True             ElseIf rsPASS("statususer") = "PIMPINAN" Then             Frm_MenuUtama.Show             Frm_MenuUtama.mnFile1.Enabled = True             Frm_MenuUtama.mnDataMaster1.Enabled = False             Frm_MenuUtama.mnLaporanak1.Enabled = True             Frm_MenuUtama.mnMutasi1.Enabled = False             Frm_MenuUtama.mnUntilitas1.Enabled = True             Frm_MenuUtama.mnhelp1.Enabled = True             Frm_MenuUtama.mnUntilitas(1).Enabled = False             End If             'menampilkan nama kasir pada menu utama             Frm_MenuUtama.lbllevel.Caption = rsPASS("statususer")             Frm_MenuUtama.lblUser.Caption = rsPASS("username")             Frm_MenuUtama.cmd_login.Caption = "LOG OFF"                          End If  End Sub Private Sub Form_Activate()     t_user.SetFocus End Sub Private Sub Form_KeyPress(keyascii As Integer)     If keyascii = 27 Then         Unload Me     End If End Sub Private Sub Form_Load()     On Error Resume Next     Call sambung End Sub Private Sub t_user_keypress(keyascii As Integer)     If keyascii = 13 Then     t_password.SetFocus     Else     keyascii = Asc(UCase(Chr(keyascii)))     End If End Sub Private Sub t_Password_GotFocus()     cmd_ok.Default = True End Sub Private Sub t_Password_LostFocus()     cmd_ok.Default = False End Sub Public Sub pemakai()     Dim pemakai As String     pemakai = t_user.Text End Sub

Setelah Selesai semuanya silahkan Anda simpan kembali projek Anda. Dan kemudian aturlah Startup Object Form Anda menjadi Frm_login. Untuk melakukan pengaturan tersebut silahkan Anda masuk ke Project ⇛ Project Properties, maka akan muncul kotak dialog seperti gambar di bawah ini.

Pada bagian yang dilingkari adalah objek yang akan di jalankan pertama kali saat project di Running, setelah itu Anda klik OK. Kemudian Simpan kembali Project Anda.

Untuk ke pembahasan berikutnya silahkan klik tombol di bawah ini.

Klik disini untuk melanjutkanke pembahasan berikutnya