Monthly Archives: August 2016

Mengakses Database MySQL dengan Lazarus

Contoh aplikasi sederhana Mengakses Database MySQL dengan Lazarus.
Ikuti langkah berikut :
1. Buka aplikasi MySQL dan Buat database dengan nama 'latihan' dengan perintah :
               create database latihan;
2. Buka database 'latihan' dengan perintah :
                \u latihan

3. Buat table dalam database latihan. 
                   create table barang(
               kd_brg varchar(4) primary key,
               nm_brg varchar(50),
               stok integer(6),
               harga numeric(9)
        );

 

4. Selanjutnya jalankan aplikasi Lazarus yang telah anda install.
 

5. Selanjutnya buat project baru dengan klik menu File – New. akan tampil dialog :
 

     pilih 'Aplication' – OK
6. Tambahkan komponen berikut pada form yang tampil :
 

Object
Properties
Value
TMySQL50Connection
( tab SQLdb )
DatabaseName
HostName
KeepConnection
LoginPrompt
Password
Port
UserName
Connected
Transaction  
Latihan
Localhost
True
False
ichwan (password root)
3306
Root
True
SQLTransaction1 ( isi setelah TSQLTransaction dipasang di form )
TSQLTransaction
( tab SQLdb )
Database
TMySQL50Connection1
TSQLQuery
( tab SQLdb )
Database
SQL
Active
TMySQL50Connection1
select * from barang
true
Tdatasource
( tab Data Access )
DataSet
SQLQuery1
TDBGrid
( tab Data Controls )
DataSource
Datasource1
TDBNavigator
( tab Data Controls ) 
DataSource
Datasource1
TbitBtn
( tab Additional ) 
Caption
&Keluar
 
dan atur tampilannya seperti berikut :
 
 

 7.  Isikan perintah pada tombol Keluar dengan cara double klik pada tombol Keluar. Dengan perintah berikut :
               procedure TForm1.BitBtn1Click(Sender: TObject);
      begin
          close;
      end;

8. Simpan Project dengan cara File – Save All.
    Dialog pertama adalah dialog simpan Project, beri nama project 'conn_MySQL.lpi'

    Dialog kedua adalah dialog simpan Unit form, beri nama 'Unit1.pas'

9. Jalankan aplikasi dengan cara klik tombol F9 pada keyboard

Sumber: http://khalishahazzahra.blogspot.co.id/2011/06/lazarus-free-pascal-pilihan-selain.html

Leave a Comment

Filed under Database, Lazarus