Sebelumnya pada bagian 1, membuat tampilan untuk aplikasinya. Kali ini, membuat fungsi untuk tombol yang digunakan pada pembahasan sebelumnya. Agar mudah, nama parameter pada fungsi dibuat sama seperti nama masing-masing komponen.
Kode skripnya seperti berikut:
- Membuat fungsi untuk tanggalan
#################### MEMBUAT FUNGSI ##########################
# FUNGSI TANGGALAN
Fungsi tgl(msktgllahir){
tanggalan msktgllahir
}
###############################################################
|
- Membuat fungsi untuk menghapus masukan
# FUNGSI MENGHAPUS MASUKAN
Fungsi kosong(msknpm,msknama,msktgllahir,mskjur,mskkota){
set_masukan msknpm," "
set_masukan msknama," "
set_masukan msktgllahir," "
set_masukan mskjur," "
set_masukan mskkota," "
}
############################################################
|
- Membuat fungsi untuk menambahkan data ke database
#FUNGSI MENAMBAHKAN DATA KE DATABASE
Fungsi tambah(msknpm,msknama,msktgllahir,mskjur,mskkota){
data1 = teks_masukan msknpm
data2 = teks_masukan msknama
data3 = teks_masukan msktgllahir
data4 = teks_masukan mskjur
data5 = teks_masukan mskkota
# memasukan data ke database
sql = "insert into mahasiswa values ( "
sql = gabung sql,"'", data1, "','",data2, "','",data3,"','", data4, "','",data5, "');"
hasil = mysql_hasil koneksidb,sql
&kosong(msknpm,msknama,msktgllahir,mskjur,mskkota)
}
|
- Membuat fungsi untuk memuat data ke tabel
#FUNGSI MUAT DATA KE TABEL
Fungsi muatdata(tabeldata){
&hps(tabeldata)
# kalimat sql untuk operasi database
sql = "select * from mahasiswa;"
# hasil operasi sql
hasil = mysql_hasil koneksidb, sql
# jumlah data pada database
num = mysql_total hasil
### mengambil isi data per baris dari suatu tabel database
untuk (i=0; i<num; i=i+1) ulang
baris = mysql_isidata hasil
col0 = baris[0]
col1 = baris[1]
col2 = baris[2]
col3 = baris[3]
col4 = baris[4]
# menyusun data dari database kedalam tabel
tabel_data tabeldata, col0, col1, col2, col3, col4
lagi
}
############################################################
|
- Membuat fungsi untuk mengaktifkan koneksi database
# FUNGSI MENGAKTIFKAN KONEKSI DATABASE
Fungsi sambungdb(lblstatuswarna){
alamatdb = "127.0.0.1" #jika localhost tidak bisa, pakailah 127.0.0.1
pemakai = "root"
katasandi = ""
namadb = "universitas"
nomerport = 3306
koneksidb = mysql_koneksi alamatdb,pemakai,katasandi,namadb,nomerport
set_label lblstatuswarna,"ON"
set_warnadasar lblstatuswarna,"hijau"
}
##################################################################
|
- Membuat fungsi untuk mematikan koneksi database
# FUNGSI MEMATIKAN KONEKSI DATABASE
Fungsi tutupdb(lblstatuswarna){
tutup koneksidb
set_label lblstatuswarna,"OFF"
set_warnadasar lblstatuswarna,"merah"
}
############################################################
|
- Membuat fungsi untuk menghapus data pada tabel secara keseluruhan
# FUNGSI HAPUS DATA PADA TABEL
Fungsi hps(tabeldata){
hapus tabeldata
}
##############################################################
|
Setelah selesai, kemudian simpan dengan nama file fungsi.ina seperti pada pembahasan sebelumnya, agar dapat digunakan pada file aplikasi_mhs.ina. Aktifkan XAMPP. Uji coba aplikasinya seperti gambar berikut.
 |
| Gambar 2.1 Terminal |
Kemudian akan muncul jendela aplikasinya.
 |
| Gambar 2.2 Muat Data ke Database |
Komentar
Posting Komentar