MODUL MS.ACCESS

  1. 1.      Membuat Database dengan MS Access
    1. a.      Membuat Database Baru

Setelah masuk ke dalam MS Access, kita dapat membuat database baru. Misalkan kita akan membuat database dengan nama file “sampel”, caranya sebagai berikut:

Klik BLANK DATABASE yang ada di bagian New (sebelah kanan tampilan MS Access)

Tentukan nama file (database) pada bagian FILENAME (isilah dengan “DATA1”)

Tentukan pula folder letak penyimpanan file tersebut di bagian SAVE IN

Klik CREATE

  1. b.      Membuat Tabel Baru

Kriteria untuk membuat tabel dalam database “DATA1”, adalah sebagai berikut:

NAMA TABEL BKL
NAMA FIELD TIPE DATA SIZE/FORMAT CATATAN
NO NUMBER INTEGER PRIMARY KEY
KODE TEXT 20
MATA KULIAH TEXT 20
HARI TEXT 20
TANGGAL DATE/TIME SHORT DATE
JAM NUMBER LONG INTEGER
MULAI DATE/TIME SHORT TIME
PENGAMPU TEXT 20

Untuk membuat tabel diatas dalam database “DATA1”, adalah sebagai berikut:

1)   Dari tampilan seperti pada Gambar 1.1, langkah selanjutnya adalah DOUBLE KLIK PADA VIEW

2)   Selanjutnya, isilah nama field, tipe data dan sizenya pada kotak yang disediakan secara lengkap sesuai dengan tabel 1.1

3)   Simpan tabel dengan mengklik menu FILE kemudian SAVE

4)   Beri nama tabel dengan JADWALUJIAN

5)   Tekan OK

  1. 2.      Koneksi Delphi ke MS. Access
    1.  Meregistrasi File Database Access ke ODBC

Sebelum Delphi dikoneksikan ke file database MS. Access yang telah dibuat, terlebih dahulu dilakukan register file database ke ODBC. Dalam hal ini peran ODBC adalah untuk penghubung antara file Access ke Delphi. Berikut adalah langkah-langkahnya:

Klik START > CONTROL PANEL > ADMINISTRATIVE TOOLS > DATA SOURCE (ODBC)

Klik Add > Microsoft Access Driver (*.mdb, *.accdb) > Finish

  1. Isilah Data Source Name dengan sembarang nama, misal “JADWAL1”
  2. Klik select  > carilah file yang telah dibuat. Pada contoh ini, carilah file “JADWAL1” yang telah dibuat
  1. Klik OK

Dengan demikian file database kartu ujian.mdb telah teregister di ODBC dan siap untuk diintegrasikan dengan Delphi.

  1. 3.                  Bekerja dengan Query

Selanjutnya kita akan membuat aplikasi pencarian data pembeli. Dengan kategori pencarian yaitu no, kode, mata kuliah, hari, tanggal, jam, mulai, pengampu. Dalam hal ini juga terdapat pula tempat memasukkan kata kunci terkait dengan data yang akan dicari. Hasil pencarian data akan ditampilkan pada DBGrid. Berikut langkah-langkahnya:

  1. Sisipkan komponen-komponen berikut ini dan ubahlah propertiesnya

LABEL

Properties Value
NAME LABEL1
CAPTION Jadwal Ujian Semester

GROUPBOX

Properties Value
NAME GROUPBOX1
CAPTION KATEGORI
Properties Value
NAME GROUPBOX2
CAPTION KATA KUNCI
Properties Value
NAME GROUPBOX3
CAPTION PENCARIAN

RADIOBUTTON

Properties Value
NAME RADIOBUTTON1
CHECKED TRUE
CAPTION NO
Properties Value
NAME RADIOBUTTON2
CAPTION KODE
Properties Value
NAME RADIOBUTTON3
CAPTION MATA KULIAH
Properties Value
NAME RADIOBUTTON4
CAPTION PENGAMPU

Keterangan : RADIOBUTTON dimasukkan kedalam “KATAGORI”

                                               

EDIT

Properties Value
NAME EDIT1
TEXT (kosongkan)

Keterangan : EDIT1 dimasukkan kedalam “ KATA KUNCI”

BUTTON1

Properties Value
NAME BUTTON1
CAPTION CARI DATA

BUTTON2

Properties Value
NAME BUTTON2
CAPTION CETAK DATA

DATABASE

Properties Value
NAME DATABASE1
ALIASNAME JADWAL
DATABASENAME JADWAL1
LOGINPROMPT FALSE
CONNECTED TRUE

QUERY

Properties Value
NAME QUERY1
DATABASENAME JADWAL1
REQUESTLIVE TRUE
SQL SELECT * FROM JADWALUJIAN
ACTIVE TRUE

