Contoh Coding Program Delphi tentang Pemesanan

 Contoh Gambarnya....

Source Codingnya ....


unit baru;

interface

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

type
  TForm1 = class(TForm)
    Bt_proses: TButton;
    Ed_pesan: TEdit;
    Bt_keluar: TButton;
    H_Makan: TLabel;
    H_minum: TLabel;
    GroupBox1: TGroupBox;
    Rb_pecel: TRadioButton;
    Rb_rawon: TRadioButton;
    RB_bakso: TRadioButton;
    GroupBox2: TGroupBox;
    Rb_teh: TRadioButton;
    Rb_jus: TRadioButton;
    Rb_campur: TRadioButton;
    Bt_batal: TButton;
    Label1: TLabel;
    lb_uang: TLabel;
    Label2: TLabel;
    Ed_total: TEdit;
    Ed_bayar: TEdit;
    Ed_kembalian: TEdit;
    Bt_proses2: TButton;
    procedure Bt_prosesClick(Sender: TObject);
    procedure Bt_keluarClick(Sender: TObject);
    procedure batal();
    procedure Bt_batalClick(Sender: TObject);
    procedure Bt_proses2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  makan:string;
  minum:string;
  baru,a,b,c:integer;
implementation

{$R *.dfm}
procedure TForm1.batal();
begin
 Rb_pecel.Checked:=False;
 Rb_rawon.Checked:=False;
 RB_bakso.Checked:=False;
 Rb_teh.Checked:=False;
 Rb_jus.Checked:=False;
 Rb_campur.Checked:=False;
 H_Makan.Caption:='';
 H_minum.Caption:='';
 Ed_pesan.Clear;
end;

procedure TForm1.Bt_prosesClick(Sender: TObject);
begin
  if Rb_pecel.Checked=True then
   begin
     makan:='Anda Pesan Pecel';
     H_Makan.Caption:='3000';
   end
    else if Rb_rawon.Checked=True then
     begin
      makan:='Anda Pesan Rawon';
      H_Makan.Caption:='5000';
     end
    else if RB_bakso.Checked=True then
     begin
      makan:='Anda Pesan Bakso Solo';
      H_Makan.Caption:='10000';
     end;
  if Rb_teh.Checked=True then
   begin
    minum:='Minum Es Teh';
    H_minum.Caption:='2000';
   end
    else if Rb_jus.Checked=True then
     begin
      minum:='Minum Es Jus';
      H_minum.Caption:='3000';
     end
    else if Rb_campur.Checked=true then
     begin
      minum:='Minum Es Campur';
      H_minum.Caption:='4000';
     end
    else
     begin
      Ed_pesan.Clear;
     end;

  a:=StrToInt(H_Makan.Caption);
  b:=StrToInt(H_minum.Caption);
  c:=a+b;

  if (makan<>'') and (minum<>'') then
   begin
    Ed_pesan.Text:= makan + ' dan ' + minum + ' seharga Rp. ' + IntToStr(c);
   end
  else if (makan<>'') or (minum<>'') then
   begin
   Ed_pesan.Text:='Anda Beli';
   end
  else
   begin
    Ed_pesan.Text:='Anda Tidak Beli';
   end;
  Ed_total.Text:=IntToStr(c);
end;

procedure TForm1.Bt_keluarClick(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TForm1.Bt_batalClick(Sender: TObject);
begin
 batal;
end;

procedure TForm1.Bt_proses2Click(Sender: TObject);
begin
  baru:=StrToInt(Ed_bayar.Text);
  Ed_kembalian.Text:=IntToStr(baru-c);
end;

end.