Membuat Form Login Sederhana Di Delphi 7 - ShareItCare Blog

Sebenarnya ini adalah lanjutan untuk pembuatan Aplikasi Kasir Sederhana yang ada di post saya sebelumnya, bisa di cek ya guys ^-^

Mudah kok ini, jika ada kesulitan nanti bisa sharing di kolom kometar aja ya :)

Oke, sama seperti aplikasi kasir sederhana kemarin, kalian harus buat tampilan form loginnya dulu seperti pada gambar dibawah ini (Boleh diedit sesuka hati juga kok, bagi yang udah pro aja, hehe...)

Oh iya, sebelumnya kalian boleh membuat project baru jika ingin membuat hanya Form Login saja, tidak gabung dengan Aplikasi Kasir Sederhana yang kemarin, tetapi jika ingin digabungkan kalian masuk ke project kemarin dan tambahkan Form2 (Buat form baru -newbie)

Login User Kasir Cafe Latte = Ganti di nama Form2

Share It Care - Login User = Gunakan GroupBox

Username dan Password = Gunakann Label

Login dan Cancel = Gunakan Button

Isi-an Username dan Password = Gunakan Edit

Langsung masuk ke coding nya sekarang ya :)

1. Klik 2 kali pada Button Login dan copy kan code berikut..

procedure TForm2.Button1Click(Sender: TObject); var nama:String; begin if (Edit1.Text=’admin’) AND (Edit2.Text=’admin’) then begin Form1.Show; Form2.Close; Form1.Label10.Caption:=Form2.Edit1.Text; end else if (Edit1.Text=”) then begin ShowMessage(‘Username Kosong’); end else if (Edit2.Text=”) then begin ShowMessage(‘Password Kosong’); end else if (Edit1.Text=”) AND (Edit2.Text=”) then begin ShowMessage(‘Username Dan Password Kosong’); end else begin ShowMessage(‘Username Dan Password Salah’); end; end;

Untuk code if (Edit1.Text=’admin’) AND (Edit2.Text=’admin’) then itu adalah username dan password kalian dan bisa kalian ganti sesuka hati ^-^

2. Klik 2 kali pada Button Cancel dan tulisan source code berikut Close; 

Source code diatas digunakan untuk mengeluarkan Form2 dan menampilkan Form1 (Form Kasir) ^-^

3. Selanjutnya adalah mengenalkan atau menggabungkan kedua unit yaitu unit1(Form Kasir) dan unit2(Form Login).. caranya adalah dengan tekan Alt+F11 maka akan muncul tampilan seperti dibawah dan klik OK (Lakukan hal yang sama pada Form1 nantinya-newbie)

4. Langkah terakhir adalah klik 2 kali Button Login pada Form1(Aplikasi Kasir) dan copy kan code berikut..

procedure TForm1.Button4Click(Sender: TObject); begin Form2.ShowModal; end;

Code Form2.ShowModal; digunakan untuk menampilkan Form2(Login User-newbie) ^-^

!!! Ingat kalau kalian mau copy, dari var sampai end yang kedua dari bawah guys.

Jika sudah selesai semua langkahnya, maka hasilnya akan seperti pada Demo Video yang saya kasih berikut..

Untuk Button Exit yang ada di demo video, source code nya sama seperti Button Cancel di Form Login ^-^

Mungkin sampai sini dulu share saya hari ini, untuk tutorial install delphi 7 next post ya, sabar :v

Note: Jika ada penulisan code yang salah dan mungkin ada error yang tidak kalian ketahui saat mencobanya, bisa share di kolom komentar ya.. Semoga bermanfaat dan jangan lupa share ke temen-temen kalian juga artikel ini ya☺