Latihan Membuat Program Stasiun Kereta

4. Latihan Membuat Program Stasiun Kereta Api

Desain Form 4.1

Hasil Tampilan 4.2

Listing Program 

unit Unit_stasiun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    lstasiun: TLabel;
    gb1: TGroupBox;
    lnama: TLabel;
    enm: TEdit;
    Label1: TLabel;
    ebuk: TEdit;
    ltgl: TLabel;
    etgl: TEdit;
    gbdata: TGroupBox;
    lkd: TLabel;
    cbkd: TComboBox;
    Lnm: TLabel;
    enmk: TEdit;
    ljrs: TLabel;
    ejrs: TEdit;
    ljns: TLabel;
    lhrg: TLabel;
    ehrg: TEdit;
    gb2: TGroupBox;
    Label2: TLabel;
    ejml: TEdit;
    ltotal: TLabel;
    etotal: TEdit;
    lcash: TLabel;
    ecash: TEdit;
    lkem: TLabel;
    ekem: TEdit;
    gbhapus: TGroupBox;
    bhapus: TButton;
    bkeluar: TButton;
    ejns: TComboBox;
    Proses: TButton;
    Timer1: TTimer;
    procedure cbkdChange(Sender: TObject);
    procedure bhapusClick(Sender: TObject);
    procedure bkeluarClick(Sender: TObject);
    procedure etotalChange(Sender: TObject);
    procedure ejnsChange(Sender: TObject);
    procedure ecashChange(Sender: TObject);
    procedure ejmlChange(Sender: TObject);
    procedure ProsesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cbkdChange(Sender: TObject);
begin
 cbkd.Items.Add('KR01');
 cbkd.Items.Add('KR02');
 cbkd.Items.Add('KR03');
 ehrg.Text:='0';
 ejml.Text:='0';
 etotal.Text:='0';
 ekem.Text:='0';
 ecash.Text:='0';
 dateseparator:='-';
 shortdateformat:='dd/mmmm/yyyy';
 etgl.Text:=datetostr(date);

 if cbkd.Text='KR01' then
 begin
    enmk.Text:='MAJU RAYA' ;
    ejrs.Text:='solo - jakarta';
    end
  else if cbkd.Text='KR02' then
  begin
    enmk.Text:='SINAR MAJU'   ;
    ejrs.Text:='solo - surabaya';

  end
  else if cbkd.Text='KR03' then
  begin
    ejrs.Text:='solo - jogja';
    enmk.Text:='LAJUR UTAMA';

   end;
end;

procedure TForm1.bhapusClick(Sender: TObject);
begin

enm.Text:='';
ebuk.Text:='';
etgl.Text:='';
cbkd.Text:='';
enmk.Text:='';
ejrs.Text:='';
ejns.Text:='';
ehrg.Text:='0';
ejml.Text:='0';
etotal.Text:='0';
ecash.Text:='0';
ekem.Text:='0';
enm.SetFocus;
end;

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

procedure TForm1.etotalChange(Sender: TObject);
begin
ehrg.Text:=floattostr(strtofloat(ehrg.Text)*strtofloat(ejml.Text));
ecash.SetFocus;
end;

procedure TForm1.ejnsChange(Sender: TObject);
begin

  if cbkd.Text='KR01' then
  begin
    if ejns.Text='argo' then
      ehrg.Text:='350000'

    else if ejns.Text='bisnis' then

      ehrg.Text:='200000'

    else
       ehrg.Text:='80000';
  end
  else if cbkd.Text='KR02' then
  begin
       if ejns.Text='argo' then
      ehrg.Text:='200000'

    else if ejns.Text='bisnis' then

      ehrg.Text:='100000'

    else
       ehrg.Text:='35000';
  end
  else
  begin
     if ejns.Text='argo' then
      ehrg.Text:='100000'

    else if ejns.Text='bisnis' then

      ehrg.Text:='80000'

    else
       ehrg.Text:='20000';
  end;

end;

procedure TForm1.ecashChange(Sender: TObject);
begin
ekem.Text:=floattostr(strtofloat(ecash.Text)-strtofloat(ehrg.Text));
end;

procedure TForm1.ejmlChange(Sender: TObject);
begin
   etotal.Text:=floattostr(strtofloat(ehrg.Text)*strtofloat(ejml.Text));
end;

procedure TForm1.ProsesClick(Sender: TObject);
begin
application.MessageBox('data berhasil di proses','sukses',mb_ok);
enm.Text:='';
ebuk.Text:='';
etgl.Text:='';
cbkd.Text:='';
enmk.Text:='';
ejrs.Text:='';
ejns.Text:='';
ehrg.Text:='0';
ejml.Text:='0';
etotal.Text:='0';
ecash.Text:='0';
ekem.Text:='0';
enm.SetFocus;
end;

end.