Listing Program Laporan Akhir Database Pada Delphi

berikut ini adalah Listing Program Laporan Akhir Database Pada Delphi:

procedure TForm1.FormCreate(Sender: TObject);

var pass:string;

begin

  pass:=inputbox('Admin','masukkan password','input.password');

  if pass <>'rosiyana' then

  begin

  messagedlg('akses ditolak',MtWarning,[MBok],0);

  application.Terminate

  end;

 

end;

end.