Makalah Aplikasi Diskon Penjualan Menggunakan Delphi 7

Makalah Pemrograman Visual STMIK AKBA

1

MAKALAH TI.34 PEMROGRAMAN VISUAL “Aplikasi Diskon Penjualan” Oleh: Suarti Syamsir

20152205013

Ijal

20152205032

Zulkifli

20152205019

Sofyan

20152205049

Kornelius P S

20152205001

Achmad Rizali

20152205043

STMIK AKBA KOTA MAKASSAR Jl. Perintis Kemerdekaan Km. 9 No.75 Makassar Telp/Fax : 0411-588371, Website : www.akba.ac.id


2

DAFTAR ISI MAKALAH PEMROGRAMAN VISUAL KATA PENGANTAR Kata Pengantar .................................................................................................................

4

BAB I : PENDAHULUAN A. Latar Belakang ........................................................................................................... B. Tujuan ........................................................................................................................ C. Manfaat ......................................................................................................................

5 5 5

BAB II : MENGENAL DELPHI 7 Mengenal Delphi 7 ...........................................................................................................

6

BAB III : PEMBAHASAN A. Desain Form Aplikasi Diskon Penjualan ................................................................... B. Informasi Barang dan Penjumlahan ........................................................................... C. Box Diskon dan Pembayaran .................................................................................... D. Box Keterangan dan Fungsi While Do ......................................................................

7 9 13 17

BAB IV : KESIMPULAN DAN SARAN A. Kesimpulan ................................................................................................................. 19 B. Saran ........................................................................................................................... 19 DAFTAR PUSTAKA Daftar Pustaka ................................................................................................................... 20

STMIK AKBA KOTA MAKASSAR Jl. Perintis Kemerdekaan Km. 9 No.75 Makassar Telp/Fax : 0411-588371, Website : www.akba.ac.id


3

KATA PENGANTAR

Alhamdulillah segala puji bagi Allah Subhanahu Wata’ala yang telah memberikan rahmat, karunia serta kesempatan dan kesehatan sehingga kami dapat menyelesaikan makalah ini, dengan judul “Makalah Pemrograman Visual, Aplikasi Diskon Penjualan” dalam waktu yang telah ditentukan.

Aplikasi Diskon Penjualan merupakan gabungan antara beberapa Variabel yang saling berelasi satu sama lain sehingga dapat membentuk suatu struktur pemrograman.

Tujuan dari penyusunan makalah ini yaitu sebagai salah satu tugas dalam mata kuliah Pemrograman Visual. Kami menyadari bahwa makalah ini masih jauh dari kata sempurna. Oleh karena itu, kami mengharapkan kritik dan saran yang sifatnya membangun dari pembaca demi tercapainya kesempurnaan makalah ini.

Kami berharap semoga Makalah ini dapat bermanfaat untuk berbagai pihak khususnya Mahasiswa yang menekuni Pemrograman Visual.

Makassar, 15 Oktober 2016 Penyusun,

Kelompok TI 34


4

BAB I PENDAHULUAN A. Latar Belakang Delphi adalah salah satu bahasa pemrograman berbasis visual yang digunakan untuk membuat program aplikasi pada komputer (seperti Visual basic). Bahasa pemrograman yang digunakan oleh Delphi sebenarnya merupakan turunan dari bahasa pemrograman pascal, yang dahulu pada Delphi dikenal sebagai objek pascal. Sebagai salah satu tugas Mata Kuliah Pemrograman Visual, maka itu dipandang perlu membuat suatu Aplikasi / Struktur Dasar Pemrograman bagi mahasiswa.

B. Tujuan Berdasarkan latar belakang diatas, tujuan penulisan makalah ini adalah untuk Mengetahui fungsi - fungsi Struktur Pemrograman dari Aplikasi Diskon Penjualan yang telah kami buat.

C. Manfaat Setelah Membaca dan Memahami Makalah ini, Mahasiswa diharapkan :  Memahami Struktur Dasar dari Pembuatan Aplikasi Diskon Penjualan  Memahami Fungsi Operator Aritmatika  Dapat Menggunakan Komponen Standard Borland Delphi 7 sesuai dengan fungsinya.


5

