Khaeroni.Net :: Tiny

Hallo semua, apa kabar? Sudah lama saya ngga posting tutorial Delphi… Sekarang, sekedar melanjutkan tutorial saya sebelumnya. Dilatarbelakangi statistik pencarian artikel, ternyata banyak juga yang memerlukan artikel tentang koneksi database Ms Access melalui Delphi.

Nah, sebenarnya sudah banyak tutorial yang membahas masalah ini.. Tetapi kebanyakan mengalami kesulitan karena koneksi-nya harus melibatkan DNS yang terkadang merepotkan. Kali ini, saya coba menulis bagaimana mendapatkan hasil yang sama tetapi dengan cara yang relatif tidak merepotkan.

Idenya adalah menggunakan ADO, tetapi dengan terminologi yang sangat sederhana. Langkah-langkahnya kira-kira sebagai berikut:

1. Pastikan Anda sudah memiliki database dalam format Ms Access dan mengetahui strukturnya. Sebagai contoh nama file Access Anda adalah data.mdb.
2. Buka program Delphi.
3. Desain form sesuai kebutuhan, karena disini hanya akan menuntun Anda bagaimana mengkoneksikannya.
4. Tambahkan sebuah ADOConnection. Komponen ini ada di tab ADO.
5. Double Click area kosong pada form untuk menangani kejadian OnCreate miliki Form. Kemudian ketikkan script berikut:
   
procedure TForm1.FormCreate(Sender: TObject);
var
ConnString, Path : string;
begin
//ambil path
Path := ExtractFilePath(Application.ExeName);
//atur ConnectionString-nya
ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
+'User ID=Admin;'
+'Data Source='+Path+'data.mdb;'
+'Mode=Share Deny None;'
+'Extended Properties="";'
+'Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";'
+'Jet OLEDB:Database Password="";'
+'Jet OLEDB:Engine Type=5;'
+'Jet OLEDB:Database Locking Mode=1;'
+'Jet OLEDB:Global Partial Bulk Ops=2;'
+'Jet OLEDB:Global Bulk Transactions=1;'
+'Jet OLEDB:New Database Password="";'
+'Jet OLEDB:Create System Database=False;'
+'Jet OLEDB:Encrypt Database=False;'
+'Jet OLEDB:Don''t Copy Locale on Compact=False;'
+'Jet OLEDB:Compact Without Replica Repair=False;'
+'Jet OLEDB:SFP=False';
//Set properti connection String ADOConnection1
ADOConnection1.ConnectionString := ConnString;
end;

6. Untuk sementara, simpan project Anda. Jangan lupa untuk menyimpan file data.mdb berada pada folder yang sama dengan folder executable file Anda.
7. Untuk mengakses sebuah tabel, Anda bisa menggunakan ADOTable atau ADOQuery. Misalkan Anda menggunakan ADOTable. Jadi, letakkan sebuah komponen ADOTable pada Form.
8. Atur properti ADOTable1 sebagai berikut:Connection : ADOConnection1

   TableName : data_pertama (misalkan Anda memiliki nama tabel data_pertama pada data.mdb)

9. Untuk komponen visual, tambahkan sebuah DBGrid dan untuk mengaksesnya, tambahkan komponen DataSource. Kemudian atur properti-nya sebagai berikut:DBGrid1

   DataSource : DataSource1

   DataSource1

   DataSet : ADOTable1

