Sabtu, 18 Desember 2010

4

[Dephi] Membuat Form Login Dengan Delphi Dan Basis Data Microsoft Access

  • Sabtu, 18 Desember 2010
  • Nurkholish Ardi Firdaus
  • Share
  • Mungkin banyak  diantara para programmer  delphi pemula kesulitan  untuk  membuat suatu  form  login didalam aplikasinya. Untuk itu saya akan coba membuat tutorial sederhana tentang bagaimana membuat sebuah login form untuk administrator, maupun operator yang lainnya. Dan didalam codingannya akan diselipkan beberapa tips dan trik.
    Ikuti Petunjuk Dibawah :


    1.  Jalankan program Delphi. 
    2.  Tambahkan 2 Label, 2 TEdit, dan 1 Button 
    3.  Atur property  untuk tiap komponen.




    4.  File --> New --> Form, untuk menambahkan sebuah form 
    5.  Simpan Project, untuk FrmLogin nya beri nama unit Ulogin, sedangkan untuk form yang
    baru dibuat cukup beri nama unitnya UHasilLogin. 
    6.  Atur Tampilannya seperti pada gambar.




    7.  Sekarang  buat database untuk menyimpan data loginnya. Gunakan basis data Microsoft Access.
    8.  Jalankan Microsoft Access 
    9.  File New Blank Database


    10.  Beri nama file dengan Data, kemudian Click Create,




    atau jika sekedar ingin membuat DB baru tanpa membuka Ms.Access, sobat bisa memakai script VBS ini, simpan dengan nama script.vbs pada text editor seperti notepad

    Dim DBFileName
    Dim objConnection,FSO
    Dim objDBFile
    
    Set objConnection = CreateObject("ADOX.Catalog")
    Set FSO=CreateObject("Scripting.FileSystemObject")
    
    DBFileName=Trim(InputBox("Masukkan Filename Beserta Lokasi " _
     & "Database Yang Akan Dibuat", "JET Database Generator - Crowja","C:\DB_Baru.mdb"))
     
    If DBFileName <> Empty Then
      ' Buat Database Baru
     objConnection.Create "Provider = Microsoft.Jet.OLEDB.4.0; " & _
             "Data Source = " & DBFileName
             
     If FSO.FileExists(DBFileName) Then
      MsgBox "Database telah dibuat",vbInformation,"Success"
     End If
     
    End if

    11.  Buka databse barunya, lalu buat satu table, dengan nama tabelnya login. Gunakan Create table pada design view untuk membuat table
    12.  Buat 2 Field seperti gambar di bawah. Atur Field Size seperti yang diinginkan.


    13.  Isi  Satu  Data,  misalkan  username :  Admin, Password : Admin, kemudian Tutup Microsoft Access nya, Kembali Ke DELPHI
    14.  Tekan Shift + F12,  Klik 2x FrmLogin 
    15.  Masuk ke pallete ADO, dan tambahakan Satu ADOConnection, dan Satu ADOQuery. 
    16.  At ur Property Komponen Tersebut


    17.  Dan di bawah ini kode untuk form login

    ///////////////////////////////////////////////////////////////////  
    //// Author  : Elga Lesmana 
    //// E­Mail  : [email protected]  
    //// Website  : http://elgalesmana.net46.net 
    //// ©copyright 2008 ilmukomputer.com  
    /////////////////////////////////////////////////////////////////// 
    
    unit ULogin; 
    
    interface 
    
    uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ADODB; 
    
    type
      TFrmLogin = class(TForm) 
       Label1: TLabel;
       edusername: TEdit;
       Label2: TLabel;
       edpassword: TEdit;
       Button1: TButton;
       ADOQuery1: TADOQuery;
       ADOConnection1: TADOConnection; 
       procedure Button1Click(Sender: TObject);
       procedure FormCreate(Sender: TObject); 
      private  
       { Private declarations } 
      public  
       { Public declarations } 
    end; 
    
    var  FrmLogin: TFrmLogin; 
    
    implementation  
    uses 
    // XPMan agar tampilan form seperti button mengikuti theme pada windows  
    // Tambahkan unit UHasilLogin ke ULogin dengan menekan Alt + F11, atau dengan 
    // mengetiknya saja
     
    XPMan, UHasilLogin; 
    
    {$R *.dfm}
    
    procedure TFrmLogin.FormCreate(Sender: TObject);  
    var 
      s : Char;  
      alamatdb : WideString; 
    begin  
    
       // Manipulasi cursors crSQLWait agar tidak tampil 
       Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault]; 
    
       // atur tampilan form  
       s := '*'; 
       edusername.Text := '';
       edpassword.PasswordChar := s; 
       edpassword.Text := ''; 
    
       // atur koneksi pada ADOConnection
       // script ini berguna untuk mengatur koneksi database pada aplikasi 
       // agar aplikasi dapat memproses database yang dipilih di komputer  
       // manapun tanpa harus mempunyai path/alamat database yang sama. 
    
       alamatdb := ExtractFilePath(Application.ExeName) + 'data.mdb';  
       with ADOConnection1 do begin 
         Connected := False;
         LoginPrompt := False; 
         Mode := cmShareDenyNone;
         ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + 
         alamatdb + ';Persist Security Info=False';  
       end; 
    
       ADOConnection1.Connected := True;  
    end; 
    
    procedure TFrmLogin.Button1Click(Sender: TObject);  
    begin 
       with ADOQuery1 do begin  
         Close; 
         SQL.Clear; // bersihkan perintah sql jika ada  
         SQL.Add('select * from login where username='+  
         QuotedStr(edusername.Text));  
         Open; 
       end; // end with 
    
       // jika tidak ditemukan data yang dicari maka
       // tampilkan pesan 
       if ADOQuery1.RecordCount = 0 then
         Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',
         MB_OK or MB_ICONINFORMATION) 
       else begin  
         if ADOQuery1.FieldByName('password').AsString <> edpassword.Text then 
           Application.MessageBox('Pastikan username atau password benar',  
           'Error', MB_OK or MB_ICONERROR) 
         else begin  
            Hide;
            Form1.Show; 
         end  
       end; 
    end; 
    
    end.


    18.  Tambahkan code Application.Terminate untuk button yang berada di unit uHasilLogin. 
    19.  Compile Program dan Lihat hasilnya

    Jika sobat tidak sempat untuk membuatnya, disini saya sertakan source code beserta e-book (dalam b.indonesia) nya untuk sobat baca.
    Jangan malas membaca yaaa.....

    Crowja-Coderz

    Diadaptasi oleh artikel Elga Lesmana dengan sedikit perubahan
    info: [email protected],
    http://elgalesmana.net46.net


    SELAMAT  MENCOBANYA
    Jangan Lupa Komentar Yaa..
    Related Posts Plugin for WordPress, Blogger...

    4 Komentar Untuk “[Dephi] Membuat Form Login Dengan Delphi Dan Basis Data Microsoft Access”

    Anonim mengatakan...

    Kamis, 23 Desember 2010 23.41.00 WIB Reply To This Comment

    Mumpung lewat neh bang... hehe...
    Mau Tanya neh.. kebetulan liat jadi pengen nanya- nanya mengenai Delphi... maklum masih newbe..

    Bagaimana caranya mengkoneksikan AdoTable apabila ms acces memiliki password...???

    Jawabannya sy tunggu di emailku bagaimana bang ([email protected])


    Nurkholish Ardi Firdaus mengatakan...
    Jumat, 24 Desember 2010 10.41.00 WIB Reply To This Comment

    Untuk mengkoneksi database access yang terproteksi password, tinggal diganti properti connection string menjadi:

    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=passwordnya;Data Source=E:\DB_Baru.mdb;Mode=Read;Persist Security Info=True'

    Jika Usernamenya lain (Bukan Admin), maka

    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=passwordnya;User ID=UsernameNya;Data Source=E:\DB_Baru.mdb;Mode=Read;Persist Security Info=True'

    Kode tersebut ada di baris ke 68 pada code listening

    Lalu bagaimana jika passwordnya sobat tidak tahu???. tinggal lihat saja di posting

    Hacking Password Database Access Dengan Advance Office Password Recovery :
    http://www.cr0wja.co.cc/2010/12/hacking-password-database-access-denagn.html


    uchiha mengatakan...

    Rabu, 20 April 2011 17.33.00 WIB Reply To This Comment

    thank eah gan bukux,klo bs ad yang bhs indo keren tuch heheheh smangat update trus ea


    Nurkholish Ardi Firdaus mengatakan...
    Rabu, 20 April 2011 23.58.00 WIB Reply To This Comment

    @uchiha sama-sama.. makasih dukungannya,, saya usahakan terus update ^_^


    Posting Komentar

    Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe

    Subscribe