Koneksi SQL Server via ADODB

Delphi 7 menyediakan beberapa cara untuk koneksi ke database SQL Server 7/2000. Salah satunya adalah menggunakan komponen ADODB yaitu ADOConnection.
Bagaimana cara mensetting dan menggunakan komponen tersebut ? Mari kita buat program sederhana berikut ini.


























Komponen ADOConnection1 bisa diambil di tab ADO pada Component Pallette.




Atur properti masing-masing object sbb:

frmKoneksi : BorderStyle=bsDialog | Caption=Koneksi SQL Server via ADODB | Position=poScreenCenter
txtServerName : Text=127.0.0.1
txtUserName : Text=sa
txtUserPass : Text= | PasswordChar=*
txtDatabase : Text=northwind
btnTes : Caption=Tes Koneksi
ADOConnection1 : LoginPrompt=false

Klik ganda btnTes dan ketik program berikut:

Selesai ! Mudah bukan ?? Coba run project tersebut lalu klik Tes Koneksi. Jika SQL Server sudah running, maka program menampilkan messagebox Koneksi berhasil, sebaliknya program akan menampilkan messagebox Koneksi gagal dengan kemungkinan penyebabnya:

- SQL Server belum running
- Nama server atau IP Address salah atau LAN terputus
- User Name dan/atau Password salah
- Nama database tidak ditemukan

Sekarang mari kita bahas tentang ADO khususnya komponen ADOConnection yang kita gunakan tadi. Sedikit cerita, ADO merupakan singkatan dari ActiveX Dataset Objects buatan Microsoft. ADO adalah sekumpulan library yang dapat digunakan untuk mengakses berbagai macam format basis data yang terkenal, mulai dari kelas file seperti dBase, Paradox hingga yang sekelas server seperti SQL Server dan Oracle. Karena berupa ActiveX maka komponen ADO netral terhadap bahasa pemrograman, artinya, apapun bahasa pemrograman yang Anda gunakan asalkan bahasa tersebut bisa memanggil ActiveX maka ADO bisa digunakan (jadi inget Teh Sosro). Otomatis, bahasa pemrograman visual terkini seperti Delphi, VB, Visual FoxPro, Visual C++,bisa menggunakan komponen ADO tersebut.

Delphi 7 menjajarkan komponen ADO pada tab ADO di Component Palette-nya. Disitu terdapat komponen ADOConnection, ADOCommand, ADODataSet, ADOTable, ADOQuery, ADOStoredProc dan RDSConnection.

Khusus untuk membuka koneksi ke database, gunakan komponen ADOConnection. Properti yang harus di-set adalah ConnectionString. ADOConnection membaca properti ini sebagai konfigurasi untuk membuka koneksi. ConnectionString terdiri dari beberapa parameter yang masing-masing dipisah dengan titik-koma. Untuk koneksi ke SQL Server, parameter-parameter tersebut adalah:

Provider=SQLOLEDB.1
Provider adalah nama driver yang akan digunakan oleh ADO untuk membuka koneksi. Nama driver SQL Server adalah SQLOLEDB.1
Persist Security Info=False
Jika parameter ini True, maka ADO akan menggunakan user account yang terdaftar pada sistem operasi server. Jika False, ADO menggunakan user account internal SQL Server. Parameter ini berkaitan erat dengan parameter User ID dan Password
User ID=
User ID yang digunakan untuk login ke SQL Server. Jika parameter Persist Security Info=True, user id yang diisi harus sesuai dengan user account sistem operasi, sebaliknya jika False, user id harus sesuai dengan user account internal SQL Server. Jika belum diganti, user id default SQL Server adalah sa
Password=
Password yang digunakan untuk login ke SQL Server. Parameter ini diberlakukan sama seperti halnya parameter User ID. Jika belum diganti, password ini kosong, artinya Anda bisa login tanpa menggunakan password dengan User ID sa tersebut. Untuk kasus sebenarnya, sebaiknya ganti password ini
Initial Catalog=
Isi parameter ini dengan nama database yang hendak dikoneksikan
Data Source=
ADO bisa membuka koneksi dengan mencari nama server ataupun IP addressnya. Sebaiknya gunakan nama server, karena nama server cenderung jarang diganti dibandingkan IP address. Jika SQL Server berada pada kompi yang sama dengan program aplikasi, nama server bisa menggunakan localhost atau IP 127.0.0.1

Kembali ke program kita, jika Nama Server diisi 127.0.0.1 , User Name Database diisi sa, Password Database dikosongkan, Nama Database diisi northwind lalu tombol Tes Koneksi diklik, maka program otomatis akan membentuk ConnectionString :

