Tutorial Delphi

Untuk Membuat File PDF sendiri dengan Delphi saya sendiri menggunakan component Delphi pihak ketiga yaitu SynPDF yang dikembangkan oleh tim mormot. Komponennya bersifat opensource jadi kita bebas menggunakannya, menyebarkan dan mengembangkannya. Begitu deh enaknya kalau software open source jadi kalo misalkan anda mengembangkan sebuah projek sebaiknya dibuat open source saja. :)

uses
  ..., SynPdf;

2. Berikutnya Saya mendesain tampilan aplikasi sederhana yang berisi tanggal, judul dan isi artikel yang nantinya akan disimpan menjadi file pdf (gambar diatas). Pada proses ini saya juga memanfaatkan component SaveDialog sehingga Coding simpannya menjadi kurang lebih seperti berikut

procedure TForm1.Button1Click(Sender: TObject);
var
 lPdf   : TPdfDocument;
 lPage  : TPdfPage;
begin
  lPdf := TPdfDocument.Create;
  try
    if SaveDialog.Execute then
    begin
    lPdf.Info.Author        := 'http://delphitutor.blogspot.com';
    lPdf.Info.CreationDate  := Now;
    lPdf.Info.Creator       := 'Ahmad Tauhid';
    lPage := lPDF.AddPage;
    lPDF.Canvas.SetFont('Helvetica',10.0,[]);
    lPDF.Canvas.SetLeading(lPDF.Canvas.Page.FontSize);
    lPDF.Canvas.SetLineWidth(0.1);
    lPdf.Canvas.BeginText;
    lPdf.Canvas.TextOut(20, 750, 'Tanggal : '+FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date));
    lPdf.Canvas.TextOut(20, 730, 'Judul : '+Edit1.Text);
    lPdf.Canvas.TextOut(20, 710, 'Isi Pesan : '+Memo1.Text);
    lPdf.Canvas.EndText;
    lPdf.SaveToFile(SaveDialog.FileName+'.pdf');
    end;
  finally
    lPdf.Free;
  end;

end;

Hasil yang diperoleh kurang lebih seperti gambar diatas jika dibuka menggunakan foxit reader. Jika anda membutuhkan contoh source code silahkan download disini. Akhir kata selamat mencoba. Happy Coding. :)

Ada banyak cara membuat laporan di delphi, selain dengan komponen yang sudah include didalam delphi kita juga dapat memanfaatkan salah satu tools yaitu dengan menggunakan bantuan pihak ketiga seperti Crystal Report. Fungsi laporan akan menjadi penting jika kita membangun aplikasi berbasis database oleh karenanya saya tertarik untuk membahas ini agar tidak monoton hanya dengan komponen yang sudah ada di delphi bahwa memang bisa juga dengan bantuan pihak ketiga.

// Lakukan Koneksi ke Datasource ODBC / Sama dengan Koneksi Crystal Report
CrystalReport1.Connect:='DSN=nama_datasource;UID=user;PWD=password;DSQ=';
// Mendefinisikan File Crystal Report
CrystalReport1.ReportFileName:='laporan.rpt';
// Tampilkan Crystal Report
CrystalReport1.Action:=1;

- Jika anda Menggunakan Database Access Berikut adalah Contoh Codenya

// Lakukan Koneksi ke Database
CrystalReport1.Connect:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=nama_database.mdb;';
// Mendefinisikan File Crystal Report
CrystalReport1.ReportFileName:='laporan.rpt';
// Tampilkan Crystal Report 
CrystalReport1.Action:=1;

Jalankan Aplikasi Anda. Setelah Button Cetak Laporan/Laporan diklik nantinya akan muncul file Laporan yang dibuat sebelumnya dengan Crystal Report. Seperti gambar dibawah ini


Silahkan Download Contoh Source code lengkap (Database, Aplikasi dan Laporan) disini. Selamat Mencoba :)

Untuk melakukan export database Access ke MySQL saya sendiri menggunakan tools pihak ketiga yang dibuat oleh yang dibuat oleh sekumpulan programmer yang tergabung didalam nama bulzip. Mereka telah melahirkan beberapa tools diantaranya adalah tools yang akan kita gunakan untuk melakukan export database access to mysql nantinya. Anda tidak perlu khawatir karena tools ini bersifat freeware alias gratis.

Proses Export database ini sering saya lakukan untuk merubah database yang sudah jadi (access) menjadi database mysql. Baiklah, sebelum kita mulai silahkan download peralatan yang dibutuhkan disini. Usai mendownload silahkan diinstall berikut adalah tampilan utama aplikasi Access To MySQL


1. Klik Next Pada gambar diatas untuk menuju ke proses berikutnya.

2. Pada halaman selanjutnya pilih Database Access yang akan di export. Jika anda hendak mengeksport database access yang memiliki password gunakan opsi kedua kemudian next seperti gambar berikut


3. Pada jendela halaman berikutnya. Tahan dulu karena kita harus membuat database terlebih dahulu di mysql agar dapat melanjutkan ke proses berikutnya. Berikut contoh saya membuat database di mysql dengan nama hasil_export


4. Kembali ke halaman aplikasi export database silahkan isi informasi DBMS mysql anda seperti hostname, user, password, engine tabel yang ingin anda gunakan serta database yang telah dibuat pada step 3. Dari sini dapat kita tarik kesimpulan bahwa yang akan di export oleh tools ini adalah tabel berserta data yang ada pada tabel.


5. Selanjutnya pilih (centang) tabel pada database access yang ingin anda export ke database mysql. kebetulan disini saya hanya memiliki sebuah tabel (gambar dibawah)


6. Step terakhir adalah Run Now untuk memulai proses export. seperti gambar berikut


Berikut adalah hasil yang saya peroleh setelah proses export dijalankan. Terlihat ada sebuah tabel dengan nama tes dan beberapa data didalamnya yang diexport dari database access.

  

adanya assistan pada halaman aplikasi tentu akan semakin menjadikan aplikasi yang kita bangun menjadi lebih menarik dan user friendly. assistan yang saya maksud disini adalah sebuah gambar animasi yang dapat menampilkan pesan pertolongan jika dibutuhkan oleh user contohnya pada halaman lembar kerja microsoft office. Jika kita terapkan di delphi berikut contoh demonya.

 
const
pesan = 'Hallo Saya adalah Asisten Anda';
begin
try
    OpenDialog1.FileName := Assistant1.ActorLibrary;
    if OpenDialog.Execute and (Assistant1.ActorLibrary <> OpenDialog1.FileName) then
    begin
      Assistant1.ActorLibrary := OpenDialog1.FileName;
      Assistant1.SetPosition((Screen.Width div 6), (Screen.Height div 2));
      Assistant1.MsgDlg.Title := 'Assisten';
      Assistant1.Visible:=True;
      Assistant1.MessageDlg(pesan, mtInformation, [mbOk], 0);
    end;
  finally
    Assistant1.OnGuideOptionsClick := AssistenFile1Click;
  end;
end;

Download Contoh Penggunaan Office Assistan disini.

Berikut saya akan berbagi trik untuk teknik pemanggilan file pada folder dengan Delphi. Lokasi File atau biar lebih keren kita sebut saja Path File teknik memanggil atau menggunakan file berdasarkan lokasi file tersebut akan sangat membantu dalam memabangun aplikasi apalagi jika aplikasi hendak kita bundle menjadi satu paket instalasi dan akan digunakan pada komputer yang berbeda.

// Gambar Ada di Folder gambar didalam Folder Projek
Image1.Picture.LoadFromFile('gambar/2.JPG');
// Gambar ada diluar Folder Projek
Image1.Picture.LoadFromFile('../2.JPG');
// Gambar ada didalam folder Projek
Image1.Picture.LoadFromFile('2.JPG');

var i : integer;
begin
  for i := 1 to ADOQuery1.RecordCount do
  begin
  checklistbox1.Items.Add(ADOQuery1['Value']);
  ADOQuery1.Next;
  end;

Berikutnya untuk mengambil value pada komponent checklistbox tersebut saya menambahkan script seperti berikut ini pada button centang lalu klik ini 

var i : integer;
begin
listbox1.Items.Clear; // hapus dulu
for i := 0 to checklistbox1.items.Count - 1 do
  begin
    if checklistbox1.Checked[i] = true then
     begin
      listbox1.Items.add(checklistbox1.Items.Strings[i]);
      end;
  end;

  const
  ERROR_USER_DISCONNECTION = 631;
  ERROR_NO_CONNECTION      = 668;

3. Berikutnya buat dua buah variabel global dengan type DWORD

  ret, ConnNumber: DWORD;

4. Langkah Selanjutnya membuat sebuah fungsi yang berfungsi untuk melakukan dialup koneksi sebagai berikut

// Dial Up Koneksi
function Dial() : Boolean;
var
ret : LongInt;
NameOfDialupConnectionToUse : pchar;

begin
  // Nama Koneksi
  NameOfDialupConnectionToUse:= 'SAINET';
  ret:= InternetDial(
            Form1.Handle,
            NameOfDialupConnectionToUse,
            INTERNET_AUTODIAL_FORCE_UNATTENDED,
            @ConnNumber,
            0);

  case ret of
    ERROR_SUCCESS:
    // Jika Berhasil
      begin
        Result := True;
        exit;
      end else
      // Jika gagal
      begin
       Result := False;
       exit;
      end;
      end;
end;

5. Kemudian kita perlu membuat sebuah solusi agar aplikasi juga bisa melakukan disconnect/hangup dari internet. dalam hal ini dilakukan oleh procedure seperti berikut

// Putus Koneksi
procedure Hangup;
begin
  InternetHangup(ConnNumber, 0);
end;

6. Langkah terakhir, kita hanya perlu memanggil fungsi dan procedure yang telah kita buat pada langkah sebelumnya. contoh penerapannya adalaha sebagai berikut

    If Button2.Caption='Dial' then
        begin
            If Dial() = True then
              begin
              Label1.Caption:='Koneksi Berhasil. . .';
              Button2.Caption:='Hangup';
              end else
              Label1.Caption:='Koneksi Di Batalkan. . .';
          end else
                If Button2.Caption='Hangup' then
                    begin
                    Hangup;
                    Label1.Caption:='Terputus. . .';
                    Button2.Caption:='Dial';
                    end;

Sedikit Tips : Tambahkan sebuah timer dalam form projek anda lalu letakan code berikut. ini berfungsi untuk mengecek koneksi internet secara continoue

  if NOT InternetAutoDial(INTERNET_AUTODIAL_FORCE_UNATTENDED,0) then
  Label1.Caption:='Error Establishing Connection';
  if NOT InternetAutodialHangup(0)then
  Label1.Caption:='Error Disconnecting...';

1. Pertama-tama silahkan download desktop alertnya disini (Berbentuk File *.dll) Lalu tambahkan kedalam folder projek anda.

2. Selanjutnya tambahkan sebuah Button pada form projek anda lalu deklarasikan sebuah procedure untuk memanggil alert yang ada didalam file *.dll yang sudah didownload sebelumnya.

procedure ShowAlert(
    AWidth,AHeight : integer;
    AHeaderText, AMessageText : string;
    AHeaderFontSize : integer;
    ACaptionFrom,ACaptionTo,AFrame,AWindowFrom,AWindowTo : Cardinal;
    ADisplayDuration : Cardinal;
    AImage : string); stdcall; external 'Alert.dll';

3. Berikutnya tambahkan code berikut pada button yang telah ditambahkan tadi (klik dua kali) 

showAlert(
    250,          //  Lebar
    70,          //  Tinggi
    'Informasi !',      //  Header Alert
    'Ada SMS Masuk..',   //  Pesan Alert
    10,           //  Ukuran Font
    clWhite,
    clWhite,
    clWhite,
    clWhite,
    clWhite,
    500,         //  Durasi
    'logo.ico');  // Icon

Sebaiknya anda menambahkan sebuah gambar icon kedalam folder projek anda agar tidak terjadi error sesuaikan namanya dengan coding diatas. Selamat mencoba. :)

dalam membangun aplikasi dengan delphi, kita akan banyak bekerja dengan prosedur, fungsi dan unit karena Dalam delphi, setiap component yang kita gunakan merupakan sebuah objek. Maka pemahaman lebih lanjut tentang penggunaan prosedur dan fungsi akan sangat diperlukan. Membuat prosedur dan fungsi sendiri akan sangat berguna untuk menjadikan alur program menjadi lebih terstruktur.

Kita dapat mendefinisikan procedure dan function sebagai sebuah program kecil yang dapat dijalankan sewaktu diperlukan. Dalam implementasinya, penggunaan procedure dan function ini biasanya untuk menghandel suatu proses tertentu semisal untuk melakukan proses input, delete atau update data. Tanpa kita sadari, jika kita menambahkan sebuah komponen (misal TEdit) maka jika kita menambahkan aksi pada komponen tersebut (misal aksi onclick) maka pada dasarnya kita telah membuat sebuah procedure yang digenerate otomatis oleh IDE delphi.

Membuat dan Menggunakan Procedure Sendiri

1. Untuk membuat prosedur dan fungsi sendiri, kita perlu mendeklarasikannya pada unit yang kita gunakan (biasanya dibawah code type) suatu misal kita membuat procedure sebagai berikut

 type
  TForm1 = class(TForm)
  ...
  ..
  .
  procedure pesan;

2. Maka setelah anda mendeklarasikan procedure anda. Coba tekan CTRL+SHIFT+C maka secara otomatis procedure tersebut akan digenerate oleh Delphi contohnya sebagai berikut yang telah saya tambahkan sebuah code yang akan memunculkan pesan "Hallo Ini adalah Procedure"

procedure TForm1.pesan;
begin
Showmessage('Hallo Ini adalah Procedure !');
end;

3. Jika hendak menggunakan procedure tersebut kita hanya perlu memanggil namanya saja. Seperti contoh berikut saya memanggil procedure dalam event onclick milik button.

procedure TForm1.Button1Click(Sender: TObject);
begin
pesan;
end;

Membuat dan Menggunakan Function Sendiri di Delphi

Berbeda dengan Procedure, Fungsi adalah sebuah program kecil yang memiliki Return Value, oleh karenanya untuk mendeklarasikan fungsi kita juga perlu mendeklarasikan tipe data yang digunakana. Berikut saya membuat sebuah contoh function yang akan melakukan operasi matematis dengan dua buah parameter.

type
...
..
.
function operasi(var nilaia, nilaib : integer):Boolean;

Sama Seperti Procedure, untuk memudahkan klik CTRL+SHIFT+C agar function digenerate otomatis oleh delphi. Hasil yang saya dapatkan seperti berikut ini. Telah saya tambahkan agar mampu melakukan operasi matematis yaitu penjumlahan

function TForm1.operasi(var nilaia, nilaib: integer): Boolean;
begin
ShowMessage('Hasil Penjumlahannya adalah ='+IntToStr(nilaia+nilaib));
Result := True;
end;

Karena kita membuat function yang memiliki parameter, maka untuk menggunakan function tersebut kita perlu mendefinisikan parameternya juga. Berikut contohnya pada event onclick milik button. Agar terlihat lebih dramatis sengaja saya tambahkan dua buah Edit kedalam form yang mana masing-masing edit ini akan kita ambil nilainya lalu dijumlahkan melalui fungsi operasi yang telah kita buta sebelumnya.

var
satu, dua : integer;
begin
satu := StrToInt(Edit1.Text);
dua := StrToInt(Edit2.Text);
operasi(satu,dua);
end;

Maka Hasilnya Kurang Lebih Seperti gambar berikut

Untuk menguji aplikasi android yang kita bangun menggunakan IDE delphi tidak bisa langsung kita jalankan seperti aplikasi Desktop pada umumnya (F9). kita memerlukan sebuah tools tambahan yaitu emulator yang dikeluarkan oleh google dan dapat kita gunakan secara gratis. Tapi jika anda menginstall delphi XE5, emulator android sudah otomatis terpasang jadi anda tidak perlu repot-repot mendownload dan menginstallnya. Biasanya lokasi hasil installnya ada di direktori C:\Users\tauhid\Documents\RAD Studio\12.0\PlatformSDKs

Kini, dengan Delphi kita sudah bisa membuat berbagai macam aplikasi keren dan tentu saja hal itu dapat dijalankan di berbagai platform berbeda seperti Android dan iOS. Maka tak perlu lagi gonta ganti bahasa pemrograman karena dengan delphi semua bisa. Lepas dari hal itu, Sebelumnya saya sudah sharing bagaimana membuat aplikasi database berbasis android dengan delphi yang ada disini. Pada postingan tersebut sudah saya jelaskan step by step bagaimana membuat database dengan SQLite serta melakukan koneksi ke Aplikasi.

Kali ini, saya akan lanjutkan dengan membuat proses Insert, Update dan Delete pada contoh kasus yang ada di postingan sebelumnya. Hanya saja kita perlu menambahkan beberapa komponen sehingga tampilan aplikasi menjadi seperti berikut ini.


Untuk Masalah coding, sebenarnya sama saja dengan coding CRUD delphi pada umumnya. berikut adalah contoh Untuk Coding simpan yang saya gunakan.

var
jk : string;
begin
// Cek Jenis Kelamin
if RadioButton1.IsChecked=True then
jk := 'Laki-Laki' else
if RadioButton2.IsChecked=True then
jk:= 'Perempuan';
// Simpan Ke Database
FDQuery1.Active:=False;
FDQuery1.SQL.Text:='INSERT INTO biodata values ("'+IntToStr(FDQuery1.RecordCount+1)+'","'+Edit1.Text+'","'+jk+'","'+ComboBox1.Items.GetText+'",,"'+Memo1.Text+'")';
FDQuery1.ExecSQL;
FDQuery1.SQL.Text:='select * FROM biodata';
FDQuery1.ExecSQL;
FDQuery1.Active:=True;
end;

Kemudian Untuk Proses Update dan Delete Data, Skenarionya User harus mengklik salah satu data yang ada di GRID, lalu value data tersebut akan ditampilkan pada komponen diatas (ID dan Nama). Sebelumnya pada event onactive form kita set button update dan delete dengan visible=false

Edit2.Text:=FDQuery1['id'];
Edit1.Text:=FDQuery1['nama'];
Button3.Enabled:=True;
Button4.Enabled:=True;

Berikut contoh yang saya gunakan untuk Coding Update data

var
jk : string;
begin
// Cek Jenis Kelamin
if RadioButton1.IsChecked=True then
jk := 'Laki-Laki' else
if RadioButton2.IsChecked=True then
jk:= 'Perempuan';
// Update Data
FDQuery1.Active:=False;
FDQuery1.SQL.Text:='UPDATE biodata set nama="'+Edit1.Text+'",jenis_kelamin="'+jk+'",agama="'+ComboBox1.Items.GetText+'",alamat="'+Memo1.Text+'" Where id="'+Edit2.Text+'"';
FDQuery1.ExecSQL;
FDQuery1.SQL.Text:='select * from biodata';
FDQuery1.ExecSQL;
FDQuery1.Active:=True;
Button3.Enabled:=False;

Sedangkan Untuk Coding Delete berikut contohnya.

FDQuery1.Active:=False;
FDQuery1.SQL.Text:='DELETE FROM biodata Where id="'+Edit2.Text+'"';
FDQuery1.ExecSQL;
FDQuery1.SQL.Text:='select * from biodata';
FDQuery1.ExecSQL;
FDQuery1.Active:=True;
Button4.Enabled:=False;

Pengambilan keputusan atau yang disebut juga Decision Making akan sangat kita perlukan dalam membangun aplikasi dengan bahasa pemrograman apapun. Saya sendiri sering menyebut istilah ini dengan penyeleksian kondisi. Jika ini maka itu, jika itu maka ini. kira kira begitulah logika dari Pengambilan keputusan ini yang dalam bahasa pemrograman pascal dikenal dengan istilah if then else.

Secara umum, Pascal mengenal dua buah metode decision making yang umum digunakan yaitu If then dan case of. Baiklah, Mari kita bahas satu persatu. Enjoy!

1. If Then

Adalah sebuah pengambilan keputusan dimana sebuah atau beberapa kondisi didefinisikan diawal pengecekan. sedangkan aksi akan dilakukan jika nilai return True. jika nilai False, maka aksi lain akan dieksekusi. Berikut adalah contohnya

program belajar;

var
nilaib : Integer;

begin
nilaib := 5;
if (nilaib<=10) then
writeln('Nilai B Lebih Kecil dari 10');
end.

Selain itu kita juga dapat menggunakan sub rutin percabangan dari If then else ini. berikut contohnya.

program belajar;

var
nilaib : Integer;

begin
nilaib := 12;
if (nilaib<=10) then
writeln('Nilai B Lebih Kecil dari 10') else
writeln('Nilai B Lebih Besar dari 10');
end.

Perlu diketahui bahwa jika ada lebih dari satu baris aksi (beberapa aksi/lebih dari 1) akan dilakukan jika kondisi terpenuhi maka harus diawali dengan begin dan diakhiri dengan end Jika tidak maka hanya aksi pertama yang akan dieksekusi. seperti contoh script berikut

program belajar;

var
nilaib : Integer;

begin
nilaib := 12;
if (nilaib<=10) then
 begin
 writeln('Nilai B Lebih Kecil dari 10'); 
 writeln('Ini Aksi Kedua');
 writeln('Ini Aksi Ketiga');
 end else
 begin
 writeln('Ini Aksi Pertama');
 writeln('Nilai B Lebih Besar dari 10');
 writeln('Ini Aksi Ketiga');
 end;
end.

2. Case Of

Berbeda dengan If then, Decision making jenis ini akan melakukan pengecekan terhadap suatu nilai dimana aksi akan diambil jika nilai tersebut sesuai dengan kondisi yang telah ditentukan. Berikut contohnya suatu misal dalam program sederhana untuk mengecek grade nilai.

program belajar;

var
nilaib : integer;

begin
nilaib := 20;

case (nilaib) of
1..20 : writeln('Nilai yang Buruk Sekali');
21..40 : writeln('Nilai yang Buruk');
41..50 : writeln('Nilai yang Memprihatinkan');
51..60 : writeln('Nilai yang Lumayan');
61..70 : writeln('Nilai yang Cukup Baik');
71..80 : writeln('Nilai yang Baik');
81..90 : writeln('Nilai yang Baik Sekali');
91..100 : writeln('Nilai yang Sangat Memuaskan');
end;
end.

Penggunaan Komponen yang tepat dalam membangun aplikasi adalah salah satu kunci dari pembuatan aplikasi yang user friendly. Untuk kemudian end user, Delphi menyediakan ratusan komponen yang dapat kita manfaatkan yang tentu saja penggunaannya dalam hal yang berbeda beda. Sebut saja componen delphi seperti RadioButton yang akan lebih pas jika digunakan untuk pemilihan dua buah kategori seperti jenis kelamin atau kategori yang lain.

Sayangnya, Untuk mengambil inputan radiobutton ini menjadi masalah tersendiri dikalangan pemula delphi maka terbersit niat saya untuk membahasnya dalam postingan ini.

saya sendiri untuk mengambil inputan radio button ini menggunakan penyeleksian kondisi atau yang disebut juga dengan pengambilan keputusan alias decision making. Suatu misal dalam form terdapat dua buah radiobutton sebagai berikut


Maka Untuk coding yang ada di button Pilih Saya menggunakan script berikut

procedure TForm1.Button1Click(Sender: TObject);
var
jenis_kelamin : String;
begin
// Cek Jenis Kelamin yang dipilih
if RadioButton1.Checked=True then
jenis_kelamin:=RadioButton1.Caption else
if RadioButton2.Checked=True then
jenis_kelamin:=RadioButton2.Caption;
// Masukan ke Komponen Edit
Edit1.Text:=jenis_kelamin;
end;