BAB II MENGENAL DELPHI 7 Delphi adalah Suatu bahasa pemrograman yang menggunakan visualisasi sama seperti bahasa pemrograman Visual Basic (VB). Namun Delphi menggunakan bahasa yang hampir sama dengan pascal (sering disebut objeck pascal), sehingga lebih mudah untuk digunakan. Bahasa pemrograman Delphi dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik embarcadero. Divisi tersebut awalnya milik borland, sehingga bahasa ini memiliki versi Borland Delphi.

Delphi juga menggunakan konsep yang berorientasi objek (OOP), maksudnya pemrograman dengan membantu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya. Hal itu bisa dilakukan dengan cara mendesign objek untuk menyelesaikan masalah. OOP ini memiliki beberapa unsur yaitu Encapsulation (pemodelan), Inheritance (Penurunan), Polymorphism (Polimorfisme).

Awalnya bahasa pemrograman delphi hanya dapat digunakan di Microsoft Windows, namun saat ini telah dikembangkan sehingga dapat digunakan juga di Linux dan di Microsoft .NET. Dengan menggunakan free pascal yang merupakan proyek OpenSource, bahasa pemrograman ini dapat membuat program di sistem operasi Mac OS X dan Windows CE.

Umumnya delphi hanya digunakan untuk pengembangan aplikasi dekstop, enterprise berbasis database dan program - program kecil . Namun karena pengembangan delphi yang semakin pesat dan bersifat general purpose bahasa pemrograman ini mampu digunakan untuk berbagai jenis pengembangan software . Dan Delphi juga disebut sebagai pelopor perkembangan RadTool (Rapid Apllication Development) tahun 1995 . Sehingga banyak orang yang mulai mengenal dan menyukai bahasa pemrograman yang bersifat VCL (Visual Component Library) ini.


6

BAB III PEMBAHASAN A. DESAIN FORM APLIKASI DISKON PENJUALAN

Aplikasi Diskon Penjualan merupakan Aplikasi yang dibangun diatas Program Borland Delphi 7 sebagai salah satu tugas Mata Kuliah Pemrograman Visual, Aplikasi Diskon Penjualan merupakan gabungan antara beberapa Variabel yang saling berelasi satu sama lain, Sebut saja Variabel yang digunakan pada Form di atas adalah Variabel Konstanta / Data Konstan yang meliputi Harga Satuan dari Barang-barang yang telah dimasukkan ke dalam Combo Box, dan Menggunakan Operator Aritmatika sebagai sarana penjumlahan guna mendukung jalannya Program Aplikasi Diskon Penjualan yang telah kami buat. Selain itu Desain Form diatas sebagai landasan utama dari Aplikasi Diskon Penjualan di mana Pengenalan Deklarasi Global berada, Deklarasi Global yang terdapat pada Form diatas yaitu harga_Satuan, jumlah, total, diskon, total_harga, bayar, uang_kembali yang kesemua Deklarasi tersebut merupakan Variabel bertipe data bilangan Real. Adapun penulisan Listing Program Pengenalan Deklarasinya adalah :

List Variabel Global Pada Form Aplikasi Diskon Penjualan: 1. var 2. Form7: TForm7; 3. harga_Satuan,jumlah,total,diskon,total_harga,bayar,uang_kembali:real;


7

Adapun fungsi-fungsi Properties yang terdapat pada Form tersebut adalah : Label Properties : Object Label1 Label2 Label3 Label4 Label5 Label6 Label9 Label10 Label11 Label13 Label14 Label15

Name Label1 Label2 Label3 Label4 Label5 Label6 Label9 Label10 Label11 Label13 Label14 Label15

Caption / Text Aplikasi Diskon Penjualan Kode Barang Nama Barang Harga Satuan Jumlah Total Potongan Bayar Uang Kembali Diskon 20% Setiap Transaksi di atas Rp. 500.000 1 Buah Piring Setiap Transaksi di atas Rp. 100.000 1 Buah Gelas Setiap Transaksi di atas Rp. 50.000

Combo Box Properties : Object ComboBox1

Name ComboBox1

Caption / Text Daftar Kode Barang - 001-MEMORY - 001-BATTERY - 001-CHARGER - 001-CASING - 001-OU - 001-HDS

Edit Properties : Object Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7

Name Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7

