Toko Abdurrahiim | Sedia Aneka Herbal

Tiket Pesawat

unit tiket;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Shape1: TShape;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    GroupBox3: TGroupBox;

    bproses: TButton;

    bbersih: TButton;

    bclose: TButton;

    Timer1: TTimer;

    Label3: TLabel;

    enamapembeli: TEdit;

    Label4: TLabel;

    Label5: TLabel;

    cpes: TComboBox;

    Label6: TLabel;

    enamapesawat: TEdit;

    Label7: TLabel;

    cxdewasa: TCheckBox;

    cxanak: TCheckBox;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    ehargad: TEdit;

    ehargaa: TEdit;

    ejumlahd: TEdit;

    ejumlaha: TEdit;

    ethargad: TEdit;

    ethargaa: TEdit;

    Label11: TLabel;

    Label12: TLabel;

    ejtiket: TEdit;

    etharga: TEdit;

    Label13: TLabel;

    Label14: TLabel;

    ebayar: TEdit;

    ekembali: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure cpesClick(Sender: TObject);

    procedure cxdewasaClick(Sender: TObject);

    procedure cxanakClick(Sender: TObject);

    procedure bprosesClick(Sender: TObject);

    procedure ebayarChange(Sender: TObject);

    procedure bbersihClick(Sender: TObject);

    procedure bcloseClick(Sender: TObject);

  

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.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/mm/yyyy';

label4.Caption:=datetostr(date);

end;

procedure TForm5.cpesClick(Sender: TObject);

begin

if cpes.Text='GA733' then

enamapesawat.Text:='GARUDA AIR'

else

if cpes.Text='MP373' then

enamapesawat.Text:='MERPATI AIR'

else

if cpes.Text='BT202' then

enamapesawat.Text:='BATAVIA AIR'

else

if cpes.Text='LI909' then

enamapesawat.Text:='LION AIR';

end;

procedure TForm5.cxdewasaClick(Sender: TObject);

begin

if cxdewasa.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

cxdewasa.Checked:=false;

ehargad.Text:='';

end;

ejumlahd.SetFocus;

end;

procedure TForm5.cxanakClick(Sender: TObject);

begin

if cxanak.Checked=true then

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

else

begin

cxanak.Checked:=false;

ehargaa.Text:='';

end;

ejumlaha.SetFocus;

end;

procedure TForm5.bprosesClick(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 TForm5.ebayarChange(Sender: TObject);

begin

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

end;

procedure TForm5.bbersihClick(Sender: TObject);

begin

enamapembeli.Text:='';

cpes.Text:='';

enamapesawat.Text;

cxdewasa.Checked:=false;

cxanak.Checked:=false;

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';

enamapembeli.SetFocus;

end;

procedure TForm5.bcloseClick(Sender: TObject);

begin

if(application.MessageBox('Anda yakin akan keluar ?','Informasi',MB_YESNO)=IDYES )then close

end;

procedure TForm5.FormActivate(Sender: TObject);

begin

enama.SetFocus;

ehargad.Enabled:=false;

ethargad.Enabled:=false;

ehargaa.Enabled:=false;

ethargad.Enabled:=false;

ejtiket.Enabled:=false;

etharga.Enabled:=false;

ekembali.Enabled:=false;

enamapesawat.Enabled:=false;

end;

end.