Jumat, 06 Mei 2016

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.





Tidak ada komentar:

Posting Komentar