10. Terakhir, untuk mengaktifkan ADOTable1, tidak bisa melalui design-time. Anda harus mengaktifkannya saat run-time. Oleh karena itu, Anda dapat menambahkan satu baris perintah pada kejadian OnCreate milik Form1. Sehingga script di atas menjadi seperti ini:
procedure TForm1.FormCreate(Sender: TObject);
var
ConnString, Path : string;
begin
//ambil path
Path := ExtractFilePath(Application.ExeName);
//atur ConnectionString-nya
ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
+'User ID=Admin;'
+'Data Source='+Path+'data.mdb;'
+'Mode=Share Deny None;'
+'Extended Properties="";'
+'Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";'
+'Jet OLEDB:Database Password="";'
+'Jet OLEDB:Engine Type=5;'
+'Jet OLEDB:Database Locking Mode=1;'
+'Jet OLEDB:Global Partial Bulk Ops=2;'
+'Jet OLEDB:Global Bulk Transactions=1;'
+'Jet OLEDB:New Database Password="";'
+'Jet OLEDB:Create System Database=False;'
+'Jet OLEDB:Encrypt Database=False;'
+'Jet OLEDB:Don''t Copy Locale on Compact=False;'
+'Jet OLEDB:Compact Without Replica Repair=False;'
+'Jet OLEDB:SFP=False';
//Set properti connection String ADOConnection1
ADOConnection1.ConnectionString := ConnString;
//Aktifkan ADOTable1
ADOTable1.Active := True;
end;

11. Jalankan

Apa kabar semua!!. Ketemu lagi dengan posting saya seputar pembahasan tugas-tugas kuliah. Kali ini dengan matakuliah Analisis Numerik. Sudah empat kali praktikum, dan sudah dua tugasnya.

Untuk praktikum analisis numerik kali ini bertema :

1. Aproksimasi fungsi linear
2. Aproksimasi polinomial
3. Aproksimasi polinomial derajat n dengan menggunakan Matrix Vandermonde

Dan tentu saja implementasi metode-metode di atas menggunakan MATLAB yang kita sayangi. Kebetulan saya sudah mengerjakannya. Silahkan didownload untuk dipelajari. Sengaja saya merestriksi dokumen agar tidak bisa di-copy-paste atau di print.

Ini dia link-nya:

Penyelesaian Tugas II Analisis Numerik 2010

Jika ada yang membutuhkan materi kuliah dan praktikum-nya bisa mendownload melalui link di bawah ini:

• Materi kuliah Aproksimasi Fungsi
• Bahan praktikum Aproksimasi Fungsi

Alhamdulillah teman-teman kita ketemu lagi. Bagaimana dengan hasil semester I cukup memuaskan? Selamat deh buat teman-teman yang sudah sukses di semester ini, mudah-mudahkan bisa dipertahankan atau ditingkatkan lagi. Sementara, bagi yang belum beruntung, bisa menggunakan kesempatan kedua yang diberikan. Semoga lebih baik lagi…

Nah, tiba di semester dua. Kali ini dengan matakuliah Analisis Numerik. Sudah dua kali praktikum, dan alhamdulillah baru satu saja tugasnya.

Untuk praktikum analisis numerik kali ini bertema penyelesaian Sistem Persamaan Linear (SPL) dengan menggunakan metode-metode sebagai berikut:

1. Substitusi Maju (Forward Substitution)
2. Substitusi Mundur (Backward Substitution)
3. Faktorisasi LU (LU Decomposition)
4. Faktorisasi QR (QR Decomposition)
5. Eliminasi Gauss (Gauss Elimination)

Kebetulan saya sudah mengerjakannya. Silahkan didownload untuk dipelajari. Sengaja saya merestriksi dokumen agar tidak bisa di-copy-paste atau di print.

Ini dia link-nya:

Penyelesaian Tugas I Analisis Numerik 2010

Jika ada yang membutuhkan materi kuliah dan praktikum-nya bisa mendownload melalui link di bawah ini:

• Materi kuliah Sistem Persamaan Linear (Bagian I)
• Materi kuliah Sistem Persamaan Linear (Bagian II)
• Bahan praktikum Sistem Persamaan Linear

Oleh : MARIO TEGUH GOLDEN WAYS

Sahabat saya yang berbakat bagi semua ketegasan yang dibutuhkannya untuk membangun kehidupan yang besar,

APAKAH NAMA DARI MASALAH ANDA?

Masalah yang diketahui namanya adalah masalah yang sudah disimpulkan. Dengannya, kita mengetahui simpul ikatan yang harus dibuka, untuk membebaskan pikiran dan hati kita – agar kita berlaku yang subur bagi kebahagiaan.

”PENGERTIAN”ADALAH ILMUNYA KEHIDUPAN.

