MEMBUAT PASSWORD (III) DENGAN DELPHI 7 Bagian dari pembahasan ini adalah : • Menerapkan password pada materi sebelumnya (penerapan struktur menu) • Memanfaatkan komponen Timer (Tab System) • Memanfaatkan komponen Statusbar (Tab Win32) 1. 2.
Masih mengacu dari pembahasan penerapan Struktur Menu Untuk menerapkan password, sebelumnya anda harus membuat tabel yang disimpan dalam database Akademik FieldName UserPass Nama_User Password
DataType Text Text Text
FieldSize 40 30 10
Status Primary Key
Simpan dengan nama tabel : Password 3. 4.
Aktifkan Form FPassword Letakkan komponen Tabel, ubah property : • Name : Tpass • DataBaseName : DBAkademik • Tablename : Password • Active : True Klik ganda tabel Tpass Pada kotak kosong klik kanan Pilih Add All Fields
5.
Aktifkan form Fpassword Klik Tab Event pilih OnActivate pada kotak sebelah kanan, Ketik Aktif Enter Ketik code, kecuali yg bergaris bawah : procedure TFPassword.Aktif(Sender: TObject); begin if TPass.IsEmpty then begin Button1.Enabled:= true; Button2.Enabled:= true; edit1.SetFocus; end else begin Button1.Enabled:= false; Button2.Enabled:= false; end; end; end.
6.
Klik ganda Tombol OK, ketik code, kecuali yg bergaris bawah : procedure TFPassword.Button1Click(Sender: TObject); begin if (edit1.Text=' ') or (edit2.Text=' ') then begin showmessage('Nama user atau Password tidak boleh kosong!!'); edit1.SetFocus; end else begin Tpass.Insert; TpassNama_user.AsString:= Edit1.Text; TpassPassword.AsString:= Edit2.Text; TpassUserPass.AsString:= Edit1.Text+Edit2.Text; Tpass.Post; end; end; end.
7.
Klik ganda Tombol Batal, ketik code : Close; Aktifkan form FUbahPass Letakkan komponen tabel, ubah property : ikuti perintah No.4 Aktifkan form FUbahPass Klik Tab Event pilih OnActivate pada kotak sebelah kanan, Ketik Aktif Enter Ketik code, kecuali yg bergaris bawah : Dengan syarat Button1 = OK, Button2 = Ubah, Button3 = Simpan, Button4 = Batal
8. 9. 10.
procedure TFUbahPass.Aktif(Sender: TObject); begin Button2.Enabled:= false; Button3.Enabled:= false; Button4.Enabled:= false; end; end. 11.
Klik ganda tombol OK Ketik code, kecuali yg bergaris bawah : procedure TFUbahPass.Button1Click(Sender: TObject); begin if tpass.FindKey([edit1.Text+edit2.Text]) then begin showmessage('Perubahan data diijinkan....'); button2.Enabled:= true; end else showmessage('Password tidak valid...!!!'); end; end.
12.
Klik ganda tombol Ubah Ketik code, kecuali yg bergaris bawah : procedure TFUbahPass.Button2Click(Sender: TObject); begin if (edit3.Text=' ') or (edit4.Text=' ') then begin showmessage('Nama user atau Password tidak boleh kosong!!'); edit3.SetFocus; end else begin TPass.Edit; TPassNama_User.AsString:= Edit3.Text; TPassPassword.AsString:= Edit4.Text; TPassUserPass.AsString:= Edit3.Text+Edit4.text; Button2.Enabled:= false; Button3.Enabled:= true; Button4.Enabled:= true; end; end; end.
13.
Klik ganda tombol Simpan Ketik code, kecuali yg bergaris bawah : procedure TFUbahPass.Button3Click(Sender: TObject); begin TPass.Post; Button3.Enabled:= false; Button4.Enabled:= false; end; end.
14.
Klik ganda tombol Batal Ketik code, kecuali yg bergaris bawah : procedure TFUbahPass.Button4Click(Sender: TObject); begin TPass.Cancel; Button3.Enabled:= false; Button4.Enabled:= false; end; end.
15. 16.
Simpan : Save All Jalankan aplikasi (Run) Bila tidak ada masalah Klik Menu Profil Buat Password Penjelasan : Buat password ini digunakan untuk mengisi tabel password pertama kali bila hendak mengisi User name dan Password anda. Namun apabila tabel telah terisi dengan data password, maka form ini tidak dapat digunakan lagi.
17.
Isilah Nama user dan Password nya. Tips : Untuk mengisi user dan password gunakan kata yang singkat dan yang mudah diingat.
18.
Coba aktifkan juga untuk Ubah Password. Untuk merubah password ikuti langkah2 berikut: • Isi user dan password lama, kemudian klik OK. Bila user dan password nya valid, maka akan masuk ke user dan password baru • Isi user dan password baru, kemudian klik Ubah. • Tombol Simpan untuk menyimpan hasil perubahan, Tombol Batal untuk membatalkan perubahan.
MENAMPILKAN PENGISIAN PASSWORD PADA SAAT APLIKASI BARU DIJALANKAN (IV-Habis) Praktek ini masih melanjutkan dari materi di atas. 19. 20.
21.
Buat form baru (FileNewForm) simpan dengan nama Unit : UaktifPass Ubah property : • Name : Password • Caption : Password Buat desainnya seperti nampak pada gambar di bawah :
Timer (Tab System) Statusbar (Tab Win32) Table 22.
23.
Aktifkan Timer, ubah property : • Enabled : False • Interval : 50 • Name : TCekPass Klik ganda Timer, isi code kecuali yang bergaris bawah : procedure TPassword.TCekPassTimer(Sender: TObject); begin value:= value+1; statusbar1.Panels[0].Text:= 'Checking pass.... '+ inttostr(value)+' %'; if value=20 then begin
Tcekpass.Enabled:= false; value:= 0; statusbar1.Panels[0].Text:=' '; if TPass.FindKey([Edit1.Text+edit2.Text]) then begin Password.Visible:= false; Form1.show; End else showmessage('Password tidak valid...!'); end; end; end.
25. 26.
Klik ganda Statusbar pada kotak kosong klik Tombol Add New (Ins) maka akan tampil 0-TStatusPanel Aktifkan table, ubah property ikuti perintah No.4 Aktifkan form Password Pilih Tab Event Pilih OnCreate Ketik Aktif, Enter isi code : Value:= 0;
27.
Pada Unit UaktifPass, buat variabel Global dengan nama Value, perhatikan :
24.
unit UAktifPass; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, DBTables, StdCtrls, ExtCtrls; type TPassword = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; TPass: TTable; TPassUserPass: TStringField; TPassNama_User: TStringField; TPassPassword: TStringField; StatusBar1: TStatusBar; TCekPass: TTimer; procedure TCekPassTimer(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Aktif(Sender: TObject); private { Private declarations } public { Public declarations } end; var Password: TPassword; value: shortint;
Isi di sini
implementation 28. 29.
30. 31. 32. 33. 34. 35. 36.
37. 38. 39.
Klik ganda Tombol OK, ketik code : TCekPass.Enabled:= true; Klik ganda Tombol Batal, ketik code : application.Terminate; Pilih menu Project (delphi) Option pada Main Form : pilih Password OK Simpan : Save All Jalankan Aplikasi anda. Bila tidak ada masalah, maka akan tampil pertama kali Form Password Coba isi Nama User dan Password, kemudian klik OK. Perhatikan pada statusbar Coba keluar dari modus Running kembali pada modus desain. Aktifkan Form1 tambahkan komponen Timer dan Statusbar Aktifkan Timer, ubah property : • Enabled : False • Interval : 300 • Name : Waktu Klik ganda Timer Waktu isi dengan code : statusbar1.Panels[0].Text:= timetostr(time); Klik ganda Statusbar pada kotak kosong klik Tombol Add New (Ins) 2x maka akan tampil 0-TstatusPanel dan 1-TstatusPanel Aktifkan Form1 klik Event pilih OnCreate ketik Aktif, Enter isi dengan code berikut : procedure TForm1.Aktif(Sender: TObject); begin Waktu.Enabled:= true; statusbar1.Panels[1].Text:= datetostr(date); end; end.
40.
Klik menu File (dari Form1) pilih Exit, ketik code : application.Terminate;
41. 42. 43.
Jalankan kembali Aplikasi Anda Ketika masuk pada form1 perhatikan pada statusbar (akan ditampilkan jam dan tanggal). Selesai.