Membuat program Kasir dengan Delphi 7

Postingan kali ini saya akan sharing lagi,tentang membuat program kasir dengan delphi 7. Kalo mau nyoba monggo dicopy..

Jika desain sudah jadi,kemudian klik 2x pada button Tambah. Lalu masukkan script dibawah

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit4.Text<>'')and(Edit5.Text<>'')and(Edit6.Text<>'')then
begin
Memo1.Lines.Add(Edit4.Text);
Memo2.Lines.Add(Edit6.Text);
harga:=StrToInt(Edit5.Text);
jbeli:=StrToInt(Edit6.Text);
tbeli:=harga*jbeli;
Memo3.Lines.Add(IntToStr(tbeli));
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit4.SetFocus;
end else
begin
showmessage('Ada Data Yang Belum DiInputkan ');
Memo1.SetFocus;
end;
jumlah:=tbeli+jumlah;
Edit7.text:=inttostr(jumlah);
end;

Kemudian klik 2x pada button Hapus dan masukkan script dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
end;

Selanjutnya klik 2x button Kembalian dan masukkan script lagi

procedure TForm1.Button3Click(Sender: TObject);
begin
bayar:=StrToInt(Edit8.text);
kembalian:=bayar-jumlah;
Edit9.text:=inttostr(kembalian);
end;

Dan yang terakhir klik 2x pada button Keluar dan masukkan script dibawah

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