1.Baca Bismillah,.,
2. Semangant tentunya
3. Kopi + Rokok + Gorengan tentunya lebih mantap
4. siapa
5. lalu coba buka program delphi
6. pilih new aplication
7. buat component yang dibutuhkan
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
Gbr.Program Penjualan
unit UDis;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TTForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
ListBox1: TListBox;
RadioButton3: TRadioButton;
procedure FormCreate(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
harga,jumlah,total,discount,totalbayar: SINGLE;
KODE : INTEGER;
sharga,sjumlah,stotal,sdiscount,stotalbayar:string[30];
end;
var
TForm: TTForm;
implementation
{$R *.dfm}
procedure TTForm.FormCreate(Sender: TObject);
begin
EDIT1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit1.SetFocus;
end;
procedure TTForm.RadioButton1Click(Sender: TObject);
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=(jumlah * harga);
str(Total:2:2,stotal);
edit4.text:=stotal;
Discount:=(total*0.1);
str(Discount:2:2,sdiscount);
edit5.text:=sdiscount;
totalbayar:= total-Discount;
str(totalbayar:2:2,stotalbayar);
edit6.text:=stotalbayar;
end;
procedure TTForm.RadioButton2Click(Sender: TObject);
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=(jumlah * harga);
str(Total:2:2,stotal);
edit4.text:=stotal;
Discount:=(total*0.2);
str(Discount:5:2,sdiscount);
edit5.text:=sdiscount;
totalbayar:= total-Discount;
str(totalbayar:10:2,stotalbayar);
edit6.text:=stotalbayar;
end;
procedure TTForm.Button1Click(Sender: TObject);
begin
EDIT1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit1.SetFocus;
end;
procedure TTForm.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TTForm.ListBox1Click(Sender: TObject);
begin
str(totalbayar:10:2,stotalbayar);
edit6.text:=stotalbayar;
end;
procedure TTForm.RadioButton3Click(Sender: TObject);
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=(jumlah * harga);
str(Total:2:2,stotal);
edit4.text:=stotal;
Discount:=(total*0.3);
str(Discount:2:2,sdiscount);
edit5.text:=sdiscount;
totalbayar:= total-Discount;
str(totalbayar:2:2,stotalbayar);
edit6.text:=stotalbayar;
end;
end.
unit UDis;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TTForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
ListBox1: TListBox;
RadioButton3: TRadioButton;
procedure FormCreate(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
harga,jumlah,total,discount,totalbayar: SINGLE;
KODE : INTEGER;
sharga,sjumlah,stotal,sdiscount,stotalbayar:string[30];
end;
var
TForm: TTForm;
implementation
{$R *.dfm}
procedure TTForm.FormCreate(Sender: TObject);
begin
EDIT1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit1.SetFocus;
end;
procedure TTForm.RadioButton1Click(Sender: TObject);
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=(jumlah * harga);
str(Total:2:2,stotal);
edit4.text:=stotal;
Discount:=(total*0.1);
str(Discount:2:2,sdiscount);
edit5.text:=sdiscount;
totalbayar:= total-Discount;
str(totalbayar:2:2,stotalbayar);
edit6.text:=stotalbayar;
end;
procedure TTForm.RadioButton2Click(Sender: TObject);
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=(jumlah * harga);
str(Total:2:2,stotal);
edit4.text:=stotal;
Discount:=(total*0.2);
str(Discount:5:2,sdiscount);
edit5.text:=sdiscount;
totalbayar:= total-Discount;
str(totalbayar:10:2,stotalbayar);
edit6.text:=stotalbayar;
end;
procedure TTForm.Button1Click(Sender: TObject);
begin
EDIT1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit1.SetFocus;
end;
procedure TTForm.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TTForm.ListBox1Click(Sender: TObject);
begin
str(totalbayar:10:2,stotalbayar);
edit6.text:=stotalbayar;
end;
procedure TTForm.RadioButton3Click(Sender: TObject);
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=(jumlah * harga);
str(Total:2:2,stotal);
edit4.text:=stotal;
Discount:=(total*0.3);
str(Discount:2:2,sdiscount);
edit5.text:=sdiscount;
totalbayar:= total-Discount;
str(totalbayar:2:2,stotalbayar);
edit6.text:=stotalbayar;
end;
end.
Tidak ada komentar:
Posting Komentar