Menghubungkan Delphi dengan Database MySQL

Berikut ini beberapa metode untuk menghubungkan Delphi dengan database MySQL berikut penjelasannya :

Koneksi menggunakan MySQL Connector/ODBC

* Download MySQL Connector/ODBC di http://dev.mysql.com/downloads/connector/odbc/ jika belum punya.
* Install MySQL Connector/ODBC.
* Setelah selesai menginstall MySQL Connector/ODBC, kemudian masuk ke Control Panel. Start | Settings | Control Panel | Administrative Tools | dobel klik Data Sources (ODBC).
* Setelah muncul window ODBC Data Source Administrator klik tab User DSN, kemudian klik tombol Add.

* di window Create New Data Source pilih MySQL ODBC X.XX Driver (X.XX adalah versi dari Driver Connector MySQL). Klik tombol Finish
* Kemudian akan muncul window Connector / ODBC. Klik pada tab Login.
* Pada text box Data Source Name isi dengan nama Data Source, misalnya MySQLDS.
* Pada text box description isi dengan deskripsi koneksi (optional).
* Pada text box server isi dengan localhost atau IP 127.0.0.1 jika anda menginstall Database MySQL di komputer anda sendiri.
* Pada text box User isi dengan nama user misalnya root (root adalah user yang mempunyai kewenangan penuh terhadap database atau disebut juga Administrator).
* Pada Text box Password isi dengan password root (defaultnya user root tidak mempunyai password).
* klik tombol Test untuk mengetes koneksi.
* Jika sudah sukses klik tombol Finish.
* Masuk ke Delphi, buat sebuah project baru lalu tambahkan sebuah komponen ADOConnection.
* Dobel klik komponen ADOConnection. Klik tombol Build.
* di window Data Link Properties klik tab Provider kemudian pilih Microsoft OLE DB Provider for ODBC Drivers klik tombol Next
* Pada Tab Connection, Pilih radio button use data source name kemudian pada combobox di bawahnya pilih nama data source yang tadi anda buat yaitu MySQLDS.
* Isi root pada textbox User name dan passwordnya pada textbox Password. Klik tombol Test Connection. Jika sukses, klik tombol OK.
* Set Property LoginPrompt menjadi false agar aplikasi tidak menampilkan form Database Login ketika anda akan menjalankan aplikasi.
* Set Property Connected menjadi true.

Setelah tahap diatas, koneksi ke database MySQL sudah terbentuk. Selanjutnya untuk mengakses data pada sebuah table di database MySQL anda bisa menggunakan komponen ADOTable atau ADOQuery yang dihubungkan dengan komponen ADOConnection dengan cara men-set property Connectionnya menjadi ADOConnection1.

Sumber = http://easycomputertutorial.blogspot.com/

Selengkapnya......

PHP dan MySql : Tutorial Dasar

Pada tutorial kali ini, kita akan mencoba melakukan operasi - operasi dasar pada PHP MySQL.

1. Membuat koneksi
$hostmysql = “localhost”;
$username = “mysqlusername”;
$password = “mysqlpassword”;
$database = “namadatabase”;

$conn = mysql_connect(”$hostmysql”,”$username”,”$password”);
if (!$conn) die (”Koneksi gagal”);
mysql_select_db($database,$conn) or die (”Database tidak ditemukan”); >

Penjelasan Script:
a. mysql_connect
digunakan untuk membuat koneksi dari PHP ke server MySQL. Data mengenai hostname, mysql username, dan password yang digunakan telah diwakilkan oleh variabel $hostmysql, $username, $password. Penulisannya akan sama dengan:
mysql_connect(”localhost”,”username”,”password”);
b. mysql_select_db
untuk memilih database yang akan digunakan.
c. if (!$conn) die (”Koneksi gagal”);
jika koneksi gagal dibuat (!$conn), maka akan muncul pesan kesalahan

Setiap operasi PHP yang berhubungan dengan MySQL, akan membutuhkan sintaks diatas. agar lebih mudah, lebih baik disimpan terlebih dahulu dengan nama konfig.php. Jika sintaks tersebut dibutuhkan lagi, maka kita melakukan include terhadap file konfig.php tersebut.

