380 likes | 539 Views
Identitas dosen. Suherman, ST Address : Cilegon Mobile : 087 877 486 821 Email : leeput@yahoo.com Ym : leeput Blog : http://leeput.wordpress.com http://suherman628.wordpress.com. POKOK BAHASAN. PEMROGRAMAN DATABASE DELPHI Tujuan Pembelajaran Khusus (TPK):
E N D
Identitas dosen Suherman, ST Address : Cilegon Mobile : 087 877 486 821 Email : leeput@yahoo.com Ym : leeput Blog : http://leeput.wordpress.com http://suherman628.wordpress.com
POKOK BAHASAN PEMROGRAMAN DATABASE DELPHI Tujuan Pembelajaran Khusus (TPK): Setelah mempelajari pokok bahasan DataBase, maka mahasiswa dapat mendemonstrasikan tentang membuat project aplikasi dengan database access dengan benar (C3)
MENGENAL DATABASE • Database merupakan suatu bentuk pengorganisasian data pada media eksternal (disk) dengan tujuan untuk mempermudah pengaksesan (penyimpanan dan pengambilan) data. • Salah satu model database yang paling banyak digunakan adalah model relasional, yaitu database yang tersusun atas sejumlah tabel.
Contoh database akademik mencakup sejumlah tabel, misalnya Tabel mahasiswa, matakuliah dan Dosen • Tabel terdiri dari atribut-atribut sebagai identifikasi dari tabel tersebut
Contoh tabel Mahasiswa terdiri dari atribut : Nim, Nama, Jurusan. • Dari masing-masing atribut memiliki data • Karakteristik suatu tabel harus ada atribut yang bersifat unik (tidak sama), yang nanti akan dijadikan sebagai primary key
Item Data/value Atribut Tabel Mahasiswa
Atribut dalam sebuah tabel disebut field • Dan item data disebut Record
Penanganan Database pada Delphi • Delphi menyediakan berbagai cara untuk mengakses database. Salah satunya adalah melalui ADO. Melalui ADO kita dapat mengakses sejumlah sumber data seperti Oracle, Access, dan lain-lain
Pada form, sumber data diakses melalui komponen yang merupakan turunan dari kelas TDataSet • Melalui form, pada prinsipnya dapat memanipulasi database (membaca, menyimpan, menampilkan, dan sebagainya)
SQLServer Oracle Gambar Penanganan Database dari Delphi
Membuat project Database Penjualan-1 • Buat project baru, simpan dengan nama unit : UPenjualan dan project : PPenjualan • Buka Database Access • Buat Database simpan dengan nama file : Inventory • Buat Struktur Tabel berikut :
Setelah membuat tabel di atas : 1. Tutup Access2. kembali ke lembar kerja Delphi
Koneksi Database dan Tabel pada Form • Letakan komponen AdoConnection, ubah property :1. ConnectionString : klik tanda […] Klik Build Pilih Microsoft Jet 4.0 Ole DB Provider klik Next pada 1. Select or enter a database name: klik tanda […] pilih database yang akan di buka, kemudian klik Open Klik OK Klik OK
2. Login Prompt isi dengan False • Letakan komponen ADOTable, ubah property :1. Connection : AdoConnection12. TableName : Pelanggan3. Active : True
Letakan komponen DataSource, isi property DataSet : AdoTable1 • Letakan komponen DBGrid, isi property Datasource : Datasource1
Perhatikan pada DBGrid akan terlihat fieldName dari tabel Pelanggan • Namun tabel belum terisi dengan data pelanggan (masih kosong), karena memang kita belum pernah mengisi tabel pelanggan dengan data pelanggan
Mengisi Tabel Pelanggan dengan Access • Buka kembali Access • Buka DataBase Inventory • Buka Tabel Pelanggan, isi dengan data-data berikut :
Klik tanda [X] untuk menutup form isian data pelanggan • Kembali ke Delphi • Aktifkan komponen AdoTable ubah property Active : False kemudian ubah lagi menjadi True • Lihat perubahannya pada DBGrid :
Dari hasil koneksi di atas, untuk mengisi /memanipulasi data maka dibutuhkan Access sebagai media penginputan datanya • Untuk memudahkan memanipulasi data, maka dibutuhkan komponen2 pendukung yang dapat diambil dari Tab DataControls. Namun ada trik yang dapat mempercepat untuk memanipulasi data, yaitu dengan cara:
Area kosong untuk menempatkan komponen input data • Atur desain supaya nampak seperti gambar berikut : • Aktifkan AdoTable Ubah property Active : False • Klik ganda AdoTable, maka akan muncul kotak kecil (form1.AdoTable1)
Klik kanan di tengah kotak pilih Add All Fields, maka akan muncul field-field dari tabel pelanggan • Klik kanan kembali (pada kotak) pilih Select All, maka akan nampak seperti gb. Berikut : • Drag bagian yang terpilih seret dan lepaskan pada area form yang kosong, dan hasilnya sebagai berikut : Field yang terpilih
Untuk selanjutnya, coba aktifkan kembali AdoTable property Active:true • RUN… • Coba klik pada record ke-2,3,4 (dari DBGrid) perhatikan pada form isian • Perubahan terjadi pada saat record diaktifkan
Dari proses di atas, kita belum dapat memanipulasi data pada data tabel Pelanggan, karena memang proses tadi merupakan untuk menampilkan data pelanggan saja. • Untuk dapat memanipulasi data pada tabel pelanggan ikuti perintah berikut :
Memanipulasi Data • Letakan komponen DBNavigator (Tab DataControls) dan atur penempatannya di samping kanan Photo, kira-kira bentuknya seperti ini : DBNavigator
Input Data baru • Tempatkan kursor di No_plg • Klik tanda + (insert) • Isi untuk data Nama, Alamat • Klik Tanda √ (post) • Perhatikan pada DBGrid
Merubah data • Pilih data yang akan dirubah, misalnya pada P-002 • Klik tanda (Update) • Ubah : BUDI = BUDIANA SERANG = ANYER • Klik tanda √ (post)
Menghapus Data • Pilih data yang akan dihapus • Klik tanda – • Bila ada pertanyaan klik OK
Simbol2 lain di DBNavigator • Simbol Untuk menggerakkan posisi pointer ke record paling atas / first (BOF) Untuk menggerakkan posisi pointer ke record paling bawah / last (EOF) Untuk menggerakkan posisi pointer ke record sebelumnya (prior) Untuk menggerakkan posisi pointer ke record selanjutnya (next)
X (Cancel) untuk membatalkan proses insert dan update Refresh / penyegaran data setelah ada perubahan, menghapus atau memasukkan data baru
Memasukkan data gambar • Ubah property Stretch (milik dbimage) menjadi true • Tempatkan button di bawah Photo ubah property Caption dengan Ambil Gambar • Letakan komponen OpenPictureDialog (Tab Dialog) • Ubah property Name = OPD1 • Klik ganda Button Ambil Gambar, isi dengan kode berikut :
RUN… • Cobalah ubah salah satu data, dan berilah gambar, dengan cara : Klik Tombol Ambil Gambar pilih gambar yang berekstension (*.bmp)
Keterangan • Gambar yang dapat disimpan pada tabel adalah gambar yang hanya berekstension (*.bmp) • Stretch = true milik dbimage akan mempengaruhi ukuran gambar agar sesuai dengan kotak dbimage nya.