tampilan form:



script program:

var
Form1: TForm1;
harga,tbeli,jbeli,jumlah:integer;
bayar,kembalian:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
if (edit1.Text<>'')and(edit2.Text<>'')and(edit3.Text<>'')then
begin
memo1.Lines.Add(edit1.Text);
memo2.Lines.Add(edit3.Text);
harga:=StrToInt(edit2.Text);
jbeli:=StrToInt(edit3.Text);
tbeli:=harga*jbeli;
memo3.Lines.Add(IntToStr(tbeli));
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.SetFocus;
end else
begin
showmessage('Ada Data Yang Belum DiInputkan ');
edit1.SetFocus;
end;
jumlah:=tbeli+jumlah;
edit4.text:=inttostr(jumlah);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
memo3.Clear;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
bayar:=StrToInt(edit6.text);
kembalian:=bayar-jumlah;
edit5.text:=inttostr(kembalian);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.clear;
memo2.Clear;
memo3.Clear;
edit1.clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
application.terminate;
end;

end.


tampilan program setelah dijalankan:


[Joko-Sugiono]