Tampilan Antarmuka
Berikut adalah tampilan Antarmuka Aplikasi Pengolahan Data Penjualan Bunga Krisan di My Green Farm-Cipanas.
A. Antarmuka Login
Antarmuka login ini digunakan oleh Admin.Dimana admin akan mengakses atau menjalankn aplikasi ini guna untuk melakukan pengolahan data penjualan bunga krisan.
Source Code Login:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='admin') and (Edit2.Text='12345') then
form2.Show
else
MessageDlg('Username atau Password Salah!!!', mtWarning, [mbOK], 0)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MessageDlg('Anda yakin akan keluar ?', mtConfirmation, mbOKCancel,0);
close;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;
end.
begin
if (Edit1.Text='admin') and (Edit2.Text='12345') then
form2.Show
else
MessageDlg('Username atau Password Salah!!!', mtWarning, [mbOK], 0)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MessageDlg('Anda yakin akan keluar ?', mtConfirmation, mbOKCancel,0);
close;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;
end.
B. Antarmuka Menu Utama
Antarmuka ini digunakan oleh Admin. Admin akan bisa mengakses segala yang ada pada aplikasi ini.
David Ngadianto
5520111001
IF 11 A