Requestlive bernilai true supaya data hasil pencarian dapat diedit.

DATASOURCE

Properties Value
NAME DATASOURCE1
DATASET Query1

DBGRID

Properties Value
NAME DBGRID1
DATASOURCE DATASOURCE1

Keterangan : DBGRID1 dimasukkan kedalam “HASIL PENCARIAN”

DBNAVIGATOR

Properties Value
DATASOURCE DATASOURCE1
NAME DBNAVIGATOR1

Keterangan : DBNAVIGATOR1 dimasukkan kedalam “Hasil Pencarian”

  1. Selanjutnya tambah code berikut ini pada event ON CLICK pada BUTTON1 (CARI DATA)

procedure TForm1.Button1Click(Sender: TObject);

var query : string;

begin

Query1.SQL.Clear;

If Radiobutton1.Checked then

query := ‘SELECT * FROM  JADWALUJIAN WHERE NO = :katakunci’

else if Radiobutton2.Checked then

query := ‘SELECT * FROM  JADWALUJIAN WHERE KODE LIKE :katakunci’

else if Radiobutton3.Checked then

query := ‘SELECT * FROM  JADWALUJIAN WHERE MATA KULIAH = :katakunci’

else if Radiobutton4.Checked then

query := ‘SELECT * FROM  JADWALUJIAN WHERE PENGAMPU  LIKE :katakunci’;

Query1.SQL.Add(Query);

If Radiobutton2.Checked or Radiobutton4.Checked then

Query1.ParamByName(‘katakunci’).Value :=’%’+Edit1.Text+’%’

else if Radiobutton3.Checked then

Query1.ParamByName(‘katakunci’).Value := StrtoInt(Edit1.Text)

else Query1.ParamByName(‘katakunci’).Value := Edit1.Text;

Query1.Open;

If Query1.RecordCount = 0 then MessageDlg(‘Data tidak ditemukan’,mtinformation,[mbOK],0);

end;

Gambar Desain Tampilan Aplikasi dengan Query

 

  1. 4.      Membuat Grafik dengan DBChart

            DBChart digunakan untuk menampilkan grafik diagram batang yang menunjukan jumlah pembeli per alamat. Berikut adalah cara membuatnya, tambahkan komponen berikut kedalam form tadi yang telah dibuat

  1. Sisipkan Komponen berikut dan ubah propertiesnya

QUERY

Properties Value
NAME QUERY2
DATABASENAME data2
SQL SELECT COUNT (*) AS JUM, PENGAMPU FROM SISWA GROUP BY PENGAMPU
ACTIVE TRUE

DBCHART

Properties Value
NAME DBCHART1

Catatan:

  • Tambahkan Series pada DBChart1 dengan bentuk bar
  • Ubah title menjadi ‘DATA PENGAMPU UJIAN’.
  • Hapuslah Legend (legend tidak ditampilkan)
  • Tambahkan title pada left axis dengan ‘JUMLAH’ dan bottom axis dengan ‘PENGAMPU’. Dua option ini sebagai nama sumbu grafik.
  1. Tambahkan code berikut ini pada event ONACTIVATE dalam komponen FORM

procedure TForm1.FormActivate(Sender: TObject);

begin

Series1.DataSource := Query2;

Series1.XLabelsSource := ‘PENGAMPU’;

Series1.YValues.ValueSource :=’JUM’;

end;

Keterangan:

Perintah Series1.XlabelsSource digunakan untuk menampilkan label sumbu X pada grafik. Pada code diatas, label sumbu x diambil dari field PENGAMPU pada Query SQL. Sedangkan Series1.YValues.ValueSource digunakan untuk menentukan field terkait untuk menentukan nilai data dari field terkait, dalam hal ini nilai data adalah JUM.

Gambar Desain Tampilan Aplikasi dengan Query dan DBChart

.

  1. 5.      Report dari Query

Kita akan membuat aplikasi yang dapat mencetak semua data yang ada dalam tabel SISWA. Langkah-langkahnya adalah sebagai berikut, kita tambahkan komponen – komponen dari form yang telah dibuat sebelumnya

BUTTON

Properties Value
NAME BUTTON2
CAPTION CETAK DATA
  1. Selanjutnya adalah membuat report. Caranya dengan mengklik menu FILE > NEW > APPLICATION > OTHER > REPORT
  2. Berikutnya tambahkan komponen-komponen berikut ini beserta propertiesnya

QUICKREPORT

Properties Value
NAME QUICKREPORT2
PAGE – PAPERSIZE A4
PAGE – ORIENTATION PoPORTRAIT
DATASET Form1.Query1

QRBAND

