Delphi7 Program Penjualan Barang Sederhana Menggunakan Diskon & PPN

Assalamu'alaikum Warahmatullahi Wabarakatu.

Sebelum anda melihat atau mengcopy paste listing di bawah ini, anda sudah dianggap tau tols yang dibutuhkan untuk membuat program di atas. apabila anda belum tau silahkan komentar diposting ini dan tunggu balasan dari saya brooo, ok langsung saja anda copy paste listingnya dibawah ini cekidottt......

perhatian untuk bagian ComboBox1 saya mengisinya di bagian property bagian item broo.







#listing HTML dibawah ini:

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    ComboBox1: TComboBox;

    Label3: TLabel;

    Edit1: TEdit;

    Label4: TLabel;

    Edit2: TEdit;

    Label5: TLabel;

    Edit3: TEdit;

    Label6: TLabel;

    Edit4: TEdit;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    Label7: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Edit5: TEdit;

    Label8: TLabel;

    Edit6: TEdit;

    Edit7: TEdit;

    Label9: TLabel;

    procedure ComboBox1Change(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure CheckBox2Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit4Change(Sender: TObject);

    procedure Edit6Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

edit3.SetFocus;

if combobox1.Text='B001' then

begin

edit1.Text:='Notebook';

edit2.Text:='3000000';

end

else if combobox1.Text='B002' then

begin

edit1.Text:='Printer';

edit2.Text:='350000';

end

else if combobox1.text='B003' then

begin

edit1.Text:='Monitor';

edit2.Text:='900000';

end

else if combobox1.text='B004' then

begin

edit1.Text:='TV';

edit2.Text:='500000';

end

else

begin

edit1.Text:='Radio';

edit2.Text:='200000';

end

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

hs, jp, th, jd:real;

begin

hs:=strtofloat(edit2.Text);

jp:=strtofloat(edit3.Text);

th:=(hs*jp);

edit4.Text:=floattostr(th);

procedure TForm1.CheckBox1Click(Sender: TObject);

var

th, jd:real;

begin

  th:=strtofloat(edit4.Text);

  jd:=th*0.05;

  edit5.Text:=floattostr(jd);

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

var

th, jd:real;

begin

  th:=strtofloat(edit4.Text);

  jd:=th*0.10;

  edit6.Text:=floattostr(jd);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

combobox1.Text:='';

edit7.Text:='';

end;

procedure TForm1.Edit4Change(Sender: TObject);

begin

edit7.Text:=edit4.Text;

end;

procedure TForm1.Edit6Change(Sender: TObject);

var

jd, jp, tp:real;

begin

jd:=strtofloat(edit5.Text);

jp:=strtofloat(edit6.Text);

tp:=(jd+jp);

edit7.Text:=floattostr(tp);

end;

end.

Nah terimakasih sudah mampir bila ada yang ingin ditanyakan lagi silahkan sisipkan komentar kalian, dan semoga posting kali ini bermanfaat brooo, saatnya saya bilang Wassalam.