Popular posts

Labels

Total Tayangan Laman

Dejavu.corp. Diberdayakan oleh Blogger.

SMS GRATIS

Adsense Indonesia

Tampilkan postingan dengan label DELPHI. Tampilkan semua postingan

Try....Except di Delphi

Minggu, 29 April 2012

oke,sekarang kita berkenalan dengan klausa try...except,berbeda dengan if...then...else,klausa try...except digunakan untuk menghandle error,untuk contoh kita coba dengan form seperti berikut:

niatya kita akan buat program untuk membagi bilangan dengan nol dan mengeksekusi perhitungan(pertambahan sih),namun jika kita salah input?? (maksudnya ada angka ada kata) so read this and check this.

Mengeksport data dari Ms Excel ke MySQL Database menggunakan Delphi

Jumat, 23 Maret 2012
Sebuah kenyataan bahwa saat ini pemrograman komputer tidak lagi sebatas mementingkan aplikasi berjalan melainkan sudah sampai kepada bagaimana aplikasi tersebut ‘berinteraksi’ dengan aplikasi lain misalkan dengan aplikasi database. Sehingga aplikasi dapat dipasang pada beberapa komputer dengan menggunakan database yang sama. Tidak hanya sebatas itu, sesuai dengan kebutuhan dan kemampuan pengguna, maka penyediaan data harus dapat mendukung banyak format. Salah satunya adalah apa yang telah saya alami.
Saat ini saya bersama teman-teman sedang mengembangkan web based application untuk pengolahan data akademik, termasuk salah satu didalamnya adalah pengolahan data nilai. Untuk memudahkan pengguna dalam memasukkan nilai dan juga demi keamanan, maka saya menyusun script PHP yang dapat menggenerate sebuah daftar yang terdiri dari NIM, Tahun Akademik, Semester, Kode Matakuliah, dan Nilai dalam format file Microsoft Excel Worksheet. Jadi, melalui interface web dan script PHP yang saya buat, petugas pengisi nilai terlebih dahulu mendownload berkas Excel sesuai dengan matakuliah yang akan diisi nilainya. Kemudian diisi dan selanjutnya diupload kembali untuk dimasukkan ke dalam server. Akan tetapi ada beberapa masalah yang muncul. Pertama, yang jelas adalah masalah keamanan.
Tetapi, pada tulisan ini saya tidak akan membahas lebih jauh mengenai script PHP dan seluk beluknya. Mungkin pada beberapa kesempatan yang lain, akan saya posting tutorial PHP untuk menggenerate file Excel dari database, saya menggunakan database MySQL.Tulisan ini dilatarbelakangi oleh keinginan saya untuk memasukkan data-data yang tersimpan di dalam file Excel ke dalam database MySQL. Saya memilih Excel karena aplikasi ini paling banyak digunakan untuk menyusun daftar dalam format tabel. OK langsung saja pada tujuan dari tutorial kali ini. Tutorial kali ini bertujuan membuat aplikasi yang digunakan untuk membaca data pada file excel kemudian ‘memasukannya’ kedalam database MySQL menggunakan Delphi. Tetapi, saya akan membahasnya secara umum. Harap menyesuaikan dengan kebutuhan.
Pertama, saya menyiapkan sebuah database dan sebuah tabel. Saya asumsikan di komputer Anda sudah terinstall MySQL. Misalkan saya membuat database dengan nama ‘DATAKU’. Saya membuatnya melalui Console MySQL. Anda dapat membuatnya melalui iterface yang lain.
C:\AppServ\MySQL\bin>mysql -u root -p
Enter password: ****
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 1
Server version: 6.0.4-alpha-community-log MySQL Community Server (GPL)

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> CREATE DATABASE DATAKU;
Query OK, 1 row affected (0.05 sec)

mysql> USE DATAKU;
Database changed
mysql> CREATE TABLE anggota (kode_anggota varchar(10) NOT NULL default '',
-> nama varchar(3) NOT NULL default '',
-> alamat varchar(100) NOT NULL default '',
-> PRIMARY KEY (kode_anggota));
Query OK, 0 rows affected (0.11 sec)

Memanggil file word delphi

Rabu, 15 Februari 2012
siapkan sebuah button kemudian buat sebua button

procedure TForm1.Button1Click(Sender: TObject);
var
cmd : AnsiString;
begin
cmd := '';
ShellExecute  (Handle ,'open', 'winword','F:\hp\wewe.docx', nil, SW_SHOW);
end;

pada uses ditambakan  ShellAPI

uses
   ShellAPI,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;


F:\hp\wewe.doc maksudnya adalah alamat explorer menyimpan file DOC anda formatnya atau extensinya haus benar .DOC atau .DOCX

Instalasi ZeosLib di Delphi 7

Selasa, 14 Februari 2012


