Cara Membuat Program Penjualan Mengunakan Delphi7

               Kali ini kita akan membahas bagaimna cara membuat program penjualan mengunakan delphi7.Baimana program penjualan ini sangat berguna dalam transaksi penjualan barang pada sebuat toko.Dalam pembuatanya sangat mudah.

Langkah-langkah pembuatanya:

1.Buka Aplikasi delphi7.

2.Setelah aplikasi dibuka,desainlah form seperti berikut:

Keterangan pembuatan form :

               Desain pembuatan form meliputi  .8 label,3 memo,3 GroupBox dan 5 Button,untuk mewarnai form diproperti pilih color.

Label ubah nama nya di caption serperti berikut:

               Toko-serba-serbi

               Toko menjual berbagai mkanan

               Nama barang

               Harga

Jumlah

Total

Bayar

Kembalian

Button ubah nama nya di caption serperti berikut:

               Alamat toko

Hapus

               Kembalian

               <<>>

               Keluar

Source Code

Klik 2kali tanda <<>>.

        procedure TForm2.Button2Click(Sender: TObject);

          begin

if(edit4.Text<>'')and(edit1.Text<>'')and(edit6.Text<>'')and(edit7.Text<>) then

          begin

memo1.Lines.Add(edit4.Text);

memo2.Lines.Add(edit6.Text);

memo3.Lines.Add(edit7.Text);

end else

edit7.Text:= inttostr (strtoint(edit1.Text) * strtoint (edit6.Text));

end;

Klik 2kali hapus.

            procedure TForm2.Button3Click(Sender: TObject);

            begin

             memo1.Clear;

 memo2.Clear;

 memo3.Clear;

edit4.Clear;

edit1.Clear;

edit6.Clear;

edit7.Clear;

edit8.Clear;

edit9.Clear;

end;

Klik 2kali kembalian.

procedure TForm2.Button4Click(Sender: TObject);

begin

edit9.Text:= inttostr (strtoint(edit8.Text) - strtoint (edit7.Text));

end;

 Klik 2kali form.

procedure TForm2.FormCreate(Sender: TObject);

begin

memo1.Clear;

memo2.Clear;

memo3.Clear;

edit4.Clear;

edit1.Clear;

edit6.Clear;

edit7.Clear;

edit8.Clear;

edit9.Clear;

end;

end.

3. Setelah itu jalan program yang telah dibuat maka akan tampil seperti berikut:

Sekian dan Terima Kasih.

Posted by Unknown

Tweet