Judul ' : Contoh Listing Delphi Penjualan Pulsa

Contoh Listing Delphi Penjualan Pulsa

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    ckode: TComboBox;

    enamavoucher: TEdit;

    eharga: TEdit;

    ejumlah: TEdit;

    etotal: TEdit;

    GroupBox1: TGroupBox;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Button1: TButton;

    enotujuan: TEdit;

    ckodevoucer: TComboBox;

    ehargapulsa: TEdit;

    Btotal: TButton;

    etotalbyr: TEdit;

    Label9: TLabel;

    Label10: TLabel;

    ebayar: TEdit;

    ekembali: TEdit;

    Label11: TLabel;

    eketerangan: TEdit;

    bbersih: TButton;

    Button4: TButton;

    Label12: TLabel;

    procedure ckodeClick(Sender: TObject);

    procedure ejumlahChange(Sender: TObject);

    procedure ckodevoucerClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure BtotalClick(Sender: TObject);

    procedure bbersihClick(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure ebayarChange(Sender: TObject);

    procedure etotalbyrChange(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ckodeClick(Sender: TObject);

begin

if ckode.Text ='S5' then

begin

enamavoucher.Text :='Simpati 5000';

eharga.Text :='5200';

end

else

if ckode.Text ='S10' then

begin

enamavoucher.Text :='Simpati 10000';

eharga.Text :='10250';

end

else

if ckode.Text ='S15' then

begin

enamavoucher.Text :='Simpati 15000';

eharga.Text :='15700';

end

else

if ckode.Text ='A5' then

begin

enamavoucher.Text :='AS 5000';

eharga.Text :='5200';

end

else

if ckode.Text ='A10' then

begin

enamavoucher.Text :='AS 10000';

eharga.Text :='10450';

end

else

end;

procedure TForm1.ejumlahChange(Sender: TObject);

var

harga,jumlah,total:integer;

begin

 harga:=strtoint(eharga.Text );

jumlah:=strtoint(ejumlah.Text );

etotal.Text :=inttostr(strtoint(eharga.Text )*strtoint(ejumlah.Text ));

end;

procedure TForm1.ckodevoucerClick(Sender: TObject);

begin

if ckodevoucer.Text ='S5' then

ehargapulsa.Text :='6000'

else

if ckodevoucer.Text ='S10' then

ehargapulsa.Text :='12000'

else

if ckodevoucer.Text ='S15' then

ehargapulsa.Text :='16000'

else

if ckodevoucer.Text ='A5' then

ehargapulsa.Text :='5500'

else

if ckodevoucer.Text ='A10' then

ehargapulsa.Text :='11500'

else

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if (application.MessageBox('SMS Telah dikirim...','Info',MB_YESno)=idyes) then

end;

procedure TForm1.BtotalClick(Sender: TObject);

var harga,total,biaya:integer;

begin

harga:=strtoint(ehargapulsa.Text );

total:=strtoint(etotal.Text );

etotalbyr.Text :=inttostr(strtoint(ehargapulsa.Text )+strtoint(etotal.Text ));

end;

procedure TForm1.bbersihClick(Sender: TObject);

begin

 ckode.Text :='Kode';

enamavoucher.Text :='';

eharga.Text :='';

ejumlah.Text :='';

enotujuan.Text :='';

ckodevoucer.Text :='Kode';

ehargapulsa.Text :='0';

etotalbyr.Text :='0';

ebayar.Text :='';

ekembali.Text :='0';

eketerangan.Text :='';

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

ckode.Text :='Kode';

enamavoucher.Text :='';

eharga.Text :='';

ejumlah.Text :='';

etotal.Text :='0';

enotujuan.Text :='';

ckodevoucer.Text :='Kode';

ehargapulsa.Text :='0';

etotalbyr.Text :='0';

ebayar.Text :='';

ekembali.Text :='0';

eketerangan.Text :='';

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if(application.MessageBox('Yakin Mau Keluar?','Informasi',MB_YESNO)=idyes)then

close;

end;

procedure TForm1.ebayarChange(Sender: TObject);

var

total,bayar,kembali:integer;

begin

total:=strtoint(etotalbyr.Text );

bayar:=strtoint(ebayar.Text );

ekembali.Text :=inttostr(strtoint(ebayar.Text)-strtoint(etotalbyr.Text ));

end;

procedure TForm1.etotalbyrChange(Sender: TObject);

var

total,keterangan :integer;

begin

total:=strtoint(etotalbyr.Text );

if strtoint(etotalbyr.Text )>100000 then

 eketerangan.Text :='Anda Mendapat Souvenir, Karena Telah Belanja Di Atas Rp 100000'

 else

 eketerangan.Text :='Tidak Dapat';

end;

end.

Mantabs... wis rampung sing maos mas brow... Contoh Listing Delphi Penjualan Pulsa

Tulisanku sing urek-urekan iki Contoh Listing Delphi Penjualan Pulsa,Mugo-mugo Mberkahi...tulisan saya ' kali ini.

Wehh Rajin ternyata anda.... Contoh Listing Delphi Penjualan Pulsa Catet bro alamate http://andibikinblog.blogspot.com/2011/10/contoh-listing-delphi-penjualan-pulsa.html Semoga artikel ini berguna Prok-prok...prok.... JANGAN LUPA SHARE .. tERTANDA mBAH Odoy..... joGJA- MOHON BACA JUGA ARTIKEL DIBAWAH INI...

Tweet