Mungkin banyak diantara para programmer delphi pemula kesulitan untuk membuat suatu form
login didalam aplikasinya.
Untuk itu saya akan coba membuat tutorial sederhana tentang bagaimana membuat sebuah login
form untuk administrator, maupun operator yang lainnya. Dan didalam codingannya akan
diselipkan beberapa tips dan trik.
Ikuti Petunjuk DiBawah :
1. Jalankan program Delphi.
2. Tambahkan 2 Label, 2 TEdit, dan 1 Button
3. Atur property untuk tiap komponen.
Form
4. File New Form, untuk menambahkan sebuah form
5. Simpan Project, untuk FrmLogin nya beri nama unit Ulogin, sedangkan untuk form yang
baru dibuat cukup beri nama unitnya UHasilLogin.
6. Atur Tampilannya seperti pada gambar.
7. Sekarang buat database untuk menyimpan data loginnya. Gunakan basis data Microsoft
Access.
8. Jalankan Microsoft Access
9. File New Blank Database
10. Beri nama file dengan Data, kemudian Click Create
11. Buat satu table, dengan nama tabelnya login. Gunakan Create table in design view untuk
membuat table
12. Buat 2 Field seperti gambar di bawah. Atur Field Size seperti yang diinginkan.
13. Isi Satu Data, misalkan username : Admin, Password : Admin, kemudian Tutup
Microsoft Access nya, Kembali Ke DELPHI
14. Tekan Shift + F12, Klik 2x FrmLogin
15. Masuk ke pallete ADO, dan tambahakan Satu ADOConnection, dan Satu ADOQuery.
16. Atur Property Komponen Tersebut
ADOConnection
LoginForm False
ADOQuery
Connection ADOConnection1
17. Dan di bawah ini kode untuk form login
///////////////////////////////////////////////////////////////////
//// Author : Elga Lesmana
//// EMail
: elgalesmana@yahoo.com
//// Website : http://elgalesmana.net46.net
//// ©copyright 2008 ilmukomputer.com
///////////////////////////////////////////////////////////////////
unit ULogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TFrmLogin = class(TForm)
Label1: TLabel;
edusername: TEdit;
Label2: TLabel;
edpassword: TEdit;
Button1: TButton;
ADOQuery1: TADOQuery;
ADOConnection1: TADOConnection;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmLogin: TFrmLogin;
implementation
uses
// XPMan agar tampilan form seperti button mengikuti theme pada windows
// Tambahkan unit UHasilLogin ke ULogin dengan menekan Alt + F11, atau dengan
// mengetiknya saja
XPMan, UHasilLogin;
{$R *.dfm}
procedure TFrmLogin.FormCreate(Sender: TObject);
var
s : Char;
alamatdb : WideString;
begin
// Manipulasi cursors crSQLWait agar tidak tampil
Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault];
// atur tampilan form
s := '*';
edusername.Text := '';
edpassword.PasswordChar := s;
edpassword.Text := '';
// atur koneksi pada ADOConnection
// script ini berguna untuk mengatur koneksi database pada aplikasi
// agar aplikasi dapat memproses database yang dipilih di komputer
// manapun tanpa harus mempunyai path/alamat database yang sama.
alamatdb := ExtractFilePath(Application.ExeName) + 'data.mdb';
with ADOConnection1 do begin
Connected := False;
LoginPrompt := False;
Mode := cmShareDenyNone;
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
alamatdb + ';Persist Security Info=False';
end;
ADOConnection1.Connected := True;
end;
procedure TFrmLogin.Button1Click(Sender: TObject);
begin
with ADOQuery1 do begin
Close;
SQL.Clear; // bersihkan perintah sql jika ada
SQL.Add('select * from login where username='+
QuotedStr(edusername.Text));
Open;
end; // end with
// jika tidak ditemukan data yang dicari maka
// tampilkan pesan
if ADOQuery1.RecordCount = 0 then
Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',
MB_OK or MB_ICONINFORMATION)
else begin
if ADOQuery1.FieldByName('password').AsString <> edpassword.Text
then Application.MessageBox('Pastikan username atau password benar',
'Error', MB_OK or MB_ICONERROR)
else begin
Hide;
Form1.Show;
end
end;
end;
end.
18. Tambahkan code Application.Terminate untuk button yang berada di unit uHasilLogin.
19. Compile Program dan Lihat hasilnya
Sekian tutorial kali ini dari saya. Saya harap dapat membantu kalian yang membutuhkannya. Terima
Kasih.
SELAMAT MENCOBANYA