Properties Value
NAME QRBAND1
BANDTYPE RbTITLE
Properties Value
NAME QRBAND2
BANDTYPE RbCOLUMNHEADER
FRAME – DRAWBOTTOM TRUE
FRAME – DRAWLEFT TRUE
FRAME – DRAWRIGHT TRUE
FRAME – DRAWTOP TRUE
Properties Value
NAME QRBAND3
BANDTYPE rbDETAIL
FRAME – DRAWBOTTOM TRUE
FRAME – DRAWLEFT TRUE
FRAME – DRAWRIGHT TRUE
FRAME – DRAWTOP TRUE
Properties Value
NAME QRBAND4
BANDTYPE RbSUMMARY
FRAME – DRAWBOTTOM TRUE
FRAME – DRAWLEFT TRUE
FRAME – DRAWRIGHT TRUE
FRAME – DRAWTOP TRUE
Properties Value
NAME QRBAND5
BANDTYPE RbPAGEFOOTER
FRAME – DRAWBOTTOM TRUE
FRAME – DRAWLEFT TRUE
FRAME – DRAWRIGHT TRUE
FRAME – DRAWTOP TRUE

QRLABEL

Properties Value
NAME QRLABEL1
CAPTION Data Pembeli Toko Abadi

QRLABEL1 diletakkan di band rbTITLE, sedangkan QRLABEL2 sampai dengan QRLABEL5 dan QRLABEL9 diletakkan di band rbCOLUMNHEADER

Properties Value
NAME QRLABEL2
CAPTION NO
Properties Value
NAME QRLABEL3
CAPTION KODE
Properties Value
NAME QRLABEL4
CAPTION KODE
Properties Value
NAME QRLABEL5
CAPTION MATA KULIAH
Properties Value
NAME QRLABEL6
CAPTION HARI
Properties Value
NAME QRLABEL7
CAPTION TANGGAL
Properties Value
NAME QRLABEL8
CAPTION JAM
Properties Value
NAME QRLABEL9
CAPTION MULAI
Properties Value
NAME QRLABEL10
CAPTION PENGAMPU

Untuk QRLABEL11 dan QRLABEL12 diletakkan di band rbSUMMARY

Properties Value
NAME QRLABEL11
CAPTION JUMLAH DATA
Properties Value
NAME QRLABEL12
CAPTION DICETAK TANGGAL

QRLABEL13 diletakkan di band rbPAGEFOOTER

Properties Value
NAME QRLABEL13
CAPTION HALAMAN

QRDBTEXT

QRDBTEXT1 sampai dengan QRDBTEXT4 diletakkan di band rbDETAIL

Properties Value
NAME QRDBTEXT1
DATASET Form1.Query1
DATAFIELD NO
Properties Value
NAME QRDBTEXT2
DATASET Form1.Query1
DATAFIELD KODE
Properties Value
NAME QRDBTEXT3
DATASET Form1.Query1
DATAFIELD MATA KULIAH
Properties Value
NAME QRDBTEXT4
DATASET Form1.Query1
DATAFIELD HARI
Properties Value
NAME QRDBTEXT5
DATASET Form1.Query1
DATAFIELD TANGGAL
Properties Value
NAME QRDBTEXT6
DATASET Form1.Query1
DATAFIELD JAM
Properties Value
NAME QRDBTEXT7
DATASET Form1.Query1
DATAFIELD MULAI
Properties Value
NAME QRDBTEXT8
DATASET Form1.Query1
DATAFIELD PENGAMPU

QRSYSDATA

Properties Value
NAME QRSYSDATA1
DATA qrsDETAILNO

Keterangan : QRSYSDATA1 diletakkan di rbDETAIL

Properties Value
NAME QRSYSDATA2
DATA QrsDETAILCOUNT

Keterangan : QRSYSDATA2 diletakkan di rbSUMMARY

Properties Value
NAME QRSYSDATA3
DATA QrsDATE

Keterangan : QRSYSDATA3 diletakkan di rbSUMMARY

Properties Value
NAME QRSYSDATA4
DATA qrsPAGENUMBER

Keterangan : QRSYSDATA4 diletakkan di rbPAGEFOOTER

Gambar Tampilan Form Report

  1. Kemudian tambahkan code berikut ini pada event ONCLICK tombol CETAK DATA (Button2) yang ada pada form1.

QuickReport2.Preview;

Gambar Desain Report dari Query dan DBChart

Gambar Tampilan Aplikasi dengan Report dari Query dan DBChart ketika dijalankan (RUN> CETAK DATA) akan muncul

Gambar Tampilan Aplikasi dengan Report dari Query dan DBChart ketika dicetak

Apabila program dijalankan dengan proses pencarian data yang menggunakan KATAGORI > KODE> KATA KUNCI (Misal 703302) > CARI DATA ilustrasinya sebagai berikut

Ketika diklik CETAK DATA akan muncul report

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s