Kamis, 28 Oktober 2010

Program 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 kan persiapan-persiapan sbg berikut :


1.Baca Bismillah,.,
2. Semangant tentunya
3. Kopi + Rokok + Gorengan tentunya lebih mantap
4. siapa kan computer yang sudah di instal Program Delphi 7
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.

Tidak ada komentar:

Posting Komentar