Pemograman Visual - Koneksi Database [Ms.Acces] dengan Aplikasi [Visual Delphi]

Microsoft Access Adalah paket software database relasional yang hebat, yang memudahkan untuk

mengelola dan membuat database yang kompleks. Pada microsaft Access sebuah database disimpan

dalam sebuah berkas dengan ekstensi .mdb, didalam berkas inilah semua objek yang terkait dengan

database termasuk semua table, disimpan pada istilah kolom yang biasa dipakai pada basis data relasional disebut Field dan baris biasa disebut Record.

Access dapat menolong mengelola segala ukuran database, dari daftar yang sederhana sampai database bisnis yang komplek. Dengan menggunakan Microsoft Access dapat melakukan hal berikut:

Ø  memulai secara cepat database baru dengan menggunakan database Wizard.

Ø  membuat table dari awal atau dengan menggunakan Wizard.

Ø  menambah dan memeriksa  informasi dengan menggunakan Table maupun Form.

Obyek – obyek dalam sebuah database :

1. Tabel : Obyek yang berisi tipe–tipe data dan data mentah.
2. Kolom : Sebuah tabel berisi kolom–kolom untuk menampung data. Kolom memnpunyai sebuah type dan nama yang unik.
3. Tipe data : Sebuah kolom menpunayi sebuah tipe data. Tipe data yang dipilih adalah karakter, numerik, tanggal, boolean dan lain–lain.
4. Strored prosedure : merupakan perintah–perintah SQL yang membentuk makro. Dengan menjalankan strored procedure berarti anda menjalankan perintah–perintah SQL didalam sebuah procedure.
5. Trigger : adalah strore procedure yang diaktifkan pada saat data ditambahkan, diubah, atau dihapus dari database. Trigger dipakai untuk menjamin aturan integritas didalam database. Misalnya sebuah trigger dapat menjamin bahwa setiap mahasiswa mempunyai NPM yang sesuai dengan peraturan.
6. Rule : diberlakukan pada kolom sehingga data yang dimasukkan harus sesuai dengan aturan.
7. Kunci utama (primary key) : menjamin setiap baris data unik, dapat dibedakan dari data lain.
8. Kunci tamu (foreign key) : adalah kolom–kolom yang mengacu kunci utama atau konstrain unik pada tabel lain. Kunci utama dan kunci tamu dipakai untuk menghubungkan sebuah tabel dari tabel lain.
9. Konstrain : adalah mekanisme integrasi data yang berbasis server dandiimplementasikan oleh sistem.
10. Default : dinyatakan pada filed (kolom) sehingga jika kolom tersebut tidak diisi data maka diisi nilai default.
11. View : adalah query yang memakai beberapa tabel dan disimpan didalam database. View dapat memiliki beberapa kolom dari sebuah tabel atau menghubungkan beberapa tabel. View dapat dipakai untuk menjaga keamanan data.
12. Index : membantu mengorganisasi data sehigga query menjadi lebih cepat.

 Peralatan

Peralatan yang dibutuhkan meliputi :

1.      Seperangkat sistem komputer dengan OS WIN7

2.      Microsoft Acces 2010

3.      Perangkat pemrograman visual delphi 7.0

Membuat Database

Langkah pertama Untuk  membuat aplikasi database ini ialah membuat Database terlebih dahulu,pada praktikum kali ini menggunakan Microsoft access.

Pastikan Microsoft access telah terinstal terlebih dahulu,jika sudah buka  Microsoft access Windows – All programs - Micosoft Office – Microsoft Access maka akan muncul tampilan sebagai berikut,

  

pilih New – Blank database

Sebelum mengklik Create pastikan terlebih dahulu folder tempat kita menyimpan file,simpan file database di folder yang berbeda dengan file aplikasi nantinya. Setelah mengklik create maka akan muncul tampilan sebagai berikut;

Kemudian Pada Tabel1 pilih

1.      klik kanan pilih design view

2.      Ganti nama Tabel sesuai keinginan,pada praktikum ini ganti dengan “Data1”

3.      Kemudian klik Ok

Setelah klik ok, maka muncul tampilan berikut;

1.      Field Name, merupakan nama kolom pada Tabel database nantinya.

2.      Data Type ,merupakan Tipe dat dari Field Name tersebut.

3.      Isikan Field name sesuai keinginan kita,

