PROJECT HOTEL STRING ( DELPHI 7 )

Atur masing-masing objek didalam properties sesuai dengan keinginan anda, maklum selera

setiap orang berbeda yang penting anda sesuaikan kode program dibawah ini dengan

properties objek yang anda berikan.

Skenario jalannya program

1. Ketika program pertama kali dijalankan, semua objek edit box dan combo box dalam keadaan nonaktif.

2. Klik Input maka objek didalam form aktif semua dan focus kursor berada pada no. reservasi. Tanggal tampil secara otomatis sesuai dengan tanggal system computer anda.

3. No. reservasi, no. KTP/SIM, dan nama tamu di input.

4. Isi dari kode kamar yaitu : Mawar01-A, Tulip02-B, Safir03-C.

5. Ketika kode kamar dipilih maka data kamar dan data biaya terisi. Dengan ketentuan sebagai berikut:

untuk data kamar 

• Nama kamar diambil dari 5 digit pertama kode kamar  
• Lantai diambil dari digit ke 6 dan 7 kode kamar  
• No diambil dari 1 digit terakhir  

Untuk data biaya

Nama kamar	Biaya per-hari	Biaya per-malam	Persen PPn
Mawar	750000	500000	5%
Tulip	900000	700000	10%
Safir	1100000	900000	15%

•  Biaya reservasi ditetapkan Rp. 100.000

6. Lama inap untuk berapa malam dan berapa hari menginap

7. Command hitung total untuk menghitung biaya total biaya.

    Total=total biaya permalam + total biaya perhari + biaya resevarsi + biaya PPN
8. Command Exit di klik maka form tertutup.

Kode Program

public

procedure aktif;

procedure nonaktif;

procedure bersih;

{ Public declarations }

end;

implementation

procedure tform1.bersih;

begin

eno.Clear;

ektpsim.Clear;

enmtamu.Clear;

combo1.ClearSelection;

enmkamar.Clear;

elantai.Clear;

enokamar.Clear;

eby_permalam.Text:='';

eby_perhari.Text :='';

eppn.Text:='';

elama.Text:='';

ehari.Text:='';

end;

procedure tform1.nonaktif;

begin

eno.Enabled:=false;

etgl.Enabled:=false;

ektpsim.Enabled:=false;

enmtamu.Enabled:=false;

                          combo1.Enabled:=false;

                        enmkamar.Enabled:=false;

                        elantai.Enabled:=false;

                        enokamar.Enabled:=false;

                        eby_permalam.Enabled:=false;

                        eby_perhari.Enabled:=false;

                        eby_reservasi.Enabled:=false;

                        eppn.Enabled:=false;

                        elama.Enabled:=false;

                        ehari.Enabled:=false;

                          end;

procedure tform1.aktif;

begin

eno.Enabled:=true;

ektpsim.Enabled:=true;

enmtamu.Enabled:=true;

combo1.Enabled:=true;

enmkamar.Enabled:=true;

elantai.Enabled:=true;

enokamar.Enabled:=true;

eby_permalam.Enabled:=true;

eby_perhari.Enabled:=true;

eppn.Enabled:=true;

elama.Enabled:=true;

ehari.Enabled:=true;

end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

nonaktif;

bersih;

etgl.Text :=datetostr(date);

combo1.Items.Add('Mawar01-A');

combo1.Items.Add('Tulip02-B');

combo1.Items.Add('Safir03-C');

eby_reservasi.Text :='100000';

end;

procedure TForm1.Combo1Click(Sender: TObject);

var

x:integer;

a,b,c:string;

begin

x:=length(combo1.text);

a:=copy(combo1.Text,1,5);

b:=copy(combo1.Text,6,2);

c:=copy(combo1.Text,9,1);

if (a='Mawar') then

begin

enmkamar.Text :='Mawar';

eby_perhari.Text:='750000';

eby_permalam.Text:='500000';

eppn.Text:='5';

end

else

if (a='Tulip') then

begin

enmkamar.Text :='Tulip';

eby_perhari.Text:='900000';

eby_permalam.Text:='700000';

eppn.Text:='10';

end

else

if (a='Safir') then

begin

enmkamar.Text :='Safir';

eby_perhari.Text:='1100000';

eby_permalam.Text:='900000';

eppn.Text:='15';

end;

if (b='01') then

elantai.Text :='01'

else

if (b='02') then

elantai.Text :='02'

else

if (b='03') then

elantai.Text :='03';

if (c='A') then

enokamar.Text :='A'

else

if (c='B') then

enokamar.Text :='B'

else

if (c='C') then

enokamar.Text:='C';

end;

procedure TForm1.BhitungClick(Sender: TObject);

var

a,b,c,d,totby:real;

begin

a:=strtofloat(eby_permalam.Text)*strtofloat(ehari.Text);

b:=strtofloat(eby_perhari.Text)*strtofloat(elama.Text);

c:=(strtofloat(eppn.Text)*strtofloat(eby_perhari.Text))/100;

d:=strtofloat(eby_reservasi.Text);

totby:=a+b+c+d;

etotby.Text:=floattostr(totby);

end;

procedure TForm1.BkeluarClick(Sender: TObject);

begin

close;

end;

procedure TForm1.BinputClick(Sender: TObject);

begin

aktif;

bersih;

eno.SetFocus;

end;

end.

ARIES

    Aries merupakan zodiak yang muncul pertama kali. Konon, Aries digambarkan sebagai domba  jantan atau biasa disebut Ram.Domba jantan itu dianggap sebagai jelmaan dari Dewa Mesir kuno bernama Amon. Dalam mitologi Yunani. Zodiak ini digambarkan sebagai domba yang bertanduk emas.Ceritanya, domba jantan itu dikorbankan untuk menyelamatkan seorang pangeran. Pangeran itu selamat. Karena pengorbanannya, Raja Zeus menempatkan sang domba dilangit sebagai bintang. Bintang itulah yang kemudian diberi nama Aries. 

Cari tahu zodiakmu ,,,agar tidak penasaran seumur hidupmu,,, =) 

Klik Link di bawah ini untuk mengetahui zodiak lainnya.. ( n_n )


 

Aries Horoscope Click here to view today's aries horoscope! DailyHoroscopes.net

Love Butterfly Forever ,,,,

❤ Kochou No Megami KIre!... ❤

^^,  ❤  ☆ ❤ Bagiku,,kupu-kupu itu bagaikan Sesosok Makhluk hidup yang pualink indahh,,akan eloknya,, pesona yang dipancarkannya begitu cantik bercahaya,,polos, anggun dan membawa suasana yang tentram dan damai akan kehidupannya,,,aku senang hidup dipenuhi kupu-kupu..apalagi kupu-kupu jepang hmm,,,anggunnya membuatku jatuh cinta ,,hmm,,,I Very like Butterfly japanase,,,Mmmmuaaacchhh,,,, ❤ ☆ ❤