Pemograman Visual - Koneksi Database [Ms.Acces] Dengan Aplikasi [Visual Delphi]
Microsoft Access Adalah paket software database relasional yang hebat, yang memudahkan untuk
mengelola dan menciptakan 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 digunakan pada basis data relasional disebut Field dan baris biasa disebut Record.
Access sanggup menolong mengelola segala ukuran database, dari daftar yang sederhana hingga database bisnis yang komplek. Dengan menggunakan Microsoft Access sanggup melaksanakan hal berikut:
Ø memulai secara cepat database gres 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 :
- Tabel : Obyek yang berisi tipe–tipe data dan data mentah.
- Kolom : Sebuah tabel berisi kolom–kolom untuk menampung data. Kolom memnpunyai sebuah type dan nama yang unik.
- Tipe data : Sebuah kolom menpunayi sebuah tipe data. Tipe data yang dipilih ialah karakter, numerik, tanggal, boolean dan lain–lain.
- Strored prosedure : merupakan perintah–perintah SQL yang membentuk makro. Dengan menjalankan strored procedure berarti anda menjalankan perintah–perintah SQL didalam sebuah procedure.
- Trigger : ialah strore procedure yang diaktifkan pada ketika data ditambahkan, diubah, atau dihapus dari database. Trigger digunakan untuk menjamin hukum integritas didalam database. Misalnya sebuah trigger sanggup menjamin bahwa setiap mahasiswa mempunyai NPM yang sesuai dengan peraturan.
- Rule : diberlakukan pada kolom sehingga data yang dimasukkan harus sesuai dengan aturan.
- Kunci utama (primary key) : menjamin setiap baris data unik, sanggup dibedakan dari data lain.
- Kunci tamu (foreign key) : ialah kolom–kolom yang mengacu kunci utama atau konstrain unik pada tabel lain. Kunci utama dan kunci tamu digunakan untuk menghubungkan sebuah tabel dari tabel lain.
- Konstrain : ialah mekanisme integrasi data yang berbasis server dandiimplementasikan oleh sistem.
- Default : dinyatakan pada filed (kolom) sehingga jikalau kolom tersebut tidak diisi data maka diisi nilai default.
- View : ialah query yang menggunakan beberapa tabel dan disimpan didalam database. View sanggup mempunyai beberapa kolom dari sebuah tabel atau menghubungkan beberapa tabel. View sanggup digunakan untuk menjaga keamanan data.
- Index : membantu mengorganisasi data sehigga query menjadi lebih cepat.
Peralatan yang diharapkan mencakup :
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 menciptakan 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 kawasan 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 impian kita,
4. Primary key,merupakan data dari tiap field field yang berbeda satu dengan lainnya,pada kali ini ID menjadi primary key alasannya Tiap ID niscaya berbeda satu dengan lainnya.
5. General,general disini untuk mengedit isi dari field tersebut,pilih Field Size untuk nilainya sesuaikan impian kita.
6. Pada Praktikum kali ini kita akan menciptakan 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 |
7. 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 menciptakan 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, kemudian klik : Properties, pilih Next
Setelah itu maka akan muncul Tampilan sebagai berikut;
Pilih select or enter a database name,ini untuk menentukan 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) kemudian muncul tampilan ibarat dibawah ini,pilih freport pindahkan ke available forms.
Dan terakhir untuk unit2 tambahkan uses unutama dibawah {$R *.dfm}.
Untuk komponen pallete dan property yang diharapkan 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 diharapkan 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 semoga tampilan di Qreport sesuai dengan Field Database yang telah dibentuk 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 pola 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 isyarat editor unutama cari isyarat berikut,
procedure TFutama.buatreport;
var Freport:TFreport;
begin
Freport :=TFreport.create(Application);
End;
Tambahkan isyarat 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 ibarat 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...