Membuat Menu Login di Delphi Dengan Database MySQL

oke langsung aja...
pertama tama buka delphinya... disini ane pake Embarcadero XE 6...
kalo blom ada silahkan download disini


1. Pilih File - New - VCL Forms Application Delphi
2. lalu buat form seperti ini.

 bahan :

    2 label

    2 Edit          namenya = >   edit_user & edit_pass,, textnya kosongkan

    AdoQuery     ganti name =>  Q_login, Conectionnya =>AdoConnection1, Active => True

    AdoConnection

3. EITSS.. buat DATABASE duluu  :p

4. kalo gk tau caranya liat dipostingan sebelumnya

5. buat nama database = db_login

6. nama table = tb_login

• colom name = user, datatype = varchar, length = 10
• colom name = pass, datatype = varchar, length = 10

dah jadi kannn?? lanjutt..

balik lagi ke aplikasi..

7. setting ODBC nya... gak tau liat postingan sebelumnya

8. balik ke delphi -- setting adoconnectionnya

• LoginPrompt = False;
• ConnectionString atau klik 2x adoConnectionnya nanti muncul :

• klik builds trus pilih connection

• cari DSN yang sudah dibuat td di ODBC
• trus cari databasenya kmudian klik OK

9. klik tombol login dan masukkan listing berikut : 

 Q_login.SQL.Clear;

  Q_login.SQL.Add('select * from tb_login where user='+QuotedStr(Edit_user.Text)+'and pass='+QuotedStr(Edit_pass.Text)+'');

  Q_login.Active:=true;

  if Q_login.RecordCount <> 0 then

    begin

        Application.MessageBox('Anda Berhasil Login!','Info',MB_ICONEXCLAMATION);

        edit_user.clear;

        edit_pass.clear;

    end

    else

    if (Edit_user.Text='') or (Edit_pass.Text='') then

      begin

        Application.MessageBox('Data Tidak Boleh Kosong!','Info',MB_ICONEXCLAMATION);

        exit;

      end

    else

    begin

        Application.MessageBox('Username Atau Password Salah ! Mohon Diperiksa Kembali!','Info',MB_ICONEXCLAMATION);

        exit;

    end;

10. lanjut di running....  gua kasih juga nih source codenya disini

gampang kan... kalo ada yang bingung coret" aja ya gan....