Delphi for delphier

MS Excel – Membuat editor SQL Sederhana

Tingkatan Pemula
   
Kategori Database
   
Sub Kategori MS Excel
   
Judul Membuat editor SQL sederhana
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi by Eko Indriyawan
   
Tujuan
Mengajarkan kepada Delphier pemula untuk membuat editor SQL sederhana dengan menggunakan database MS Excel.
   
Overview
Pada pembahasan materi kali ini akan diberikan tutorial mengenai cara pembuatan editor SQL dengan MS Excel sebagai database enginenya. Editor SQL ini nantinya akan sangat bermanfaat sekali, terutama dalam hal pengeditan object tabel seperti pembuatan tabel, penghapusan kolom dan lain sebagainya.
Dengan adanya editor SQL ini pula, diharapkan para delphier akan terbantu dalam proses pembuatan program aplikasi. Keuntungan menggunakan editor SQL ini adalah lebih efisien dari kerja yang bertele-tele, namun kelemahan dari tool ini adalah sifatnya dalam pembentukan syntax query masih manual.
Selamat mencoba artikel ini dan semoga berhasil. Amin…
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form.
   
  Edit1: TEdit;
Label1: TLabel;
Button2: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Button3: TButton;
Button4: TButton;
Memo1: TMemo;
Bevel1: TBevel;
Button1: TButton;
OpenDialog1: TOpenDialog;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
pemulaexcel0000001.png
   
Langkah 4
Sekarang silahkan anda klik 2x tombol Pilih File. Kemudian tuliskan kode program di dalam event OnClick. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
begin
Edit1.Text := FileName;
end;
end;
   
Langkah 5
Sekarang silahkan anda klik 2x tombol Sambungkan. Kemudian tuliskan kode program di dalam event OnClick. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.
   
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOConnection1.Connected := False;
try
ADOConnection1.ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;‘ +
User ID=Admin;‘ +
Data Source=‘ + edit1.Text + ‘.xls;‘ +
Mode=Share Deny None;‘ +
Jet OLEDB:System database=””;‘ +
Jet OLEDB:Registry Path=””;‘ +
Jet OLEDB:Database Password=””;‘ +
Jet OLEDB:Engine Type=35;‘ +
Jet OLEDB:Database Locking Mode=0;‘ +
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;‘;
ADOConnection1.Connected := True;

except
on EOleException do // perlu ditambahkan library ComObj
ShowMessage(‘Proses menyambungkan ke database gagal dilakukan’);
end;
end;
   
Langkah 6 ComObj pada bagian uses. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
   
 
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ComObj;
   
Langkah 7
Fokuskan perhatian anda pada object OpenDialog1.
   
Langkah 8
Pada bagian property filter anda tentukan dengan nilai MS Excel (*.xls)|*.xls
   
Langkah 9
Sekarang silahkan anda klik 2x tombol Eksekusi. Kemudian tuliskan kode program di dalam event OnClick. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.
   
 
procedure TForm1.Button3Click(Sender: TObject);
begin
with ADOQuery1 do
begin
SQL.Text := Memo1.Text;
ExecSQL;
end;
end;
   
Langkah 10
Kemudian fokuskan perhatian anda pada object ADOQuery1.
   
Langkah 11
Pada bagian property Connection anda tentukan dengan data ADOConnection1.
   
Langkah 12
Pada bagian property LoginPrompt pada object ADOConnection1 anda isikan dengan data False.
   
Langkah 13
Silahkan anda compile program aplikasi tersebut dengan menekan tombol Ctrl + F9.
   
Langkah 14
Tekan tombol F9 hingga program siap untuk dijalankan. Untuk melihat hasilnya, silahkan anda lihat tampilan berikut ini.
   
 

pemulaexcel0000002.png

   
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
   
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

Blog di WordPress.com.

%d blogger menyukai ini: