Wednesday, 2 December 2015T12/02/2015 02:55:00 am

CARA MEMBUAT FORM GANTI PASSWORD DENGAN DELPHI

Salam blogger.....pada postingan kali ini saya akan share cara membuat form ganti password di delphi, sebelum membuat form ganti password ini kita harus memiliki database untuk menyimpan data password dan akses untuk aplikasi, dan juga kita harus membuat form untuk login terlebih dahulu. disini saya anggap sobat sudah membuat form login dan database nya, untuk kali ini saya mencontohkan form ganti password dengan database ms. acccess 2007. pertama - tama yang kita lakukan adalah membuat database nya terlebih dahulu. saya contohkan database nya seperti yang terlihat pada gambar di bawah ini.

Jika database nya sudah di buat, maka selanjutnya kita juga harus membuat form login nya (baca : cara membuat form login di delphi) terlebih dahulu. disini saya anggap sobat sudah membuat form login nya, lalu selanjutnya kita akan membuat form untuk ganti passwordnya. untuk membuat form ganti password ini komponen yg kita butuhkan adalah :
  1. 4 buah label
  2.  buah edit text
  3. 1 buah ado command1
  4. 1 buah ado query1
  5. 2 buah button
  6. 1 buah check box
Selanjutnya design tampilan form ganti password nya sesuai dengan keinginan anda. untuk contoh saya membuat design form ganti password nya seperti gambar di bawah ini
Selanjutnya jika form ganti passwoord nya sudah dibuat, maka kita akan menambahkan kode program nya, agar dapat di eksekusi pada saat program dijalankan. adapun kode program nya yang saya buat contohnya seperti dibawah ini :

 unit Ugantipassword;

interface

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

type
  TFgantipassword = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    NAMA: TEdit;
    PL: TEdit;
    PB: TEdit;
    KP: TEdit;
    CHANGE: TBitBtn;
    BACK: TBitBtn;
    CheckBox1: TCheckBox;
    QPASSWORD: TADOQuery;
    ADOCommand1: TADOCommand;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BACKClick(Sender: TObject);
    procedure CHANGEClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fgantipassword: TFgantipassword;

implementation

{$R *.dfm}

procedure TFgantipassword.BACKClick(Sender: TObject);
begin
close;
end;

procedure TFgantipassword.CHANGEClick(Sender: TObject);
begin
QPASSWORD.Close;
    QPASSWORD.SQL.Clear;
    QPASSWORD.SQL.Add('SELECT * FROM pengguna WHERE pswd = '+QuotedStr(PL.Text)+' and kodepengguna = '+QuotedStr(NAMA.Text)+'');
    QPASSWORD.Open;
      if PL.Text = '' then
  begin
  MessageDlg('Silahkan Masukkan Password Lama',mtWarning,[mbOK],0);
  PL.SetFocus;
  Exit;
  end;
        if (QPASSWORD.FieldByName('pswd').AsString = PL.Text) AND (QPASSWORD.FieldByName('kodepengguna').AsString = NAMA.Text)  then
  BEGIN
  if (PB.Text ='') or (KP.Text='')
  then
  Begin
  MessageDlg('Semua Data Harus Diisi',mtWarning,[mbok],0);
  PB.SetFocus;
  end;
  if (PB.text <>'') and (KP.Text<>'') then
  BEGIN
       If PB.Text = KP.Text then
       begin
       ADOCommand1.CommandText := 'UPDATE pengguna set pswd = '+QuotedStr(KP.Text)+'where kodepengguna = '+QuotedStr(NAMA.Text)+'';
 ADOCommand1.Execute;;
       MessageDlg('Password Baru Berhasil Disimpan',mtInformation,[mbok],0);
       close;
          end
       else
       begin
       MessageDlg('Password Tidak sesuai dengan Konfirmasi Password',mtWarning,[mbok],0);
       PB.Clear;
       KP.Clear;
       KP.SetFocus;
       end;
         END;
  END
  ELSE
  BEGIN
  MessageDlg('Password Lama yang Anda Masukkan Salah',mtError,[mbok],0);
PL.Clear;
PB.Clear;
KP.Clear;
PL.SetFocus;
END;
end;

procedure TFgantipassword.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
  begin
  pl.PasswordChar:=#0;
  pb.PasswordChar:=#0;
  kp.PasswordChar:=#0;
  end
 else
  begin
   pl.PasswordChar:='*';
   pb.PasswordChar:='*';
   kp.PasswordChar:='*';
end;
end;

procedure TFgantipassword.FormActivate(Sender: TObject);
begin
pl.SetFocus;
end;

procedure TFgantipassword.FormClose(Sender: TObject; var Action: TCloseAction);
begin
pl.Text:='';
pb.Text:='';
kp.Text:='';
end;

procedure TFgantipassword.FormShow(Sender: TObject);
begin
NAMA.Enabled:=false;
pl.Text:='';
pb.Text:='';
kp.Text:='';
end;
end.

jangan lupa juga koneksikan form ganti password nya dengan database access nya dengan menggunkan ADO Command1, arahan connecting string nya ke database access yang sudah anda buat sebelumnya.pada listing program tersebut ada beberapa edit text yang saya ganti name nya yaitu 
NAMA.text = userID
pl.text = password lama
pb.text = password baru
kp.text = konfirmasi password baru.

Jika semua sudah dibuat, selanjutnya coba jalankan program nya, contoh program ganti password yang saya buat jika dijalankan hasil nya akan terlihat seperti gambar dibawah ini 
Demikian postingan yang dapat saya share kali ini, semoga dapat bermanfaat.

Previous
Next Post »
0 Komentar untuk "CARA MEMBUAT FORM GANTI PASSWORD DENGAN DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status