tugas delphi

untuk tugas imk delphi bisa download disini

pertemuan ketujuh

Koneksi Database Access dengan Delphi 7 melalui ADO

17 Apr, 2012Tutorial IT

Sahabat Pintar,

Yuk kita belajar pemrograman Delphi. Kali ini kita akan belajar mengenai koneksi Database Access dengan DB 7 melalui ADO (ActiveX Data Objects). Delphi dapat menggunakan database dari ms Access untuk dipakai sebagai penyimpanan dan pemrosesan data. dengan fasilitas ADO pada delphi 7, dapat dikoneksikan database ms access dengan ekstensi .mdb berikut cara melakukan koneksinya:

langkah 1

- buka delphi 7
langkah 2

- pilih bagian ADO

- ambil ADOConnection dan ADOTable dan masukkan ke dalam form

- ADOConnection digunakan untuk melakukan koneksi dengan file database yang telah dibuat

- ADOTable digunakan untuk mengambil table yang ada di dalam database. pada ADOTable dapat disetting nilai field yang terdapat pada table database yang diambil. ADOTable terkoneksi dengan ADOConnection

langkah 3

- pilih bagian data access

- ambil datasource dan masukkan ke dalam form

- datasource digunakan untuk pengambilan data field yang terdapat di dalam table, datasource secara langsung terkoneksi dengan ADOTable

langkah 4

-doubleklik pada ADOConnection,  kan muncul dialog seperti pada gambar
-lalu klik build
langkah 5

- akan keluar dialog seperti gambar diatas
- pilih microsoft jet 4, microsoft jet 4 digunakan untuk mengenali file database dari ms Access
- kemudian pilih next
langkah 6

- pada bagian conection, pilih lokasi database(ekstensi .mdb) yang sebelumnya telah dibuat

- lakukan test connection untuk melihat database telah terkoneksi atau belum.

- apabila database memiliki password maka isikan pada bagian password dan username

- setelah selesai klik ok

langkah 7

- klik ADOConection, pada bagian properties (bagian kiri bawah) atur seperti pada gambar diatas

- conected diatur true agar file database terkoneksi dengan program yang dibuat

- name dapat diubah sesuai kebutuhan untuk mempermudah pembuatan program yang melibatkan ADOConnection, pada gambar diatas name diubah menjadi koneksi

langkah 8

- klik ADOTable, pada bagian properties (bagian kiri bawah) atur seperti pada gambar diatas

- active digunakan untuk mengaktifkan pengambilan tabel

- name digunakan untuk merubah nama ADOTabel yang digunakan dalam program, pada gambar diatas name diubah menjadi table1

- table direct digunakan untuk melakukan akses table pada database secara langsung

- tablename digunakan untuk melakukan pengambilan table pada file database, seringkali dalam sebuah database terdapat banyak table dan querry, karena itu untuk mengakses banyak table diperlukan banyak ADOTable karena sebuah ADOTable hanya dapat mengakses 1 table saja dalam 1 waktu, pada gambar diatas dipilih table dengan nama database pada file database yang telah diload oleh ADOConnection(ADOConnection harus dalam posisi Connected=true)

langkah 9

- klik datasource, pada bagian properties (bagian kiri bawah) atur seperti pada gambar diatas

- dataset digunakan untuk mengambil data field pada table yang diinginkan, table yang telah aktif dan telah dibuat adalah table dari ADOTable dengan nama table1 karena itu dataset dapat diisi dengna table1

- name juga dirubah untuk mempermudah penulisan program, pada gambar diubah menjadi source1

- setelah pengaturan selesai maka telah terjadi hubungan yaitu pengambilan file database oleh ADOConnection, lalu pengambilan Table Database oleh ADOTable, dan pengambilan data field oleh datasource dan koneksi antara database dan program dalam delphi telah selesai.

- selanjutnya database dapat digunakan sesuai kebutuhan

langkah selanjutnya adalah contoh untuk menampilkan database yang telah dihubungkan

langkah 10

- masuk ke bagian data control

- pilih dbgrid lalu tempatkan apda form seperti pada gambar diatas

- dbgrig adalah tampilan interface berupa table, namun karena belum diisi maka tampilan dbgrid masih kosong seperti pada gambar

langkah 11

- pada bagian properties dbgrid, datasource dapat diisi dengan source1 yaitu nilai dari field yang telah diambil dari database access

- setelah melakukan perubahan properties pada dbgrid maka tampilannya akan berubah dan menampilkan isi table database yang telah diambil seperti terlihat pada gambar

- apabila table tidak muncul pada dbgrid perlu decek kembali apakah ADOConnection sudah connected = true dan apakah ADOTable sudah active = true

langkah 12

- tampilan pada dbgrid merupakan tampilan yang masih kasar dan belum terlihat baik karena itu dapat dilakukan perubahan tampilan dari field dengan ADOTable

- doubleklik pada ADOTable, maka akan muncul form dialog

- selanjutnya klik kanan pada kotak dialog tersebut lau pilih Add all Fields

langkah 13

- setelah field muncul lau dapat dipilih field yang ingin diatur, dan pengaturannya dapat dilakukan melalui bagian properties di kiri bawah

- pada gambar dipilih field kode lalu pada properties diatur visible = false maka selanjutnya pada dbgrid terlihat bahwa field kode menghilang

-field kode sebenarnya amsih ada hanya tidak ditampilkan pada dbgrid karena telah diatur pada properties fieldnya, ini berguna untuk menyembunyikan field yang tidak perlu dilihat

langkah 14

- selanjutnya adalah field nama, pada bagian prperties terlihat size field ini 255 sehingga terlihat sangat panjang pada dbgrid karen itu dapat dipendekkan dengan merubah nilai displaywidth

- pada gambar display width dirubah menjadi 30 sehingga pada dbgrid field name memendek hanya 30 karakter

- tampilan pada dbgrid sudah terlihat sesuai dan baik

langkah 15

- form dapat diatur sesuai dengan keinginan
- program ini telah selesai untuk menampilkan database yang telah terkoneksi
langkah 16

- untuk melakukan save pada delphi 7 dapat dilakukan dengan save all untuk save form dan save project

Mudah bukan? semoga bermanfaat

pertemuan keenam

 cara membuat pemutar musik sederhana dengan delphi.

Kita mulai saja langkah-langkah atau cara untuk membuat pemutar musik yang sangat sederhana ini:

1. Buka aplikasi Delphi dan buatlah satu Form Baru (Form 1).
2. Menyiapkan kebutuhan Komponen yang akan dipakai:

• Komponen Button ( pada halaman Tab Standard, sebanyak 1 buah)
• Komponen MediaPlayer ( pada halaman Tab System, sebanyak 1 buah)
• Komponen ProgressBar ( pada halaman Tab Win32, sebanyak 1 buah)
• Komponen Timer ( pada halaman Tab System, sebanyak 1 buah)
• Komponen OpenDialog (pada halaman Tab Dialogs, sebanyak 1 buah)

Semua komponen diletakkan dalam sebuah form, untuk peletakannya sesuai dengan selera masing-masing. Jika semua komponen sudah lengkap, kira-kira seperti ini tampilannya :

Tampilan Awal Pemutar Musik

3. Klik pada Form1. Ada beberapa properties yang perlu kita ubah. Langsung menuju object inspector :

Properties	Yang diubah
Caption	PemutarMusiksederhana
Color	clPurple

4. Kemudian kita klik dan aturlah untuk Komponen Button1 sebagai berikut:

Properties	Yang diubah
Caption	&Buka file MP3….

5. Klik pada Komponen MediaPlayer1 dan atur pula untuk Komponen MediaPlayer1 sebagai berikut:

Properties	Yang diubah
VisibleButton	Beri nilai false pada (btNext, vtPrev, btRecord, dan btEject)

 

Klik pada Komponen OpenDialog1 dan isikan properties pada filter dan isikan pada filter editornya. Lihat gambar dibawah.

Kemudian pilih OK. Sekedar memberitahukan setelah melalui beberapa tahapan, tampilan akan menjadi seperti di bawah.

Bagaimana, temans? . Yuuuuuk, kita lanjut dan ke codingnya.

