Tutorial Membuat Kuitansi Sederhana dengan Lazarus

Postingan ini saya tujukan khusus untuk cosim micho’s dan Ido umumnya untuk semua yang ingin belajar pemrograman dengan Lazarus.

  1. Buatlah form utama seperti gambar di bawah ini

Kuitansi 1Terdiri dari TEdit, Label, Button dan DateTimePicker, jika ingin membuat menu juga menggunakan MainMenu.

2. Membuat form baru untuk report dengan menggunakan Fortes Report dan susun seperti gambar di bawah ini, saya menggunakan backgroung gambar Kuitansi

Kuitansi 2 report

Di report saya hanya menggunakan RLLabel sebagai komponennya.

3. Kemudian klik 2x pada button Print di form pertama yang dibuat, dan isikan code sebagai berikut

Kuitansi 3 PrintKemudian terakhir buatlah Unit UFunctions dan isikan kode terbilang berikut ini.

Function1

Function2

Function3

Function4

Function5O iya pada edit2 event onchange buat kode di bawah ini, gunanya untuk menampilkan terbilang.

procedure TFrmMain.Edit2Change(Sender: TObject);
begin
  Edit4.Text:=SpellAll(edit2.Text)
end;

Semoga bermanfaat, jika masih ada kesulitan silahkan tinggalkan Coment…

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s