Caption / Text *Kosong *Kosong *Kosong *Kosong *Kosong *Kosong *Kosong

Button & BitBtn Properties : Object Button1 Button2 Button3 BitBtn1 BitBtn2 BitBtn3

Name Button1 Button2 Button3 BitBtn1 BitBtn2 BitBtn3

Caption / Text Hitung Cek Diskon Bayar Selesai Bersih While Do


Memo Properties : Object Memo1

Name Memo1

Caption / Text *Kosong

8

B. INFORMASI BARANG DAN PENJUMLAHAN

Gambar 2 : Informasi Barang dan Penjumlahan

Pada Form Aplikasi Diskon Penjualan terdapat beberapa fungsi yang tidak dapat dipisahkan oleh Variabel lain, Seperti Box diatas, walaupun fungsi-fungsi Properties berbeda, namun Properties Object pada Tabel diatas saling berelasi satu sama lain yang dijalankan dalam satu fungsi yang sama. Kelompok Box diatas berfungsi sebagai Informasi Nama Barang beserta Harga Satuan dari barang terkait yang dimana Kode Barang merupakan Identitas dari Nama Barang dan Harga Satuan. Kemudian Jumlah dan Total merupakan fungsi Penjumlahan Operator Aritmatika. Adapun rincian / Detail komponen yang digunakan pada Box di atas adalah sebagai berikut :

Properties Informasi Barang dan Penjumlahan : Object Label2 Label3 Label4 Label5 Label6 ComboBox1

Name Label2 Label3 Label4 Label5 Label6 ComboBox1


Caption / Text Kode Barang Nama Barang Harga Satuan Jumlah Total Daftar Kode Barang - 001-MEMORY - 001-BATTERY - 001-CHARGER - 001-CASING - 001-OU - 001-HDS

9

Lanjutan Properties Object Edit1 Edit2 Edit3 Edit4 Button1

Name Edit1 Edit2 Edit3 Edit4 Button1

Caption / Text *Kosong *Kosong *Kosong *Kosong Hitung

1. COMBO BOX PADA INFORMASI BARANG  Alur Logika dan List Program Combo Box Informasi Barang : Ketika salah satu Items pada Combo Box 1 (satu) di aktifkan, Maka Nama Barang (Edit1.Text), dan Harga Satuan (Edit2.Text) akan terisi secara otomatis sesuai dengan Listing program yang terdapat pada List ComboBox1. Variabel pada ComboBox1 merupakan Variabel Konstanta / Data Konstan yang nilainya bersifat tetap dan tidak berubah.

Contoh Penggunaan Combo Box pada Aplikasi Diskon Penjualan di atas: Jika Item 001-MEMORY diaktifkan, Maka Nama Barang adalah SD Card Sandisk 32 GB dan Harga Satuan adalah Rp. 120.000. Jika Item 001-BATTERY diaktifkan, Maka Nama Barang adalah Baterai Handphone dan Harga Satuan adalah Rp. 100.000. Jika Item 001-CHARGER diaktifkan, Maka Nama Barang adalah Charger Handphone USB Travel dan Harga Satuan adalah Rp. 34.000. Jika Item 001-CASING diaktifkan, Maka Nama Barang adalah Casing Handphone Slim Cover dan Harga Satuan adalah Rp. 60.000. Jika Item 001-OU diaktifkan, Maka Nama Barang adalah OTG USB Adapter Android dan Harga Satuan adalah Rp. 40.000. Jika Item 001-HDS diaktifkan, Maka Nama Barang adalah Handsfree Handphone Original dan Harga Satuan adalah Rp. 40.000. Keterangan : Angka yang terdapat pada Harga Satuan, walaupun terlihat bertipe bilangan real, namun kenyataannya Angka tersebut mengikuti standar default Delphi 7 yaitu berupa Karakter (String). Ketika akan dijumlahkan, karakter tersebut harus di conversi menjadi bilangan real.


