Aplikasi Login Dengan Delphi 7

Yang satu ini aplikasi login yang saya buat kemaren, semoga bermanfaat, eh iya, databasenya pake SQL yog ya bisa di download disini aplikasinya. Untuk database disini yang saya isikan adalah username, password dan hak akses.

Berikut listing programnya:
procedure TForm1.BtLoginClick(Sender: TObject);
begin
with DM.QryLogin do
  begin
  Active:=False;
  Close;
  SQL.Clear;
  SQL.Text:='select * from tb_admin where username='+QuotedStr(edtUsername.Text);
  Open;
  end;

if DM.QryLogin.RecordCount = 0 then
begin
 MessageDlg('Username tidak ada!'+#13+ 'Silahkan Ulangi.',mtWarning, [mbOK], 0);
 edtUsername.Text:=' ';
 edtPass.Text:=' ';
 edtUsername.SetFocus;
 end

else
if DM.QryLogin.FieldByName('password').AsString <> edtPass.Text then

begin
 MessageDlg('Username atau Password Salah'+#13+ 'Silahkan Ulangi.',mtWarning, [mbOK], 0 );
 edtUsername.Text:=' ';
 edtPass.Text:=' ';
 edtUsername.SetFocus;
 end

else
  begin
    MessageDlg('Login Berhasil!' +#13+ 'Jangan Lupa Lougout Setelah selesai.',mtInformation, [mbOK], 0);

 if
DM.QryLogin.FieldByName('level').AsString='ADMIN' then
   begin
   form2.show;//kosongkan

   end
   else
if
DM.QryLogin.FieldByName('level').AsString='TATA USAHA' then
  begin
  form2.show;//kosongkan
   form2.Master1.Visible:=False;
    Form2.File1.Visible:=False;
  end
   else
if
DM.QryLogin.FieldByName('level').AsString='KEPSEK' then
  begin
  form2.show;//kosongkan
       form2.Master1.Visible:=False;
    Form2.transaksi1.Visible:=False;
    Form2.File1.Visible:=False;
  end
  else
if
DM.QryLogin.FieldByName('level').AsString='SISWA' then
  begin
  form2.show//kosongkan

  end

end;
end;

procedure TForm1.BtCancelClick(Sender: TObject);
begin
MessageDlg('SAMPAI JUMPA',mtInformation,[mbOK],0);
close;
end;

end.

Nah untuk koneksi ke databasenya koneksinya peke mydac bisa di download di footer link blog ini, dikoneksiin seperti biasa aja, pakenya MyConection,MyQuery dan MyDataSource..

Untuk pertanyaan lebih lanjut mengenai program ini silahkan komentar pada kolom komentar ya.. :)