Madriva

Sebagai perwujudan permintaan dari sobat-sobat Blogger yang menginginkan tutorial pemrogramman dengan Delphi, kali ini saya akan memulainya dengan tutorial tingkat dasar terlebih dahulu, yaitu membuat aplikasi sederhana yang bisa digunakan untuk proses transaksi pertokoan. Dimaksudkan agar sobat Blogger tidak memerlukan kalkulator lagi gitu.

Saya sendiri juga belum lama belajar tentang Delphi, baru 1 tahun berjalan, jadi jika terdapat kesalahan mohon dimaklumi. Dan materi yang ada dalam postingan ini saya adopsi dari tutorial yang ada di dalam ebook BSI. Berikut tutorialnya.

Sobat Blogger harus membuat design Form terlebih dahulu dengan formasi seperti gambar di bawah ini:

Dengan Properties seperti yang diuraikan pada tabel di bawah ini.

Object	Name	Caption
Label 1	Label1	Total Item Yang Dibeli
Label 2	Label2	Tanggal
Label 3	Label3	No. Faktur
Lebl 4	Label4	Total Penjualan
GroupBox1	GroupBox1	Data Penjualan
GroupBox2	GroupBox2	Daftar Nama Barang Yang Dibeli
GroupBox3	GroupBox3	Daftar Harga Barang
GroupBox4	GroupBox	Detail
Button1	btOk	OK
Button2	btLagi	Isi Data Lagi
Button3	btClose	Close
Edit1	-	eItem
Edit2	-	eNofaktur
Edit3	-	eTgl
Edit4	-	eTotal
ListBox1	-	lNama
ListBox2	-	lHarga

Listing Program yang diberikan adalah.

//Ini adalah kode pertama pada program

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    eItem: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    eTgl: TEdit;
    eNofaktur: TEdit;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label4: TLabel;
    eTotal: TEdit;
    btLagi: TButton;
    btClose: TButton;
    btOK: TButton;
    lnama: TListBox;
    lharga: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure btOKClick(Sender: TObject);
    procedure btLagiClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
DateSeparator:='-';
ShortDateFormat:='mm/dd/yy';
eTgl.Text:='Hari ini'+DateToStr(Date);
end;


procedure TForm1.btOKClick(Sender: TObject);
var
inputnama:string;
inputharga:string;
i:integer;
j:integer;
harga:real;
begin
harga:=0;
j:=0;
j:=StrToInt(eItem.Text);
if j<=0 then
begin
    showmessage('Data Tidak Boleh Kurang dari Nol');
    exit;
end
else
begin
for i:=1 to j do
begin
inputnama:=inputbox('INput','Ketikkan Nama Barang','');
inputharga:=inputbox('INput','Ketikkan Harga Barang','');
lnama.Items.Add(inputnama);
lharga.Items.Add(inputharga);
harga:=harga+StrToFloat(inputharga);
end;
end;
eTotal.Text:=FloatToStr(harga);
end;


procedure TForm1.btLagiClick(Sender: TObject);
begin
eItem.Text:='';
eNofaktur.Text:='';
lnama.Clear;
lharga.Clear;
eTotal.Text:='';
end;


procedure TForm1.btCloseClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin Ingin Keluar Dari Aplikasi','Konfirmasi',MB_YESNO)=IDYES)then
close;
end;

end.

OK sobat Blogger, demikian tutorial Delphi yang pertama, selanjutnya kita akan bersama-sama mengembangkan pembelajaran kita,,, Jika ada saran atau hal yang perlu di sampaikan, silahkan masukkan di dalam komentar...