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
itu komponen yang digunakan apa saja gan?
BalasHapus