membuat login multi user pada delphi 7

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.
————————————————-end———————————-

silakan download source lengkapnya di

disini