October 29, 2008 at 12:44 pm

Download Aplikasi Delphi – Program Perpustakaan

Daripada ngurusi syekh gadungan yang ternyata pedofilia sakit mending sekarang belajar program delphi. Sudah lama sekali rasanya tidak bagi-bagi program delphi, bagi master delphi yang menurut kabar terakhir alih profesi jadi dokter cinta, mungkin program ini ecek-ecek tapi ini kan tugas kelompok kita waktu kuliah dulu. Tapi sebelum itu, mungkin lebih baik siapkan musik mp3, download mp3 indonesia dulu. Program ini adalah software perpustakaan yang dibuat dengan delphi. Saya memberikan beserta source codenya lho (kurang apa coba saya kepada pembaca setia bimoweb.com he he). Apa sih fitur program ini?

Yang jelas bisa digunakan di perpustakaan seluruh indonesia :D . Progam perpustakaan ini menggunakan database access dengan borland delphi sebagai bahasa pemrogramannya (tembak kiword terus ni :D ). Program ini sebenarnya hanya bagian kecil dari sistem informasi akademik, karena memuat 3 komponen penting.

  • Karyawan perpus (bisa diperluas menjadi karyawan kampus/instansi tertentu yang berhubungan dengan perpusatakaan).
  • Master data buku/katalog buku dalam bentuk digital.
  • Siswa sebagai korban peminjam.

program ini bisa mengelola ketiga2nya lho. Dilengkapi dengan fitur peminjaman dan pengembalian buku, berbagai laporan dan lain lain.

kemarin program rental CD yang saya bagikan menggunakan suiskin, yaitu komponen delphi yang berguna mempercantik tampilan program. sementara program perpustakaan ini tidak menggunakan komponen tersebut, jadi bisa dibuka dengan bebas. Fuiih.. lama nggak nulis panjang.

Klik disini untuk mendownload file binarinya beserta souce code.

Related Post

RSS feed | Trackback URI

30 Comments »

Comment by dino
2008-10-31 02:53:35

saya coba ya mas

Comment by Bimo Hery Prabowo
2008-10-31 16:42:45

wah saya berterimakasih kepada anda he he :D

 
 
Comment by vivi
2008-10-31 23:35:31

mas, dah saya buka…tp kok ga da report peminjamannya ya??
trus form untuk pinjam n kembali sepertinya juga ga jalan. trus gimana cara buat nya ya??
tolong dunk disempurnain mas…
thanks….:)

 
Comment by Heri
2008-11-05 20:19:22

Good info nech, ada juga program diperpus di http://www.bitmax-nusantara.com, coba aza

 
Comment by Heri
2008-11-05 20:24:57

Keren neh, buat latihan yac

 
Comment by kuro
2008-11-14 20:10:45

mas… database accessnya gak ada ya?
kok pas tak jalankan minta databasenya.

 
Comment by m ibnu saefullah
2008-12-03 12:19:14

ass, waduh mas saya sangat bersyukur bisa masuk situs ini, terus terang saja, saya sangat tertarik dengan pemrograman delphi dan saya ingin mendalaminya. tolong dong minta bimbingannya, saya juga sudah membuat beberapa program aplikasi tapi saya ingin program saya lebih canggih lagi, saya mau tau sintaksya Query buat program tosereba, kan ginih ya mas, dalam sebuah toko kan ada beberapa barang yang kita inputkan, nah saya mau tau bagaimana caranya ketika kita masukan kode barang pada combo box semua edit yang lainnya seperti nama, harga dll langsung tampil. saya juga pernah menggunakan syntaks seperti berikut

if Combobox.text=”kodebarang” then
editharga.text”bla..bla..bla”
editnama.text”bla.bla.bla” else

nah saya pikir kalau menggunakan sintaks ini untuk program yang bersekala kecil saya rasa masih cukup efisien, namun masalahnya bagaimana kalau barang yang kita input banyak, misalnya ribuan, kan repot juga mesti bikin syntaknya satu persatu. tolong deh kasih solusinya. reply

 
Comment by Bimo Hery Prabowo
2008-12-03 14:05:55