10

 Berikut List Program Combo Box Kode Barang : procedure TForm7.ComboBox1Click(Sender: TObject); begin if ComboBox1.Text='001-MEMORY' then begin edit1.Text:='SD Card Sandisk 32 GB'; edit2.Text:='120000'; edit3.Text:=''; edit4.Text:=''; end else if ComboBox1.Text='001-BATTERY' then begin edit1.Text:='Baterai Handphone'; edit2.Text:='100000'; edit3.Text:=''; edit4.Text:=''; end else if ComboBox1.Text='001-CHARGER' then begin edit1.Text:='Charger Handphone USB Travel'; edit2.Text:='34000'; edit3.Text:=''; edit4.Text:=''; end else if ComboBox1.Text='001-CASING' then begin edit1.Text:='Casing Handphone Slim Cover'; edit2.Text:='60000'; edit3.Text:=''; edit4.Text:=''; end else if ComboBox1.Text='001-OU' then begin edit1.Text:='OTG USB Adapter Android'; edit2.Text:='40000'; edit3.Text:=''; edit4.Text:=''; end else if ComboBox1.Text='001-HDS' then begin edit1.Text:='Handsfree Handphone Original'; edit2.Text:='40000'; edit3.Text:=''; edit4.Text:=''; end end;


11

2. TOMBOL “ HITUNG ” PADA INFORMASI BARANG  Alur Logika dan List Program Tombol HITUNG Informasi Barang : Pertama, Sebelum Menekan Tombol HITUNG langkah pertama yang harus dilakukan adalah mengisi Kolom Jumlah secara Manual, hal ini dilakukan agar tidak terjadi kesalahan pada saat menekan tombol HITUNG. Kedua, Ketika Tombol HITUNG diklik, Maka tombol tersebut akan menghitung Harga Satuan (harga_satuan) dikali (*) dengan Jumlah (jumlah) maka kita akan mendapat Total Harga (total_harga) dan tentunya Variabel tersebut sudah di Deklarasikan terlebih dahulu pada Variabel Global.  Berikut List Program Tombol HITUNG Informasi Barang : procedure TForm7.Button1Click(Sender: TObject); begin harga_Satuan:=strtofloat(Edit2.Text); jumlah:=strtofloat(Edit3.Text); total:=harga_Satuan*jumlah; edit4.Text:=floattostr(total); end;

 Penjelasan List Program Tombol HITUNG : Pertama, harga_satuan pada Edit2.Text dan jumlah pada Edit3.Text di conversi dari tipe data Huruf (String) menjadi Bilangan Real (Float), hal ini berguna agar Harga Satuan dapat dijumlahkan dengan Variabel lain yang bertipe data sama. Kedua, total adalal hasil dari perkalian harga_satuan dan jumlah yang merupakan fungsi Operator Aritmatika. Ketiga, Total Harga (Edit4.Text) akan menampilkan hasil variabel total yang sudah di deklarasi. Sebelum itu Bilangan real di conversi terlebih dahulu menjadi tipe data String.


12

C. BOX DISKON DAN PEMBAYARAN

Gambar 3 : Box Diskon dan Pembayaran

Box Diskon dan Pembayaran adalah relasi dari Total Harga, dimana Cek Diskon merupakan Tombol yang menggunakan fungsi IF sesuai dengan List Program sedangkan Bayar Merupakan Fungsi Pengurangan dari Operator Aritmatika, Adapun rincian / Detail komponen yang digunakan pada Box di atas adalah sebagai berikut :

Properties Box Diskon dan Pembayaran : Object Label9 Label10 Label11 Button2 Button3

Name Label9 Label10 Label11 Button2 Button3

Caption / Text Potongan Bayar Uang Kembali Cek Diskon Bayar

1. FUNGSI TOMBOL CEK DISKON  Alur Logika dan List Program Tombol CEK DISKON : Pertama, Pastikan Total Harga pada Informasi Barang dan Penjumlahan sudah didapat, karena Tombol CEK DISKON tidak akan bekerja apabila Total Harga belum di jumlahkan. Kedua, Ketika Tombol CEK DISKON diklik, Maka tombol tersebut akan memproses Kondisi dari Total Harga.

Contoh Penggunaan Tombol CEK DISKON Aplikasi Diskon Penjualan di atas: Jika Total Harga lebih dari ( > ) Rp. 500.000, Maka Potongan Diskon 20% dari Total Harga.

Ketiga, Potongan (Edit5.Text) akan terisi apabila Total Harga lebih dari ( > ) Rp. 500.000, Jika kurang dari atau sama dengan ( = ) nilai tersebut maka Potongan akan bernilai 0 (nol).


