APLIKASI PENJUALAN TIKET PESAWAT

gambar aplikasi yang sudah dijalan kan

pertama kita design form seperti gmabar diatas. lalu atur propertis nya.

dan masukan listing program nya 

klik 2 kali form nya lalu masukan :

procedure TForm1.FormCreate(Sender: TObject);

begin

cpes.Items.Add('GA733');

cpes.Items.Add('MP373');

cpes.Items.Add('BT202');

cpes.Items.Add('LI909');

ejtiket.Text:='0';

ehargad.Text:='0';

ehargaa.Text:='0';

ejumlahd.Text:='0';

ejumlaha.Text:='0';

ethargad.Text:='0';

ethargaa.Text:='0';

etharga.text:='0';

ebayar.Text:='0';

ekembali.Text:='0';

{setting tanggal otomatis}

dateseparator:='/';

shortdateformat:='dd/mmmmm/yyyy';

label4.Caption:=datetostr(date);

end;

procedure TForm1.cpesClick(Sender: TObject);

begin

if cpes.Text='GA733' then

epesawat.Text:='GARUDA AIR'

else

if cpes.text='MP373' then

epesawat.Text:='MERPATI AIR'

else

if cpes.text='BT202' then

epesawat.Text:='BATAVIA AIR'

else

epesawat.Text:='LION AIR';

end;

 klik 2 kali checbox dewasa

procedure TForm1.cdewasaClick(Sender: TObject);

begin

if cdewasa.Checked=true then

begin

if cpes.Text='GA733' then

ehargad.Text:='560000'

else if cpes.Text='MP373' then

ehargad.Text:='450000'

else if cpes.Text='BT202' then

ehargad.Text:='350000'

else

ehargad.Text:='450000';

end

else

begin

cdewasa.Checked:=false;

ehargad.Text:='';

end;

ejumlahd.SetFocus;

end;

 klik 2 kali check box anak

procedure TForm1.canakClick(Sender: TObject);

begin

if canak.Checked=true then

ehargaa.Text:=floattostr(0.3*strtofloat(ehargad.Text))

else

begin

canak.Checked:=false;

ehargaa.Text:='';

end;

ejumlaha.SetFocus;

end;

button proses :

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

ethargad.Text:=floattostr(strtofloat(ehargad.Text)*strtofloat(ejumlahd.Text));

ethargaa.Text:=floattostr(strtofloat(ehargaa.Text)*strtofloat(ejumlaha.Text));

ejtiket.text:=floattostr(strtofloat(ejumlaha.text)+strtofloat(ejumlahd.Text));

etharga.Text:=floattostr(strtofloat(ethargaa.Text)+strtofloat(ethargad.Text));

ebayar.SetFocus;

end;

procedure TForm1.ebayarChange(Sender: TObject);

begin

ekembali.Text:=floattostr(strtofloat(ebayar.Text)-strtofloat(etharga.Text));

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

enama.SetFocus;

ehargad.Enabled:=false;

ethargad.Enabled:=false;

ehargaa.Enabled:=false ;

ejtiket.Enabled:=false;

etharga.Enabled:=false;

ekembali.Enabled:=false;

epesawat.Enabled:=false;

end;

tombol bersih

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

enama.Text:='';

cpes.text:='aRa air';

epesawat.Text:='';

cdewasa.Checked:=false;

canak.Checked:=false;

ejtiket.Text:='0';

ehargad.Text:='0';

ehargaa.Text:='0';

ejumlaha.Text:='0';

ejumlahd.Text:='0';

etharga.Text:='0';

ebayar.Text:='0';

ekembali.Text:='0';

enama.SetFocus;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

close;

end;

editbayar:

procedure TForm1.ebayarChange(Sender: TObject);

begin

ekembali.Text:=floattostr(strtofloat(ebayar.Text)-strtofloat(etharga.Text));

end;

Referensi :www.ilmukomputer.com

semoga bermanfaat dan sukses