Dawson

Contoh sederhana membuat log in di delphi

Contoh sederhana membuat log in di delphi

Ada contoh aplikasi dan source code untuk membuat Form Log In di Delphi. Tapi masih menggunakan Database Access. Ga usah bingung kalo kamu mau buat Form Log In pake Database yang lain,...
Karena pada dasarnya sama saja. Yang membuat beda hanya cara koneksi dari Delphi ke Database nya.

Berikut ini ada source code yang di letakkan pada Button dengan Event On Click :

//--------------------
procedure TFLogin.Button2Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(select * from tbl_user where user_name=+QuotedStr(Edit1.Text)+and user_pass=+QuotedStr(Edit2.Text)+);
ADOQuery1.Active:=true;

if ADOQuery1.RecordCount <> 0 then
begin
if ADOQuery1[status]=Administrator then
begin
Form1.Label1.Caption:=Selamat...+#13+Anda Log In Sebagai Administrator....;
form1.ShowModal;
end else
begin
Form1.Label1.Caption:=Selamat...+#13+Anda Log In Sebagai User biasa....;
form1.ShowModal;
end;
end else
begin
Application.MessageBox(Hahahahaha....+#13+User Tidak Terdaftar....,Error Log In,MB_OK);
exit;
end;
end;

//--------------------

Download Contoh Log In...


visit link download