Delphi7 (Membuat Menu Utama)

Tampilan Form

MainMenu(Menus)

1. Tambahkan Form Baru, dari Toolbars Standart Tampilkan object Mainmenu(Menus).
2. Klik kanan pada object Mainmenu(Menus), pilih Menu Designer
3. Pada jendela MainMenu1, ketik isi dari menu di Propeties pada Caption

Jendela MainMenu1

Listing/Coding :

implementation

uses Data_User, Data_Customer, Transaksi;

{$R *.dfm}

procedure TForm4.Barang1Click(Sender: TObject);

begin

Form1.Show;

end;

procedure TForm4.Customer1Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm4.Transaksi1Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm4.Exit1Click(Sender: TObject);

begin

close;

end;