Identitas dosen Suherman, ST Address : Cilegon Mobile : 087 877 486 821 Email :
[email protected] 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)
1
Query
Adalah komponen yang berfungsi untuk memanipulasi data dalam tabel dengan menggunakan perintahperintah SQL (Structure Query Language)
Perintah sql dapat diberikan secara biasa dengan menggunakan perintah sql pada umumnya. Ataupun dapat diberikan dengan menggunakan parameter Query berparameter memungkinkan perintah dapat mengacu pada suatu nilai dari komponen lain
2
Praktek kali ini menggunakan komponen ADOQuery dari tab ADO Property yang harus diperhatikan pada komponen ini adalah : 1. Connection 2. SQL 3. Active
Property Connection digunakan untuk mengkoneksikan dengan database yang ada di Access Property SQL berisi perintah-perintah sql, dapat berupa Insert, Update, Delete, dll Property Active untuk memungkinkan data dalam tabel dapat dimanipulasi
3
Untuk lebih jelasnya kita mulai praktekan Buat project baru simpan dengan nama unit : UQuery dan project : PQuery Ikuti perintah berikut :
Petunjuk pembuatan project
Baca bertahap jangan dilewatkan satu petunjukpun Praktekan dari awal sampai dengan akhir Dalam program ada procedure yang melibatkan variabel lokal …perhatikan Ketik kode yang tidak tercetak tebal dan hati2 dengan penempatan perintah End; Mulai praktek :…….. ……..
4
Letakan komponen TabbedNoteBook (Tab Win3.1), dan atur lebar dan panjangnya seperti nampak pada gb. Berikut.
Komponen TabbedNoteBook (Tab Win3.1)
Pilih property Page klik tanda […], maka tampil kotak Notebook Editor Klik Tombol Edit Ubah Page name Default menjadi Input OK Klik tombol Add Isi Page name dengan Edit OK Lakukan hal yang sama untuk membuat Page View Bila telah selesai klik Close Dari praktek di atas akan mendapatkan hasil sebagai berikut :
5
Untuk membuka page yang dituju : Pilih property Active page, kemudian pilih page yang akan dibuka
Membuat desain Input pada page Input
Praktek ini akan menghasilkan page input, yang nanti akan digunakan untuk menyimpan data pelanggan dalam tabel melalui perintah sql dari komponen ADOQuery Praktek ini akan melibatkan parameter, perhatikan pada perintah Parameters Ikuti perintah berikut :
6
Letakan komponen ADOConection dan koneksikan dengan database Inventory Letakan komponen Adoquery ubah property name : QInput
Pengaturan property kita kosongkan, karena nanti akan diberikan dalam bentuk code
Letakan Button1 ubah caption : INSERT Letakan Button2 ubah caption : Ambil Gambar Letakan komponen-komponen lain yang nampak pada gambar di bawah serta atur penempatannya
7
Abaikan dahulu komponen2 ini
• Klik ganda Tombol INSERT isi dengan kode berikut (halaman berlanjut ….2)
8
Halaman lanjutan-2 (tombol INSERT)
Letakan komponen OpenPictureDialog ubah property name : OPD1 Klik ganda tombol Ambil Gambar, isi dengan code berikut : if opd1.Execute then dbimage1.Picture.LoadFromFile (opd1.FileName);
Selesai untuk page Input
9
Membuat desain Edit pada page Edit
Praktek ini akan menghasilkan page edit, yang nanti akan digunakan untuk merubah serta menyimpan data pelanggan dalam tabel melalui perintah sql dari komponen ADOQuery Praktek ini akan melibatkan parameter, perhatikan pada perintah Parameters Ikuti perintah berikut
Aktifkan page Edit Letakan komponen ADOQuery ubah name : QEdit Letakan button3 ubah caption : EDIT Letakan button4 ubah caption : CANCEL dan ubah Enabled : False Letakan komponen2 lain sehingga didapat hasil berikut :
10
Abaikan dulu komponen ini
• Klik ganda tombol EDIT isi dengan kode berikut : (halaman berlanjut…2)
11
• Lanjutan 2 (tombol EDIT)
• Lanjutan 3 (tombol EDIT)
12
• Klik ganda tombol CANCEL, isi dengan kode berikut :
Pilih DBImage2, pada tab Event (object Inspector) klik ganda Event OnDblClick, isi dengan kode berikut : if opd1.Execute then dbimage2.Picture.LoadFromFile (opd1.FileName);
13
Membuat desain View pada page View
Praktek ini akan menghasilkan page view, yang nanti akan digunakan untuk menampilkan data pelanggan melalui perintah sql dari komponen memo Ikuti perintah berikut
Aktifkan page View Letakan komponen ADOQuery ubah name : QView Letakan komponen datasource1 Letakan komponen button5 ubah caption : EXECUTE >> Letakan komponen2 lain seperti pada gambar berikut :
14
Dari Tab Standar
Aktifkan memo1 pilih property Lines klik pada tombol […] Blok tulisan Memo1, tekan delete 2x OK Klik DBGrid ubah property readonly : True Klik ganda tombol EXECUTE >>, isi dengan kode berikut :
15
Klik ganda Form1, isi dengan kode berikut : procedure TForm1.FormCreate(Sender: TObject); TObject); begin QInput.Connection:= QInput.Connection:= AdoConnection1; QEdit.Connection:= QEdit.Connection:= AdoConnection1; QView.Connection:= QView.Connection:= AdoConnection1; end; end.
16
Petunjuk penggunaan
RUN Bila tidak terjadi kesalahan, ikuti petunjuk berikut :
Klik page Input bila ingin menambahkan data Klik page Edit bila ingin merubah data Klik page View bila ingin melihat isi dari tabel pelanggan
17
Menambah data
Klik page Input Klik INSERT Mulai mengisi… Klik Ambil Gambar bila ingin menyertakan gambar Klik SAVE untuk menyimpan
Merubah Data
Klik Page Edit Isi Nomor pelanggan dengan nomor pelanggan yang akan dirubah Klik tombol EDIT, bila no_plg tidak ada maka akan tampil pesan ‘No_plg tidak ada….’. Bila ada, maka akan tampil nama, alamat dan gambarnya
18
Ubah data yang akan diubah Bila gambar akan ikut di ubah klik 2x DBImage Klik tombol CANCEL bila akan membatalkan proses EDIT Bila akan menyimpan klik SAVE
Melihat data pelanggan pada Grid
Klik page View Ketik pada perintah select, contoh : SELECT * FROM PELANGGAN Klik tombol EXECUTE >> Bila perintah sql salah, salah, maka akan tampil pesan ‘Perintah sql salah…’ salah…’.. Namun bila benar, benar, maka akan ditampilkan. ditampilkan. Ketik perintah2 sql yang lain, untuk menampilkan data yang diinginkan. diinginkan. Selamat mencoba… mencoba….
19
TERIMA KASIH Wassalam……………………..
20
