Delphi UAS 2

Ketentuan Program :
1. Tanggal Check In tampil otomatis berdasarkan tanggal sistem.
2. Pilih Kode Kamar maka Nama Kamar akan tampil sesuai dengan Kode Kamar yang dipilih.

Kode Kamar	Nama Kamar
AGR01	Anggrek
DHL02	Dahlia
MWR03	Mawar

3.    Harga Kamar ditentukan berdasarkan Jenis dan Tipe Kamar.

Jenis Kamar	Tipe Kamar
	Suite	Bisnis	President
Single	200000	300000	500000
Double	400000	500000	800000
Family	600000	800000	100000

4.    Input lama Inap, ketika dienter maka Tanggal Check Out dan Total Bayar akan tampil.

Tanggal Check Out    = Tanggal Check In + Lama Inap

Total Bayar                 = Harga kamar + Lama Inap

Script Program :

procedure Tfrmpenginapan.FormActivate(Sender: TObject);

begin

etglcheckin.Text := datetostr(date);

cmbkdkamar.Items.Add('AGR01');

cmbkdkamar.Items.Add('DHL02');

cmbkdkamar.Items.Add('MWR03');

listjenis.Items.Add('Single');

listjenis.Items.Add('Double');

listjenis.Items.Add('Family');

end;

procedure Tfrmpenginapan.cmbkdkamarClick(Sender: TObject);

begin

if cmbkdkamar.Text = 'AGR01' then

   ekamar.Text := 'Anggrek'

else

if cmbkdkamar.Text = 'DHL02' then

   ekamar.Text := 'Dahlia'

else

   ekamar.Text := 'Mawar';

end;

procedure Tfrmpenginapan.rsuiteClick(Sender: TObject);

begin

if listjenis.ItemIndex = 0 then

   eharga.Text := '200000'

else

if listjenis.ItemIndex = 1 then

   eharga.Text := '400000'

else

   eharga.Text := '600000';

end;

procedure Tfrmpenginapan.rbisnisClick(Sender: TObject);

begin

if listjenis.ItemIndex = 0 then

   eharga.Text := '300000'

else

if listjenis.ItemIndex = 1 then

   eharga.Text := '500000'

else

   eharga.Text := '800000';

end;

procedure Tfrmpenginapan.rpresidentClick(Sender: TObject);

begin

if listjenis.ItemIndex = 0 then

   eharga.Text := '500000'

else

if listjenis.ItemIndex = 1 then

   eharga.Text := '800000'

else

   eharga.Text := '1000000';

end;

procedure Tfrmpenginapan.elamaKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

   begin

   etglcheckout.Text := datetostr(strtodate (etglcheckin.Text)+strtoint(elama.Text));

   etotbay.Text := inttostr(strtoint(eharga.Text)

                   *strtoint(elama.Text));

   end

end;

procedure Tfrmpenginapan.bbaruClick(Sender: TObject);

begin

enama.Text := '';

etglcheckin.Text := '';

cmbkdkamar.Text := '--Kode Kamar--';

ekamar.Text := '';

listjenis.Selected [0]:= false;

rsuite.Checked := false;

rbisnis.Checked := false;

rpresident.Checked := false;

eharga.Text := '0';

elama.Text := '0';

etglcheckout.Text := '';

etotbay.Text := '0';

end;

procedure Tfrmpenginapan.bkeluarClick(Sender: TObject);

begin

if(application.MessageBox('Yakin Mau Keluar...?','Konfirmasi',mb_yesno)=idyes) then

close;

end;