Delphi 7 ( Bioskop RST )

Coding/Listing :



public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
etanggal.Enabled := true;
ejam.Enabled := true;
cbid.Enabled := true;
enama.Enabled := true;
cbkode.Enabled := true;
ejudul.Enabled := true;
ejenis.Enabled := true;
rbvip.Enabled := true;
rbreguler.Enabled := true;
rbekonomi.Enabled := true;
eharga.Enabled := true;
ejumlah.Enabled := true;
ebayar.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
etanggal.Enabled := false;
ejam.Enabled := false;
cbid.Enabled := false;
enama.Enabled := false;
cbkode.Enabled := false;
ejudul.Enabled := false;
ejenis.Enabled := false;
rbvip.Enabled := false;
rbreguler.Enabled := false;
rbekonomi.Enabled := false;
eharga.Enabled := false;
ejumlah.Enabled := false;
ebayar.Enabled := false;
end;

procedure TForm1.bersih;
begin
cbid.Text := '--Silakan Pilih--';
enama.Text := '';
cbkode.Text := '--Silakan Pilih--';
ejudul.Text := '';
ejenis.Text := '';
rbvip.Checked := False;
rbreguler.Checked := false;
rbekonomi.Checked := false;
eharga.Text := '0';
ejumlah.Text := '0';
ebayar.Text := '0';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ejam.Text := formatdatetime('H:M:S', now);
etanggal.Text := formatdatetime('dddd, dd-mm-yyyy', now);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
cbid.Items.Add('ID001');
cbid.Items.Add('ID002');
cbkode.Items.Add('KF001');
cbkode.Items.Add('KF002');
cbkode.Items.Add('KF003');
end;

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

procedure TForm1.cbidClick(Sender: TObject);
begin
if cbid.Text = 'ID001' then
begin
enama.Text := 'Dessy Octaviantry'
end
else
enama.Text := 'Aji';
end;

procedure TForm1.blagiClick(Sender: TObject);
begin
aktif;
bersih;
etanggal.Enabled := false;
ejam.Enabled := false;
end;

procedure TForm1.cbkodeClick(Sender: TObject);
begin
if cbkode.Text = 'KF001' then
begin
ejudul.Text := 'Rambo Marah2';
ejenis.Text := 'Action';
end
else if cbkode.Text = 'KF002' then
begin
ejudul.Text := 'Rambo Ngesot';
ejenis.Text := 'Horor';
end
else
begin
ejudul.Text := 'Rambo Sedih';
ejenis.Text := 'Drama';
end;
end;

procedure TForm1.rbvipClick(Sender: TObject);
begin
eharga.Text := '30000';
ejumlah.SetFocus;
end;

procedure TForm1.rbregulerClick(Sender: TObject);
begin
eharga.Text :='20000';
ejumlah.SetFocus;
end;

procedure TForm1.rbekonomiClick(Sender: TObject);
begin
eharga.Text := '10000';
ejumlah.SetFocus;
end;

procedure TForm1.ejumlahKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
ebayar.Text := inttostr(strtoint(eharga.Text) * strtoint(ejumlah.Text));
nonaktif;
end
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Mau Keluar?','Info',4+32+256)=6)then
close;
end;

end.