Hotel Bintang

unit hotel;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    ComboBox1: TComboBox;

    Label4: TLabel;

    ComboBox2: TComboBox;

    Edit1: TEdit;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    GroupBox2: TGroupBox;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    ComboBox3: TComboBox;

    Edit2: TEdit;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    CheckBox3: TCheckBox;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure ComboBox3Change(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure CheckBox2Click(Sender: TObject);

    procedure CheckBox3Click(Sender: TObject);

  private

    { Private declarations }

  public

  procedure bersih;

  procedure aktif;

  procedure nonaktif;

    { Public declarations }

  end;

var

  Form1: TForm1;

  biaya : integer;

implementation

{$R *.dfm}

procedure Tform1.bersih;

begin

  combobox1.Text := '';

  combobox2.Text := '';

  combobox3.Text := '';

  edit1.Text := '';

  edit2.Text := '';

  edit3.Text := '0';

  radiobutton1.Checked := false;

  radiobutton2.Checked := false;

  radiobutton3.Checked := false;

  checkbox1.Checked := false;

  checkbox2.Checked := false;

  checkbox3.Checked := false;

end;

procedure Tform1.aktif;

begin

  combobox1.Enabled := true;

  combobox2.Enabled := true;

  combobox3.Enabled := true;

  edit1.Enabled := true;

  edit2.Enabled := true;

  edit3.Enabled := true;

  radiobutton1.Enabled := true;

  radiobutton2.Enabled := true;

  radiobutton3.Enabled := true;

  checkbox1.Enabled := true;

  checkbox2.Enabled := true;

  checkbox3.Enabled := true;

end;

procedure Tform1.nonaktif;

begin

  combobox1.Enabled := false;

  combobox2.Enabled := false;

  combobox3.Enabled := false;

  edit1.Enabled := false;

  edit2.Enabled := false;

  edit3.Enabled := false;

  radiobutton1.Enabled := false;

  radiobutton2.Enabled := false;

  radiobutton3.Enabled := false;

  checkbox1.Enabled := false;

  checkbox2.Enabled := false;

  checkbox3.Enabled := false;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

nonaktif;

bersih;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

aktif;

bersih;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

var

a : integer;

begin

combobox2.Items.Clear;

  if combobox1.Text = '1' then

    begin

       for a := 100 to 175 do combobox2.Items.Add(inttostr(a));

    end

  else if combobox1.Text = '2' then

    begin

       for a := 200 to 250 do combobox2.Items.Add(inttostr(a));

    end

  else if combobox1.Text = '3' then

    begin

       for a := 300 to 320 do combobox2.Items.Add(inttostr(a));

    end;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if combobox1.Text = '1' then

  edit1.Text := '175000'

else if combobox1.Text = '2' then

  edit1.Text := '250000'

else if combobox1.Text = '3' then

  edit1.Text := '400000';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if combobox1.Text = '1' then

  edit1.Text := '300000'

else if combobox1.Text = '2' then

  edit1.Text := '475000'

else if combobox1.Text = '3' then

  edit1.Text := '550000';

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if combobox1.Text = '1' then

  edit1.Text := '600000'

else if combobox1.Text = '2' then

  edit1.Text := '750000'

else if combobox1.Text = '3' then

  edit1.Text := '900000';

end;

procedure TForm1.ComboBox3Change(Sender: TObject);

begin

if combobox3.Text = 'SPA' then

  edit2.Text := '125000'

else if combobox3.Text = 'GYM' then

  edit2.Text := '75000'

else if combobox3.Text = 'BAR' then

  edit2.Text := '180000';

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked = true then

  biaya := biaya + 80000

else if checkbox1.Checked = false then

  biaya := biaya - 80000;

  edit3.Text := inttostr(biaya);

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if checkbox2.Checked = true then

  biaya := biaya + 150000

else if checkbox2.Checked = false then

  biaya := biaya - 150000;

  edit3.Text := inttostr(biaya);

end;

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

if checkbox3.Checked = true then

  biaya := biaya + 200000

else if checkbox3.Checked = false then

  biaya := biaya - 200000;

  edit3.Text := inttostr(biaya);

end;

end.