Delphi

Koneksi MySQL ODBC dengan Delphi XE Bagian 1

Last Updated on 9 October 2012 By tommy Leave a Comment

Untuk mempermudah menghandle database kita akan menginstall XAMPP terlebih dahulu. Disini tidak akan dijelaskan cara instalasi XAMPP, dan diasumsikan anda telah mengerti cara instalasi XAMPP ataupun aplikasi sejenisnya.

Download MySQL ODBC dari http://dev.mysql.com/downloads/connector/odbc/#downloads, versi yang akan digunakan adalah versi terbaru, saat tulisan ini dibuat versi terbaru adalah ODBC 5.2.2. Nama file yang di download adalah mysql-connector-odbc-5.2.2-ansi-win32.msi, klik dua kali pada mysql-connector-odbc-5.2.2-ansi-win32.msi lalu akan muncul wizard yang memandu anda untuk instalasinya

klik Next, selanjutnya adalah klik pada radio button License Agreement Click I Accept the terms in license aggrements dan lanjutkan dengan klik Next.

Pada Setup Type pilih saja Typical, dan klik next lagi

klik Install, untuk memulai proses instalasi

proses instalasi sedang berjalan

tunggu hingga proses instalasi selesai dan tampil window seperti gambar dibawah ini

klik finish. Proses instalasi telah selesai, sekarang kita akan membuat database di phpMyAdmin dan dikoneksikan ke ODBC.

Jalankan XAMPP klik start pada apache dan MySQL

Di browser buka alamat http://localhost/phpmyadmin klik Databases dan isikan coba coba adalah nama database yang akan kita gunakan

lalu klik create.
Database coba telah dibuat dan klik pada coba yang ada dibawah tulisan database, untuk membuka database tersebut

Klik SQL pada menu sebelah atas dan masukkan script

CREATE TABLE IF NOT EXISTS `data` (
  `firstname` varchar(20) NOT NULL,
  `lastname` varchar(20) NOT NULL
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

lalu klik go

Bagian pembuatan database telah selesai, sekarang kita menghubungkan database mysql dengan odbc connector agar dapat dibuka di Delphi nantinya.

lanjut ke Bagian 2

Cara Untuk Mengubah Background Form Delphi XE

Last Updated on 8 October 2012 By tommy Leave a Comment

Buat design di Delphi XE seperti gambar dibawah

Komponen yang digunakan adalah ColorBox tanpa diubah property. Klik komponen ColorBox lalu pada Object Inspector klik Events, dan klik dua kali pada OnChange

lalu tambahkan script

Form1.Color:=ColorBox1.Selected;

Screenshoot sewaktu aplikasi dijalankan :

Membuat Login dengan Delphi XE tanpa Database

Last Updated on 4 October 2012 By tommy Leave a Comment

Buat design form seperti gambar dibawah ini

komponen yang digunakan
2 TEdit, 2 TLabel dan 1 TButton. Property yang diubah
Label1 : Caption menjadi Username
Label2 : Caption menjadi Password
TButton : Caption menjadi Login

klik dua kali pada tombol login dan paste script dibawah ini

if (edit1.Text <> 'jaranguda') or (edit2.Text <> 'jaranguda.com') then
begin
  MessageDlg('Username atau Password yang anda masukkan kurang tepat', MTWarning, [MBOK], 0);
  Exit;
end;
showmessage('Selamat anda berhasil login');

lengkapnya

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text <> 'jaranguda') or (edit2.Text <> 'jaranguda.com') then
begin
  MessageDlg('Username atau Password yang anda masukkan kurang tepat', MTWarning, [MBOK], 0);
  Exit;
end;
showmessage('Selamat anda berhasil login');
end;
 
end.

Screenshoot :

untuk menjalankan program tekan F9

Mengganti Judul Form dengan Delphi

Last Updated on 27 September 2012 By tommy Leave a Comment

Buat aplikasi baru dan design seperti tampilan dibawah ini :

komponen yang digunakan TButton dan TEdit, property yang diubah hanya pada bagian TButton ganti Caption menjadi ganti. Klik dua kali pada TButton (tombol ganti) lalu tambahkan script

Form1.Caption := edit1.Text

jalankan aplikasi diatas dengan menekan tombol F9

screenshoot :

Membuat Program Aritmatika dengan Delphi XE

Last Updated on 17 September 2012 By tommy Leave a Comment

Program yang akan kita buat disini adalah aritmatika (tambah, kurang, kali dan bagi) dan source code dari program aritmatika ini bisa di dowload dibawah tulisan ini.

Buat sebuah VLC form application baru di delphi dan design seperti gambar dibawah ini

keterangan :
label1, edit1 di Angka 1
label2, edit2 di Angka 2
label3, edit3 di Hasil
Button1 : kali
Button2 : bagi
Button3 : tambah
Button4 : kurang
Button5 : clear

klik dua kali pada tombol kali dan tambahkan script dibawah ini

angka1 := StrToFloat(edit1.Text);
angka2 := StrToFloat(edit2.Text);
hasil := angka1 * angka2;
edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol bagi dan tambahkan script dibawah ini

angka1 := StrToFloat(edit1.Text);
angka2 := StrToFloat(edit2.Text);
hasil := angka1 / angka2;
edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol tambah dan tambahkan script dibawah ini

angka1 := StrToFloat(edit1.Text);
angka2 := StrToFloat(edit2.Text);
hasil := angka1 + angka2;
edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol kurang dan tambahkan script dibawah ini

angka1 := StrToFloat(edit1.Text);
angka2 := StrToFloat(edit2.Text);
hasil := angka1 - angka2;
edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol clear dan tambahkan script dibawah ini

edit1.Text := '';
edit2.Text := '';
edit3.Text := '';

jalankan dengan menekan tombol F9, hasilnya bisa dilihat dibawah ini

Download :

Download “Aplikasi Aritmatika Delphi”

aritmatika.zip – Downloaded 788 times –

Menghitung Gaji Karyawan dengan Delphi

Last Updated on 12 September 2012 By tommy 1 Comment

Gaji yang akan kita hitung mempunyai aturan sebagai berikut :
1. Pengguna menginput data gaji pokok, uang makan, dan bonus
2. Perhitungan tunjangan = 20% * gaji kotor
3. Total gaji = pokok + uang makan + bonus + tunjangan

Versi delphi yang akan saya gunakan adalah Delphi XE2, tetapi cara ini bisa digunakan untuk Delphi 7 keatas. Buka aplikasi Delphi XE dan klik File > New > VLC Form Application

Design form agar menyerupai tampilan form dibawah ini :

1. Input Data dan Total diambil dari Tool Palette TGroupBox.
2. Nama, Jabatan, Gaji Pokok, Uang Makan, Bonus diambil dari Tool Palette TLabel
3. Hitung, Reset, Exit diambil dari Tool Palette TButton. Yang diubah hanya Caption.

Tool Palette berada disebelah kanan bawah window aplikasi Delphi XE

Setelah form tersebut didesign, klik duakali disembarang tempat di form, sehingga tampilan akan berubah ke mode coding scroll ke baris paling atas hingga di bagian

 private
    { Private declarations }
  public
    { Public declarations }

ubah menjadi

 private
    { Private declarations }
  public
    { Public declarations }
    nama, jabatan : string;
    gapok, umakan, bonus, tunjangan, t_gaji, output_gaji :real;

double klik pada Button Hitung tambahkan script dibawah ini

nama := edit1.Text;
jabatan := edit2.Text;
gapok := strtofloat (edit3.Text);
umakan := strtofloat (edit4.Text);
bonus := strtofloat (edit5.Text);
tunjangan := 0.2*gapok;
t_gaji := gapok+umakan+bonus;
edit6.Text := floattostr(tunjangan);
output_gaji := tunjangan + t_gaji;
edit7.Text := floattostr (output_gaji);

untuk lebih jelasnya lihat gambar dibawah ini

kembali ke tampilan Design, untuk berpindah-pindah dari mode Code ke Design atau sebaliknya lihat seperti gambar dibawah ini

Klik dua kali pada tombol Reset, tambahkan script dibawah ini

 edit1.Text := ' ';
  edit2.Text := ' ';
  edit3.Text := ' ';
  edit4.Text := ' ';
  edit5.Text := ' ';
  edit6.Text := ' ';
  edit7.Text := ' ';

yang terakhir di tombol Exit tambahkan

close;

Screenshoot :

Download :

Download “Aplikasi Penggajian Pegawai”

gaji.zip – Downloaded 2235 times –