Aplikasi Perpustakaan - Edisi 10 - Final Form (Form Startup & Source Project)

Program Perpustakaan.

Tampilan Menu Utama

1. Membuat Source Project.

Selanjutnya untuk penyempurna dari aplikasi itu sendiri, kalian bisa menambahkan module dan memasukan source project di bawah ini.

source code:

1: program Project1;
2:
3: uses
4: Forms,
5: Unit1 in 'Unit1.pas' {Form_Startup},
6: Unit2 in 'Unit2.pas' {Form_Utama},
7: Unit3 in 'Unit3.pas' {Form_Login},
8: Unit4 in 'Unit4.pas' {Form_AnggotaBaru},
9: Unit5 in 'Unit5.pas' {Form_Peminjaman},
10: Unit6 in 'Unit6.pas' {Form_Pengembalian},
11: Unit7 in 'Unit7.pas' {Form_DataBuku},
12: Unit8 in 'Unit8.pas' {Form_DataAnggota},
13: Unit9 in 'Unit9.pas' {Form_DataPeminjaman},
14: Unit10 in 'Unit10.pas' {Form_Tentang};
15:
16: {$R *.res}
17:
18: begin
19: Application.Initialize;
20: Application.Title := 'Mendoan Library System';
21: Application.CreateForm(TForm_Startup, Form_Startup);
22: Application.CreateForm(TForm_Login, Form_Login);
23: Application.CreateForm(TForm_Utama, Form_Utama);
24: Application.CreateForm(TForm_AnggotaBaru, Form_AnggotaBaru);
25: Application.CreateForm(TForm_Peminjaman, Form_Peminjaman);
26: Application.CreateForm(TForm_Pengembalian, Form_Pengembalian);
27: Application.CreateForm(TForm_DataBuku, Form_DataBuku);
28: Application.CreateForm(TForm_DataAnggota, Form_DataAnggota);
29: Application.CreateForm(TForm_DataPeminjaman, Form_DataPeminjaman);
30: Application.CreateForm(TForm_Tentang, Form_Tentang);
31: Application.Run;
32: end.

2. Membuat Form tentang atau penjelasan.

Setelah kalian memasukan source project di atas, sekarang kalian membuat form about agar aplikasi terlihat sempurna dan mempunyai nilai hak privacy. 

source code:

1: unit Unit10;
2:
3: interface
4:
5: uses
6: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7: Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, acPNG;
8:
9: type
10: TForm_Tentang = class(TForm)
11: GroupBox1: TGroupBox;
12: Label1: TLabel;
13: Label2: TLabel;
14: Image1: TImage;
15: BitBtn1: TBitBtn;
16: procedure BitBtn1Click(Sender: TObject);
17: procedure FormClose(Sender: TObject; var Action: TCloseAction);
18: private
19: { Private declarations }
20: public
21: { Public declarations }
22: end;
23:
24: var
25: Form_Tentang: TForm_Tentang;
26:
27: implementation
28:
29: uses unit2;
30:
31: {$R *.dfm}
32:
33: procedure TForm_Tentang.BitBtn1Click(Sender: TObject);
34: begin
35: close;
36: end;
37:
38: procedure TForm_Tentang.FormClose(Sender: TObject;
39: var Action: TCloseAction);
40: begin
41: Form_Utama.Panel1.Show;
42: end;
43:
44: end.

Oke, teman-teman itulah source code untuk aplikasi perpustakaan. Semoga aplikasi ini bisa bermanfaat, dan untuk kalian para programmer semoga bisa mengembangkan aplikasi perpustakaan ini dengan software-software lain.

Mungkin hanya sedikit ilmu yang bisa saya sampaikan, setidaknya semoga bisa bermanfaat buat kalian semua. Terimakasih.