2. Membuat tabel pada MySQL
include (”konfig.php”);
mysql_query(”CREATE TABLE user (
namadpnVARCHAR(20),
namablkg VARCHAR(20),
negara VARCHAR(20))”); ?>

Penjelasan script:
1. include (”konfig.php”);
perintah include digunakan untuk mengikut sertakan sebuah file (pada contoh diatas adalah file konfig.php).
2. mysql_query
format umum dari perintah ini adalah mysql_query(string dari query).
mysql_query akan sering dijumpai pada artikel kali ini.

3. Memasukkan data pada tabel
include (”konfig.php”);
$insert = “INSERT INTO users (namadpn,namablkg,negara)
VALUES (’Saya’,'Sendiri’,'Indonesia’)”;
mysql_query($insert) or die (”tidak dapat memasukkan data ke tabel”);?>

4 . Menampilkan data dari tabel
include (”konfig.php”);
$query = “SELECT * FROM user”;
$result = mysql_query($query);
$numrows = mysql_num_rows($result);
while($row = mysql_fetch_array($result)){
echo “Jumlah data: $numrows
”;
echo “Nama Depan: $row[namadpn]
”;
echo “Nama Belakang: $row[namablkg]
”;
echo “Negara: $row[negara]”;
} ?>

Penjelasan script:
1. mysql_num_rows
digunakan untuk menghitung jumlah baris yang didapat dari hasil eksekusi query (mysql_query).
2. while ( ) {
}
digunakan untuk melakukan perulangan selama data yang yang diinginkan masih ada. (dalam contoh diatas: akan menampilkan semua isi dari table).
3. mysql_fetch_array
menampilkan data dari tabel dalam bentuk array

Untuk penggunaan lainnya (hapus, update, dsb) yang berubah hanya string query-nya saja.

sumber : www.rumahweb.com

Selengkapnya......

Menyembunyikan caption bar pada delphi

Pada bahasan kali ini saya mencoba membuat postingan tentang bagaimana menyembunyikan caption bar pada delphi, cara nya sangat mudah. Anda bisa mengikuti langkah nya sebagai berikut...

Untuk menyembunyikan caption bar, tambahkan kode pada event onCreate.

procedure TForm1.FormCreate(Sender:TObject);
begin

SetWindowLong(Handle,gwl_style,GetWindowLong(handle,gwl_style) and NOT ws_caption);
ClientHeight:=Height;
Refresh;

end;

sumber : www.klik-kanan.com

Selengkapnya......

Membuat teks icon desktop yg transparan pada Delphi

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk.

uses Commctrl;

var
hLV : THandle;

procedure TForm1.GetDesktopListViewHandle;
var
s1: string;
begin
hLV := FindWindow('ProgMan', nil);
hLV := GetWindow(hLV, GW_CHILD);
hLV := GetWindow(hLV, GW_CHILD);
SetLength(s1, 40);
GetClassName(hLV, PChar(s1), 39);
if PChar(s1) <> 'SysListView32' then
ShowMessage('Failed');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
xColor : TColor;
begin
GetDesktopListViewHandle;
xColor := ListView_GetTextColor(hLV);
ListView_SetTextColor(hLV, xColor);
xColor := ListView_GetTextBkColor(hLV);
ListView_SetTextBkColor(hLV, xColor);
ListView_SetTextBkColor(hLV, $FFFFFFFF);
end;

sumber : www.klik-kanan.com

Selengkapnya......

Membuat splash screen pada Delphi

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi.

Untuk membuat splash scren tersebut caranya sebagai berikut :

1. Bikin dulu form utamanya.
2. Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
3. Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
4. Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut :

tmMainTimer.Enabled := False;

5. Dari menu Project, pilih Options.
6. Pindah ke tab Forms.
7. Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash screen ke bagian Available forms.
8. Kalau sudah klik OK.
9. Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form splash screen sebelum inisialisasi dilakukan.

Untuk lebih jelasnya lihat potongan program berikut ini :

program Project1;

uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {FrmSplash};

{$R *.RES}

begin
FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show;
FrmSplash.Update;
while FrmSplash.tmMainTimer.Enabled do Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
FrmSplash.Hide;
FrmSplash.Free; // menghapus form splash scren dr memory
Application.Run;
end.

sumber : www.klik-kanan.com

Selengkapnya......