Cara buat aplikasi data penjualan menggunakan delphi 2010

Desain Form

cat1

Desain Properties

Design Properties
Objek
Caption
Name
Label1
Total item yang di beli
Label1
Label2
Tanggal
Label2
Label3
No. Faktur
Label3
Label4
Total Penjualan
Label4
GroupBox1
Data Penjualan
GroupBox1
GroupBox2 Daftar Barang Yang Dibeli GroupBox2
GroupBox3 Daftar Harga Barang
GroupBox3
Button1
Ok
Button1
Button2
isi data lagi
Button2
Button3
CLOSE
Bcutton3
ListBox1
Lnama
ListBox2
Lharga
Edit1
item
Edit2
tgl
Edit3
faktur
Edit4 total

Ketentuan dan alur logika

  1. total item digunakan sebagai pembatas berapa kali, pelanggan akan membeli barang
  2. ketika jumlah item diberikan nilai maka ketika kita klik OK akan ditampilkan kotak pesan (input box) untuk menginput nama barang dan harga barang yang dibeli. begitu seterusnya sampai kondisi dari total item terpenuhi.
  3. total penjualan diperoleh dari penjumlahan seluruh harga barang yang dibeli.
  4. isi data lagi diberikan untuk mengulang pembelian.
  5. close untuk menutup form
  6. untuk tanggal ditampilkan otomatis

Listing Program

unit Unit7;

interface

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

type
TForm7 = class(TForm)
Image1: TImage;
GroupBox1: TGroupBox;
Label1: TLabel;
item: TEdit;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
tgl: TEdit;
faktur: TEdit;
GroupBox2: TGroupBox;
lnama: TListBox;
GroupBox3: TGroupBox;
lharga: TListBox;
Label4: TLabel;
total: TEdit;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
var inputnama,inputharga:string;
i,j:integer;harga:real;
begin
harga:=0; j:=0; j:= strtoint(item.Text);
if j<=0 then
begin
showmessage(‘data tidak boleh lebih kecil dari nol’);exit;
end
else
begin
for I := 0 to j -1 do
begin
inputnama:=inputbox(‘input’,’ketikan nama barang’,”);
inputharga:=inputbox(‘input’,’ketikan harga barang’,”);
lnama.Items.Add(inputnama);
lharga.Items.Add(inputharga);
harga:=harga+strtofloat(inputharga);
end;
total.Text:=floattostr(harga);
end;
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
item.Text:=”;faktur.Text:=”;lnama.Clear;
lharga.Clear;total.Text:=”;
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
dateseparator:=’-‘;shortdateFormat:=’dd/mm/yyyy’;
tgl.Text:=’hari ini ‘ + datetostr(date);
end;

end.