ZeosLib, merupakan component tambahan untuk Delphi 7 yang berfungsi sebagai penghubung antara Delphi 7 dengan database, seperti MySQL, PostgreSQL, SQLite, maupun Oracle. Konfigurasi Zeos tidaklah sulit, sehingga sangat membantu user dalam mengembangkan aplikasi desktop berbasis database.
File instalasi Zeos dapat di-download disini, dengan versi terbarunya adalah ZeosDBO-6.6.6-stable. Instalasi ZeosDBO ini tidak cukup sulit, namun instalasinya harus urut. Berikut ini sedikit penjelasan mengenai instalasi ZeosDBO di Delphi 7.
  1. Extract *.rar dari ZeosDBO di tempat yang anda inginkan. Pastikan bahwa lokasi dari folder ZeosDBO TIDAK diubah-ubah.
  2. Buka folder ZEOSDBO-6.6.6-stable, kemudian pilih buka folder package.
  3. Terdapat banyak pilihian package yang disupport oleh ZEOSDBO-6.6.6-stable. Buka folder delphi7.
  4. Cari file bertipe delphi package, bisa dengan sortir berdasarkan jenis datanya di explorer.
  5. Double-click pada file ZCore.bpl, setelah file terbuka di Delphi7, kemudian click Compile.
  6. Lakukan hal yang sama pada file -file (urutan bebas).
    1. ZParseSQL.bpl
    2. ZPlain.bpl
    3. ZDbc.bpl
    4. ZComponent.bpl
  7. Double-click pada file ZComponentDesign, kemudian click Compile diteruskan dengan click Install. Tunggu sejenak, akan muncul pesan bahwa ZeosDBO telah terinstall.
Setelah ZeosDBO berhasil diinstall, langkah terakhir adalah link file source dan build dari package delphi 7 ke dalam enviroment Delphi 7, dengan cara :
  1. Di Menu utama Delphi 7, pilih Tools –> Enviroment Options –> Library
  2. Add direktori di Library Path, dengan click button di sebelah kanan [...]
  3. Tulis atau cari direktori ZeosDBO. Direktori yang penting adalah direktori ZEOSDBO-6.6.6-stable\src dan ZEOSDBO-6.6.6-stable\package\delphi7\build.
  4. Klik OK dan tutup Enviroment Options. Selesai.
Semoga bisa membantu, dan selamat mencoba

menmbahkan waktu jam

Senin, 02 Januari 2012
aku berhasil membuat sebuah aplikasi yang bisa menjumlah waktu, hanya saja harus disertai jam, menit, dan detik jika hanya memerlukan jam dan menitnya saja silakan anda setting sendiri. Ini juga harus disertai tiga TEdit. begini caranya...

var
Jam, Jam2, Jam3, Menit, Menit2, Menit3, Detik, Detik2, Detik3: Integer;
begin
Edit1.Text := TimeToStr(Time); //membaca waktu sekarang
Edit2.Text := '01:00:30' //Misal
if Length(Edit1.Text) = 7 then Edit1.Text := '0'+Edit1.Text;
Jam := StrToInt(Copy(Edit1.Text, 1, 2));

menjumlahkan waktu didatabase


Selasa, 08 Maret 11 - oleh : abrar
saya mau tanya gimana cara menjumlahkan menit dan jam di data base dan ditampilkan di tedit, misalkan :
hari               waktu
senin             00:20
rabu               00:10
kamis             01:10

jadi jumlahnya 01:40
sebelumnya saya ucapkan terimakasih
jawab :
  • database pake mysql
  • menggunakan query dengan perintah
SELECT SEC_TO_TIME(SUM(TIME_TO_SEC(waktu))) as TOTWAKU FROM LAMA

  • jika ingin menampilkan hasil query ke edit
edit1.text:=query1.fieldbyname('totwaktu').asstring;

menmpilkan currency pada TEdit

Secara default, Tedit pada Delphi ketika diinput akan menampilkan angka tanpa titik atau pemisah ribuan. Tetapi ada kasus yang membutuhkan format Currency atau format yang menggunakan titik dan koma pemisah, misalnya pada saat menginput angka 1000000, diharapkan agar Tedit secara otomatis mengubah inputan menjadi 1.000.000.

Membuat Program menampilkan hari,tanggal,dan tahun menggunakan delphi

Berjmupa lagi dengan saya kali ini saya akan membahas cara membuat program mengetahui hari,tanggal,dan tahun menggunakan Borland Delphi.

Adapun caranya.
1. Bukak Program delphi anda, tentunya teman-teman sudah tau kalau belumtau klik start => all program => Pilih borland Delphi7(sesuai yang anda instal di komputer.
2 Masukan satu komponen edit
3 Klik Form, pilih event on active dan klik dua kali.
4 Masukan listing berikut
edit1.Text:=formatdatetime('dd,dddd-mmmm-yyyy',date( ));
5 jalankan program tekan f9

Database notepad Delphi

Kamis, 15 Desember 2011

1.            Buat sebuah project baru dengan sebuah form

2.            Tambahkan satu buah goupBox dan tambahkan didalamnya lima komponen Label, dan ubah captionnya masing-masing menjadi NIM, Nama Mahasiswa, Alamat, Nama Ayah, dan Nama Ibu

Search Box

dfggfgf