Saturday, 28 January 2017T1/28/2017 10:48:00 pm

PROGRAM APLIKASI PENYEWAAN HOTEL MENGGUNAKAN DELPHI

Salam blogger…..pada postingan kali ini saya akan share cara membuat program aplikasi penyewaan hotel / penginapan sederhana dengan Delphi. Aplikasi ini dibuat sebagai simulasi untuk memenuhi kebutuhan system yang ada pada suatu usaha yang bergerak di bidang jasa penyewaaan kamar di bidang perhotelan. Disini saya akan menjelaskan cara membuat fitur transaksi sewa kamar pada suatu hotel. Program ini hanya sebagai contoh yang sederhana sehingga sobat masih dapat mengembangkan program aplikasi ini. Disini saya membuat program aplikasi hotel ini dengan menggunakan software Delphi versi XE, selain di Delphi XE, aplikasi ini juga bisa dibuat di semua versi Delphi , baik itu Delphi 7, Delphi 2010, Delphi 10 dan Delphi versi lainnya.
Untuk mempersingkat waktu langsung saja saya akan menjelaskan langkah langkah pembuatanya, pertama – tama sobat buat project baru pada Delphi sobat, adapun komponen yang dipakai adalah sebagai berikut :
 - 3 buah groupbox
 - 1 buah panel
 - Label
 - Edit text
 - Radio button
 - Combobox
 - 4 buah Button
 - Datetimepicker
Selanjutnya masukan komponen diatas kedalam form yang sudah dibuat sebelumnya, lalu design tampilan form nya seperti pada gambar dibawah ini:
Jika sudah dibuat tampilan design formnya, maka selanjutnya kita tinggal memberikan coding program pada aplikasi tersebut agar dapat dijalankan, masukan coding program lengkap dibawah ini :
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.Buttons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox3: TGroupBox;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    GroupBox4: TGroupBox;
    Panel1: TPanel;
    Label12: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label13: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure DateTimePicker2CloseUp(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
  function GenerateID(T: TDateTime): string;
  procedure aktif;
  procedure nonaktif;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.aktif;
begin
edit2.Enabled:=true;
edit4.Enabled:=true;
datetimepicker1.Enabled:=true;
radiobutton1.Enabled:=true;
radiobutton2.Enabled:=true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
aktif;
edit1.Text:=GenerateID(now);
edit2.SetFocus;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
nonaktif;
edit1.Text:='';
edit2.Text:='';
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
edit4.Text:='';
edit8.Text:='';
edit9.Text:='';
edit5.Text:='0';
edit3.Text:='0';
edit6.Text:='0';
edit7.Text:='0';
combobox1.ClearSelection;
panel1.Caption:='';
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin Ingin Keluar Form??','Informasi',MB_ICONINFORMATION+MB_YESNO)=IDYES
then
application.Terminate;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var
biaya,lama,jumlah,diskon,bayar:integer;
begin
if ComboBox1.Text='VVIP' then
  Edit3.Text:='750000'
  else
  if ComboBox1.Text='VIP' then
  Edit3.Text:='500000'
  else
  if ComboBox1.Text='BISNIS' then
  Edit3.Text:='300000'
  else
  Edit3.Text:='200000';
begin
biaya:=strtoint(edit3.Text);
lama:=strtoint(edit5.Text);
jumlah:=biaya*lama;
edit6.Text:=inttostr(jumlah);
if lama>=3 then
begin
  diskon:=jumlah*10 div 100;
  edit7.Text:=inttostr(diskon);
  end else
  edit7.Text:='0';
  begin
  bayar:=Jumlah-diskon;
  panel1.Caption:='Rp. '+inttostr(bayar);
end;
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
var
biaya,lama,jumlah,diskon,bayar:integer;
begin
if ComboBox1.Text='VVIP' then
  Edit3.Text:='750000'
  else
  if ComboBox1.Text='VIP' then
  Edit3.Text:='500000'
  else
  if ComboBox1.Text='BISNIS' then
  Edit3.Text:='300000'
  else
  Edit3.Text:='200000';
begin
biaya:=strtoint(edit3.Text);
lama:=strtoint(edit5.Text);
jumlah:=biaya*lama;
edit6.Text:=inttostr(jumlah);
if lama>=3 then
begin
  diskon:=jumlah*10 div 100;
  edit7.Text:=inttostr(diskon);
  end else
  edit7.Text:='0';
  begin
  bayar:=Jumlah-diskon;
  panel1.Caption:='Rp. '+inttostr(bayar);
  bitbtn4.Click;
end;
end;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
edit8.Text:=datetostr(datetimepicker1.Date);
end;

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
datetimepicker2.Enabled:=true;
end;

procedure TForm1.DateTimePicker2Change(Sender: TObject);
var
x,y,z:real;
begin
edit9.Text:=datetostr(datetimepicker2.Date);
x := strtodate(edit9.Text);
y := strtodate(edit8.Text);
z := x - y;
edit5.Text:=floattostr(z);
end;

procedure TForm1.DateTimePicker2CloseUp(Sender: TObject);
begin
combobox1.Enabled:=true;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
nonaktif;
end;

function TForm1.GenerateID(T: TDateTime): string;
var
Yr, Mn, Dy : Word;
Hr, Mnt, Sec, MSec : Word;
Begin
DecodeDate(T, Yr, Mn, Dy);
DecodeTime(T, Hr, Mnt, Sec, MSec);
Result := FormatFloat('00', Yr-2000) + FormatFloat('00', Mn) +
FormatFloat('00', Dy) + FormatFloat('00', Hr) +
FormatFloat('00', Mnt) + FormatFloat('00', Sec) +
FormatFloat('00', MSec);
end;

procedure TForm1.nonaktif;
begin
edit1.Enabled:=false;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
edit7.Enabled:=false;
edit8.Enabled:=false;
edit9.Enabled:=false;
radiobutton1.Enabled:=false;
radiobutton2.Enabled:=false;
datetimepicker1.Enabled:=false;
datetimepicker2.Enabled:=false;
combobox1.Enabled:=false;
end;
end.

Jika coding programnya sudah di buat, maka selanjutnya sobat tinggal menjalankan programnya dengan cara menekan F9/RUN. selanjutnya sobat tinggal klik button new untuk membuat transaksi baru, lalu inputkan nama penyewa, jenis kelamin, alamat, tanggal cek in, tanggal cek out, pilih jenis kamar, lalu tekan button hitung, maka pada program aplikasi tersebut akan menampilkan jumlah pembayaran yang harus dibayar penyewa kamar. (lihat gambar tampilan aplikasi diatas).

Demikian postingan yang dapat saya share kali ini tentang bagaimana cara membuat program aplikasi penyewaan hotel mengunakan Delphi, silahkan sobat kembangkan sendiri, semoga artikel saya kali ini dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "PROGRAM APLIKASI PENYEWAAN HOTEL MENGGUNAKAN DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status