Blog Adi Sanjaya Global Techno Solution

Delphi, Mikrokontroler , Embedded system...Menerima Pembuatan alat berbasis mikrokontroller

LightBlog
Responsive Ads Here

Sunday, October 25, 2015

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

No comments:

Post a Comment

Silakan dikomentari