Delphi 7, Log In menggunakan database....
Posting
an kali ini saya akan mencoba memberikan sedikit cara untuk membuat Program Log In, disini masih menggunakan delphi 7, selain itu menggunakan Database Dekstop untuk membuat databasenya agar bisa diakses oleh delphi 7.
an kali ini saya akan mencoba memberikan sedikit cara untuk membuat Program Log In, disini masih menggunakan delphi 7, selain itu menggunakan Database Dekstop untuk membuat databasenya agar bisa diakses oleh delphi 7.
Beberapa file database seperti, File Database : File database dari sistem database lain seperti Dbase (*.dbf), Paradox (*.db), Microsoft Access (*.mdb), dan lain-lain. Bisa digunakan, tetapi disini saya membuat file dengan Paradox(*.db),
Langsung saja kita mulai,
Cara pembuatan tabel dalam Database Desktop :
1. Buat Sebuah Folder dengan nama Log In.
2. Buka program Database Desktop
3. Setelah terbuka Pilih menu File – New – Table sehingga akan muncul dialog berikut yang akan menanyakan tabel jenis apa yang akan dibuat apakah paradox atau dbase atau yang lain, disini saya akan menggunakan paradox 7, kemudian tekan OK.
4. Maka akan muncul window pembuatan tabel seperti berikut :
Jenis field-field dalam Paradox yang sering dipakai :
5. Untuk Pengisian data, anda bisa buka kembali tabel yang sudah dibuat tadi melalui Database Dekstop, Buka Database Dekstop, kemudian pilih File – Open – Table ,Pilih admin.db
6. Setelah terbuka tabelnya, selanjutnya klik komponen Edit Data , kemudian isikan data seperti gambar dibawah
7. Tutup table dan Database Dekstop,.
8. Buka Delphi 7, untuk pembuatan Form saya sudah jelaskan pada postingan dengan judul “Trik Desain Form Delphi 7”, simpan Project nya pada Folder Log in,,
9. Buat suatu aplikasi Data Module dengan File – New – Data Module, property nama DM , kemudian save dengan nama file UDM.pas
10. Tempatkan sebuah komponen Table dari component palette Data Access, Ganti property berikut :
11.Tempatkan sebuah komponen DataSource dari component palette Data Access ,Ganti property berikut :
12. Doubleklik pada Tadmin, klik kanan pilih Add All Fields.
13. Setelah Selesai, save all.
14. Kemudian buat form baru, File - New - Form, save dengan nama form fadmin, dan nama file fadmin.pas
15. Tempatkan sebuah komponen DBGrid dari component palette Data Controls, sebelum menngisi property pada DBGrid, kita kenalkan dulu fadmin dengan UDM, caranya dengan File – Use Unit lalu pilih UDM, lalu klik ok,
16. kemudian ganti Property berikut pada DBGrid :
17. Buka kembali form flogin, dengan menekan tombol shift+f12, lalu pilih flogin
18. Setelah muncul form flogin seperti gambar diatas, doubleklik pada bitbtn ok, kemudian isikan Procedure berikut.
procedure TFLogIn.okClick(Sender: TObject);
begin
DM.TAdmin.First;
while not DM.TAdmin.eof do
begin
if (DBUser.Text = DM.TAdmin['User Name']) and (DBPassword.Text = DM.TAdmin['Password']) then
begin
Application.MessageBox('Silahlkan anda konfirmasi','Warning!!!',MB_OK);
fadmin.showmodal;
exit;
end;
DM.TAdmin.Next;
if (EUser.Text = DM.TAdmin['User Name']) and (EPassword.Text = DM.TAdmin['Password']) then
begin
Application.MessageBox('Silahkan anda konfirmasi','Warning!!!',MB_OK);
fadmin.showmodal;
exit;
end;
if DM.TAdmin.Eof then
begin
Application.MessageBox('Periksa User Name dan Password anda ','Warning',MB_OK);
EPassword.Text := '';
DBPassword.setFocus;
end;
end;
19. Save All
20. Run
21. Selesai.......
Huh melahkan ternyata,,,,... semoga postingan kali ini bermanfaat bagi para pengujung blog ini,,,amin saran, kritik dan komentar saya tunggu,,, .
6 komentar:
klo login multi-user yg bisa sign-up kyk web gmna bro ??
data basenya pke Sql..
mohon bantuannya
mas mksd nama DB'a ntu buat nama label tau gmn???
gan, ket'a kurang lengkap?ane binund ntu yg di DBUser'a???
nice info gan
terima kasih atas postingannya referensi yang sangat bagus :)
kok scripnya gak bisa bro
Posting Komentar