Aplikasi Penjualan Barang Sederhana dengan Delphi

بسم الله الرحمن الرحيم

SOURCE KODE

unit Unit1;

interface

uses

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

  Dialogs, XPMan, StdCtrls, Menus, ExtCtrls, jpeg;

type

  TFRMBARANG = class(TForm)

    PILIHANBARANG: TLabel;

    NAMABARANG: TLabel;

    HARGA: TLabel;

    CBPBARANG: TComboBox;

    LBNAMABARANG: TListBox;

    HARGABARANG: TEdit;

    XPManifest1: TXPManifest;

    MainMenu1: TMainMenu;

    Panel1: TPanel;

    Panel2: TPanel;

    BANTUAN1: TMenuItem;

    KONTAK1: TMenuItem;

    KELUAR1: TMenuItem;

    CARAPENGGUNAAN1: TMenuItem;

    ADMIN1: TMenuItem;

    Image1: TImage;

    Image2: TImage;

    Image3: TImage;

    Image4: TImage;

    Image5: TImage;

    Image6: TImage;

    Image7: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure FormActivate(Sender: TObject);

    procedure CBPBARANGClick(Sender: TObject);

    procedure LBNAMABARANGClick(Sender: TObject);

    procedure KELUARClick(Sender: TObject);

    procedure KELUAR1Click(Sender: TObject);

    procedure ADMIN1Click(Sender: TObject);

    procedure CARAPENGGUNAAN1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FRMBARANG: TFRMBARANG;

implementation

{$R *.dfm}

procedure TFRMBARANG.FormActivate(Sender: TObject);

begin

CBPBARANG.Items.Clear;

CBPBARANG.Items.Append('INTEL');

CBPBARANG.Items.Append('AMD');

CBPBARANG.Items.Append('LAPTOP');

end;

procedure TFRMBARANG.CBPBARANGClick(Sender: TObject);

VAR PILIHAN:INTEGER;

begin

IF CBPBARANG.Text='INTEL' THEN

 BEGIN

  LBNAMABARANG.Items.Clear;

  LBNAMABARANG.Items.Append('INTEL PENTIUM IV');

  LBNAMABARANG.Items.Append('INTEL CORE 2 DUO');

  LBNAMABARANG.Items.Append('INTEL CORE 2 QUAD');

  LBNAMABARANG.Items.Append('INTEL CORE i3');

  LBNAMABARANG.Items.Append('INTEL CORE i5');

  END

   ELSE IF CBPBARANG.Text='AMD' THEN

    BEGIN

     LBNAMABARANG.Items.Clear;

     LBNAMABARANG.Items.Append('AMD DUAL-CORE');

     LBNAMABARANG.Items.Append('AMD TURION');

     LBNAMABARANG.Items.Append('AMD ATHLON');

     LBNAMABARANG.Items.Append('AMD VENOM');

     END

      ELSE IF CBPBARANG.Text='LAPTOP' THEN

       BEGIN

        LBNAMABARANG.Items.Clear;

        LBNAMABARANG.Items.Append('ACER ASPIRE ONE 722');

        LBNAMABARANG.Items.Append('ACER ASPIRE ONE 755');

        LBNAMABARANG.Items.Append('TOSHIBA A80');

        LBNAMABARANG.Items.Append('TOSHIBA A260');

        END

end;

procedure TFRMBARANG.LBNAMABARANGClick(Sender: TObject);

begin

IF CBPBARANG.Text='INTEL' THEN

CASE LBNAMABARANG.ItemIndex OF

0: HARGABARANG.Text:='RP.3.000.000';

1: HARGABARANG.Text:='RP.4.500.000';

2: HARGABARANG.Text:='RP.5.000.000';

3: HARGABARANG.Text:='RP.5.500.000';

4: HARGABARANG.Text:='RP.6.000.000';

ELSE

HARGABARANG.Text:='0';

END

ELSE IF CBPBARANG.Text='AMD' THEN

CASE LBNAMABARANG.ItemIndex OF

0: HARGABARANG.Text:='RP.2.500.000';

1: HARGABARANG.Text:='RP.3.700.000';

2: HARGABARANG.Text:='RP.4.300.000';

3: HARGABARANG.Text:='RP.5.000.000';

ELSE

HARGABARANG.Text:='0';

END

ELSE IF CBPBARANG.Text='LAPTOP' THEN

CASE LBNAMABARANG.ItemIndex OF

0: HARGABARANG.Text:='RP.2.800.000';

1: HARGABARANG.Text:='RP.3.000.000';

2: HARGABARANG.Text:='RP.1.500.000';

3: HARGABARANG.Text:='RP.3.500.000';

ELSE

HARGABARANG.Text:='0';

END

end;

procedure TFRMBARANG.KELUARClick(Sender: TObject);

begin

CLOSE;

end;

procedure TFRMBARANG.KELUAR1Click(Sender: TObject);

begin

if application.MessageBox('APAKAH ANDA YAKIN ?','KELUAR',mb_yesno or mb_iconquestion)=mryes then

application.Terminate;

end;

procedure TFRMBARANG.ADMIN1Click(Sender: TObject);

begin

messagedlg('AFDAL TAHIR | F 441 10 035 | 0852-5601-9591 | afdal.tahir@gmail.com | http://belajar-bisnis10.blogspot.com',mtinformation,[mbok],0);

end;

procedure TFRMBARANG.CARAPENGGUNAAN1Click(Sender: TObject);

begin

messagedlg('PILIH BARANG PADA TAB ( PILIHAN BARANG ) > PILIH NAMA BARANG > MAKA HARGA BARANG AKAN MUNCUL > SELESAI',mtinformation,[mbok],0);

end;

end.