Membuat editor SQL sederhana

Langkah  1	Buat rogram aplikasi baru
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
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.
Download	Membuat editor SQL sederhana 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.

Posted in: SQL