Koneksi Delphi 7 ke Database MySQL

Selamat malam, di akhir bulan Mei ini saya akan share sedikit pengetahuan saya tentang Koneksi Delphi 7 ke Database MySQL.

Software yang harus ada:

1. Xampp

2. MySQL Connector/ODBC. Download

3. Google Chrome / Mozilla Firefox

Step 1 – Menjalankan Webserver dan MySql

Sebelum membuat database di MySql pertama-tama saya harus menjalankan webserver (apache) dan MySql. Caranya: buka xampp control panel application kemudian jalankan apache dan mysql.

Step 2 – Membuat Database MySql di phpMyAdmin

Sekarang saya akan mulai membuat database mysql. Caranya: buka browser kesayangan kamu lalu ketik  localhost/phpmyadmin (enter).

Untuk keperluan latihan ini saya membuat sebuah database mysql bernama latihan

Selanjutnya saya akan membuat sebuah table dalam database latihan bernama coba, field/kolomnya hanya tiga

Setelah terisi keterangan tablenya kemudian pilih simpan, akan muncul halaman kurang lebih seperti gambar dibawah

Oke, urusan database telah selesai. Bakar dulu bro........

Step 3 – Membuat Koneksi Delphi ke Database MySql

Step 3 inilah inti dari tutorial yang saya buat, dimana kita akan mengkoneksikan Delphi ke database mysql. Untuk membuat koneksinya maka diperlukan sebuah software yang disediakan Delphi yaitu Connector/ODBC, pada saat tulisan ini dibuat software tersebut belum terinstall di computer saya, untunglah saya punya koneksi internet untuk mendownloadnya di google. Jika kalian punya kasus yang sama dengan saya maka anda harus mengunduh software yang saya maksud terlebih dahulu kemudian sobat install sampai selesai. Kalau sudah kita beranjak ke paragraph dibawah ini,

Beginilah langkah awal untuk membuat koneksi Delphi ke database mysql:

Buka control panel windows – atur berdasarkan large icons. Selanjutnya ikuti penjelasan gambar berikut:

Pilih ODBC Administrator pada menu object

Nah, sampai disini kita telah membuat sebuah konektor database mySQL. Saatnya bermain-main dengan delphi.
- Buatlah project baru di delphi dan letakkan beberapa komponen dibawah ini:

ADOConnection, ada di Pallete ADO

ADOQuery, ada di Pallete ADO

DataSource, ada di Pallete Data Acces

DBGrid, ada di Pallete Data Controls

Tampilannya kurang lebih seperti ini: 

Mari kita atur property masing-masing komponen untuk mengkoneksikan database yang sudah kita buat, caranya:

Klik komponen ADOConnection, pada object inspector atur propertinya:

Login prompt=False

ConnectionStringàBuildàMicrosoft OLE DB Provider for ODBC DriversàNext

Klik 1 kali pada komponen DataSource, pada object inspector atur property : DataSet=ADOQuery

Klik 1 kali pada komponen ADOQuery, atur propertinya: SQL=select*from nama_tabel yang ada di database mysql, Connection=ADOConnection, Active=True

Klik 1 kali pada komponenDBGrid, atur propertinya pada object inspector: DataSource=DataSource1

Hasil akhir project saya seperti gambar berikut:

Gimana gampang kan ? Kalau kalian ikuti langkah-langkahnya dari awal dengan teliti saya yakin tidak akan ada masalah. Semoga saja tutorial dengan bahasa saya diatas mudah dimengerti.

Contoh Program Delphi Menukarkan Isi Variabel

Bismillah...

Coret-coret dulu ah mumpung mood ku lagi dateng bulan.
Kemarin sempat dapet tugas praktikum, bunyinya sebagai berikut :

Buatlah program untuk menukarkan isi antara dua buah variabel.
Misal :
Variabel A = 10
Variabel B = 15
Ketika program dijalankan maka hasilnya adalah :
A = 15
B = 10

Bakar dulu ah, hehehh... 

Awalnya bingung juga sih, tapi setelah cari contoh kasusnya di google ternyata ada salah satu artikel yang pas begete. Artikelnya bisa sobat lihat disini .

Nggak puas hanya dengan copas, programnya aku manipulasi sedikit aja.  Hasilnya bisa kalian lihat seperti gambar dibawah :

