tag:blogger.com,1999:blog-67199708910843029732024-02-07T15:50:01.082-08:00Program Penjualan Delphi 7Dani Fauzihttp://www.blogger.com/profile/07701108951305179677noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-6719970891084302973.post-28567457801923163982010-10-28T23:26:00.000-07:002010-10-28T23:26:23.036-07:00Program Penjualan Delphi 7 okkk,,, bagi pemula yang maw berlatih membuat program penjualan dari delphi, di dalam dunia programer banyak sekali program untuk membuat sebuah program atau application. dan di sini saya coba membantu temen-temen yang maw belajar membuat program penjualan dari delphi 7, langkah-langkah kita harus menyiap <st1:state _moz-userdefined="" w:st="on"><st1:place _moz-userdefined="" w:st="on">kan</st1:place></st1:state> persiapan-persiapan sbg berikut :<br />
<br />
<br />
1.Baca Bismillah,.,<br />
2. Semangant tentunya <br />
3. Kopi + Rokok + Gorengan tentunya lebih mantap<br />
4. siapa <st1:state _moz-userdefined="" w:st="on"><st1:place _moz-userdefined="" w:st="on">kan</st1:place></st1:state> computer yang sudah di instal Program Delphi 7<br />
5. lalu coba buka program delphi<br />
6. pilih new aplication<br />
7. buat component yang dibutuhkan<br />
<br />
di bawah ini saya kasi script program penjualan tp masih sederhana sekali sebagai contoh munkin anda bisa mengembangkan program penjualan tsb, selamat mencoba ,.,.,semoga berhasil <br />
<br />
<br />
<br />
<o:p _moz-userdefined=""></o:p> <br />
<div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRUVKTcGUZLmtdRBwX4VPs6uA5EyPCV7tzXK9Z9zJHOMkVdozEJoCousJo5i89XCeW0YKz3IQx723Paxhm3TGWNI9T8a9xojHyF0O-gNtlXPxkLkm5wl7wORXYR-ha1K33MA44q1ZQ6MjH/s1600/index.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRUVKTcGUZLmtdRBwX4VPs6uA5EyPCV7tzXK9Z9zJHOMkVdozEJoCousJo5i89XCeW0YKz3IQx723Paxhm3TGWNI9T8a9xojHyF0O-gNtlXPxkLkm5wl7wORXYR-ha1K33MA44q1ZQ6MjH/s1600/index.jpg" /></a></div><div class="MsoNormal"> Gbr.Program Penjualan<br />
<br />
<br />
unit UDis;<br />
<br />
interface<br />
<br />
uses<br />
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />
Dialogs, StdCtrls;<br />
<br />
type<br />
TTForm = class(TForm)<br />
Label1: TLabel;<br />
Label2: TLabel;<br />
Label3: TLabel;<br />
Label4: TLabel;<br />
Label5: TLabel;<br />
Label6: TLabel;<br />
Button1: TButton;<br />
Button2: TButton;<br />
RadioButton1: TRadioButton;<br />
RadioButton2: TRadioButton;<br />
Edit1: TEdit;<br />
Edit2: TEdit;<br />
Edit3: TEdit;<br />
Edit4: TEdit;<br />
Edit5: TEdit;<br />
Edit6: TEdit;<br />
ListBox1: TListBox;<br />
RadioButton3: TRadioButton;<br />
procedure FormCreate(Sender: TObject);<br />
procedure RadioButton1Click(Sender: TObject);<br />
procedure RadioButton2Click(Sender: TObject);<br />
procedure Button1Click(Sender: TObject);<br />
procedure Button2Click(Sender: TObject);<br />
procedure ListBox1Click(Sender: TObject);<br />
procedure RadioButton3Click(Sender: TObject);<br />
private<br />
{ Private declarations }<br />
<br />
public<br />
{ Public declarations }<br />
harga,jumlah,total,discount,totalbayar: SINGLE;<br />
KODE : INTEGER;<br />
sharga,sjumlah,stotal,sdiscount,stotalbayar:string[30];<br />
end;<br />
<br />
var<br />
TForm: TTForm;<br />
<br />
implementation<br />
<br />
{$R *.dfm}<br />
<br />
procedure TTForm.FormCreate(Sender: TObject);<br />
begin<br />
EDIT1.Clear;<br />
edit2.Clear;<br />
edit3.Clear;<br />
edit4.Clear;<br />
edit5.Clear;<br />
edit6.Clear;<br />
edit1.SetFocus;<br />
end;<br />
<br />
procedure TTForm.RadioButton1Click(Sender: TObject);<br />
begin<br />
val(edit2.Text,harga,kode);<br />
val(edit3.Text,jumlah,kode);<br />
total:=(jumlah * harga);<br />
str(Total:2:2,stotal);<br />
edit4.text:=stotal;<br />
Discount:=(total*0.1);<br />
str(Discount:2:2,sdiscount);<br />
edit5.text:=sdiscount;<br />
totalbayar:= total-Discount;<br />
str(totalbayar:2:2,stotalbayar);<br />
edit6.text:=stotalbayar;<br />
end;<br />
<br />
procedure TTForm.RadioButton2Click(Sender: TObject);<br />
begin<br />
val(edit2.Text,harga,kode);<br />
val(edit3.Text,jumlah,kode);<br />
total:=(jumlah * harga);<br />
str(Total:2:2,stotal);<br />
edit4.text:=stotal;<br />
Discount:=(total*0.2);<br />
str(Discount:5:2,sdiscount);<br />
edit5.text:=sdiscount;<br />
totalbayar:= total-Discount;<br />
str(totalbayar:10:2,stotalbayar);<br />
edit6.text:=stotalbayar;<br />
end;<br />
<br />
procedure TTForm.Button1Click(Sender: TObject);<br />
begin<br />
EDIT1.Clear;<br />
edit2.Clear;<br />
edit3.Clear;<br />
edit4.Clear;<br />
edit5.Clear;<br />
edit6.Clear;<br />
edit1.SetFocus;<br />
end;<br />
<br />
procedure TTForm.Button2Click(Sender: TObject);<br />
begin<br />
application.Terminate;<br />
end;<br />
<br />
procedure TTForm.ListBox1Click(Sender: TObject);<br />
begin<br />
str(totalbayar:10:2,stotalbayar);<br />
edit6.text:=stotalbayar;<br />
end;<br />
<br />
procedure TTForm.RadioButton3Click(Sender: TObject);<br />
begin<br />
val(edit2.Text,harga,kode);<br />
val(edit3.Text,jumlah,kode);<br />
total:=(jumlah * harga);<br />
str(Total:2:2,stotal);<br />
edit4.text:=stotal;<br />
Discount:=(total*0.3);<br />
str(Discount:2:2,sdiscount);<br />
edit5.text:=sdiscount;<br />
totalbayar:= total-Discount;<br />
str(totalbayar:2:2,stotalbayar);<br />
edit6.text:=stotalbayar;<br />
end;<br />
<br />
end.<o:p _moz-userdefined=""></o:p></div><div class="MsoNormal"><br />
</div>Dani Fauzihttp://www.blogger.com/profile/07701108951305179677noreply@blogger.com0