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
-----------------------------------------------------------

Tidak ada komentar:

Posting Komentar

Subscribe via email

Enter your email address:

Delivered by FeedBurner

Related Posts Plugin for WordPress, Blogger...
web metrics