Toko Abdurrahiim | Sedia Aneka Herbal

Stasiun Solo Balapan

unit Unit7;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm7 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    GroupBox1: TGroupBox;

    Label2: TLabel;

    enama: TEdit;

    Label3: TLabel;

    Label4: TLabel;

    enobukti: TEdit;

    etgl: TEdit;

    GroupBox2: TGroupBox;

    GroupBox3: TGroupBox;

    Label5: TLabel;

    ckode: TComboBox;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    ekereta: TEdit;

    ejurusan: TEdit;

    cjenis: TComboBox;

    eharga: TEdit;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    ejumlahtiket: TEdit;

    etotal: TEdit;

    ecash: TEdit;

    ekembalian: TEdit;

    bclose: TButton;

    Image2: TImage;

    procedure FormCreate(Sender: TObject);

    procedure ckodeClick(Sender: TObject);

    procedure cjenisClick(Sender: TObject);

    procedure ejumlahtiketKeyPress(Sender: TObject; var Key: Char);

    procedure ecashChange(Sender: TObject);

    procedure bcloseClick(Sender: TObject);

   

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);

begin

ckode.Items.Add('KA-01');

ckode.Items.Add('KA-02');

ckode.Items.Add('KA-03');

cjenis.Items.Add('Bisnis');

cjenis.Items.Add('Executive');

cjenis.Items.Add('Ekonomi');

ejumlahtiket.Text:='';

etotal.Text:='0';

ecash.Text:='';

ekembalian.Text:='0';

{setting tanggal otomatis}

dateseparator:='-';

shortdateformat:='dd/mmmm/yyyy';

etgl.Text:=datetostr(date);

end;

procedure TForm7.ckodeClick(Sender: TObject);

begin

if ckode.Text='KA-01'then

ekereta.Text:='Flash'

else ejurusan.Text:='Jakarta-Surabaya';

if ckode.Text='KA-02'then

ekereta.Text:='Superman'

else ejurusan.Text:='Jakarta-Jogjakarta';

if ckode.Text='KA-03'then

ekereta.Text:='Hercules'

else ejurusan.Text:='Jakarta-Bandung';

end;

procedure TForm7.cjenisClick(Sender: TObject);

begin

if cjenis.Text='Bisnis' then

  eharga.Text:='300000'

else

if cjenis.Text='Executive' then

  eharga.Text:='600000'

else

if cjenis.Text='Ekonomi' then

  eharga.Text:='75000'

end;

procedure TForm7.ejumlahtiketKeyPress(Sender: TObject; var Key: Char);

var harga, jumlahtiket, total:currency;

begin

if key= #13 then

  begin

  harga := strtocurr(eharga.Text);

  jumlahtiket := strtocurr(ejumlahtiket.Text);

  total := harga * jumlahtiket;

  etotal.Text:= currtostr(total);

  end;

end;

procedure TForm7.ecashChange(Sender: TObject);

begin

ekembalian.Text:=floattostr(strtofloat(ecash.Text)-strtofloat(etotal.Text));

end;

procedure TForm7.bcloseClick(Sender: TObject);

begin

if application.MessageBox('Anda Yakin akan keluar','Informasi',mb_yesno)=idyes then

close;

end;

end.