Toko Abdurrahiim | Sedia Aneka Herbal

Form Perulangan

unit Perulangan;

interface

uses

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

  Dialogs, Buttons, StdCtrls;

type

  TForm6 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    eitem: TEdit;

    bok: TButton;

    Label2: TLabel;

    Label3: TLabel;

    etgl: TEdit;

    efaktur: TEdit;

    GroupBox2: TGroupBox;

    GroupBox3: TGroupBox;

    Label4: TLabel;

    etotal: TEdit;

    lnama: TListBox;

    lharga: TListBox;

    blagi: TBitBtn;

    bclose: TBitBtn;

    procedure FormCreate(Sender: TObject);

    procedure blagiClick(Sender: TObject);

    procedure bokClick(Sender: TObject);

    procedure bcloseClick(Sender: TObject);

    procedure lnamaClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);

begin

DateSeparator := '-';

ShortDateFormat := 'mm/dd/yyyy';

etgl.Text := 'Hari ini ' + DateToStr(Date);

end;

procedure TForm6.blagiClick(Sender: TObject);

begin

eitem.Text :='';

efaktur.Text := '';

lnama.Clear;

lharga.Clear;

etotal.Text :='';

end;

procedure TForm6.bokClick(Sender: TObject);

var

inputnama : string;

inputharga : string;

i : integer;

j : integer;

harga : real;

begin

harga := 0;

j := 0;

j:= strtoint(eitem.Text);

if j <= 0 then

begin

showmessage('Data Tidak boleh lebih kecil dari Nol');

exit;

end

else

begin

for i := 1 to j do

begin

inputnama := inputbox('INput','Ketikan Nama Barang','');

inputharga := inputbox('INput','Ketikan Harga Barang','');

lnama.Items.Add(inputnama) ;

lharga.Items.Add(inputharga);

harga := harga + strtofloat(inputharga);

end;

end;

etotal.Text := floattostr(harga);

end;

procedure TForm6.bcloseClick(Sender: TObject);

begin

close;

end;

end.