Cara Membuat Program Order Barang Keren Dengan Delphi 7

Dunia Programming - Hai sahabat blogger. Kali ini saya akan membahas bagaimana cara membuat Program Order Barang atau Pemesanan barang dengan Delphi7.

Sering kali disebuah Toko-toko masih menggunakan kertas atau Nota untuk menghitung atau menjumlahkan suatu barang, nah untuk itu kita tidak perlu pusing-pusing lagi dengan menghabiskan banyak kertas, bulpoin dan lain sebagainya hanya untuk menghitung orderan barang. Dengan Program, Semua pekerjaan manusia akan terasa ringan, Nah salah satunya yaitu program Order Barang Ini.

Berikut, adalah tampilan Programnya.

Tampilan Program Delphi Order Barang

Keren Bukan...?, Pasti Keren Dong, dan yang pasti buatan tangan sendiri dan karya sendiri, dan juga, kita tidak susah-susah lagi jika ada orang yang memesan barang ataupun yang lain, cukup kita isikan dan... klik, semuanya selesai hehehe...

Bagaimana Cara membuatnya...?

Cara Membuatnya Cukup Gampang, Kalian Perlu menggunakan bahan Software Yang Bernama Delphi. Apa itu delphi, kalian bisa baca tutorial tentang Delphi di menu Delphi

Oke, Langsung Saja, ini dia Script pembuatan Program Order Barang yang sudah saya buat :

Cocokkan source code program Order barang kalian dengan source code dibawah ini : 

unit InputDataBarang;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit5.enabled:=false;
end;

procedure TForm1.Edit3Change(Sender: TObject);
var
  sjumlah:string[30];
  harga,banyak,jumlah:single;
  kode:integer;
begin
  val(edit3.Text,harga,kode);
  val(edit4.Text,banyak,kode);
  jumlah:=harga*banyak;
  str(jumlah:20:0,sjumlah);
  edit5.text:=sjumlah;
end;

procedure TForm1.Edit4Change(Sender: TObject);
var
  sjumlah:string[30];
  harga,banyak,jumlah:single;
  kode:integer;
begin
  val(edit3.Text,harga,kode);
  val(edit4.Text,banyak,kode);
  jumlah:=harga*banyak;
  str(jumlah:20:0,sjumlah);
  edit5.text:=sjumlah;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';
  edit1.setfocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  application.terminate
end;
end.

Sekian Tutorial Cara Membuat Program Order Barang, apabila kalian kebingungan dalam membuat Program ini, kalian bisa meninggalkan komentar dibawah artikel ini, atau juga bisa kirim pesan melalui Email saya dengan cara klik bagian tombol Contact dibagian bawah Web Dunia Programming.

itulah beberapa cara untuk membuat program dari Delphi 7, semoga apa yang saya berikan bermanfaat bagi kalian semua.