Salam Hangat dari Blog Saling Berbagi
Sahabatku semua, lama ya saya tak menjumpai anda di Blog saling Berbagi, karena saya sekarang banyak kesibukan kuliah, namun saya optimis para sahabat semua pasti merindukan Posting terbaru dari blog Maroon ini. Hehe..
Oke deh, kali ini kerinduan kalian akan terobati karena saya akan memposting tentang bagaimana cara membuat Database foto yang mana program yang digunakan disini adalah Program delphi dan di koneksikan ke database MS Office Access.
Silakan di coba ya !
MEMBUAT IMAGE DATABASE DENGAN MENGGUNAKAN PROGRAM DELPHI DAN MS OFFICE ACCESS 2007
Adapun langkah pertama untuk membuat Image Database ini, buatlah data mahasiswa pada MS Office Access 2007, dengan ketentuan file sebagai berikut:
Sebagai contoh ini saya memasukkan 10 nama teman-teman saya, yaitu Fiqi, Imam, Tahri, Makiyah, Nabil, Nurul wafa, Raudhah, Riska, Shohib, dan saya sendiri.
Beserta dengan data foto-fotonya yang menarik dalam folder yang sama:
Setelah selesai mengedit data entry mahasiswa, bukalah program Delphi untuk membuat form dengan menggunakan komponen-komponen sebagai berikut:
Untuk form pertama dengan ketentuan:
Lalu buatlah pada lembar kerja sesuai ketentuan perintah di atas !
Isikan Kode program berikut pada tombol Data Baru:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.show;
ADOtable1.Append;
end;
Dan isikan juga kodeProgram berikut pada tombol Hapus:
procedure TForm1.Button2Click(Sender: TObject);
begin
If messagedlg('Hapus data?',mtConfirmation, [mbYes,mbNo],0)=mryes then ADOtable1.delete;
end;
(Catatan: Ketika kita sedang mengerjakan program, untuk ADOConnectionnya di tabel properties harus dipastikan connection stringnya terkoneksi ke database accessnya, masih ingat kan yang tampilannya seperti dibawah ini):
Adapun program yang saya coba adalah seperti di bawah ini, kelihatannya memang sederhana namun teman-teman tentu akan lebih kreatif lagi jika mau belajar :
Jika kita Run dulu, klik OK saja karena untuk memastikan apakah ada error sebelum melanjutkan ke form kedua. Jika berhasil maka jika di Run akan ada kotak Login, OK saja, hasilnya:
Adapun tombol navigator bisa dicoba sehingga nama dapat berubah-ubah.
Selanjutnya marilah kita membuat form kedua. Form pertama tidak usah di Close/Tutup. Langsung saja pilih new form di bagian kiri atas lembar kerja. buatlah form 2 dengan ketentuan berikut:
Isikan kode program pada tombol insert atau data baru dengan mengklik secara double pada sebelumnya:
procedure TForm2.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.execute then
begin
dbimage1.Picture.LoadFromFile(openPictureDialog1.FileName);
end;
end;
Double klik button 2 dengan mengisikan kode berikut:
procedure TForm2.Button2Click(Sender: TObject);
begin
form1.ADOtable1.Post;
close;
end;
end.
Jika form kedua dijalankan dan tidak ada error maka anda akan di beri pilihan pertanyaan untuk menggabung form pertama dan form kedua, anda OK saja.
Inilah rancangan dari saya, masih sederhana.
Jika saya jalankan (Run) akan muncul Kotak Login, maka klik OK saja
Inilah hasilnya:
Selamat Mencoba dan Jangan putus asa, sayapun membuat program ini setelah 6 kali error berulang-ulang. bagi saya kesulitan ada di form 2 karena kadang error koding tidak bisa dimasukkan pada Button2. Tapi saya tetap mencoba karena rasa penasaran saya dan akhirnya programnya berhasil dijalankan walaupun pada akhirnya saya belum menemukan bagaimana caranya memunculkan foto-foto lucu teman saya. Insyaallah besok ada jadwal mata kuliah ini dan akan saya diskusikan permasalahannya kepada dosen saya.
SALAM
RAHMANIAH