LOGIN MULTI USER DENGAN DELPHI

Membuat Login Multi User Dengan Delphi

Kali ini saya membuat tutorial tentang form multi user dengan Delphi 2010 dan dengan database mysql, dimana dalam program terdapat dua orang pengguna yang masing – masing mempunyai user dan password sendiri sehingga bisa Login.

Langsung saja ke TKP…

1.      Buat Form seperti di bawah ini..

2.      Tambahkan Komponen Zeos Access, TZConnection dan TZQuery

3.      Atur Komponen TZConnection dan TZQuery seperti di bawah ini :

-          TZConnection

Database : contoh_login (isi dengan nama database anda, pada tutorial ini nama database yang saya buat contoh_login)

Hostname : localhost (karena kita menggunakan dalam local aja maka diisi localhost)

Protocol : mysql

User : root (karena defaul user dari MySql masih standart kita isi root)

Connection : true (kalau connection sudah bisa di true kan, maka koneksi berhasil)

-          TZQuery

Connection : Zconnection1 (pilih Zconnetion yang sudah kita atur tadi)

Sql : select * from admin (pada bagian sql ketikan script sql untuk melihat data dari tabel admin (tabel yang di buat untuk login))

Active : true (kalau sudah bisa di true kan berarti sudah terkoneksi)

4.      Untuk langkah selanjutnya klik 2 kali pada Zquery sehinggan akan ada jendela query muncul

5.      Klik kanan pada jendela query kemudian klik Add All Field, nanti akan ada field-field dari tabel admin(user dan password)

6.      Kemudia kita klik pada tombol login dan ketikan source code seperti berikut :

ZQuery1.Close;;

ZQuery1.SQL.Clear;

ZQuery1.SQL.Add('select * from admin where user = "'+Edit1.Text+'" and password = "'+Edit2.Text+'"') ; //edit1 = user dan edit2 = password

ZQuery1.Open;

//Pengecekan ketika user dan password yang dimasukkan benar

if not ZQuery1.IsEmpty then

  begin

    MessageDlg('user dengan login ='+ZQuery1user.Value+' berhasil Login',mtInformation,[mbok],0);

  end

  else

//pengecekan ketika user dan password yang di masukkan salah

  begin

    MessageDlg('Login gagal',mtInformation,[mbok],0);

  end;

7.      Jalankan, kemudian isikan user dan pasword yang ada di tabel admin

8.      Hasilnya seperti contoh berikut :

Data user yang ada di tabel admin :

Dan ketika program dijalankan dengan memasukkan user  = abdil dan password = abdil

Dan ketika program dijalankan dengan memasukkan user  = ada dan password = ada

Dan ketika program dijalankan dengan memasukkan user  = ada dan password = abdil

Nah begitu saja tutorial untuk membuat Login dengan multi user

Silahkan dikembangkan sendiri… sehingga bisa untuk memilih jenis login. hehehehe

Selamat mencoba……

 

Dalam membangun sebuah aplikasi kita sering dihadapkan pada kasus dimana pemakai aplikasi terdiri dari beberapa kalangan atau tingkatan akses data. misal, untuk sistem informasi akademik misalnya, sistem tersebut kelak dipakai oleh kepala sekolah, guru, siswa, dan bahkan TU. dan tentu saja, masing-masing jabatan atau kalangan memilliki akses data yang berbeda, misal, guru input nilai, sedangkan siswa melihat nilai dirinya pada beberapa mata pelajaran.

untuk menghadapi kasus ini, maka diperukan sebuah sistem yang memiliki login multi user. sehingga bisa dibedakan, user sebagai admin, siswa, guru atau yang lainnya. berikut adalah salah satu contoh solusi sederhana login multi user.

dengan spesifikasi memakai database MS access 2003, 2 user yaitu guest dan admin, dan dibuat menggunakan delpi7.

source untuk login :

———————————-begin————————
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
ComboBox1: TComboBox;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
if combobox1.Text=’Admin’ then
begin
SQL.Clear;
sql.Add(‘select * from admin where username=”‘+edit1.Text+’”‘);
open;
if adoquery1.RecordCount <> 0 then
begin
if adoquery1.FieldByName(‘passwd’).AsString = edit2.Text then
begin
Application.MessageBox(‘Anda berhasil login sebagai administrator.’,'Selamat Datang’);
end
else
begin
Application.MessageBox(‘Maaf, Password yang anda masukkan salah.’,'Perhatian!’);
end;
end
else
begin
Application.MessageBox(‘Username anda tidak ditemukan.’,'Perhatian!’);
end;
end;
if combobox1.Text=’Guest’ then
begin
SQL.Clear;
sql.Add(‘select * from guest where username=”‘+edit1.Text+’”‘);
open;
if adoquery1.RecordCount <> 0 then
begin
if adoquery1.FieldByName(‘passwd’).AsString = edit2.Text then
begin
Application.MessageBox(‘Anda berhasil login sebagai guest.’,'Selamat Datang’);
end
else
begin
Application.MessageBox(‘Maaf, Password yang anda masukkan salah.’,'Perhatian!’);
end;
end
else
begin
Application.MessageBox(‘Username anda tidak ditemukan.’,'Perhatian!’);
end;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

end.