Program penjualan tiket KA (DELPHI 7)

procedure TForm1.FormCreate(Sender: TObject);

begin
form1.Color:=clgreen;

dateseparator:='-';
shortdateformat:='dd/mmmm/yyyy';
Label2.Caption:=datetostr(date);
etgl.Text:=datetostr(date);

end;

procedure TForm1.CkodeClick(Sender: TObject);
begin
if Ckode.Text='AB'then
begin
enmkrta.Text:='Argo Bomo' ;
ejurusan.Text:='semarang'  ;
end else

begin
if Ckode.Text='GM'then
begin
enmkrta.Text:='Gumarang';
ejurusan.Text:='surabaya';
end else
begin
if Ckode.Text='AA'then
begin
enmkrta.Text:='Agroangrek';
ejurusan.Text:='jogja';
end;
end;
end;
end;

procedure TForm1.CjenisClick(Sender: TObject);
begin
if Cjenis.text='Eksekutif' then
begin
eharga.Text :='300000';
end else
begin
if Cjenis.text='Ekonomi' then
begin
eharga.Text :='100000';

 end;
end;
end;



procedure TForm1.ejmlChange(Sender: TObject);
var

bil1,bil2:real;
kali:real;

begin

bil1:=strtofloat(eharga.Text);
bil2:=strtofloat(ejml.Text);
kali:=bil1*bil2;
ettl.Text:=floattostr(kali);
{ettl.text:=inttostr(strtoint(eharga.text)*strtoint(ejml));}
end;


procedure TForm1.ecashChange(Sender: TObject);
var

bil1,bil2:real;
kurang:real;

begin

bil1:=strtofloat(ecash.Text);
bil2:=strtofloat(ettl.Text);
kurang:=bil1-bil2;
ekembali.Text:=floattostr(kurang);
{ekembali.text:=inttostr(strtoint(ecash.text)-strtoint(ettl));}

end;

procedure TForm1.bhapusClick(Sender: TObject);
begin
enama.SetFocus;
enama.Text:='';
eno.Text:='';
etgl.Text:='';
eharga.Text:='0';
ejurusan.Text:='';
enmkrta.Text:='';
Cjenis.text:='';
Ckode.text:='0';
ecash.Text:='0';
ejml.Text:='0';
ettl.Text:='0';
ekembali.Text:='0';


end;

procedure TForm1.BcloseClick(Sender: TObject);
begin
if(application.MessageBox('jangan dikeluarin donk mas','hayoooooo!!!',MB_yesno)=IDyes)then
close;
end;

end.