Aplikasi DataBase
LATIHAN 3
Membuat Database dan Aplikasi Sederhana ARSys Software Developed/AbdRohim
33
Aplikasi DataBase
Membuat Database Untuk membuat sebuah database atau tabel-tabel data seperti yang telah disebutkan pada babbab sebelumnya dengan menggunakan Database Desktop. Dengan Database Desktop ini bisa dibuat tabel-tabel data lokal dengan berbagai macam tipe atau jenis dari database. Tipe database yang menjadi strandar untuk database lokal pada Delphi ini adalah Paradox 7. pada latihanlatihan selanjutnya di modul ini juga akan menggunakan Database Paradox 7 mengikuti standart Delphi Untuk memanggil Database Desktop bisa dilakukan lewat menu Start atau juga bisa lewat menu IDE nya Delphi. Jika lewat menu Start, klik menu Start | Borland Delphi | Database Desktop. Jika sedang berada pada linngkungan IDE Delphi maka klik menu Tools | Database Desktop. Hasilnya akan ditampilkan sebuah aplikasi sbb:
ARSys Software Developed/AbdRohim
34
Aplikasi DataBase
Lakukanlah langkah-langkah berikut ini: 1. klik menu File pada Database Desktop kemudian pilih menu New | Table 2. Pada dialog Create Table pilihlah Table Type = Paradox 7. kemudian klik OK 3. Akan ditampilkan sebuah Window dialog sbb:
4. Tuliskanlah struktur tabel berikut ini: No. 1 2 3 4 5 6 7
Field Name KodeBarang NamaBarang Kategori OnHand OnOrder Satuan LastUpdate
Type A A S S S A D
ARSys Software Developed/AbdRohim
Size 7 30
Key *
Keterangan A = Alfa S = Short
5 D = Date
35
Aplikasi DataBase
5. Klik Table Properties . Pilih Secondary Indexes dan klik Define. Akan tampil dialog sbb:
6. Klik NamaBarang sehingga tersorot dan klik 7. Isikan byName pada Index Name
dan kli tombol OK
8. Ulangi langkah No. 5 sampai No 7 untuk membuat Secondary indexes berdasarkan Kategori. Berikan nama indeknya dengan byKategori 9. Klik Tombol Save As pada windows Create Paradox (Gambar Langkah No. 3) 10. Aturlah direktori ke temapt penyimpanan datanya. Mintalah petunjuk dari assistennya. 11. Berikan nama file dengan Barang.DB 12. Pembuatan Tabel telah selesai klik menu File | Exit untuk keluar.
ARSys Software Developed/AbdRohim
36
Aplikasi DataBase
Mengadakan Perubahan pada Struktur Table Perubahan pada struktur tabel bisa dilakukan untuk nama field, type data, size bahkan untuk menghapus suatu field atau menambahkan field yang baru. Untuk keperluan itu lakukan langkah-langkah berikut ini: 1. 2. 3. 4. 5. 6. 7.
Pastikan anda sedang berada pada aplikasi Database Desktop Klik menu File | Open | Table Pindahkan direktori ke tempat penyimpanan data atau dengan merubah nama aliasnya Pilihlah nama tabel yang akan di adakan perubahan strukturnya Lakukan perubahan pada strutur tabelnya Untuk menghapus sebuah field, sorot pada baris tersebut dan tekan CTRL-DEL Untuk menyisipkan sebuah field , tempatkan pada tempat akan disisipkan dan tekan tombol Insert. 8. Klik tombol Save untuk menyimpan perubahan yang terjadi.
ARSys Software Developed/AbdRohim
37
Aplikasi DataBase
Aplikasi Stok Barang Sebuah aplikasi yang paling sederhana adalah mengandung proses Insert Edit dan Delete untuk sebuah tabel. Aplikasi ini belum tersedia fasilitas untuk pencarian data yang memadai. Berikut ini design form untuk aplikasi Stok Barang
Lakukanlah langkah-langkah berikut ini: 1. Buka project baru. 2. Tempatkan 3 buah Panel pada form, aturlah properti untuk panel tersebut sbb: Komponen Properti Nilai Form1 Caption Aplikasi Stok Barang Name FmLatih3a Position poScreenCenter Panel1 Align AlTop BevelOuter BvLowered Caption (Kosongkan) Panel2 Align AlBottom BevelOuter BvLowered Caption (Kosongkan) Panel3 Align AlClient BevelOuter BvLowered Caption (Kosongkan) 3. Tempatkan pada Panel1 1 buah DBNavigator dan 1 buah Table dan 1 buah DataSource 4. Tempatkan pada Panel2 1 buah BitBtn dan 3 buah Button 5. Tempatkan pada Panel3 1 buah DBGrid
ARSys Software Developed/AbdRohim
38
Aplikasi DataBase
6. Isikan nilai-nilai pada properti sbb: Komponen Properti Table1 DatabBaseName Name TableName Active DataSource1 DataSet Name DBNavigator1 DataSource Hints
DBGrid1
BitBtn1 Button1 Button2 Button3
ShowHint +VisibleButton (Double klik pada kata tersebut) - nbInsert - nbDelete - nbEdit - nbPost - nbCancel - nbRefresh DataSource +Option (Double klik pada kata tersebut) - dgRowSelect - dgAlwayShow Kind Caption Name Caption Name Caption Name
Nilai DBKursus tbBarang Barang.DB True TbBarang dsBarang DsBarang Ke Awal Record Ke Record Sebelumnya Ke Record Sesudahnya Ke Akhir Record True
False False False False False False dsBarang
True True bkClose &Insert btnInsert &Edit btnEdit &Delete btnDelete
7. Buatlah variabel field untuk tabel barang ini. Masih ingat langkah-langkahnya ? jika lupa baca kembali latihan 1 tentang Tip hari ini. 8. Simpanlah project ini. Beri nama Unit1ini dengan nama Latih3a dan nama Project1 dengan Latihan3a. Ingat simpan pada direktori yang telah ditentukan. 9. Jika anda penasaran melihat hasilnya silahkan di Run
ARSys Software Developed/AbdRohim
39
Aplikasi DataBase
Masih dalam project ini Latihan3a.DPR) buatlah form baru. Klik menu File | New Form Buatlah form dengan bentuk sbb:
Lakukanlah langkah-langkah berikut ini: 1. Tempatkan tiga buah panel pada form tersebut 2. Isikan pada properti nilai-nilai sbb: Komponen Properti Nilai Form1 BorderStyle bsDialog Caption Stok Barang Name fmEdBarang Position poScreenCenter AlTop Panel1 Align BvLowered BevelOuter (Kosongkan) Caption AlBottom Panel2 Align BvLowered BevelOuter (Kosongkan) Caption Panel3 Align AlClient BevelOuter BvLowered Caption (Kosongkan) 3. Tempatkan pada panel1 1 buah Label 4. Tempatkan pada panel2 7 buah Label, 6 buah Edit dan 1 buah DateTimePicker 5. Tempatkan pada panel3 2 buah BitBtn 6. Isikan pada masing-masing properti nilai-nilai berikut ini: Komponen Properti Nilai Label1 AutoSize False Caption (Kosongkan) Name lblKet Label2 Caption Kode Barang Label3 Caption Nama Barang Label4 Caption Kategori Label5 Caption Stok On Hand Label6 Caption Stok on Order Label7 Caption Satuan Label8 Caption Last Update ARSys Software Developed/AbdRohim
40
Aplikasi DataBase
Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 DateTimePicker1 BitBtn1 BitBtn2 7. 8. 9. 10.
Name Text Name Text Name Text Name Text Name Text Name Text Name Kind Kind
EdKode (Kosongkan) EdNama (Kosongkan) EdKategori (Kosongkan) EdOnHand (Kosongkan) EdOnOrder (Kosongkan) EdSatuan (Kosongkan) dtpLast bkOK bkCancel
Simpanlah form ini dengan nama Latih3aEd Panggil / aktifkan kembali form FmLatih3a (yang pertama) Klik Menu File | Use Unit. Sorot Latih3aEd lalu klik tombol OK Double klik pada button Insert. Tuliskanlah program berikut ini: (Tanyakan langsung jika ada statemen yang tidak dimengerti kepada assistenya) procedure TfmMain.btnInsertClick(Sender: TObject); begin fmEdBarang.edKode.Text :=''; fmEdBarang.edNama.Text :=''; fmEdBarang.edKategori.Text:=''; fmEdBarang.edOnHand.Text :=''; fmEdBarang.edOnOrder.Text :=''; fmEdBarang.edSatuan.Text :=''; fmEdBarang.dtpLast.Date :=NOW; fmEdBarang.lblKet.Caption:='Insert Data'; fmEdBarang.edKode.Color:=clWindow; fmEdBarang.edKode.ReadOnly:=false; fmEdBarang.ActiveControl:=fmEdBarang.edKode; fmEdBarang.ShowModal; if fmEdBarang.ModalResult=mrOK then begin tbBarang.Insert; tbBarangKodeBarang.Value := fmEdBarang.edKode.Text; tbBarangNamaBarang.Value := fmEdBarang.edNama.Text; tbBarangKategori.Value := StrToInt(fmEdBarang.edKategori.Text); tbBarangOnHand.Value := StrToInt(fmEdBarang.edOnHand.Text); tbBarangOnOrder.Value := StrToInt(fmEdBarang.edOnOrder.Text); tbBarangSatuan.Value := fmEdBarang.edSatuan.Text; tbBarangLastUpdate.Value := fmEdBarang.dtpLast.Date; tbBarang.Post; end; end;
ARSys Software Developed/AbdRohim
41
Aplikasi DataBase
11. Kembali ke tampilan form. Double klik pada button Edit. Tuliskanlah program berikut ini: (Tanyakan langsung jika ada statemen yang tidak dimengerti kepada assistenya) procedure TfmMain.btnEditClick(Sender: TObject); begin fmEdBarang.edKode.Text :=tbBarangKodeBarang.Value; fmEdBarang.edNama.Text :=tbBarangNamaBarang.Value; fmEdBarang.edKategori.Text:=IntToStr(tbBarangKategori.Value); fmEdBarang.edOnHand.Text :=IntToStr(tbBarangOnHand.Value); fmEdBarang.edOnOrder.Text :=IntToStr(tbBarangOnOrder.Value); fmEdBarang.edSatuan.Text :=tbBarangSatuan.Value; fmEdBarang.dtpLast.Date :=tbBarangLastUpdate.Value; fmEdBarang.lblKet.Caption:='Edit Data'; fmEdBarang.edKode.Color:=clBtnFace; fmEdBarang.edKode.ReadOnly:=true; fmEdBarang.ActiveControl:=fmEdBarang.edNama; fmEdBarang.ShowModal;
12.
13. 14. 15.
if fmEdBarang.ModalResult=mrOK then begin tbBarang.Edit; tbBarangNamaBarang.Value := fmEdBarang.edNama.Text; tbBarangKategori.Value := StrToInt(fmEdBarang.edKategori.Text); tbBarangOnHand.Value := StrToInt(fmEdBarang.edOnHand.Text); tbBarangOnOrder.Value := StrToInt(fmEdBarang.edOnOrder.Text); tbBarangSatuan.Value := fmEdBarang.edSatuan.Text; tbBarangLastUpdate.Value := fmEdBarang.dtpLast.Date; tbBarang.Post; end; end; Kembali ke tampilan form. Double klik pada button Delete. Tuliskanlah program berikut ini: (Tanyakan langsung jika ada statemen yang tidak dimengerti kepada assistenya) procedure TfmMain.btnDeleteClick(Sender: TObject); begin if MessageDlg('Yakin akan dihapus ?' ,mtConfirmation,mbOKCancel,0)=mrOK then tbBarang.Delete; end; Simpan kembali programnya Silahkan dijalankan kembali programnya Insertkan sebanyak minimal 5 buah record pada tabel barang tersebut. Isikan pada field Kategori angka 1sampai 3 saja.
ARSys Software Developed/AbdRohim
42