10 Cara Menampilkan Jam, Tanggal, Waktu dari Server di Delphi 7 – Beberapa waktu yang lalu, penulis dihubungi oleh salah seorang pembaca blog Teknoborneo.com yang bertanya mengenai "Bagaimana caranya menampilkan waktu (Jam maupun Tanggal) yang diambil dari server dan ditampilkan pada program Delphi 7?".
Ada banyak cara untuk menampilkan jam Server di Delphi 7, misalnya menggunakan komponen tambahan dari pihak ketiga atau menggunakan Query SQL. Namun pada prinsipnya, jika hanya ingin menampilkan jam di Server maka menggunakan Query SQL-lah cara termudah untuk dilakukan.
Hal yang harus diketahui bahwa untuk mendapatkan waktu dari Server, maka aplikasi yang dibuat juga harus terhubung ke server. Mengenai hal ini, mungkin kita sudah sering menghubungkan Delphi ke Server saat membuat aplikasi berbasis CRUD (misalnya : Sistem Informasi ... dimana program dapat Menyimpan, Hapus dan Mengedit Data).
Berikut Tutorial 10 Cara Menampilkan Jam, Tanggal, Waktu dari Server ke Delphi 7
Part 1 - Install MySQL Connector ODBC
Pertama-tama install dulu MySQL Connector ODBC yang berfungsi sebagai jembatan untuk komunikasi antara dua aplikasi yang berbeda (Aplikasi Delphi 7 dan Database MySQL).
Anda bisa mendapatkan softwarenya di Website resminya MySQL.
Anda bisa mendapatkan softwarenya di Website resminya MySQL.
Part 2 - Buat Folder Penyimpanan Project
Kemudian buat sebuah folder bebas dimanapun, misalnya di My Documents, kemudian tulis dengan nama "Cara menampilkan jam, tanggal, waktu server di delphi 7". Folder ini nantinya akan dijadikan sebagai tempat menyimpan project delphinya.
Part 3 - Jalankan XAMPP
Keluar dari folder tadi, buka aplikasi XAMPP lalu Jalankan Apache dan MySql dengan menekan button Start hingga tampak tulisan Running berwarna hijau pada kedua fitur tersebut.
Part 4 - Buka Database Localhost
Buka browser, kemudian ketikkan “172.0.0.1/phpmyadmin”. Langkah ini untuk memastikan apakah XAMPP tadi memang benar-benar dapat berfungsi. Jika iya maka, lihatlah di sebelah kiri, maka anda akan mendapatkan sebuah database dengan nama "mysql". Keluarkan Browser tadi.
Part 5 - Atur Data Source Name (DSN) MySQL Connector ODBC
Buka Control Panel, jika sulit menemukannya gunakan fitur Search Windows untuk mencari control panel.
klik System and Security, pilih Administrative Tools, klik ODBC Data Sources (32-bit).
Klik 2x pada ODBC Data Sources (32-bit), walaupun komputer anda menggunakan arsitektur 64-bit, maka pilih saja yang 32-bit. Pengalaman sebelumnya, saat memilih yang 64-bit penulis pernah mengalami kendala-kendala yang lumayan rumit.
Klik Add, scroll kebawah, pilih MySQL ODBC 5.3 ANSI Driver (Sesuaikan dengan versi Connector anda), Klik Finish
Kemudian terbuka sebuah jendela MySQL Connector ODBC, silahkan isi seperti berikut ini :
10 Cara Menampilkan Jam, Tanggal, Waktu dari Server di Delphi 7 |
Data Source Name
|
koneksi_jam_server
|
Description
|
untuk menampilkan
jam server ke delphi 7
|
TCP/IP Server
|
127.0.0.1
|
Port
|
3306
|
User
|
root
|
Password
|
|
Database
|
mysql
|
klik Test untuk melihat apakah sukses atau gagal.
klik Ok, Keluarkan seluruh jendela yang terbuka, Buka Borland Delphi 7.
Part 6 - Buat Program Menggunakan Delphi 7
Form1 Delphi telah terbuka, silahkan atur dulu form1 sesuai selera anda.
Name : frmwaktu_server.
Caption : Aplikasi Waktu Server.
Klik tab ADO pada Component Pallete, tambahkan ADO Connection dan ADO Query pada frmwaktu_server.
Klik tab System, tambahkan Timer.
Klik tab Standard, tambahkan sebuah Label dan atur sesuai selera. Misalnya font size : 60.
Part 7 - Atur Property komponen ADO Connection
Klik komponen ADO Connection, buka ConnectionString pada Object Inspector sebelah kiri - Klik Build - pilih Microsoft OLE DB Provider for ODBC Drivers - Next - Pilih Use data source name : "koneksi_jam_server".
Source name ini adalah nama koneksi yang tadi kita telah buat.
Isi username :
|
root
|
Password :
|
Pilih database mysql pada bagian Enter the initial catalog to use.
Klik Test Connection untuk mengecek apakah berhasil - jika iya maka klik OK.
Klik lagi OK.
Pada bagian LoginPrompt ubah menjadi : "False".
Part 8 - Atur Property ADO Query
Pindah kebagian ADO Query, Atur Connectionnya menjadi : ADOConnection1.
Atur juga SQL-nya : "select now();"
lalu klik OK.
Ubah Active menjadi : True;
Part 9 - Koding dibagian komponen Timer
Terakhir klik 2x pada komponen Timer, lalu masukkan koding sebagai berikut :
Script Box
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select now() as waktu';
ADOQuery1.Open;
label1.Caption := ADOQuery1.FieldValues['waktu'];
ADOQuery1.SQL.Text := 'select now() as waktu';
ADOQuery1.Open;
label1.Caption := ADOQuery1.FieldValues['waktu'];
Part 10 - Jalankan Program
Save programnya pada Folder "Cara menampilkan jam, tanggal, waktu server di delphi 7" yang telah dibuat sebelumnya, lalu jalankan programnya.
Aplikasi "Menampilkan waktu server di Delphi 7" berhasil dibuat.
10 Cara Menampilkan Jam, Tanggal, Waktu dari Server di Delphi 7 |
Perlu diketahui, kelemahan dari koding sederhana ini adalah belum dibuat handling error jika tiba-tiba koneksi terputus. Sebab proses kerja koding ini adalah secara RealTime, artinya program akan selalu mengeksekusi syntax pemanggilan waktu server ini dalam interval waktu satu detik sekali.
Follow blog ini jika ingin mendapatkan informasi yang lainnya. West Borneo Blogger #YourPartnerToBeAMaster.
My Contact :
Facebook : Rangga Saputra
Fanspage : Teknoborneocom
Instagram : @teknoborneo
HP/WA/Telegram : +628 988282 108
My Contact :
Facebook : Rangga Saputra
Fanspage : Teknoborneocom
Instagram : @teknoborneo
HP/WA/Telegram : +628 988282 108
Bagikan
10 Cara Menampilkan Jam, Tanggal, Waktu dari Server di Delphi 7
4/
5
Oleh
Rangga Saputra
Silahkan Tinggalkan Kritik dan Saran yang membangun dari Anda
1. Berkomentarlah yang baik dan sopan
2. Dilarang mengirim link aktif di CommentBox
3. Selebihnya anda bebas berekspresi :)
Gunakan kode Emoticon di sini >