Interface program yang saya manipulasi diatas masih bisa sobat-sobit edit sesuai dengan jiwa seni yang dimiliki, intinya jangan keluar sama coding dibawah ini :
//button1_Hitung
var a, b : integer; 
begin
a := strtoint(edit1.text);
b := strtoint(edit2.text);
edit3.text := inttostr (a);
edit4.text := inttostr (b);
end;
//button2_Reset
edit1.text := ' ';
edit2.text := ' ';
edit3.text := ' ';
edit4.text := ' ';
edit1.setfocus;
end; 

end.

Capek juga ya nulis coding, karena harus ekstra hati-hati, kalau nggak hati-hati programnya bisa jadi error.

Setelah semuanya beres, tahap selanjutnya kita lihat hasil program yang telah dibuat, caranya tekan f9 pada keyboard. Jika berhasil, langkah terakhir adalah menyimpan project yang sudah kita bikin, caranya pilih menu file --> save all. 

Untuk memastikan file .exe benar-benar telah diciptakan, silahkan teman-teman tekan f9 lagi, setelah itu masuk lagi ke menu file--> save.

Demikian coret-coret kali ini, semoga bermanfaat untuk kawan-kawan khususnya untuk diri saya pribadi.

Yang hobi copas jangan lupa yah cantumkan link sumber saya "berbagi link itu indah".

Komponen Pallete Pada Delphi

 

Bismillah...

Selamat datang yang lagi mencari referensi pengenalan Pemrograman Visual (delphi), mata kuliah yang menyenangkan walaupun codingnya sedikit membingungkan.

Saya ingin share artikel yang membahas tentang Komponen Pallete Pada Delphi.

Komponen Pallete adalah sebuah program/procedure yang sudah di kompile dan langsung dapat digunakan sesuai dengan fungsinya masing-masing.

Selengkapnya silahkan download ya... Artikelnya berasal dari beberapa sumber yang terpercaya kemudian saya rapikan dalam bentuk word , maaf tidak bisa ditampilkan linknya karena linknya mereka telah terlupakan, hehehh..

Download

Aplikasi Kalkulator Menggunakan Delphi

Salam berjaya buat sobat blogger di seluruh jagat raya, wkwkwk... Dalam tulisan kali ini @bu kepengen sharing kepada sobat-sobit kaitannya dengan aplikasi kalkulator sederhana menggunakan bahasa pemrograman delphi. Buat kalian nih yang suka belajar pemrograman yang satu ini pasti gk tertarik buat baca artikel ini, tapi buat sobat-sobit blogger yang masih awam dengan pemrograman delphi, berikut @bu berikan latihan buat kalian semua. Berikut tutorial pembuatan aplikasi kalkulatornya:

KOMPONEN YANG DIGUNAKAN:
1). Form (1 buah)
    - Name: Form 1
      Caption: Kalkulatorku
2). Label (2 buah)
    - Name: Label1
      Caption: Angka pertama
    - Name: Label2
      Caption: Angka kedua
3). Edit (3 buah)
    - Name: Edit1
      Text: (kosongkan)
    - Name: Edit2
      Text: (kosongkan)
    - Name: Edit3
      Text: (kosongkan)
      Enabled: False
4). Button (4 buah)
    - Name: Button1
      Caption: +
    - Name: Button2
      Caption: -
    - Name: Button3
      Caption: *
    - Name: Button4
      Caption: /

RANCANGAN FORM:

SINTAKS BUTTON1 (Double Klik Pada Button1) :

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Edit3.Text := floattostr(strtofloat(Edit1.Text) + strtofloat(Edit2.Text));
    end;


SINTAKS BUTTON2 (Double Klik Pada Button2) :

    procedure TForm1.Button2Click(Sender: TObject);
    begin
      Edit3.Text := floattostr(strtofloat(Edit1.Text) - strtofloat(Edit2.Text));
    end;


SINTAKS BUTTON3 (Double Klik Pada Button3) :

    procedure TForm1.Button3Click(Sender: TObject);
    begin
      Edit3.Text := floattostr(strtofloat(Edit1.Text) * strtofloat(Edit2.Text));
    end;


SINTAKS BUTTON4 (Double Klik Pada Button4) :

    procedure TForm1.Button4Click(Sender: TObject);
    begin
      Edit3.Text := floattostr(strtofloat(Edit1.Text) / strtofloat(Edit2.Text));
    end;

Sekian sobat blogger :). Semoga bermanfaat buat kalian semua, blog ini semata-mata sebagai sarana buat saya berbagi. Mengenai rancangan formnya terserah buat sobat-sobit aja gimana cara kreasinya, kalau cantik cara merancangnya tdk menutup kemungkinan ada yang mau beli, wkwkwk.

See you dalam update berikutnya...