4.      Primary key,merupakan data dari tiap field field yang berbeda satu dengan lainnya,pada kali ini ID menjadi primary key karena Tiap ID pasti berbeda satu dengan lainnya.

5.      General,general disini untuk mengedit isi dari field tersebut,pilih Field Size untuk nilainya sesuaikan keinginan kita.

6.      Pada Praktikum kali ini kita akan membuat 2 Tabel dengan spesifikasi sebagai berikut:

	Field Name	Data Type	Field Size	Primary key
Data1	Nama	Text	35
	ID	Text	20	ID
	Alamat	Text	35
Data2	Barang	Text	35
	ID Barang	Text	20	ID Barang
	Jenis	Text	35

  

Jika sudah ,save database dengan nama database1.  

      Membuat Aplikasi Database dengan Delphi 7.0

Buka Program Delphi Windows – All Programs- Borland Delphi 7 kemudian Pilih Delphi 7.Untuk Aplikasinya sendiri kita akan membuat dengan dua Form,Form1 sebagai Form Utama dan Form2 sebagai Form report.

a.      Form 1

   Untuk Form1 Properti dan komponen pallete yang perlu ditambahkan ialah sebagai berikut;

No.	Komponen	Properti	Nilai
1	Form1	Name	Futama
		Caption	Futama
2	ADOConnection1 ,Dari component pallete ”ADO”	Connected	True
		LoginPromt	False
		Connection String	*lihat catatan dibawah
		Name	Koneksi
3	ADOTable1(ADODB) Dari component pallete ”ADO”	Active	True
		Connected	Koneksi
		Name	TBData1
		TableName	Data1
4	ADOTable1(ADODB) Dari component pallete ”ADO”	Active	True
		Connected	Koneksi
		Name	TBData2
		TableName	Data2
5	Data Source(DB) Dari component palete ”Data Access”	Name	DSBData1
		DataSet	TBData1
6	Data Source(DB) Dari component palete ”Data Access”	Name	DSBData2
		DataSet	TBData2
7	DBGrid(DBGrids) Dari component palete ”Data Control”	Data Source	DSBData1
8	DBGrid(DBGrids) Dari component palete ”Data Control”	Data Source	DSBData2
9	Button1 Dari component palete ”Standar”	Caption	Submit

  

Ket “ * ” ;

b.      ADOConnection1 ,Dari component pallete ”ADO” , pada Properti  Connection String ini kita akan mengkoneksikan database dengan aplikasi yaitu dengan cara sebagai berikut;

       Klik pada property Connection String sehingga muncul tampilan sebagai berikut;

Klik tombol Build, akan muncul kotak dialog  Data Link  Microsoft Jet 4.0 OLE DB Provider, lalu klik : Properties, pilih Next

Setelah itu maka akan muncul Tampilan sebagai berikut;

Pilih select or enter a database name,ini untuk memilih database yang akan kita koneksikan.Setelah dipilih klik Test Connection untuk memastikan koneksi tersambung.jika sukses klik Ok.

 

Gambar Desain Form1/Futama

Kemudian save all, simpan file aplikasi berbeda dengan file database, beri nama file unit1 dengan unutama dan project1 dengan Aplikasi

Form2 

Karena pada Alikasi ini kita akan Menampilkan database dengan Qreport maka Pada Form2 ini kita akan gunakan untuk menampilkan isi dari Database,sebelum menambahkan komponen pada Form2 hubungkan dahulu antara Form1 dengan Form2 dengan cara sebagai berikut;

Simpan dahulu Form2 dengan nama freport,untuk property yang dirubah sebagai berikut;

Properti	Nilai
Caption	freport
Name	freport

Masuk pada Kode editor freport buat procedure “procedure buatreport;”

Public

     procedure buatreport;

    { Public declarations }

  end;

kemudian dibawah {$R *.dfm}

uses unreport;

procedure TFutama.buatreport;

var Freport:TFreport;

begin

         Freport :=TFreport.create(Application);

     End;

         

Kemudian pilih project – Option(shift+ctrl+F11) lalu muncul tampilan seperti dibawah ini,pilih freport  pindahkan ke available forms.

Dan terakhir untuk unit2 tambahkan uses unutama dibawah {$R *.dfm}.

Untuk komponen pallete dan property yang dibutuhkan bias dilihat dari table berikut;