13

 Berikut List Program Tombol CEK DISKON : procedure TForm7.Button2Click(Sender: TObject); begin if total > 500000 then begin diskon:=total*0.2; edit5.Text:=floattostr(diskon); edit4.Text:=floattostr(total-diskon); end else edit5.Text:='0'; end;

 Penjelasan List Program Tombol CEK DISKON : Pertama, Jika Total (Edit4.Text) lebih dari ( > ) Rp. 500.000, Maka diskon yang merupakan variabel bilangan real adalah hasil dari Total dikali (*) dengan 0.2 (20/100). Kedua, Potongan (Edit5.Text) adalah hasil dari Total dikali (*) dengan 0.2 = diskon. Ketiga, Jika langkah pertama terpenuhi / dijalankan, Maka Total (Edit4.Text) datanya akan berubah dengan fungsi Operator Aritmatika dari hasil pengurangan Total ( total ) dikurang Potongan ( diskon ). Keempa, Jika Total kurang dari ( < ) Rp. 500.000, Maka Potongan (Edit.Text) akan bernilai 0 (nol).


14

2. FUNGSI TOMBOL BAYAR  Alur Logika dan List Program Tombol BAYAR : Jika Tombol BAYAR diklik, Maka tombol akan menjalankan fungsi IF / Pengkondisian dari suatu Variabel. Dan Uang Kembali (Edit7.Text) akan terisi dari Total Bayar (Edit6.Text) dikurang dengan Total Harga (Edit4.Text). Sebelum itu Pastikan Jumlah Bayar (Edit6.Text) sudah terisi Secara Manual melebihi angka dari Total Harga (Edit4.Text).

 Berikut List Program Tombol BAYAR : procedure TForm7.Button3Click(Sender: TObject); begin bayar:=strtofloat(edit6.Text); if total > 500000 then begin edit7.Text:=floattostr(bayar-(total-diskon)); Memo1.Lines.add('Anda Mendapat Diskon 20% karena Transaksi di atas Rp.500.000.'); Memo1.Lines.add(''); Memo1.Lines.add('Nama Kelompok Pemrograman Visual:'); Memo1.Lines.add('- Suarti Syamsir'); Memo1.Lines.add('- Ijal'); Memo1.Lines.add('- Zulkifli'); Memo1.Lines.add('- Sofyan'); Memo1.Lines.add('- Kornelius'); Memo1.Lines.add('- Achmad Rizali'); end

else if total > 100000 then begin edit7.Text:=floattostr(bayar-total); Memo1.Lines.add('Anda Mendapatkan 1 Buah Piring karena Rp.100.000.'); Memo1.Lines.add(''); Memo1.Lines.add('Nama Kelompok Pemrograman Visual:'); Memo1.Lines.add('- Suarti Syamsir'); Memo1.Lines.add('- Ijal'); Memo1.Lines.add('- Zulkifli'); Memo1.Lines.add('- Sofyan'); Memo1.Lines.add('- Kornelius'); Memo1.Lines.add('- Achmad Rizali'); end


Transaksi

di

15

atas

else if total > 50000 then begin edit7.Text:=floattostr(bayar-total); Memo1.Lines.add('Anda Mendapatkan 1 Buah Gelas karena Rp.50.000.'); Memo1.Lines.add(''); Memo1.Lines.add('Nama Kelompok Pemrograman Visual:'); Memo1.Lines.add('- Suarti Syamsir'); Memo1.Lines.add('- Ijal'); Memo1.Lines.add('- Zulkifli'); Memo1.Lines.add('- Sofyan'); Memo1.Lines.add('- Kornelius'); Memo1.Lines.add('- Achmad Rizali'); end

Transaksi

di

atas

