Login form menggunakan database microsoft access dengan delphi

Dalam pembuatan aplikasi dengan delphi, kita terkadang memerlukan sebuah halaman login untuk membatasi agar aplikasi tidak dapat secara sembarangan diakses oleh orang yang tidak memiliki hak akses terhadap aplikasi.

berikut ini adalah gambar Login form menggunakan database microsoft access dengan delphi

cantik ya halaman Login form menggunakan database microsoft access dengan delphi nya ?
hehehehe

siapkan database dengan sebuah tabel bernama userpass

struktur field nya sebagai berikut

isi record nya sebagai berikut

source code delphi nya

unit Unit1;

interface

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

type
  TFormLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLogin: TFormLogin;

implementation

uses Unit2;

{$R *.dfm}

procedure TFormLogin.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TFormLogin.BitBtn1Click(Sender: TObject);

begin
with ADOQuery1 do begin
    Close;
    SQL.Clear; // bersihkan perintah sql jika ada
    SQL.Add('select * from userpass where username='+ QuotedStr(Edit1.Text));
    Open;
  end;
// jika tidak ditemukan data yang dicari maka
// tampilkan pesan

  if ADOQuery1.RecordCount = 0 then
    begin
    edit1.Text:='';
    edit2.Text:='';
    messagedlg('username dan password tidak terdaftar',mtinformation,[mbok],0);
   // showmessage('username dan password tidak terdaftar');
    end
  else if ADOQuery1.FieldByName('password').AsString <> Edit2.Text then
    begin
    edit1.Text:='';
    edit2.Text:='';
    messagedlg('periksa username dan password',mtinformation,[mbok],0);
    end
  else
    begin
    edit1.Text:='';
    edit2.Text:='';
    formutama.show;
    formlogin.hide;
    end;
end;

end.


bingung mempelajari dan menerapkannya? saya sudah tidak sesabar dulu lagi dalam menulis tutorial..

silakan download saja source code nya

DOWNLOAD

Contact Person : Taufik Adi Sanjaya

No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244

Alamat : Jalan Imogiri Timur KM 11, 

Blawong 1 , RT 01, Trimulyo, 

Jetis, Bantul 55781.

Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di  

 

https://www.tokopedia.com/mikroholik