Menu.~pas

unit Menu;

interface

uses
  Windows, Messages  , SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TMenuUtama = class(TForm)
    mm1: TMainMenu;
    OPEN1: TMenuItem;
    SISWA1: TMenuItem;
    ORANGTUA1: TMenuItem;
    STATUSHUBUNGAN1: TMenuItem;
    USER1: TMenuItem;
    KELAS1: TMenuItem;
    POIN1: TMenuItem;
    SEMESTER1: TMenuItem;
    WALIKELAS1: TMenuItem;
    CLOSE1: TMenuItem;
    procedure SISWA1Click(Sender: TObject);
    procedure ORANGTUA1Click(Sender: TObject);
    procedure STATUSHUBUNGAN1Click(Sender: TObject);
    procedure USER1Click(Sender: TObject);
    procedure CLOSE1Click(Sender: TObject);
    procedure WALIKELAS1Click(Sender: TObject);
    procedure POIN1Click(Sender: TObject);
    procedure KELAS1Click(Sender: TObject);
    procedure SEMESTER1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MenuUtama: TMenuUtama;

implementation

uses Siswa, OrangTua, Hubungan, User, WaliKelas, Poin, Kelas, Semester;

{$R *.dfm}

procedure TMenuUtama.SISWA1Click(Sender: TObject);
begin
FSiswa.ShowModal;
end;

procedure TMenuUtama.ORANGTUA1Click(Sender: TObject);
begin
FOrtu.ShowModal;
end;

procedure TMenuUtama.STATUSHUBUNGAN1Click(Sender: TObject);
begin
FHubungan.ShowModal;
end;

procedure TMenuUtama.USER1Click(Sender: TObject);
begin
FUser.ShowModal;
end;

procedure TMenuUtama.CLOSE1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TMenuUtama.WALIKELAS1Click(Sender: TObject);
begin
FWaliKelas.ShowModal;
end;

procedure TMenuUtama.POIN1Click(Sender: TObject);
begin
FPoin.ShowModal;
end;

procedure TMenuUtama.KELAS1Click(Sender: TObject);
begin
FKelas.ShowModal;
end;

procedure TMenuUtama.SEMESTER1Click(Sender: TObject);
begin
FSemester.ShowModal;
end;

end.