-
Notifications
You must be signed in to change notification settings - Fork 0
/
tugasakhir.~dpr
35 lines (32 loc) · 1.09 KB
/
tugasakhir.~dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program tugasakhir;
uses
Forms,
Siswa in 'Siswa.pas' {FSiswa},
Menu in 'Menu.pas' {MenuUtama},
OrangTua in 'OrangTua.pas' {FOrtu},
User in 'User.pas' {FUser},
Hubungan in 'Hubungan.pas' {FHubungan},
Semester in 'Semester.pas' {FSemester},
WaliKelas in 'WaliKelas.pas' {FWaliKelas},
Poin in 'Poin.pas' {FPoin},
Kelas in 'Kelas.pas' {FKelas},
Unit1 in 'Unit1.pas' {DataModule1: TDataModule},
Unit2 in 'Unit2.pas' {login},
Unit3 in 'Unit3.pas' {MenuUtamaAdmin};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(Tlogin, login);
Application.CreateForm(TMenuUtama, MenuUtama);
Application.CreateForm(TFSiswa, FSiswa);
Application.CreateForm(TFOrtu, FOrtu);
Application.CreateForm(TFUser, FUser);
Application.CreateForm(TFHubungan, FHubungan);
Application.CreateForm(TFSemester, FSemester);
Application.CreateForm(TFWaliKelas, FWaliKelas);
Application.CreateForm(TFPoin, FPoin);
Application.CreateForm(TFKelas, FKelas);
Application.CreateForm(TMenuUtamaAdmin, MenuUtamaAdmin);
Application.Run;
end.