gudang ilmu program: Lazarus Free Pascal pilihan Selain Delphi

Lazarus adalah aplikasi Free Pascal yang mengemulasi Delphi. Free Pascal adalah sebuah kompiler GPL (General Public License) / gratis Yang Berjalan di Linux, Win32, OS / 2, 68K dan banyak lagi. Free Pascal adalah sebuah kompiler GPL yang berjalan pada Linux, Win32, OS / 2, 68K dan banyak lagi. Free Pascal dirancang untuk dapat memahami dan mengkompilasi sintaks Delphi, OOP. Free Pascal dirancang untuk dapat memahami dan mengkompilasi sintaks Delphi, OOP.

Lazarus adalah solusi / pilihan yang memungkinkan Anda untuk mengembangkan aplikasi Delphi yang dapat dijalankan di atas semua platform. Aplikasi yang kita buat dari Free Pascal hanya memerlukan satu kali penulisan program dan bisa dicompile di beberapa System Operasi. Sifat ini sedikit berbeda dengan Java yang hanya membutuhkan satu kali penulisan program dan satu kali compile tapi sudah dapat dijalankan di beberapa System Operasi.
Aplikasi Lazarus dapat anda donwload secara gratis di alamat berikut http://lazarus.freepascal.org/.

Setelah anda Download dan anda Install di komputer anda, berikut ada 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'