Provider=SQLOLEDB.1; Persist Security Info=False;User ID=sa;Password=;Initial Catalog=northwind;Data Source=127.0.0.1

Selanjutnya string tersebut diaplikasikan pada komponen ADOConnection1 dan membuka koneksi dengan memanggil method ADOConnection1.Open (lihat baris 46-55)

Sudah mendapat pencerahan ? Semoga tulisan ini cukup membantu…

Read more.....

Mencegah aplikasi ditutup dengan Alt-F4

private
procedure AppMessage(var Msg: TMSG; var Handled: Boolean);
public
{ Public declarations }
end;
…
…
implementation
…
…
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
// meng-handle pesan
Handled := False;
case Msg.Message of
WM_SYSKEYDOWN:
if Msg.wParam = VK_F4 then
Handled := True; // cegah Alt-F4
end;
end;

Read more.....

Mengganti nama direktori

procedure TForm1.BtnSelectClick(Sender: TObject);
var DirTemp: string;
begin
DirTemp:=GetCurrentDir;
if SelectDirectory(DirTemp, [], 1000) then
begin
Panel1.Caption := DirTemp;
Edit1.Text := DirTemp;
end;
end;

procedure TForm1.BtnRenameClick(Sender: TObject);
begin
if DirectoryExists(Panel1.Caption) then
begin
RenameFile(Panel1.Caption, Edit1.Text);
Panel1.Caption := Edit1.Text;
end;
end;

Read more.....

Fungsi Terbilang pada Borland Delphi

Fungsi terbilang adalah suatu fungsi sederhana yang berguna untuk mengkonversikan dari angka ke dalam format huruf (terbilang) seperti halnya yang sering Anda lihat pada kuitansi.

Berikut ini adalah fungsi terbilang-nya.

function Terbilang(x:integer):string;
const
abil : array[0..11] of string[10]=('','satu','dua','tiga',
'empat','lima','enam','tujuh','delapan','sembilan',
'sepuluh','sebelas');

begin
if (x < 12) then
Result := ' ' + abil[x]
else
if (x < 20) then
Result := Terbilang(x-10) + ' belas'
else
if (x < 100) then
Result := Terbilang(x div 10) + ' puluh' + Terbilang(x mod 10)
else
if (x < 200) then
Result := ' seratus' + Terbilang(x-100)
else
if (x < 1000) then
Result := Terbilang(x div 100) + ' ratus' + Terbilang(x mod 100)
else
if (x < 2000) then
Result := ' seribu' + Terbilang(x-1000)
else
if (x < 1000000) then
Result := Terbilang(x div 1000) + ' ribu' + Terbilang(x mod 1000)
else
if (x < 1000000000) then
Result := Terbilang(x div 1000000) + ' juta' + Terbilang(x mod 1000000);
end;

Silakan saja Anda coba fungsi di atas pada Borland Delphi. Penulis sudah mencobanya pada Delphi 6.0. Demikianlah tulisan singkat mengenai fungsi terbilang pada Borland Delphi. Semoga bermanfaat bagi Anda semua

Silakan download source code lengkap dari project di atas

Read more.....

Get Start Menu Directory

This function used to get start menu directory.

uses shlobj;

function GetStartMenu: String;
var
dir: PItemIDList;
startmenu : array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(Application.handle, CSIDL_STARTMENU, dir);
SHGetPathFromIDList(dir, startmenu);
result := strpas(startmenu);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text := GetStartMenu;
end;

Download: Source Code

Read more.....

Minimize all windows

You can minimize all windows with this code snippets.

procedure MinimizeAll;
var
h:HWnd;
begin
h:=handle;
while h > 0 do
begin
if IsWindowVisible(h) then
Postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
h:=GetnextWindow(h,GW_HWNDNEXT);
end;
end;

Read more.....

Close all the open Internet Explorer windows

Use this to close all open Internet Explorer windows.

var
IExplorer: Thandle;
begin
IExplorer := FindWindow('’ IEFrame ‘’, nil);
if IExplorer <> 0 then
SendMessage(IExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);

The FindWindow function retrieves the handle to the top-level window whose class name and window name match the specified strings. This function does not search child windows.

HWND FindWindow(

LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);

Parameters

lpClassName

Points to a null-terminated string that specifies the class name or is an atom that identifies the class-name string. If this parameter is an atom, it must be a global atom created by a previous call to the GlobalAddAtom function. The atom, a 16-bit value, must be placed in the low-order word of lpClassName; the high-order word must be zero.

lpWindowName

Points to a null-terminated string that specifies the window name (the window’s title). If this parameter is NULL, all window names match.

Return Values

If the function succeeds, the return value is the handle to the window that has the specified class name and window name.
If the function fails, the return value is NULL. To get extended error information, call GetLastError

Read more.....