Contoh Program Aplikasi Reservasi Hotel

Assalamualaikum Wr.wb

Disini saya ingin memberikan contoh program aplikasi reservasi hotel sederhana, yang di mana aplikasi sederhana ini sangat membantu dalam operasional hotel, selain memudahkan dalam mendata pelanggan yang melakukan check in di hotel, mengetahui jumlah diskon yang di dapat oleh customer, menghemat waktu dalam melakukan pendaatan pelanggan serta bisa melihat grafik rata - rata jumlah pelanggan yang melakukan check ini selama 1 minggu maupun 1 bulan bahkan 1 tahun, program aplikasi ini masih dalam proses pengembangan, oleh sebab itu mohon maaf apabila masih banyak kekurangan untuk program aplikasi Reservasi Hotel ini..

berikut untuk Source Codenya sbb :
unit hotel;

interface

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

type
  THotel = class(TForm)
    Panel1: TPanel;
    np: TLabel;
    ap: TLabel;
    lm: TLabel;
    tk: TLabel;
    hk: TLabel;
    st: TLabel;
    d: TLabel;
    th: TLabel;
    nama: TEdit;
    inap: TEdit;
    stotal: TEdit;
    diskon: TEdit;
    tharga: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    diskonbox: TGroupBox;
    d5: TRadioButton;
    d10: TRadioButton;
    d15: TRadioButton;
    d20: TRadioButton;
    d25: TRadioButton;
    d30: TRadioButton;
    tb: TLabel;
    p: TLabel;
    tbayar: TEdit;
    pembayaran: TEdit;
    kembalian: TEdit;
    k: TLabel;
    Save: TButton;
    Clear: TButton;
    tidak: TRadioButton;
    nk: TLabel;
    nkamar: TEdit;
    nt: TLabel;
    telpon: TEdit;
    Label1: TLabel;
    hkamar: TEdit;
    fasilitas1: TEdit;
    Edit1: TEdit;
    Laki: TRadioButton;
    Perempuan: TRadioButton;
    jk: TLabel;
    procedure ComboBox1Change(Sender: TObject);
    procedure ExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Hotel: THotel;

implementation

{$R *.dfm}

procedure THotel.ComboBox1Change(Sender: TObject);
var
hkamar : real;
fasilitas : string;
tipe : integer;

begin
tipe:= ComboBox1.ItemIndex;
case tipe of
Dulax: begin
hkamar := 600000;
fasilitas :='AC + Double bed + View Sunset + Breakfast + free fasilas isi Kulkas';
end;
superior: begin
hkamar := 900000;
fasilitas :='AC + Double bed + View Sunset + Breakfast + free fasilas isi Kulkas+free berendam air panas';
end;
standar: begin
hkamar := 400000;
fasilitas :='AC + single bed + Breakfast';
end;
end;
hk.Text:=FloatToStr(hkamar);
label1.text:=fasilitas1;
end;

procedure THotel.CloseClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure THotel.FormCreate(Sender: TObject);
begin

end;

end.


sekian dan terima kasih, apabila ada update terbaru mengenai program aplikasi Reservasi Hotel ini. akan langsung di upload.