No.	Komponen	Properti	Nilai
1	QuickRep1(QiuckRpt)Dari komponen palate “Qreport”	Bands	HasColumnHeader – True HasDetail – True HasTitle – True
		DataSet	Futama.TBData1
2	QuickRep2(QiuckRpt)Dari komponen palate “Qreport”	Bands	HasColumnHeader – True HasDetail – True HasTitle – True
		DataSet	Futama.TBData2

Untuk Komponen yang terdapat pada Qreport tergantung dengan Tabel Database yang telah terhubung,Pada Laporan kali ini komponen yang dibutuhkan untuk QuickRep1 dan QuickRep2 yaitu bias dilihat dari table berikut;

	Komponen	Properti	Nilai
QuickRep1	QRLabel1(QRCtrls)Dari komponen Palete “Qreport”	Caption	Nama
	QRLabel2(QRCtrls)Dari komponen Palete “Qreport”	Caption	ID
	QRLabel3(QRCtrls)Dari komponen Palete “Qreport”	Caption	Alamat
	QRDBText1(QRCtrls)Dari komponen Palete “Qreport”	DataField	Nama
		DataSet	Futama.TBData1
	QRDBText2(QRCtrls)Dari komponen Palete “Qreport”	DataField	ID
		DataSet	Futama.TBData1
	QRDBText3(QRCtrls)Dari komponen Palete “Qreport”	DataField	Alamat
		DataSet	Futama.TBData1
	QRSysData1(QRCtrls)Dari komponen Palete “Qreport”	Data	qrsDetailNo
QuickRep2	QRLabel4(QRCtrls)Dari komponen Palete “Qreport”	Caption	Barang
	QRLabel5(QRCtrls)Dari komponen Palete “Qreport”	Caption	ID Barang
	QRLabel6(QRCtrls)Dari komponen Palete “Qreport”	Caption	Jenis Barang
	QRDBText4(QRCtrls)Dari komponen Palete “Qreport”	DataField	Barang
		DataSet	Futama.TBData2
	QRDBText5(QRCtrls)Dari komponen Palete “Qreport”	DataField	ID Barang
		DataSet	Futama.TBData2
	QRDBText6(QRCtrls)Dari komponen Palete “Qreport”	DataField	Jenis Barang
		DataSet	Futama.TBData2
	QRSysData2(QRCtrls)Dari komponen Palete “Qreport”	Data	qrsDetailNo

Keterangan Tabel;

a.       QRLabel(QRCtrls)Dari komponen Palete “Qreport”   dengan Caption : Nama bermaksud agar tampilan di Qreport sesuai dengan Field Database yang telah dibuat atau bias dikatakan sesuaikan antara nama QRLabel(property caption) sesuai dengan field database

b.      QRDBText(QRCtrls) Dari komponen Palete “Qreport”,digunakan untuk menampilkan data yang telah diinputkan di Qreport,sesuaikan DataField dengan Field database yang bersangkutan.contoh Field di database “Nama” maka pada DataField pada QRDBText isikan dengan “Nama”.Pastikan sebelum mengisi Field isi DataSet sesuai Dengan Tabel Database(FUtama.TBData1 contoh DataSet yang diisikan diQuickRep1).

c.       QRSysData(QRCtrls)Dari komponen Palete “Qreport”,digunakan untuk memberi nomor pada inputan data yang diinputkan.

d.       

Langkah terakhir kembali ke kode editor unutama cari kode berikut,

procedure TFutama.buatreport;

var Freport:TFreport;

begin

            Freport :=TFreport.create(Application);

            End;

Tambahkan kode berikut diantara Freport :=TFreport.create(Application) dan End;

     Freport.QuickRep1.PreviewModal;

     Freport.QuickRep2.PreviewModal;

Setelah ditambahkan menjadi ;

procedure TFutama.buatreport;

var Freport:TFreport;

begin

  Freport :=TFreport.create(Application);

  Freport.QuickRep1.PreviewModal;

  Freport.QuickRep2.PreviewModal;

    end;

Pengujian

Setelah semua disimpan (Save All   shift+ctrl+s ) klik F9, maka akan muncul tampilan

sebagai berikut;

Isikan dengan Data seperti Dibawah ini,kemudian klik Submit;

  

Tampilan Qreport1 untuk Data Tabel Data1

Tampilan untuk QuickRep2 Data Tabel Data2

Berikut Source Code Program Tersebut  LINK

Semoga Bermanfaat...

Share this post