kamu maen query aja, nggak manual kayak gitu. Di delphi ada kan komponen khusus database, misal txtbox yang khusus untuk menampung data dari DB. km gunain itu aja.

 
Comment by ninis
2008-12-07 09:47:48

ada program yang bisa membedakan antara kelas dan objek g?

 
Comment by ogy
2008-12-16 06:44:05

Wah, mas, kok saya ga bisa pakai untuk pinjaman sich ???
kalo mau ada yang pinjam tuch keluarnya “buku telah dipinjam”. Dicoba pake buku yang lain eee… sama juga kayak gitu…

Jadi gimana nich solusinya ???

Kalo bisa jawabnya ke email saya aja.

trims sebelum n ssdahnya…

 
Comment by Bimo Hery Prabowo
2008-12-16 14:55:47

coba insert buku baru, terus pinjam buku tersebut…

hal tsb bisa terjadi karena :

1. kode buku tersebut emang nggak ada

2. buku emgn dlm status pinjam

3. program salah (maaf, he he)

 
Comment by osamanwae
2008-12-19 12:33:00

we. ditunggu posting selanjutnya tentang delphi,.. udah lama dak ngotak atik neh

 
Comment by BAMBANG
2008-12-31 05:19:16

kemaren saya download aplikasi perpustakaan,kenapa setelah dijalankan muncul pesan kesalahan.

could not find file c:\………………\perpuscs\binary\perpus.mdb

Comment by akhmad
2009-04-29 07:27:02

harus download sourcenya juga mas.
ekstrak dua-duanya, lalu taruh binary-nya (perpustakaan.exe) dalam folder source code (dlm folder source code ada perpus.mdb).

 
Comment by akhmad
2009-04-29 07:27:39

ada di source codenya, jadi harus download sourcenya juga mas.
ekstrak dua-duanya, lalu taruh binary-nya (perpustakaan.exe) dalam folder source code (dlm folder source code ada perpus.mdb).

 
 
Comment by rina
2008-12-31 07:49:57

mas, boleh bimbingannya nga buat bikin program untuk penjualan barang. ma kasih

 
Comment by Noor
2009-01-01 16:21:45

Mas, sudah saya coba ada bbrapa pertanyaan nih :
1. Report peminjaman sama report pengembalian belum ada ya ?, bisa tidak aplikasi ini di modifikasi sehingga
dapat menampilkan report peminjaman dan pengembalian ?
2. Truz bagaimana cara memasukan nama instansi kami, sehingga judulnya menjadi sis. Informasi Perpustakaan
Instansi ……………………………/ ?
3. Nampaknya Aplikasi Ini baru bisa jalan bila PrjPerpusCS.exe, perpus.mdb, dan perusreport.rav disimpan dalam
satu folder ya ?
TrimaKasih Banyak Mas . .

 
Comment by Bimo Hery Prabowo
2009-01-02 00:39:00

kayaknya harus bongkar kode kalau mau masukin nama instansinya…. iya, aplikasi+db nya harus dalam 1 folder.. he he

 
Comment by inds2008
2009-01-16 14:36:00

Numpang belajar mas!!!

Makasih banyak….

 
Comment by kresna
2009-04-11 16:27:13

terima kasih mas bimo…. saya coba pelajari… kebetulan skripsi saya membuat laporan POLSEK dengan program delphi….. bisa minta tlng bantu saya? terima kasih mas bimo. sukses untuk anda

 
Comment by Core
2009-04-20 05:05:52

Mas saya lagi iseng iseng dan kepengen bisa delphi tapi pas saya bikin ini

