SISTEM LOGIN (ADMIN DAN KASIR) MENGGUNAKAN ADOQUERY DI BORLAND DELPHI 7

Assalamualaikum . . .
Disini saya akan membahas tentang tampilan awal yang biasanya pertama muncul, LOGIN . . .
Apa sih fungsinya Login ?
Login itu seperti suatu pembatas dan keamanan bagi suatu pengelolaan yang ada di Menu Utama . . .

. . .
Tanpa banyak keterangan, mari kita simak :
1). ini adalah tampilan sebelum aplikasi dijalankan atau di RUN . .

Ada beberapa komponen yang perlu diperhatikan..dan sebelumnya kita sudah membuat Database MS.ACCESS, disini saya menggunakan DATABASE ACCESS 2003.
dan kita buat struktur dan data seperti dibawah ini,

Keterangan
Nama Tabel : Kasir
Data :
ID_AKSES (Text) (30)
STATUS (Text) (15)
PASSWORD (Text) (30)
...
1. KOMPONEN yang dibutuhkan untuk pembuatan Form Login,
a. Connection :
    - Adoconnection1 : diberi nama (Adoserver1)
      Pengaturan propertiesnya..ada disini
    - Adoquery1 : diberi nama (Adoquery_login)
b. Action
    - Button1 : diberi nama (Bmasuk)
    - Button2 : diberi nama (Bbatal)
c. Input
    - Edit1 : diberi nama (Eid_akses)
    - Edit2 : diberi nama (Epassword)

untuk tampilan, buat semenarik mungkin, dan user friendly (mudah dimengerti pengguna).


2. Langkah Pembuatan
a. Karena disini kita arahkan adoquery_login ke adoserver1, pada connection, dan konsepnya kita buat perintah query untuk SELECT * ke Tabel Kasir di FORM ACTIVE.
seperti ini ;

procedure TFakses.FormActivate(Sender: TObject); 
begin
 Adoquery_login.Connection:=Adoserver1;
 Adoquery_login.Close;
 Adoquery_login.SQL.Clear;
 Adoquery_login.SQL.Text:='Select * from Kasir';
 Adoquery_login.Open;
 eid_akses.SetFocus;
end;
 
ket : listing kode diatas merupakan perintah mengarahkan kesemua field di tabel 'Kasir', dan eid_akses, menjadi fokus..

dan kita masukan langkah untuk pembuatan perintah Login ketika masuk dan gagal, dan apabila teks belum diisi (kosong).
pertama kita klik 2 X bmasuk..
dan buat listing kode seperti dibawah ini;

procedure TFakses.bmasukClick(Sender: TObject);
begin
  if (eid_akses.Text='') and (epassword.Text='') then
  begin
  Application.MessageBox('ID AKSES DAN PASSWORD MASIH KOSONG','INFORMASI',mb_iconinformation);
  end
  else
  if eid_akses.Text='' then
  begin
  Application.MessageBox('ID AKSES MASIH KOSONG','INFORMASI',mb_iconinformation);
  end
  else
  if epassword.Text='' then
  begin
  Application.MessageBox('PASSWORD ANDA MASIH KOSONG','INFORMASI',mb_iconinformation);
  end
  else
  begin
      if adoquery_login.Locate('ID_AKSES',eid_akses.Text,[]) then
  begin
      if adoquery_login.FieldByName('PASSWORD').AsString=epassword.Text then
  begin
      if Adoquery_login.FieldValues['STATUS']='ADMIN' then

  begin
      Application.MessageBox('ANDA BERHASIL LOG IN','SELAMAT DATANG ADMIN',mb_iconinformation);
      Fadmin.showmodal;   // keterangan : akan muncul form admin
      end
      else
      if Adoquery_login.FieldValues['STATUS']='KASIR' then
      begin
      Application.MessageBox('ANDA BERHASIL LOGIN','SELAMAT DATANG KASIR',mb_iconinformation);
      Fmenu.showmodal;  // keterangan : akan muncul form kasir
      end
      end
      else

      Application.MessageBox('PASSWORD MASIH SALAH','PERINGATAN',mb_iconwarning);
      end
      else
      Application.MessageBox('ID AKSES MASIH SALAH','PERINGATAN',mb_iconwarning);
  end

end;

setiap keterangan atau peringatan, memiliki fungsinya sendiri-sendiri, maka jika ingin dikembangkan lagi..y monggo..

kemudian kita buat perintah 'BATAL' untuk membatalkan tampilan Login..
pertama kita harus klik 2 X bbatal. . .

dan ini listing kodenya ;

procedure TFakses.bbatalClick(Sender: TObject);
begin
  if Application.MessageBox('APAKAH ANDA YAKIN AKAN KELUAR','KONFIRMASI',mb_yesno or mb_iconquestion)=idyes then
  begin
  Application.MessageBox('APLIKASI AKAN DIHENTIKAN','INFORMASI',mb_iconinformation);
  Application.Terminate;
  end
  else
  Application.MessageBox('APLIKASI MASIH BERJALAN','INFORMASI',mb_iconinformation);
  Application.Run;
end; 

..nah..kan disebelah pojok paling atas disebelah kanan ada tanda silang..
disini saya mengatur event pada form..
di 'OnClose'..
jadi saat icon diatas kanan diklik..maka akan mengeksekusi bbatal...
 
procedure TFakses.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  bbatal.Click;
end;

end.

dibawah ini adalah beberapa gambar..dari project Login yang saya buat..

dan diatas adalah..contoh tampilan yang akan tampil, sesuai aksesnya..sebagai ADMIN atau KASIR..
Terimakasih..
// jika ada kesalahan silahkan beri saran atau kritik