Form Login dan Sign Up berbasis Database dengan Delphi 7

Sesuai dengan request saudara indra kemaren pada postingan saya sebelumnya,tentang membuat form login sederhana dengan delphi 7.beliau menanyakan kepada saya,bagaimana cara menambahkan form sign up pada tampilan form login tersebut.

untuk menambahkan form sign up pada form login tersebut.pembaca perlu membuat 1 database terlebih dahulu..sebagai tempat penyimpanan data member/anggota yang nantinya melakukan registrasi dan pembaca juga perlu untuk menambahkan minimal 2 form tambahan..1 untuk form registrasi member dan yang satunya lagi untuk form konfirmasi.

disini saya masih menggunakan cara yang sederhana..berhubung karna saya juga masih dalam tahap belajar..hehehe, kalo tampilan form login yang saya buat sebelumnya seperti gambar dibawah ini :

Berarti pebaca perlu manmbahkan satu label lagi yang berfungsi sebagai link ke menu registrasi anggota yang akan kita buat nantinya.cara pembuatannya klik pada tab standard > label(StdCtrls) kemudian pada tab propertiesnya,rubah textnya misalnya “ klik disini untuk registrasi”.
Untuk pembuatan database member,berikut langkah – langkahnya :
1. Start > all program > borland delphi 7 > database desktop hingga
muncul tampilan seperti berikut :

2. Kemudian buat tabel baru dengan mengklik file > New > tabel jika
muncul tampilan confirmasi tekan ok aja..
3. Setelah itu isi field namenya seperti berikut :

4. Setelah itu save dengan nama user

Nah sekarang tinggal mengisi database yang sudah anda buat tadi..berikut langkah – langkah pengisiannya
1. Buka pada tampilan database desktop tadi,klik file > open > table
kemudian cari database yang sudah anda buat..
2. Setelah itu klik pada tab edit data dan masukkan isikan data hingga seperti
gambar berikut :

pembaca tinggal membuat alias dari database yang baru pembaca buat tadi.caranya sebagai berikut :
1. Buka database yang sudah pembaca buat tadi dengan mengklik file > open
> tabel
2. Setelah itu klik pada tab Tools > alias manager hingga muncul tampilan
seperti gambar berikut :

3. Klik tab new dan buat database alias baru dengan nama “user” kemudian klik
tab keep New dan tekan ok.

Sekarang anda sudah berhasil membuat database baru beserta alias databasenya..

Untuk membuat form registrasi member,berikut langkah – langkahnya :
1. Buka aplikasi delphi anda, kemudian cari form sign in yang sudah anda buat..jika belum tahu cara pembuatannya,silahkan baca postingan sebelumnya..klik disini.
2. Setelah itu,buat form baru dengan nama register..kemudian letakkan 4 buah componen DBEdit,4 buah label dan 2 buah button,dan jangan lupa, letakkan 1 buah componen table pada Tab BDE dan componen data source pada tab Data acces.setelah itu rubah masing – masing caption dari componen – componen tadi hingga tampilannya seperti gambar berikut :

Atur Properti Komponen Tabel:

• Properti Komponen Tabel yang dirubah :

Name : Tdftr
DatabaseName : user
TableName : user.db
Active : True

• Properti Komponen Data Source yang dirubah :

Dataset : Tdftr
Name : DataSource1
Kemudian pada componen DBEdit atur properti seperti berikut :
DataSource : DataSource1
DataField : atur sesuai dengan urutan label gambar diatas

Setelah itu klik 2x pada button daftar, lalu paste code berikut :

Tdftr.Append; // Meminta Record Baru BTambah.Enabled:=true; // Tombol aktif

BBatal.Enabled:=true; end;

Kemudian klik 2x pada tombol batal dan paste code berikut :

begin

Tdftr.Cancel;

BTambah.Enabled:=true; // Tombol aktif

BBatal.Enabled:=false;

end;

Nah..sekarang anda kembali kepada Form login, buat form baru lagi,rubah nama Form tersebut dengan “msg” kemudian save dengan nama msg juga,Edit tampilan formnya seperti gambar berikut :

Form ini akan tampil ketika user/anggota menginputkan user name dan password dengan benar..

Terakhir,anda kembali ke form login,kemudian tempelkan 1 buah componen table dan rubah propertinya seperti berikut :

• Properti Komponen Tabel yang dirubah :

Name : Tdftr
DatabaseName : user
TableName : user.db
Active : True

Setelah itu klik pada tombol login,dan paste code berikut :

if (Enama.Text =Tdftr.Fields[0].AsString) or (EPassword.Text=Tdftr.Fileds[0].AsString) then

begin

MessageDlg('Maaf user name atau password anda salah', MTWarning, [MBOK], 0);

Exit;

end;

Fmsg.Show

end;

untuk code pada tombol batal..anda tinggal mengcopy code pada tombol batal yang ada pada form registrasi diatas,karna funginya sama saja..
selesai.

Note :
untuk membuat link sign up pada form login,klik 2x pada label yang tadi anda tambahkan kemudian copy code berikut : fregister.show

semoga bisa membantu

• Twitter
• Facebook
• Google