Bagaimana sih , membuat sebuah program Delphi ? Nah disini saya sedikit berbagi program yang sederhana yaitu tentang program Rental Film. Program ini sangat sederhana, karena saya sendiri juga masih dalam tahap belajar jadi harap maklum ya hehehe kalo misalkan tampilannya kurang menarik. Silahkan download programnya pada link dibawah.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Image1: TImage;
MainMenu1: TMainMenu;
G1: TMenuItem;
Comedy1: TMenuItem;
Comedy2: TMenuItem;
Horror1: TMenuItem;
Romance1: TMenuItem;
Peminjaman1: TMenuItem;
Exit1: TMenuItem;
Exit2: TMenuItem;
ProgramParkir1: TMenuItem;
Cartoon1: TMenuItem;
Label2: TLabel;
Timer1: TTimer;
procedure Comedy1Click(Sender: TObject);
procedure Animasi1Click(Sender: TObject);
procedure Comedy2Click(Sender: TObject);
procedure Horror1Click(Sender: TObject);
procedure Romance1Click(Sender: TObject);
procedure Peminjaman1Click(Sender: TObject);
procedure Exit2Click(Sender: TObject);
procedure ProgramParkir1Click(Sender: TObject);
procedure Cartoon1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
procedure TForm1.Comedy1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.Animasi1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.Comedy2Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.Horror1Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.Romance1Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.Peminjaman1Click(Sender: TObject);
begin
Form7.ShowModal;
end;
procedure TForm1.Exit2Click(Sender: TObject);
begin
if MessageDlg('Apakah Anda Yakin Ingin Keluar?',mtConfirmation,mbOKCancel,0)=mrOK then
Application.Terminate;
end;
procedure TForm1.ProgramParkir1Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.Cartoon1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Font.Color := Trunc(clBLUE*random);
end;
end.
=====================================================================
Untuk Seluruh Projectnya Silahkkan Download Disini
