Senin, 01 Juni 2015



Tutorial membuat Login Multi user dengan 3 level menggunakan Delphi
Pertama buat database yang berisi (nama,password dan Level)





Setelah selai lalu desain tampilan Log in seperti gambar berikut 




Setelah di desain pada Button doble clik lalu masukan scrip berikut :

procedure TForm2.Button1Click(Sender: TObject);

begin

Query1.SQL.Text:=' select*from login WHERE Nama = "'+Edit1.Text+'" and Pass ="'+Edit2.Text+'" ';

Query1.Open;

if Query1.RecordCount=0

then

Application.MessageBox('Maaf user name tidak ditemukan','informasi',MB_OK or MB_ICONINFORMATION)

else

begin

if Query1.FieldByName('pass').AsString<>Edit2.Text

then

Application.MessageBox('mastikan password yang anda masukkan benar','error',MB_OK or MB_ICONERROR)

else

begin



if Query1.FieldValues['Level']='admin' then

begin

form2.hide;

form1.Show;

end

else if Query1.FieldValues['Level']='mahasiswa' then

begin

form2.hide;

form3.Show;

end

else

begin

form2.hide;

form4.Show;

end;

end;

end;

end;

end.

Selamat mencoba



1 komentar: