membuat login check

Index Konsultasi Delphi || Arsip Pertanyaan

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