7. Sebelum masuk coding, terlebih dahulu kita kenalkan untuk variablenya pada Om Delphiano. Variable yang dipakai:

1	Mp3Path: String;

2	Paused: Boolean;

Tentunya sudah tau kan, mengapa saya deklarasi variablenya seperti di atas? Jika ingin belajar tentang variable pada Delphi, bisa dibara pada catatan yang ini.

8. Setelah mengenalkan variabel, sekarang kita dobel klik pada Form1 dan tulis kode dibawah:

1	procedure TForm1.FormCreate(Sender: TObject);

2

3

begin

4	paused:=false;

5	MediaPlayer1.Enabled:=False;

6	Form1.Top:=(Screen.Height-Form1.Height)div 2;

7	Form1.Left:=(Screen.Width-Form1.Width)div 2;

8

end;

9. Arahkan kursor pada komponen MediaPlayer1, dobel klik dan tulis kode sperti dibawah:

view sourceprint?

01	procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;

02	var DoDefault: Boolean);

03

begin

04	if Button = btStop then

05

begin

06	MediaPlayer1.Position:=0;

07	ProgressBar1.Position:=0;

08

end

09	else if Button = btStep then

10

begin

11	if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length) then

12	MediaPlayer1.Position:=MediaPlayer1.Position+5000

13

else

14

begin

15	MediaPlayer1.Position:=0;

16	ProgressBar1.Position:=0;

17

end;

18	MediaPlayer1.Play;

19

end

20	else if Button = btBack then

21

begin

22	if ((MediaPlayer1.Position-5000)>0) then

23	MediaPlayer1.Position:=MediaPlayer1.Position-5000

24

else

25	MediaPlayer1.Position:=0;

26	MediaPlayer1.Play;

27

end;

28

29

end;

 1. Dobel klik pada Timer1 dan tulis kode berikut:

01	procedure TForm1.Timer1Timer(Sender: TObject);

02

begin

03	if MediaPlayer1.Enabled then

04

begin

05	ProgressBar1.Position:=MediaPlayer1.Position;

06	if ProgressBar1.Position=MediaPlayer1.Length then

07

begin

08	MediaPlayer1.Stop;

09	ProgressBar1.Position:=0;

10	MediaPlayer1.Close;

11	MediaPlayer1.Enabled:=true;

12	MediaPlayer1.FileName:=Mp3Path;

13	MediaPlayer1.Open;

14	MediaPlayer1.Position:=0;

15	ProgressBar1.Max:=MediaPlayer1.Length;

16	ProgressBar1.Min:=0;

17

end;

18

end;

19

end;

12. Maaf, ada yang lupa, tolong tambahin 1 Button lagi, Button ini berfungsi untuk menutup atau keluar dari aplikasi? ubahlah untuk propertiesnya:

Properties	Yang diubah
Caption	&Keluar

Sisipkan kode di bawah untuk Button Keluar:

1	procedure TForm1.Button2Click(Sender: TObject);

2

begin

3

close;

4

end;

5

end.

Button Keluar merupakan komponen terakhir cara membuat pemutar musik sederhana dengan delphi. Sedangkan Codingnya cukup sampai di sini. Jangan lupa disimpan untuk semua yang sudah dibuat. Untuk projectnya disimpan dengan nama PMusik dan untuk Unitnya disimpan dengan nama UMusik. Baiklah, setelah semua disimpan sekarang saatnya menjalankan aplikasi dengan menekan tombol RUN yang ada pada menubar atau menekan tombol F9 pada keyboard. Dengan mengikuti langkah-langkah cara membuat pemutar musik sederhana dengan delphi, akan menghasilkan Pemutar Musik sederhana seperti di bawah ini:

• Buka File MP3 yang akan di putar dengan cara, klik pada tombol Buka File MP3.

• Pilih salah satu MP3 yang akan diputar.

• Nikmatilah lagu yang sudah dipilih. . .

Ini saya sedang mendengarkan lagu dari pemutar musik yang baru dibuat. Memang masih sederhana aplikasi ini, aplikasi sederhana ini saya namai VINCERIS.

6 aspek argonomika klik di sini