procedure TForm1.Button1Click(Sender: TObject);
var
a : integer;
begin
if Edit1.Text ” then
begin
a := StrToInt(Edit1.Text);
end;
if Edit1.Text = ” then
begin
MessageDlg(’Maaf Nilai belum dimasukkan!!!’,mtInformation,[mbOK],0);
Edit1.SetFocus;
end
else if (a=0) then
begin
Label3.Caption := ‘E’
end
else if (a>=21) and (a=41) and (a=61) and (a=81) and (a<=100) then
begin
Label3.Caption := ‘A’
end
else Label3.Caption := ‘Data salah’;
end;

saya memasukkan string ke komponen edit jadinya error, karna edit dah saya convert ke integer nah yang saya mau tanyakan bagaimana logika penulisan pada delphi untuk masukan tidak sama dengan integer. jadi ketika nanti di isi sembarang yang tidak integer ada pesan “Maaf data harus bertipe integer”
Thx mas sebelumnya

Comment by Bimo Hery Prabowo
2009-04-21 23:19:11

pake aja text form yang khusus untuk memasukkan angka (integer), jadi kalau km mau masukin huruf, nggak bisa sama sekali. itu cara termudahnya. Tapi sebenarnya ada kok cara untuk memfilter itu, cuma saya udah lupa, udah lama sekali nggak pegang delphi

 
 
Comment by june
2009-05-11 03:23:11

keren

 
Comment by june
2009-05-11 03:24:34

ada yang lain lagi……

 
Comment by bamz
2009-05-15 09:15:13

Uhuy….keren mas, berhubung saia baru belajar aga lieur ogenya ^^
.
tapi boleh ikut belajar ya ^^
.
Hatur nuhun

 
Comment by nuy
2009-05-20 04:57:54

pengen belajar niy mas..

 
Comment by Tanya doank
2009-05-31 07:07:33

bisa buatin program database yang menampilkan data siswa, guru dan hub. wali murid gag????????????

 
Comment by pak Dar
2009-06-07 14:14:05

setelah baca ini,..aku tertarik pingin buat kamus,
Caranya gimana mas?
Doownload delphi nya kasih alamat donx.
Trims,

 
Comment by arif
2009-06-12 08:39:49

gimana sich mau ikut gabung ikut bisnis cari uang di perpustakaan…?

 
Comment by monza
2009-06-29 16:33:43

Punten kk2 yg jago2 delphi..
Muhun bantuannya..
terjemahin ke delphi :
contoh angka 9876543210123456
1. Diketahui; ada 16digit angka.
Kalikan 2(dua) semua angka pada digit ganjil. Lalu kurangi hasilnya dengan 9 (jika >9), kemudian jumlahkan.

Digit ke-1: 9 ? 9×2=18 (hasil >9)maka 18-9= 9
Digit ke-3: 7 ? 7×2=14 (hasil >9)maka 14-9= 5
Digit ke-5: 5 ? 5×2=10 (hasil >9)maka 18-9= 1
Digit ke-7: 3 ? 3×2=6 (hasil <9)maka Tetap
Digit ke-9: 1 ? 1×2=2 (hasil <9)maka Tetap
Digit ke-11: 1 ? 1×2=2 (hasil <9)maka Tetap
Digit ke-13: 3 ? 3×2=6 (hasil 9)maka 18-9= 9
Kemudian Jumlahkan :
9+5+1+6+2+2+6+10= 32

2. Jumlahkan digit yang ada diposisi genap

Digit ke-2 : 8
Digit ke-4 : 6
Digit ke-6 : 4
Digit ke-8 : 2
Digit ke-10 : 0
Digit ke-12 : 2
Digit ke-14 : 4
Digit ke-16 : 6
Jumlahkan : 32

3. Jumlahkan hasil prosedur no.1 dan no.2
32 + 32 = 64

Karena 64 tidak habis dibagi 10 maka nomor tersebut TIDAK SAH

makasi klo dah ad yg bisa bantu..
Jazakumullah

 
Name (required)
E-mail (required - never shown publicly)
URI
Your Comment (smaller size | larger size)
You may use <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre lang="" line="" escaped=""> in your comment.

Trackback responses to this post