procedure TForm1.FormCreate(Sender: TObject);
begin
dateseparator:=',';
shortdateformat:='dd/mmmm/yyyy';
Jam.Caption:=datetostr(date);
end;

procedure TForm1.cnoperClick(Sender: TObject);
begin
if cnoper.Text='GA733'then
enmpswt.Text:='GARUDA AIR'
else
if cnoper.Text='MP373'then
enmpswt.Text:='MERPATI AIR'
else
if cnoper.Text='BT202'then
enmpswt.Text:='BATAVIA AIR'
else
if cnoper.Text='LI909'then
enmpswt.Text:='LION AIR'
else
end;

procedure TForm1.cdewasaClick(Sender: TObject);
begin
if cdewasa.Checked=true then
begin
if cnoper.text='GA733'then
ehrgdws.Text:='560000'
else
if cnoper.text='MP373'then
ehrgdws.Text:='450000'
else
if cnoper.text='BT202'then
ehrgdws.Text:='350000'
else
if cnoper.text='LI733'then
ehrgdws.Text:='450000'
else
end
else
begin
cdewasa.Checked:=false;
ehrgdws.Text:='';
end;
ejmldws.SetFocus;

end;

procedure TForm1.canakClick(Sender: TObject);
begin
if canak.Checked=true then
ehrgank.Text:=floattostr(0.3*strtofloat(ehrgdws.Text))
else
begin
canak.Checked:=false;
ehrgank.Text:='';
end;
ejmlank.SetFocus;
end;

procedure TForm1.BprosesClick(Sender: TObject);
begin
ethrgdws.Text:=floattostr(strtofloat(ehrgdws.Text)*strtofloat(ejmldws.Text));
ethrgank.Text:=floattostr(strtofloat(ehrgank.Text)*strtofloat(ejmlank.Text));
ejmltiket.Text:=floattostr(strtofloat(ejmlank.Text)+strtofloat(ejmldws.Text));
ettlbyar.Text:=floattostr(strtofloat(ethrgank.Text)+strtofloat(ethrgdws.Text));
ebayar.SetFocus;

end;

procedure TForm1.ebayarChange(Sender: TObject);
begin
ekembali.Text:=floattostr(strtofloat(ebayar.Text)-strtofloat(ettlbyar.text));
end;

procedure TForm1.BbersihClick(Sender: TObject);
begin
ebayar.Text:='0';
ejmltiket.Text:='0';
ekembali.Text:='';
ettlbyar.Text:='0';
enmpemb.Text:='';
cnoper.Text:='';
ehrgank.Text:='0';
ehrgdws.Text:='0';
ejmlank.Text:='0';
ejmldws.Text:='0';
enmpswt.Text:='';
ethrgank.Text:='0';
ethrgdws.Text:='0';

end;

procedure TForm1.BcloseClick(Sender: TObject);
begin
if(application.MessageBox('Anda Yakin Akan Keluar','Informasi',MB_YESNO)=IDYES)then
close;
end;

end.