Membuat Database Login User lavel Delphi 7

1. buka aplikasi Delphi dan buat 2 buah form.
2. form pertama berinama "Login" dan buat tampilan seperti berikut :

 

3. terdiri dari 3 label dan 3 edit 2 button.

4. klik pada buton login dan masukan kode berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select*from tbuser where username='+QuotedStr(Edit1.Text));
    Open;
  end;

  if ADOQuery1.RecordCount=0 then application.MessageBox('Maaf, username tersebut tidak ada!','informasi',MB_OK or MB_ICONINFORMATION)
  else begin
    if ADOQuery1.FieldByName('password').AsString<>Edit2.Text then Application.MessageBox('Pastikan username atau password anda benar !','Error',MB_OK or MB_iconerror)
    else begin


    if ADOQuery1.FieldByName('level').AsString<>Edit3.Text then Application.MessageBox('Masukkan user lavel atau  pastikan user level benar!','Error',MB_OK or MB_iconerror)
    else begin
     Form1.Hide;
     Form2.ShowModal;
     Application.Terminate;


    end


    end

  end;



end;

5. untuk Button Close masukan kode berikut:

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.

6. Untuk Database seperti berikut ;

 

selesai. semoga berhasil..