Form Penjualan Barang

Tampilan  Awal Aplikasi
 
Tampilan Aplikasi Saat Dijalankan

Tampilan Aplikasi Saat Diinput Data

Link Download Program Di Atas Klik Di Sini!

Isi Script 
----------------------------------------------------------------------------------------------------------------------------------------------
unit U_Penjualan_Barang;

interface

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

type
  TFRM_Penjualan_Barang = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    EDT_NB: TEdit;
    EDT_HB: TEdit;
    EDT_JB: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    BTN_Mulai: TButton;
    BTN_Proses: TButton;
    BitBtn1: TBitBtn;
    Image1: TImage;
    GroupBox3: TGroupBox;
    EDT_TB: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BTN_MulaiClick(Sender: TObject);
    procedure BTN_ProsesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_Penjualan_Barang: TFRM_Penjualan_Barang;

implementation

{$R *.dfm}

procedure TFRM_Penjualan_Barang.FormCreate(Sender: TObject);
begin
EDT_NB.Text:='';
EDT_HB.Text:='';
EDT_JB.Text:='';
EDT_TB.Text:='';
EDT_TB.Enabled:=False;
end;

procedure TFRM_Penjualan_Barang.BTN_MulaiClick(Sender: TObject);
begin
FormCreate(Sender);
EDT_NB.SetFocus;
end;

procedure TFRM_Penjualan_Barang.BTN_ProsesClick(Sender: TObject);
var NB,HB,JB,TB : Integer;
begin
HB:=StrToInt(EDT_HB.Text);
JB:=StrToInt(EDT_JB.Text);
TB:=HB*JB;
EDT_TB.Text:= 'Rp. '+FormatCurr('#,#0',StrToCurr(IntToStr(TB)));
end;

end.
-----------------------------------------------------------------------------------------------------------------------------------------------