LISTING PROGRAM

procedure TForm1.FormCreate(Sender: TObject);

begin

  Combobox1.Items.Add(‘001');

  Combobox1.Items.Add('002');

  Combobox1.Items.Add('003');

  edit3.Text:='';

  edit4.Text:='';

  edit5.Text:='';

  edit6.Text:='';

  edit7.Text:='0';

shortdateformat:='dd-mmmm-yyyy';

edit2.Text:=datetostr(date);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

edit1.Text:=timetostr(time);

end;

procedure TForm1.ComboBox1Click(Sender: TObject);

begin

  if combobox1.Text='001'then

  edit5.Text:='novel'

  else

  if combobox1.Text='002'then

  edit5.Text:='KOMPUTER'

  else

  edit5.Text:='UMUM'

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

  if radiobutton1.checked=true then

  radiobutton2.checked:=false;

  edit7.Text:='1180000';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

  if radiobutton2.checked=true then

  radiobutton1.Checked:=false;

  edit7.Text:='980000';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  edit3.Text:='';

  edit4.Text:='';

  edit5.Text:='';

  edit6.Text:='';

  edit7.Text:='0';

  edit3.SetFocus;

  COMBOBOX1.Text:='';

  Radiobutton1.checked:=false;

  Radiobutton2.checked:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  if(application.MessageBox('Anda Yakin Ingin Keluar???','Informasi',

  MB_Yesno+MB_iconwarning)=idyes)then

  close

end;

end.

 

Modul 10. Membuat Nomor peminjaman secara otomatis pada Form Transaksi Peminjaman Buku pada Delphi 7.0 + MS. Access 2007

Karena project Perpustakaan sebelumnya sudah dibuat dan From peminjaman pun sudah dibuat pada modul 8. Klik disini , maka pada kesempatan ini adalah melengkapi frmpinjam yaitu dengan cara:
Membuat nomor pinjam secara otomatis yang terdiri dari 9 digit yang dihasilkan dengan proses :
Dua digit pertama adalah tahun
Dua digit kedua adalah bulan
Lima digit terakhir adalah nomor urut
Sehingga menghasilkan nomor : 100100001
Adapun langkah-langkahnya adalah :
1. Membuat fungsi rightstr dengan cara mengetikan koding secara langsung diluar procedure di bawah implementation.
// Membuat Fungsi Left, right, mid String
//sumber : Klik disini

view sourceprint?

01

…

02	implementation

03

04	{$R *.dfm}

05	function RightStr

06	(Const Str: String; Size: Word): String;

07

begin

08	if Size > Length(Str) then Size := Length(Str) ;

09	RightStr := Copy(Str, Length(Str)-Size+1, Size)

10

end;

11

12	function MidStr

13	(Const Str: String; From, Size: Word): String;

14

begin

15	MidStr := Copy(Str, From, Size)

16

end;

17

18	function LeftStr

19	(Const Str: String; Size: Word): String;

20

begin

21	LeftStr := Copy(Str, 1, Size)

22

end;

23	//sumber : http://delphi.about.com/cs/adptips1999/a/bltip1099_2.htm

2. Membuat koding pada Form Create sebagai berikut :

view sourceprint?

01	procedure TFrmPinjam.FormCreate(Sender: TObject);

02	var i,nomor: integer;

03	nom,no : string;

04

begin

05

06	//Membuat Nomor peminjaman secara otomatis

07	decodedate(date,Thn,Bln,hari);

08	adoquery5.Close;

09	adoquery5.SQL.clear;

10	adoquery5.SQL.add('Select * from pinjam');

11	adoquery5.open;

12	if adoquery5.RecordCount = 0 then

13	nomor := 1

14

else

15

begin

16	nom := rightstr(inttostr((adoquery5.fields[0].AsInteger)),5);

17	nomor := strtoint(nom) + 1;

18

end;

19

no:='0';

20	for i := 1 to (4 - length(inttostr(nomor))) do

21

begin

22	no := no + '0';

23

end;

24	edit1.text := rightstr(inttostr(thn),2) + rightstr(('0'+inttostr(bln)),2)+no+ inttostr(nomor);

25

26	//untuk menghitung tanggal tempo

27	decodedate(date,Thn,Bln,hari);

28	hari := hari + 5;

29	tanggal := encodedate(thn,bln,hari);

30	edit2.Text := formatdatetime('DD/MM/yyyy',tanggal) ;

31	sg.RowCount :=1;

32	sg.ColCount:=5;

33	sg.Cells[0,0]:='No';

34	sg.Cells[1,0]:='Kode Buku';

35	sg.Cells[2,0]:='Judul buku';

36	sg.Cells[3,0]:='Pengarang';

37	sg.Cells[4,0]:='Qty';

38

39	sg.ColWidths [0]:=40;

40	sg.ColWidths [1]:=60;

41	sg.ColWidths [2]:=80;

42	sg.Colwidths[3]:=80;

43	sg.colwidths[4]:=60;

44

45

end;

Membuat Form Transaksi pengembalian buku pada Delphi7+Ms.Accsess2007

Karena project Perpustakaan sebelumnya sudah dibuat, pada modul 4.
Membuat menu, maka pada kesempatan ini adalah melengkapi frmkembali yaitu dengan cara:
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.
2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik prjpustaka dan klik open
3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan Input Data Transaksi Pengembalian, dan pada name ketikkan frmkembali.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik Transaksi pada frmmenu, klik Pengembalian dan ketikkan :
frmkembali.show;
5. Klik menu View, lalu klik forms dan double klik frmkembali, lengkapi form tersebut seperti gambar berikut :
Gambar 1. Membuat form Transaksi Pengembalian Buku

Adapun koding selengkapnya adalah :
a. Buatlah variable seperti di bawah ini :
b. Membuat Koding pada Form Activate
procedure TFrmKembali.FormActivate(Sender: TObject);
begin
edit1.SetFocus;
end;
c. Membuat Koding pada Form Create

view sourceprint?

01	procedure TFrmKembali.FormCreate(Sender: TObject);

02

begin

03	edit1.Text :='';

04	edit6.Text := '1000';

05	edit2.Enabled := false;

06	edit3.Enabled := false;

07	edit4.Enabled := false;

08	edit5.Enabled := false;

09	edit6.Enabled := false;

10	edit7.Enabled := false;

11	edit8.Enabled := false;

12	datetimepicker1.Enabled := false;

13

end;

d. Buat koding pada edit1 dengan menggunakan event on keypress

view sourceprint?

01	procedure TFrmKembali.Edit1KeyPress(Sender: TObject; var Key: Char);

02	var tgl :tdatetime;

03

begin

04	if key=#13 then

05

begin

06	adoquery1.Close;

07	adoquery1.SQL.Clear;

08	adoquery1.SQL.add('Select * from pinjam where id_pinjam="'+ edit1.Text +'"');

09	adoquery1.open;

10	if not adoquery1.Eof then

11

begin

12

13	//menghitung tanggal tempo

14	decodedate(datetimepicker1.DateTime,thn,bln,hari);

15	hari := hari + 5;

16	tanggal := encodedate(thn,bln,hari);

17	edit2.Text := formatdatetime('dd/mm/yyyy',tanggal);

18

19	edit3.Text := adoquery1.Fields[1].AsString;

20	tgl := adoquery1.Fields[3].AsDateTime;

21	if datetostr(tgl)  <> ''  then

22

begin

23	button1.Enabled := false;

24	datetimepicker2.enabled := false;

25	showmessage('Buku Sudah dikembalikan');

26

end;

27

28	datetimepicker1.Date := adoquery1.Fields[2].AsDateTime;

29	datetimepicker2.date := adoquery1.fields[3].asdatetime;

30

31	//menselect data pada id anggota

32	adoquery2.close;

33	adoquery2.SQL.clear;

34	adoquery2.SQL.add('select * from Anggota where id_Anggota = "'+ edit3.Text +'"');

35	adoquery2.Open;

36	if not adoquery2.Eof then

37

begin

38	edit4.text := adoquery2.Fields[1].AsString;

39	edit5.Text := adoquery2.Fields[2].AsString;

40

end;

41

42	//menampilkan data buku pada datagrid

43	adoquery3.Close;

44	adoquery3.SQL.Clear;

45	adoquery3.SQL.add('select dpinjam.id_pinjam,dpinjam.id_buku,buku.judulbuku,jumlah from dpinjam,buku where dpinjam.id_buku = buku.kode and id_pinjam ="' + edit1.Text +'"');

46	adoquery3.open;

47	if not adoquery3.eof then

48	datasource1.dataset := adoquery3;

49	DBGrid1.DataSource := datasource1;

50

end

51

else

52	showmessage('data tidak ditemukan');

53

54

end;

55

end;

e. Membuat koding pada datetimepicker2 dengan menggunakan event change

view sourceprint?

01	procedure TFrmKembali.DateTimePicker2Change(Sender: TObject);

02

begin

03	edit8.text:='0';

04	edit7.Text :='0';

05	tgl1 := datetimepicker1.Date;

06	tgl2 := datetimepicker2.date;

07	if (tgl2 > tanggal) then

08

begin

09	lama :=trunc(tgl2 - tgl1);

10	edit7.Text := inttostr(lama);

11	edit8.text := inttostr(strtoint(edit6.text) * lama);

12

end

13

else

14	edit7.Text := '0';

15

end;

f. Membuat koding pada tombol prosess button1
procedure TFrmKembali.Button1Click(Sender: TObject);
begin

view sourceprint?

01	adoquery1.Close;

02	adoquery1.SQL.clear;

03	adoquery1.SQL.add('update pinjam set tgl_kembali = "'+ datetostr(datetimepicker2.date)+'", tgl_tempo = "'+ edit2.text +'" where id_pinjam ="'+ edit1.text +'"');

04	adoquery1.ExecSQL;

05	showmessage('Data Sudah terupdate');

06	edit1.Text := '';

07	edit2.text := '';

08	edit3.text := '';

09	edit4.text := '';

10	edit5.text := '';

11	edit6.text := '';

12	edit7.text := '';

13	edit8.text := '';

14

end;

delphi+ Access

Dalam membuat program Aplikasi perpustakaan hal yang perlu dilakukan diawal adalah membuat Basis Data dengan menggunakan Microsoft Access 2007, adapun langkah-langkahnya dapat dilakukan dengan cara :
a. Mengaktifkan Micorosoft Access 2007, Dengan cara Klik Start, all program, Microsoft access, klik Microsoft Access 2007.
b. Setelah Microsoft Access aktif, pada “Getting Started with Microsoft Office Access, Klik blank Database, maka akan terbuka windows blank Database, tuliskan nama file pada file name, lalu klik brows untuk menentukan lokasi file database disimpan (D:\Persputakaan). Dan yang terakhir klik tombol Create.
c. Lembar kerja Access akan terbuka, kita cukup klik kanan pada Tabel1 dan klik design view, buatlah nama table dengan nama Penerbit, dan klik OK, adapun isi tabelnya adalah :
IDPenerbit Text field size : 5
NMPenerbit Text field size : 25
Alamat text field size : 30

d. Membuat table baru dapat mengklik tombol menu Create, lalu klik table dan klik kanan pada table1 dan klik design view, buatlah nama table dengan nama Buku, dan klik OK, adapun isi tabelnya adalah :
IDBuku Text field size : 5
JdlBuku Text field size : 30
…
e. Lakukan langkah-langkah untuk membuat table baru dan isikan field-field sesuai dengan table yang akan dibuat : adapun daftar table-table tersebut adalah :
1. Tabel Anggota
ID_ANggota text 7
NAma text 50
Alamat text 50
Kelurahan text 50
Kecataman text 50
Kota text 25
No_telp text 12
Tmp_lhr text 25
Tgl_lhr Date

2. Tabel Buku
IDBUku text 5
Jdlbuku text 100
Pengarag text 50
Th_terbit text 4
Status text 20

3. Tabel DPinjam
ID_Pinjam text 5
Id_Buku text 5

4. Tabel Jenis_Buku
ID_Buku text 5
Jenis text 20

5. Tabel Peminjam
ID_Pinjam text 5
ID_ANggota text 7
Tgl_Pinjam date
Tgl_Kembali date

6. Penerbit_Buku
ID_penerbit text 5
NMPenerbit text 50
AlmPenerbit text 30

delphi7

Borland Delphi 7 merupakan bahasa pemrograman berbasis Windows. Delphi 7 dapat membantu untuk membuat berbagai macam aplikasi yang berjalan di sistem operasi Windows, mulai dari sebuah program sederhana sampai dengan program yang berbasiskan client/server atau jaringan. Delphi, termasuk aplikasi yang dapat digunakan untuk mengolah teks, grafik, angka, database dan aplikasi web.

Berikut ini sebagian kecil dari banyak kelebihan Borland Delphi 7 :
Berbasis Object Oriented Programming (OOP). Setiap bagian yang ada pada program dipandang sebagai suatu object yang mempunyai sifat-sifat yang dapat diubah dan diatur.
Satu file .exe. Setelah program dirancang dalam IDE (Intergrated Development Environment) Delphi, Delphi akan mengkompilasinya menjadi sebuah file executable tunggal. Program yang dibuat dapat langsung didistribusikan dan dijalankan pada komputer lain tanpa perlu menyertakan file DLL dari luar. Ini merupakan sebuah kelebihan yang sangat berarti.
Borland Delphi 7 hadir bersama Borland Kylix 3 yang berbasiskan Linux, sehingga memungkinkan programmer untuk membuat aplikasi multi-platform.

Memulai Delphi 7
Langkah awal untuk menjalankan program Borland Delphi 7, adalah sebagai berikut :
Klik tombol Start yang terletak pada bagian Taskbar.
Pilih menu Programs 4 Borland Delphi 7, kemudian klik Delphi 7.
Akan tampil sebuah splash screen Borland Delphi 7. Tunggulah beberapa saat sampai program Borland Delphi 7 tampil memenuhi layar monitor.
Bidang kerja Intergrated Development Environment (IDE) Delphi 7 akan tampil memenuhi layar monitor Pada bidang inilah programmer dapat menumpahkan kreativitasnya dalam membuat program.

Langkah Awal Pembuatan Project
Pilih menu File New Application sehingga pada lembar kerja Delphi akan tampak sebuah form kosong.
Simpan rancangan project aplikasi yang masih kosong tersebut dengan perintah File Save All sehingga tampil kotak dialog Save Unit1 As. Pada bagian ini yang perlu diperhatikan bahwa direktori penyimpanan file harus diubah pada bagian Save in.
Selanjutnya masukkan nama unit pada bagian File Name dengan catatan nama unit tidak boleh sama dengan nama Form Designer, kemudian klik Save.
Kotak dialog berikutnya yang akan muncul adalah kotak dialog Save Project1 As. Kotak dialog ini digunakan untuk menentukan nama file Project yang diinginkan.

Setelah file Unit dan Project disimpan, maka delphi akan membentuk file-file dengan ekstensi berikut ini :
.dpr file Project yang berisi program utama dari aplikasi.
.pas file Unit yang digunakan untuk menangani kejadian (event) pada form.
.dfm file Form yang berisi daftar komponen berikut properti-propertinya.
.res file Resources yang berisi sebuh icon yang digunakan oleh project.
.dof file Options merupakan file yang berisi option-option dari suatu project yang dinyatakan melalui perintah Options dari menu Project.
.dcu file Unit Object merupakan file unit (.pas) yang telah dikompilasi oleh compiler yang akan dihubungkan dengan file eksekusi.
.exe file Executable yang dibentuk oleh kompiler dan merupakan file eksekusi (executable) dari program aplikasi.

Dengan menekan Tombol Ctrl + F12 atau Klik Menu View, Lalu Klik Unit maka akan ditampilkan :

Klik Prjakademik, lalu klik OK, maka akan ditampilkan program sumber dari file Prjakademik.dpr sebagai berikut :

view sourceprint?

01	program Prjakademik;

02

uses

03

Forms,

04	Uakademik in 'Uakademik.pas' {Form1};

05	{$R *.res}

06

begin

07	Application.Initialize;

08	Application.CreateForm(TForm1, Form1);

09	Application.Run;

10

end.

Berikut ini sumber dari File Akademik.pas :

view sourceprint?

01	unit Uakademik;

02

Interface

03

uses

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

05

Dialogs;

06

type

07	TForm1 = class(TForm)

08	procedure FormCreate(Sender: TObject);

09

private

10	{ Private declarations }

11

public

12	{ Public declarations }

13

end;

14

var

15	Form1: TForm1;

16

17	Implementation

18	{$R *.dfm}

19	procedure TForm1.FormCreate(Sender: TObject);

20

Begin

21

end;

22

end.

Penjelasan Listing Uakademik.pas
Sebuah unit ditandai dengan kata kunci unit yang diikuti nama unit dan diletakkan pada baris pertama.
Pada dasarnya unit terdiri dari dua bagian utama, yaitu Interface dan Implementasion.
Interface, merupakan tempat untuk mendeklarasikan kelas, prosedure, variabel global atau konstanta global.
Implementation, bagian yang berisi implementasi kelas, prosedur atau fungsi yang dideklarasikan pada bagian interface
Komponen Borland Delphi
Untuk dapat membuat program aplikasi, programmer harus meletakkan komponen- komponen yang diambil dari component palatte serta mengatur tata letak komponen-komponen tersebut pada bagian form designer.
1. Meletakkan komponen pada form designer.
2. Mengubah Properties komponen.
3. Mengubah komponen Event
4. Jenis-jenis komponen standar Delphi 7.

Component, Property, Method, Event
Component merupakan sebuah objek pada Palette, : Objek adalah sebuah komponen dalam Component Palette, atau sesuatu yang dibuat melalui kode-kode / bahasa pemrograman
Property adalah sebuah nama/variabel milik sebuah objek/komponen misal Caption, Text yang dapat diubah nilai baik melalui object Inspector atau melalui program.
method adalah sebuah function/fungsi yang tergabung dalam sebuah objek. Contoh ListBox (dapat berarti sebuah array of strings) yang memiliki Method (Clear) yang membuat Listbox tersebut menjadi kosong.
Event adalah sebuah aksi pengguna (User Action) misal Mouse Click, KeyPressed. Setiap Events diawali dengan kata ‘On’.
Contoh :
Nama event Nama method
OnClick .. Button1Click(Sender : Tobject)
OnKeyDown .. Button1KeyDown(Sender : Tobject)
OnMouseMove .. Button1MouseMove(Sender : Tobject)