else edit7.Text:=floattostr(bayar-total); end;

 Penjelasan List Program Tombol BAYAR : Fungsi inti dari Tombol Bayar adalah penggunaan Fungsi Pengurangan Operator Aritmatika, yaitu Jumlah Bayar (Edit6.Text) dikurang ( - ) dengan Total Harga (Edit4.Text). Namun terdapat penambahan Kondisi pada Tombol Tersebut. Pertama, Jika Total (Edit4.Text) lebih dari (>) Rp. 500.000, Maka Memo (Memo1) akan Menampilkan “Anda Mendapat Diskon 20% Karena Transaksi di Atas Rp. 500.000”. Jika Total (Edit4.Text) lebih dari (>) Rp. 100.000, Maka Memo (Memo1) akan Menampilkan “Anda Mendapat 1 Buah Piring Karena Transaksi di Atas Rp. 100.000”. Jika Total (Edit4.Text) lebih dari (>) Rp. 50.000, Maka Memo (Memo1) akan Menampilkan “Anda Mendapat 1 Buah Gelas Karena Transaksi di Atas Rp. 50.000”.


16

D. BOX KETERANGAN DAN FUNGSI WHILE DO

Gambar 4 : Box Keterangan dan Fungsi While Do

Box Keterangan dan Fungsi While Do hanya sebagai tambahan pada materi Aplikasi Diskon Penjualan, Pada Box ini kami menggunakan Memo untuk menampung Keterangan dari Kondisi Penggunaan IF dari Tombol Bayar, Sedangkan Tombol While Do berfungsi untuk menampilkan perulangan pada Memo selama kondisi bernilai True dan akan berhenti ketika kondisi bernilai False, Pembatasan True dan False ini dapat kita tentukan sendiri. Adapun rincian / Detail komponen yang digunakan pada Box di atas adalah sebagai berikut :

Properties Box Keterangan dan Fungsi While Do : Object Memo1 BitBtn1 BitBtn2 BitBtn3

Name Memo1 BitBtn1 BitBtn2 BitBtn3

Caption / Text *Kosong Selesai Bersih While Do

1. FUNGSI TOMBOL SELESAI  Alur Logika dan List Program Tombol SELESAI : Jika Tombol SELESAI diklik, Maka Form Akan ditutup (Close).  Berikut List Program Tombol SELESAI : procedure TForm7.BitBtn1Click(Sender: TObject); begin close; end;


17

2. FUNGSI TOMBOL BERSIH  Alur Logika dan List Program Tombol BERSIH : Jika Tombol BERSIH diklik, Maka Edit1, Edit2, Edit3, Edit4, Edit5, Edit6, Edit7 dan Memo akan dikosongkan.  Berikut List Program Tombol BERSIH : procedure TForm7.BitBtn2Click(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:=''; Edit6.Text:=''; Edit7.Text:=''; Memo1.clear; end;

3. FUNGSI TOMBOL WHILE DO  Alur Logika dan List Program Tombol WHILE DO : Jika Tombol While Do diklik, Maka Memo (Memo1) akan terisi sesuai dengan Pengkondisian perulangan.  Berikut List Program Tombol WHILE DO : procedure TForm7.BitBtn3Click(Sender: TObject); var a:integer; begin a:=1; while a < 5001 do begin Memo1.Lines.Add(inttostr(a)+'SUARTI,IJAL,ZUL,SOFYAN,KORNELIUS,AR'); a:=a+1; end

 Penjelasan List Program Tombol WHILE DO : Kalimat “Suarti,Ijal,Zul,Sofyan,Kornelius,AR” akan diulang terus menerus sebanyak 5000 kali. Artinya Nilai True dari listing diatas adalah nilai 1 sampai 5000, dan 5001 adalah Nilai false.


18

BAB IV KESIMPULAN DAN SARAN A. Kesimpulan Variabel Lokal adalah variabel yang hanya di deklarasi dan berfungsi pada satu Tombol saja, Sedangkang Variable Global adalah deklarasi variabel yang dapat digunakan untuk semua kondisi pada saat kita membutuhkan variabel tersebut, Dekralasi Konstanta adalah dekralasi yang menuntut Nilai tetap pada Setiap Dekralasinya, Tipe Data Array adalah Kumpulan Variabel yang bertipe sama.

B. Saran Dari hasil pembahasan yang telah kami susun, Kami sadar bahwa Aplikas yang kami buat masih jauh dari Sempurna, Oleh karena itu kami sangat membutuhkan lebih banyak masukan dan saran kepada para pembaca.


19

DAFTAR PUSTAKA http://dokumen.tips/documents/mengenal-borland-delphi-7.html


20

Makalah Aplikasi Diskon Penjualan Menggunakan Delphi 7

Recommend Documents