penjualan

nama : wahyudin nur zaman

kelas : 12 4c 06

jurusan : managemen informatika

kode

unit Unit2;

interface

uses

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

  Dialogs, Buttons, StdCtrls;

type

  TForm2 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    e_total: TEdit;

    b_ok: TButton;

    Label2: TLabel;

    Label3: TLabel;

    e_tanggal: TEdit;

    e_nofaktur: TEdit;

    GroupBox2: TGroupBox;

    L_data: TListBox;

    GroupBox3: TGroupBox;

    L_daftar: TListBox;

    Label4: TLabel;

    e_totalpenjualan: TEdit;

    b_isidata: TBitBtn;

    b_exit: TBitBtn;

    procedure FormCreate(Sender: TObject);

    procedure b_isidataClick(Sender: TObject);

    procedure b_exitClick(Sender: TObject);

    procedure b_okClick(Sender: TObject);

    procedure e_totalKeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

DateSeparator:='-';

ShortDateFormat :='mm/dd/yyyy';

e_tanggal.Text:= DateToStr(Date);

end;

procedure TForm2.b_isidataClick(Sender: TObject);

begin

e_total.Text :='';

e_nofaktur.Text := '';

L_data.Clear;

L_daftar.Clear;

e_totalpenjualan.Text :='';

end;

procedure TForm2.b_exitClick(Sender: TObject);

begin

if(Application.MessageBox('CLOSE TO PROGRAM..??','--ARE YOU SURE--',

MB_OKCANCEL or MB_ICONQUESTION or MB_DEFBUTTON2)=IDOK)then close;

end;

procedure TForm2.b_okClick(Sender: TObject);

var

inputnama : string ;

inputharga: string ;

i : integer ;

j : integer ;

harga : real ;

begin

harga:=0;

j:=0;

j:=StrToInt(e_total.Text);

if j<= 0 then

begin

ShowMessage('Data tidak boleh lebih kecil dari Nol');

exit;

end

else

begin

for i := 1 to j do

begin

inputnama := InputBox('Input','Ketik Nama Barang','');

inputharga := InputBox('Input','Ketik Harga Barang','');

L_data.Items.Add(inputnama);

L_daftar.Items.Add(inputharga);

harga:= harga + StrToFloat(inputharga);

end;

end;

e_totalpenjualan .Text:=FloatToStr(harga);

e_totalpenjualan.Text:=Format('%m',[harga]);

end;

procedure TForm2.e_totalKeyPress(Sender: TObject; var Key: Char);

begin

if (key = #13) then b_ok.SetFocus;

end;

end.