SIAPAPUN YANG PENGERTIANNYA SALAH TENTANG KEHIDUPAN, HIDUPNYA TIDAK AKAN BAIK.

Maka jika dia ingin memperbaiki kehidupannya, dia harus memperbaiki pengertiannya.

Tetapi, yang lebih sering terjadi adalah orang yang sudah mengerti bahwa yang dilakukannya salah, tetapi sangat sulit membawa dirinya keluar dari kebiasaan buruknya, dan seolah tak berdaya mengurai simpul-simpul ikatan dari pengertian-pengertian salah yang dipilihnya sendiri, atau yang diikatkan oleh pergaulan yang tidak baik.

Itu sebabnya, pribadi yang benar-benar bebas adalah dia yang tidak mengikat dirinya dengan pendapat yang tidak menguatkannya, yang tidak membesarkannya, dan yang tidak meninggikannya.

APAKAH NAMA DARI KEHIDUPAN ANDA?

Ada banyak sekali pilihan nama dari kehidupan orang, dan sangat beragam, tetapi semua adalah kesimpulan tentang masa lalu, masa kini, dan masa depan yang sedang dibangun oleh masa kini mereka.

Ijinkan saya mencontohkan beberapa nama kehidupan di bawah ini:

• Berfokus hanya pada yang menguatkan, yang membesarkan dan yang meninggikan.

• Mengabaikan yang tidak menjadikannya lebih berperan bagi kebaikan kehidupan diri dan sesama.

• Tidak meninggikan diri di atas orang lain, karena Tuhan-lah yang meninggikannya.

• Menyerahkan diri sepenuhnya kepada Tuhan, agar diserahkan kepemimpinan kehidupannya secara utuh.

• Membahagiakan orang lain sebagai cara untuk membahagiakan diri sendiri.

atau, ada juga pilihan yang seperti ini:

• Sudah jelas tidak baik, masih dilakukan.

• Impiannya besar, tetapi kesungguhannya kecil.

• Ingin-nya menjadi orang baik, tetapi bergaul dalam pergaulan yang penuh keraguan.

• Bekerja untuk membahagiakan keluarga, dengan cara yang menelantarkan keluarga.

• Mengejar kebahagiaan dengan pendapat dan kebiasaan yang merusak kebahagiaan.

………..

Sehingga, sebetulnya

KITA TIDAK MEMBUTUHKAN PENGERTIAN BARU, TETAPI PERBAIKAN PADA PENGERTIAN LAMA KITA.

Mohon Anda perhatikan, bahwa masalah-masalah dalam kehidupan ini tidak disebabkan oleh kurangnya pengertian, tetapi oleh tidak tepatnya pengertian.

Sehingga sebetulnya, lebih banyak dari kita memerlukan pembongkaran keyakinan lama, daripada memperkuat keyakinan.

Maka,

MARILAH KITA MEYAKINI YANG BENAR.

JANGANLAH KITA MEMPERTAHANKAN KEYAKINAN YANG TIDAK MEMULIAKAN KEHIDUPAN.

Dengannya, anjurannya kepada kita adalah:

Berhentilah mengikat diri sendiri.

KITA LEBIH SERING SALAH MENGERTI, DARIPADA KURANG MENGERTI.

Sehingga, bukan tambahan pengertian yang kita perlukan, tetapi perbaikan pengertian.

Marilah kita periksa koleksi pendapat kita, karena:

Semua kesalahan yang sedang kita lakukan sekarang, diijinkan oleh pengertian kita yang salah.

PERBAIKILAH PENGERTIAN, KARENA ITULAH YANG AKAN MEMPERBAIKI KEHIPDUPAN.

Maka janganlah pernah kita lupakan, bahwa

PENGERTIAN YANG INDAH, ADALAH JALAN MENUJU KEINDAHAN HIDUP.

HATI HANYA SEINDAH YANG MENGISINYA,
DAN SEBAH PRIBADI HANYA SEINDAH KEINDAHAN HATINYA.

YANG TIDAK DAMAI, SELALU ADALAH DIA YANG MENGIJINKAN YANG TIDAK BAIK SEBAGAI PENGISI HATI.