Mungkin Yang Anda Cari Ada di Sini
Minggu, 03 Oktober 2010
membuat login check
Membuat login check
Saya baru di dunia Delphi. Gimana sih bikin login check di dalam pemrograman Delphi pada procedure FormShow. Dimana di dalam procedure tersebut kita bisa tahu usernya sebagai siapa dan passwordnya sebagai siapa. Terima kasih sebelumnya... [Agus Kurniawan]
Jawaban
Pada dasarnya kita harus mempunyai daftar username dan password apa saja yang dapat melakukan akses ke sistem kita, dan hasil masukan dari user kita bandingkan dengan list username dan password yg kita punyai.
procedure FormShow;
function BandingkanDenganList(User,Password: string): boolean;
begin
..
..
end;
begin
PasswordDlg.ShowModal;
if PasswordDlg.ModalResult = mrOK then
if
BandingkanDenganList(PasswordDlg.Edit1.Text, PasswordDlg.Edit2.Text)
then
ShowMessage('AUTHENTICATION OK') else
ShowMessage('AUTHENTICATION FAIL');
end;
Semoga membantu...
-----------------------------------------------------------
WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,
SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC
PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO
-----------------------------------------------------------
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar