• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar

Jaranguda

Belajar Mengajar

  • Home
  • Sponsor/Jasa
  • Tentang

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
instalasi odbc mysql tahap 1
klik Next, selanjutnya adalah klik pada radio button License Agreement Click I Accept the terms in license aggrements dan lanjutkan dengan klik Next.
instalasi odbc mysql tahap 2
Pada Setup Type pilih saja Typical, dan klik next lagi
instalasi odbc mysql tahap 3
klik Install, untuk memulai proses instalasi
instalasi odbc mysql tahap 4
proses instalasi sedang berjalan
instalasi odbc mysql tahap 5
tunggu hingga proses instalasi selesai dan tampil window seperti gambar dibawah ini
instalasi odbc mysql tahap 6
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
menjalankan apache dan mysql XAMPP

Di browser buka alamat http://localhost/phpmyadmin klik Databases dan isikan coba coba adalah nama database yang akan kita gunakan
buat database baru
lalu klik create.
Database coba telah dibuat dan klik pada coba yang ada dibawah tulisan database, untuk membuka database tersebut
database telah dibuat
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
buat tabel baru

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

lanjut ke Bagian 2

Filed Under: Delphi Tagged With: mysql, odbc

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
design form ganti background

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

Form1.Color:=ColorBox1.Selected;

Screenshoot sewaktu aplikasi dijalankan :
ganti background form delphi
ganti form cLime

Filed Under: Delphi Tagged With: form, warna

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
delphiform1
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 :

delphiform1
password atau username salah
berhasil login
program dijalankan

untuk menjalankan program tekan F9

Filed Under: Delphi Tagged With: form login

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 :
delphi ganti judul form

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 :
hasil delphi ganti judul form

Filed Under: Delphi Tagged With: edit, ganti title

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
design form
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
contoh aplikasi aritmatika delphi xe

Download :

Download “Aplikasi Aritmatika Delphi”

aritmatika.zip – Downloaded 1042 times –

Filed Under: Delphi Tagged With: artimatika

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
klik new delphi

Design form agar menyerupai tampilan form dibawah ini :
hitung gaji karyawan

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
tool palette

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
isi tombol hitung

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

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 2741 times –

Filed Under: Delphi Tagged With: gaji karyawan, pemula, perhitungan

  • « Go to Previous Page
  • Go to page 1
  • Go to page 2

Primary Sidebar

Pencarian

Tanya Jawab tentang DevOps SRE CPE, gabung di https://t.me/devopsindonesia

Terbaru

  • Cara Mengganti Port Screen Sharing macOS
  • Cara Menonaktifkan Pager di macOS
  • Cara Mengupdate Nama Apple silicon-as-a-Service Scaleway
  • Cara Force Delete Namespace di Kubernetes
  • Install PHP MariaDB di Mac Monterey

Komentar

  • mazda on Tutorial Lengkap Install Mail Server Postfix Dovecot MariaDB di CentOS 7
  • adi on Menggunakan Mikrotik Sebagai SSH Client
  • aris u on Solusi Simple Queue Mikrotik Tidak Berjalan
  • Bowo on Cara Mematikan SSID Molecool Balifiber
  • aris on Solusi Simple Queue Mikrotik Tidak Berjalan

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1.1m views
  • Password Terbaru ZTE F609 Indihome 784.5k views
  • Password Superadmin Huawei HG8245A 318.1k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 273k views
  • Cara Setting Wireless ZTE F609 Indihome 257.1k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 169.8k views
  • Akses UseeTV Indihome via Wireless ZTE F609 156.8k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 153.1k views
  • Cara Reset Password ZTE F609 Indihome 147.5k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 113.5k views

Kategori

  • Delphi
  • dll
  • Gambas
  • Internet
  • Java
  • Lazarus
  • Linux
  • PHP
  • Review
  • Teknologi

Sponsor

kadal.id
carakami.com
kuotabisa.com
Untuk jadi sponsor, hubungi kita lewat halaman sponsor
© 2021. Jaranguda
  • Linux
  • PHP
  • Internet
  • Teknologi
  • Delphi
  • Gambas
  • Java