Master Delphi Free Delphi Tutorials Master Delphi The Way to learn delphi Akhirnya kebuka juga.. Mohon maaf jika web beberapa hari ini gak bisa dibuka karena kehabisan Bandwidth

Membuat Komponent TEDPanel

kali ini kita akan mencoba berekspresi membuat sebuah komponen, komponen ini sedikit unix, kalo anda sedang membuka delphi di form coding akan mendapatkan form dengan garis mendatar dan button di sebelah kanan dengan ukuran kecil ========X Penjelasan : Komponen ini turunan ... Baca selengkapnya » ================================================= Jumat, 29 Agustus 08 - oleh : edy | 0   comment

konsultasi program delphi

nama saya dewi, tolong...pak bantuin saya??gni pak saya lagi buat program simulasi buka tutup pintu otomatis, pintunya menggunakan Cd-Drive yg di manfaatkn motor stepernya aja dan menggunakan LPT-Port Printer koneksi ke hardwarenya.saya menggunakan software aplikasi pendukung namanya Giveio.sys.saya belum tau pak lebih dalam mengenai Giveio.sys trsbt, tolong bapak kasih ... Baca selengkapnya » ================================================= Jumat, 29 Agustus 08 - oleh : Dewi Sriyanti | 3   comment

Interbase , Firebird

Database server... Gratis gratis.. pake yang bayar juga boleh. Ada database server yang gratis selain MySQL dialah yang disebut firebird, database ini menggunkan format seperti Interbase punya abah Borland. Karena dia open source dari interbase maka bisa di dapat secara gratis.  file datanya biasa menggunakan extention .GDB atau FDB. namun ada yang unik ... Baca selengkapnya » ================================================= Senin, 25 Agustus 08 - oleh : edy | 0   comment

webcam

ni mau tanya bang.... gimana si cara masukin webcam / mengaplikasikan webcam menggunakan delphi? misal jika ntar gambar yang di ambil dlm bentuk gambar format bmp, gimana cara membentuk file tsb? terima kasih... ================================================= Sabtu, 23 Agustus 08 - oleh : andre | 1   comment

Fungsi Untuk mengecek user dan password

Untuk memvailadi user yang ingin menggunakan program maka perlu sebuah fungsi khusus untuk menangani masalah ini. sehingga user dan password yang digunakan benar benar terdaftar dalam database. untuk mengecek user dan password sesuai atau tidak kita cukup menggunakan perintah query. berikut ini fungsi yang mungkin menjadi bahan wacana atau menambah sedikit wawasan Function ... Baca selengkapnya » ================================================= Jumat, 22 Agustus 08 - oleh : edy | 0   comment

Mengambil Host Name dan IP Address

Terkadang dalam membuat program kita memerlukan nama host dan IP Address dari mesin komputer yang kita gunakan, misalnya untuk keperluan nama temporary file  (dalam lingkup pemrograman database client-server) atau sebagai catatan siapa saja yang pernah mengakses komputer server dan kapan kejadiannya. Kemampuan untuk mendeteksi hostname dan IP Address sangat diperlukan, ... Baca selengkapnya » ================================================= Jumat, 22 Agustus 08 - oleh : Mahmud Yunus | 0   comment

Menghitung User salah Login dengan Modal Result

Kali ini saya akan mencoba berkreasi dengan trik bagiamana kita menghitung atau meng counter user yang sedang login. Misalnya seorang user yang salah menginput password sebanyak 3x maka program otomatis ditutup atau di lock.. dengan sedikit contoh mungkin anda bisa melakukan kreasi yang lebih bagus tentunya.. kita menggunakan dua variabel yaitu salah, ... Baca selengkapnya » ================================================= Jumat, 22 Agustus 08 - oleh : edy | 0   comment

Sorting Pada DBgrid Menggunakan Adoquery

Menggunakan adoquery ternyata lebih mudah untuk mengurutkan data dalam sebuah dbgrid. yaitu dengan men click title dbgrid, lalu kita ambil fieldnya sebagai kunci pengurutan yang akan kita lakukan.  ADOQuery1.Sort:=dbgrid1.Columns[i].fieldname; berikut listingnya : procedure TForm1.DBGrid1TitleClick(Column: TColumn); var i:byte; begin     with TDBGrid(Column.Grid) do begin       for I ... Baca selengkapnya » ================================================= Kamis, 14 Agustus 08 - oleh : edy | 1   comment

[Unix] Management User I -->Get All Menu and Put to...

Untuk mengatur hak akses user pada sebuah aplikasi ada berbagai macam cara. Diantaranya adalah dengan mengeset menu menjadi enabled atau disabled. Masing masing user mempunyai data yang tersimpan dalam sebuah table yang berisi informasi menu apa saja yang bisa diakses oleh user yang sedang login. tekniknya setiap kali user berhasil login maka ... Baca selengkapnya » ================================================= Rabu, 13 Agustus 08 - oleh : edy | 0   comment

Meningkatkan kemampuan variable matriks hinggga ribuan

Kalo kita coba menset variable dalam bentuk matriks, ternyata kapasitas matriks yang dapat dihandle cukup kecil. Bagaimana cara meningkatkan kapasitas matriks, agar saya dapat mengolah data matriks hingga ribuan rows x ribuan columns? Terima kasih. Sidik Mulyono Delphi pemula ================================================= Rabu, 13 Agustus 08 - oleh : Sidik Mulyono | 0   comment

[Jawab] Matrix 100x100 simpan ke file

Untuk membuat matris hasilnya disimpan ke file kita butuh sebuah variabel untuk menyimpan nilai sampai satu buah looping selesai yakni 100X. baru setelah itu variabel kita simpan sehingga dalam file menjadi bentuk kotak 100x100 berikut listing programnya procedure TForm1.Button1Click(Sender: TObject); var sp,nstr:string; i,it,nt,n:integer; F: TextFile; begin ... Baca selengkapnya » ================================================= Selasa, 12 Agustus 08 - oleh : edy | 0   comment

Cara menympan data matriks 100 x 100 ke dalam file

Mas, Mau tanya nih. Saya sedang membuat program matriks 100 x 100, yang hasilnya akan di simpan ke dalam file. Bagaimana caranya agar pada saat perintah writeln setiap baris dapat terisi 100 kolom? Terima kasih. if SaveFile.Execute then   ... Baca selengkapnya » ================================================= Senin, 11 Agustus 08 - oleh : Sidik Mulyono | 2   comment

[Jawab] Sort Data On Title Click Pada DBgrid

Untuk sorting data kita bisa menggunakan teknik index atau menggunakan perintah SQL dengan perintah order by diikuti nama field yang diurutkan. Jika memakai index : Table1.close; Table1.indexfieldnames:='nama field'; Table1.open;   Jika kita menggunakan teknik SQL : Query1.close; Query1.sql.clear; Query1.sql.add('select * from table order by '+ urutfield); Query1.open;   Permasalahan yang dihadapi adalah bagaimana mendapatan nama field yang kita klik pada dbgrid title...! Berikut ... Baca selengkapnya » ================================================= Jumat, 08 Agustus 08 - oleh : edy | 0   comment

[Jawab] Tanya TTG database (ADO)

Untuk menampilkan semua table pada combobox atau listbox dengan database access. ini agak sedikit advance.. namun tidak mengapa , justru kita akan semakin pintar. Pertama yang perlu kita lakukan untuk demo ini adalah : buat new application tambahkan combobox atau listbox untuk menampilkan table yang ada ... Baca selengkapnya » ================================================= Kamis, 07 Agustus 08 - oleh : edy | 0   comment

[Jawab] Generate Code Pegawai Otomatis

Sebelumnya saya minta maaf, lama saya gak buka buka web, karena lagi ngerjakan Interprise untuk database mysql. jadi "Ora Kopen web'e ". baru buka artikel masuk ternyata ada 4 pertanyaan yang masuk. Saya akan coba menjawab satu persatu, semoga bisa membantu anda. Generate code otomatis memang memudahkan bagi user, namun terkadang membawa ... Baca selengkapnya » ================================================= Kamis, 07 Agustus 08 - oleh : edy | 0   comment

Sort data on title click DBGRID

saya mohon bantuannya, saya pengen mengurutkan data pada saat title dari dbgrid tersebut di kilk. trims ats pencerahanya.  ================================================= Rabu, 06 Agustus 08 - oleh : DENI | 0   comment

tanya ttg database

mas/ mbak gimana ci caranya nampilin semua data di database pake combobox... databasenya access n pake ado... bingung nie.. ================================================= Jumat, 01 Agustus 08 - oleh : Nita Cornella Handekowati | 0   comment

[Tanya] Hover Mouse

Salam kenal, saya sedang mencari cara untuk mengambil setiap karakter yang dilewati oleh mouse masuk kedalam Edit1. Jadi, misal sebuah Label berisi "EDY SOFTWARE", maka saat mouse berada diatas huruf "D", Edit1 juga berisi "D", ketika mouse berada diatas " " (spasi), Edit1 juga berisi " " (spasi), dst.. TQ. ================================================= Kamis, 17 Juli 08 - oleh : Hery Liem | 0   comment

generate kode pegawai otomatis

salam kenal kang master delphi.bagaimana caranya pada saat user A (Komputer1) dan user B (komputer2) membuka form yang sama misalnya form input data pegawai pada saat yang bersamaaan, tetapi user a menekan tombol tambah lebih cepat berapa milisecond dari user B menekan tombol tambah sehingga nomor pegawai user A = ... Baca selengkapnya » ================================================= Selasa, 15 Juli 08 - oleh : ricky | 0   comment

Mengimport Data Dari Excel

Kalau kemarin kita sudah membahas bagaimana cara mengexport table ke dalam sebuah file excel, sekarang kita akan belajar untuk mengimport data dari file excel ke dalam sebuah table. Sebelum kita melakukanpembuatan program kita harus menyediakan table data bisa berupa file dbf, acces, firebird, mysql atau paradox bawaan delphi. namun saya akan ... Baca selengkapnya » ================================================= Selasa, 15 Juli 08 - oleh : edy | 1   comment

Mengubah Tab menjadi Enter

Judul artikel ini agak rancu yaitu mengubah tab menjadi enter... apa maksud sebenarnya..? Dalam delphi kita sering membuat form input berupa edit atau dbedit. dari masing masing komponen edit untuk berpindah ke komponen edit yang lain kita biasanya menggunakan tombol tab. Nah bagaimana jika hal tersebut kita gantikan dengan tombol Enter.. berikut ... Baca selengkapnya » ================================================= Jumat, 04 Juli 08 - oleh : edy | 1   comment

Mewarnai DBgrid

Untuk membedakan record ganjil atau record genap alangkah baiknya kita coba untuk mewarnai dbgrid yang kita pakai. fungsi yang kita manfaatkan adalah fungsi Table.recno .  Fungsi ini untuk mengecek nomor record. sehingga kita uji apakah nomor record genap atau ganjil dengan menggunkan : if (Table1.RecNo mod 2)=0 then    fungsi ... Baca selengkapnya » ================================================= Jumat, 04 Juli 08 - oleh : edy | 0   comment

Mencari Weton atau Pasaran

Bagi paranormal indonesia sudah tidak asing lagi dengan istilah weton, pasaran. namun kali ini mari kita coba membuat fungsinya dalam delphi. berikut contoh lengkapnya : unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; ... Baca selengkapnya » ================================================= Jumat, 04 Juli 08 - oleh : edy | 0   comment

Mencari Weton atau Pasaran

Bagi paranormal indonesia sudah tidak asing lagi dengan istilah weton, pasaran. namun kali ini mari kita coba membuat fungsinya dalam delphi. berikut contoh lengkapnya : unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; ... Baca selengkapnya » ================================================= Jumat, 04 Juli 08 - oleh : edy | 0   comment

Master & Detail Table

Dalam sebuah transaksi yang melibatkan beberapa item dalam satu kali transaksi maka kita membutuhkan relasi tabel yang dikenal dengan Master dan Detail. Misalnya kita membuat program penjualan pada saat transaksi dengan nomor penjualan J001 pada tanggal 10 Juli 2008 dengan beberapa item sebagai berikut : 1. buku 3 buah ... Baca selengkapnya » ================================================= Jumat, 04 Juli 08 - oleh : edy | 0   comment

Membalik Layar Desktop

Saatnya untuk bermain-main, kali ini kita akan mencoba mengcapture/ mengambil screen yang ada pada desktop, kemudian hasil capture terbalik ini kita transfer ke ke desktop lagi sehingga kelihatan layar kita jadi terbalik. jadi anda jangan kaget jika mempratekan simulasi ini. Untuk menghapus agar kemabli seperti semula dektop anda, anda cukup menggerakan ... Baca selengkapnya » ================================================= Sabtu, 28 Juni 08 - oleh : edy | 0   comment

Menampilkan semua table pada ComboBox

Bagaimana mendapatkan nama nama table dalam sebuah koneksi database dalam delphi...? Koneksi ini bisa berupa Tdatabase dalam BDE atau bisa menggunkan koneksi yang lain , baik itu ADOConnection, Zeos, IBDatabase atau komponen yang lain. Namun kali ini kita akan mencoba menggunakan database yang sudah ada yaitu DBDEMOS. Jadi kita cukup menggunakan koneksi ... Baca selengkapnya » ================================================= Sabtu, 28 Juni 08 - oleh : edy | 0   comment

Mengecek Component dari Class Component

Dalam membuat sebuah program biasanya kita sering mengosongkan form inputan dulu sebelum data terbaru di masukan. Hal seperti ini sudah lazim dilakukan untuk membantu user membedakan antara perintah input data baru dengan input data koreksi. Apabila kita menggunakan komponen TEdit maka kita sering menggunakan perintah edit1.text:=''; artinya kolom edit1 dikosongkan nilainya. ... Baca selengkapnya » ================================================= Kamis, 12 Juni 08 - oleh : edy | 0   comment

Membuat Title Bar Dari Panel

Paling suka kalo belajar itu yang aneh aneh alias tidak konvensional.... Ngomong ngomong soal semen... eh yang aneh aneh mari kita mencoba untuk membuat title bar yang unconvensional.. kata si mbok ora umum.. title bar kali ini kita buat dengan sebuah panel. jadi kita bisa menggeser form pada panel yang kita ... Baca selengkapnya » ================================================= Kamis, 29 Mei 08 - oleh : edy | 0   comment

Mendeteksi Versi Program, Originalitas

Sebuah program biasanya dilengkapi dengan informasi di bawah ini : Versi Program Nama Perusahaan Nama website dan masih banyak lagi, untuk mengisi informasi di atas kita bisa masuk melalui menu : Project--> Options--> pilih Tab Version Info seperti gambar ... Baca selengkapnya » ================================================= Jumat, 23 Mei 08 - oleh : edy | 0   comment

tanya pak.

mohon bantuannya. saya baru belajar delphi. saya ingin mencoba membuat delphi untuk aplikasi running text seperti di metro tv (text yg berjalan di bawah layar), play image/ animasi format sembarang. still text/ image. dan klo bisa play video. tapi tampilannya bisa dual view jd hasil aplikasi tampilannya di monitor seconadary. mhn pertolongannya.. terima kasih. ... Baca selengkapnya » ================================================= Senin, 05 Mei 08 - oleh : ahmad badik | 9   comment

Daftar Component VCL

Bagi Yang berminat ingin mendapatkan koleksi component baik yang free maupun yang beli anda bisa memesan pada kami : sms ke : 0331-7799690 atau 08124907308   harga cd koleksi Rp 15.000,- ongkos kirim Rp. 15.000,-    hasil screen shoot component akan segera diupload  ================================================= Senin, 28 April 08 - oleh : edy.sutrisno@ | 1   comment

Nama dan Serial Number Hardisk Drive C:

Satu lagi sebuah cara untuk mendeteksi drive baik nama maupun serial numbernya. dan juga format fat dari hardisk yang kita pakai. Ooo yaa komponen yang perlu ditambahkan adalah button1 dan memo1.  Untuk lebih lengkapnya di bawah ini list program : unit Unit1; interface uses   Windows, ... Baca selengkapnya » ================================================= Senin, 28 April 08 - oleh : edy | 1   comment

Membuat Table Paradox Secara Run Time

Di kesempatan ini kita akan mencoba membuat table paradox pada saat aplikasi sedang berjalan. jadi pada saat button1 di click maka table pegawai.db otomatis dibuat. yang perlu ditambahkan adalah beberapa komponen yaitu button1, buton2, query1, datasource1, dbgrid1. Button1 untuk membuat table, Button2 untuk membuka table yang hasilnya ditampilkan pada dbgrid1  berikut ini listing programnya ... Baca selengkapnya » ================================================= Senin, 28 April 08 - oleh : edy | 0   comment

Menulis Registry Restrictions 2

Untuk mengubah nilai registry kita harus mengarahkan rootkey yang akan diubah atau ditulisi. dibawah ini adalah rootkey yang ada pada windows XP  HKEY_CLASSES_ROOT : rootkey ini secara umum untuk mengatur file dan folder, mengelompokan jenis file, sehingga pada saat file didouble click pada windows explorer maka file otomatis terbuka. selain itu ... Baca selengkapnya » ================================================= Jumat, 11 April 08 - oleh : edy | 0   comment

Menulis Data Ke File Text

Kali ini kita akan membuat demontrasi penulisan text kedalam sebuah file txt kemudian file tersebut kita baca perbaris dan ditampilkan kedalam showmessage();  var    myFile : TextFile;    text   : string;    begin    // buka file test.txt    AssignFile(myFile, 'Test.txt');    ReWrite(myFile);      // Tulis text ke dalam file sebanyak 2 baris    WriteLn(myFile, ... Baca selengkapnya » ================================================= Selasa, 08 April 08 - oleh : edy | 0   comment

Mengubah Transparansi Form

Delphi versi 6 keatas sudah menyediakan fungsi/properti untuk mengubah transaparansi form. nilai ini mulai dari terang(transparan) sampai gelap(tidak transparan). Nilai gelap dan terang ini ditampung dalam sebuah properti AlphaBlendValue , Sedangkan untuk mengaktifkan fungsi ini ada pada properti Alphablend=True. Untuk simulasinya kita gunakan sebuah komponen TrackBar, dengan komponen ini kita akan mengubah ... Baca selengkapnya » ================================================= Sabtu, 05 April 08 - oleh : edy | 0   comment

[Jawab] Coding Delphi Restrictions Program Warnet 2

Sebagai implementasi /penerapan restrictions pada program biling warnet, kita akan memanfaatkan unit Registry. Program restrictions ini kita tambahkan pada billing client. Tekniknya program billing client diberikan password khusus untuk mensetting restrict ini. sehingga pelanggan warnet tidak bisa mengaksesnya. jadi saat pertama kali program mau  dijalankan admin warnet harus mengeset restrictions ini. Sekarang kita ... Baca selengkapnya » ================================================= Jumat, 04 April 08 - oleh : edy | 0   comment

[Jawab] Restrictions Program Warnet 1

Demi keamanan pada biling warnet anda terutama pada komputer client, seorang pengembang usaha warnet dapat memanfaatkan editor regsitry untuk meng customize. Data ini sebenarnya tertampung pada database windows yaitu pada file User.Dat, beberapa contoh kunci (key) yang dapat ditambahkan. Caranya : Start -->Run --> ketik Regedit -->tekan Enter kunci kunci ... Baca selengkapnya » ================================================= Jumat, 04 April 08 - oleh : edy | 0   comment

[Tunix] IP Address.....?

Untuk mendaptkan nomor IP pada komputer sendiri    function TForm1.LocalIP: string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: array [0..63] of char; ... Baca selengkapnya » ================================================= Kamis, 03 April 08 - oleh : edy | 0   comment

Tanya

Saya sudah buat Billing Warnet pakai DELPHI. Program ini ingin saya jalankan sebelum Windows Desktop muncul. Supaya pemakai harus Login via Billing Warnet tersebut. Saya sudah coba dari Startup Windows. Walaupun program tersebut memang muncul duluan tapi untuk menjalankan Windows tidak harus login dulu dari program billing warnetnya. Gimana caranya supaya yang dijalankan ... Baca selengkapnya » ================================================= Rabu, 02 April 08 - oleh : Herdy | 2   comment

[Tunix] Fungsi Membuka dan Menutup CD Room

Untuk membuka dan menutup CD room kita memanfaatkan file winmm.dll function mciSendStringA(lpstrCommand, lpstrReturnString: PAnsiChar; uReturnLength: UINT; hWndCallback: HWND): integer; stdcall; external 'winmm.dll'; // membuka Cd Room procedure opencd; begin mciSendStringA('Set cdaudio door open wait', nil, 0, 0); end; // Menutup Cd Room procedure closecd; begin ... Baca selengkapnya » ================================================= Senin, 31 Maret 08 - oleh : edy | 0   comment

[Tunix] Mengecek Informasi Komputer

Berikut ini script untuk mengecek jenis operasi windows, disk drive, cd room dan informasi lainnya. Dimana hasil informasi tersebut tertampung pada variabel STR procedure windowsinfo; const typstr:array[DRIVE_REMOVABLE..DRIVE_RAMDISK] of string[9]= ('Removable','Fixed','Network','CD-ROM','RAM'); var str:string; ov:_osversioninfoa; buf:array[0..255]of char; ... Baca selengkapnya » ================================================= Senin, 31 Maret 08 - oleh : edy | 0   comment

[unix] Menggambar Tengkorak dengan Huruf

kita bisa mencetak atau menampilkan gambar tengkorak pada layar desktop menggunakan font. berikut ini script yang bisa digunakan procedure gambar; var deskdc:hdc;     f:hfont;     p:hpen;     b:hbrush;     lb:tlogbrush; begin   deskdc:=getwindowdc(getdesktopwindow);   f:=createfont(500,400,0,0,400,0,0,0,SYMBOL_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,DEFAULT_PITCH,'Wingdings' );   selectobject(deskdc,f);   p:=createpen(PS_SOLID,3,$FF); selectobject(deskdc,p);   setbkmode(deskdc,TRANSPARENT); settextcolor(deskdc,$FF);   lb.lbStyle:=BS_HOLLOW; b:=createbrushindirect(lb); selectobject(deskdc,b);   ellipse(deskdc,0,0,getsystemmetrics(SM_CXSCREEN),getsystemmetrics(SM_CYSCREEN));   ... Baca selengkapnya » ================================================= Senin, 31 Maret 08 - oleh : edy | 0   comment

Mengirim Hint atau Tooltips pada Status Bar

Hint atau tooltips yaitu sebuah text yang tampil apabila cursor diarahkan ke sebuah object. misalnya kita mengarahkan pada sebuah button maka aplikasi memunculkan text petunjuk yang bisa menjadi panduan bagi seorang operator program. Hint ini biasanya dimunculkan di statusbar atau dalam bentuk baloon.. Dalam delphi untuk mengaktifkan hint kita menggunakan perintah ... Baca selengkapnya » ================================================= Senin, 10 Maret 08 - oleh : edy | 0   comment

Mengecek Variabel Angka Atau Bukan

Dalam beberapa kasus sering kita membutuhkan validasi untuk mengecek variabel yang kita inputkan termasuk angka atau bukan. Maksudnya alpabet atau numerik. Berikut ini contoh penggunaan fungsi Isnumeric yaitu fungsi untuk mengecek apakah berbentuk angka atau bukan dari suatu inputan string. Buat aplikasi baru dan tambahkan komponen Tbutton dan Tedit. kemudian pada button1 ... Baca selengkapnya » ================================================= Kamis, 06 Maret 08 - oleh : edy | 0   comment

Menampilkan Tabel dari Alias BDE

Kali ini kita akan membahas bagaimana menampilkan list tabel dari nama Alias BDE ke dalam sebuah komponen Memo. Kita menggunakan fungsi fungsi dari BDE, Pada kesempatan ini kita gunakan Alias 'DBDEMOS' , karena alias ini otomatis ada di setiap kita menginstall program delphi. Untuk menampilkan nama nama tabel yang ada pada sebuah ... Baca selengkapnya » ================================================= Selasa, 26 Februari 08 - oleh : edy | 0   comment

[Jawab] Mengubah Angka Jadi Huruf (terbilang)

Ini ada fungsi dari website tetangga sony-ak.com dari pada susah susah mikir mending manfaatkan yang sudah ada dan free cara pakainya begin label1.caption:=terbilang(strtoint(edit1.text));  end;    function Terbilang(x:integer):string; const abil : array[0..11] of string[10]=('','satu','dua','tiga', 'empat','lima','enam','tujuh','delapan','sembilan', 'sepuluh','sebelas'); begin if (x < 12) then Result := ... Baca selengkapnya » ================================================= Kamis, 21 Februari 08 - oleh : edy | 0   comment

[Jawab] Mengecek Jendela anak MDI

Untuk mengecek apakah jendela anak sudah ada apa belum, kita menggunakan logika penelusuran pada aplikasi dengan mengecek caption pada form anak di bawah ini fungsinya function TMainForm.CekWinAnak(judul:string):boolean; var   J,I: Integer;   F:tform;   FClientHandle:hwnd; begin Result:=false;   if (f.FormStyle = fsMDIForm) and (FClientHandle <> 0) then     for J := 0 ... Baca selengkapnya » ================================================= Rabu, 20 Februari 08 - oleh : edy | 2   comment

MDI Child dan Form lookup

untuk membebaskan form child pada saat ditutup pada onlclose tambahkan perintah Action := caFree; procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction); begin   Action := caFree; end;   memanggil form normal  procedure TMDIChild.Button1Click(Sender: TObject); begin try if flookup.showmodal=1 then begin edit1.Text:= flookup.Table1.Fields[0].AsString; edit2.Text:= flookup.Table1.Fields[1].AsString; end; except showmessage('form sudah tampil..,jadi lookup harus dulu'); flookup.Close; end; end;   source code  http://www.edysoftware.com/delphi/MDI-Lookup.zip ================================================= Rabu, 20 Februari 08 - oleh : edy | 0   comment

[Jawab] Export Data Dari DBgrid ke Excel

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,comobj, StdCtrls, DB, DBTables, Grids, DBGrids; type TForm1 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; Table1: TTable; ... Baca selengkapnya » ================================================= Rabu, 20 Februari 08 - oleh : edy | 1   comment

Tanya TExport Excel

Maaf  Klo berkenan Mau nyanya klo Export data ke exel banyak row & colum gimana ..? Contonya :  gua sekarang pake komponen : ADOConection1 ADODataset1 DataSource1 DBGrid1 Datetimepicker1 Datetimepicker2 Button1(untuk tampilkan data) Button2 (untuk export data ke Exel) AdoDataset1.commandtext nya ... Baca selengkapnya » ================================================= Rabu, 16 Januari 08 - oleh : DD | 0   comment

Jendela anak MDI

Bagaimana cara untuk mengetahui apakah suatu jendela anak MDI sudah aktif atau belum ? Saya ingin membuat aplikasi, jika sebuah jendela anak MDI sudah aktif maka aplikasi akan menjalankan suatu perintah jika belum menjalankan suatu perintah lain.  Terima kasih ================================================= Rabu, 12 Desember 07 - oleh : Albert | 0   comment

masalah free form

Aku bikin mdi form & child form plus aku tambahkan form normal sbg form referensi (lookup table). aku pake Delphi 6. Masalahnya begitu aku buka form lookup itu dan kemudian aku close form tsb lalu aku buka kembali  muncullah pesan "acces violated of address 0000000....". padahal aku sdh tambahkan event ... Baca selengkapnya » ================================================= Selasa, 11 Desember 07 - oleh : Juan Hernawan | 1   comment

Export data dari Access ke Notepad

gimna bos caranya?? confuse neh....! wa pengen buat kayak export data SID dalm bntuk txt ================================================= Kamis, 06 Desember 07 - oleh : Dino Lampung | 1   comment

Menu Dari TreeView

function GetNodeByCaption(ACurrNode: TTreeNode; const ACaption: String): TTreeNode; var   ANode: TTreeNode; begin   Result:=nil;   ANode:=ACurrNode;   while ANode<>nil do begin          if AnsiSameCaption(ACaption, ANode.Text) then             begin                Result:=ANode;                exit;             end          else            begin             ANode := ANode.getFirstChild; ... Baca selengkapnya » ================================================= Kamis, 06 Desember 07 - oleh : edy | 0   comment

IP Address

Mau tanya Bos ... Bagaimana cara mendapatkan banyak IP Address komputer lain yang terkoneksi jaringan sama komputer kita, trs bagaimana cara memberi perintah ke komputer lain melalui alamat IP Address yg kita dapat. Mungkin begitu aja ... ditunggu jawabanya .   ================================================= Jumat, 23 Nopember 07 - oleh : Imam | 0   comment

Retrieve the volume and the serial number of a harddisk

Retrieve the volume and the serial number of a harddisk or floppy The following source code was provided to DELPHI-L by Paul Sobolik --- unit VolInfo; interface uses Windows; ... Baca selengkapnya » ================================================= Selasa, 20 Nopember 07 - oleh : edy | 0   comment

konversi angka menjadi huruf terbilang

sy baru belajar pemograman dan sy memilih delphi karena buat sy cocok.sy mendapat permasalahan bagaimana cara membuat program yang bisa mengkonversi angka menjadi terbilang.contoh 1000 menjadi seribu, 11 menjadi sebelas, 911 menjadi sembilan ratus sebelas dan seterusnya.terimaka kasih atas bantuannya ================================================= Sabtu, 06 Oktober 07 - oleh : arif | 0   comment

[ CanClose ] Konfirmasi saat Form ingin ditutup...

untuk menghindari pentutpan form yang tidak sengaja, kita dapat melakukan dengan antisipasi yaitu sebuah pertanyaan apakah form tersebut benar benar ingin ditutup. Dalam delphi ada sebuah event yang bertanggung jawab dalam masalah ini. Event ini berjalan sesaat sebelum event OnClose. Event ini namanya event OnCloseQuery. Sehingga  kita harus ... Baca selengkapnya » ================================================= Sabtu, 29 September 07 - oleh : edy | 0   comment

Events OnCreate, Onshow, Onclose dan Ondestroy

Dalam pembuatan program di delphi dikenal adanya beberapa event atau kejadian. pada even ini kita bisa membuat sebuah perintah, misalnya pertanyaan pada user, pengecekan form, perangkat, database dan sebagainya sehingga program berjalan sesuai yang diinginkan. Selain itu juga bisa dimanfaatkan untuk validasi. sebagai contoh pada saat form ... Baca selengkapnya » ================================================= Sabtu, 29 September 07 - oleh : edy | 0   comment

Membuka registry yang disabled by virus

unit Unit1; interface uses   Windows, Messages, SysUtils,registry, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   ... Baca selengkapnya » ================================================= Rabu, 26 September 07 - oleh : edy | 0   comment

Membuat Laporan dengan Qreport

Tujuan dalam pembuatan aplikasi adalah data ouput yang berupa laporan. baik laporan yang tampil di layar maupun yang tercetak ke dalam kertas. dengan laporan ini seorang pemilik perusahaan akan terbantu dalam mengambil sebuah keputusan. apakah perusahaan tersebut mengalami kemuduran atau kemajuan jika laporannya adalah rugi laba. Seorang bagian gudang atau ... Baca selengkapnya » ================================================= Jumat, 07 September 07 - oleh : edy | 0   comment

Ingin Konsultasi ...?

Bagi anda yang ingin kosultasi tentang delphi, silahkan pilih menu kirim artikel terus pilih topik Tkonsultasi kami akan selalu seap menjawab  pertanyaan anda. selama kami mampu dan akan kami share hasil diskusi kita...   ================================================= Senin, 23 Juli 07 - oleh : edy | 0   comment

Mencegah Aplikasi Berjalan Dua Kali

Bagimana mencegah applikasi kita berjalan dua kali...? sehingga apabila aplikasi sudah berjalan dalam sebuah komputer, maka aplikasi tersebut tidak bisa dijalankan lagi. Dalam delphi fungsi ini terdapat dalam unit windows yaitu createmutex. syntax function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; begin   Result := _CreateMutex(lpMutexAttributes, Integer(Boolean(bInitialOwner)), lpName); end; Dengan fungsi ... Baca selengkapnya » ================================================= Kamis, 19 Juli 07 - oleh : edy | 0   comment

Membuat Alias BDE Runtime

Penggunaan alias BDE sangat dibutuhkan dalam program, utamanya aplikasi dekstop dengan database paradox. dengan alias BDE akan memudahkan pengesetan database. Karena cukup menggunakan satu pintu atau gateway yaitu cukup memanggil nama alias. Keuntungannya kita bisa mengubah ubah alamat direktory database. Untuk membuat alias BDE kita bisa membuka stting ... Baca selengkapnya » ================================================= Kamis, 12 Juli 07 - oleh : edy | 0   comment

[Tunix] Progressbar Seperti Compiler Delphi

Edysoftware ada sedikit trik unix.. bagaimana membuat proses looping yang panjang dan tidak membosankan bagi user yang menjalankan program kita. Sehingga sambil menunggu proses looping berakhir ada sesuatu yang bergerak di layar komputer. Sebagai contoh kita bisa melihat dialog progress pada saat kita mengcompile program yang kita buat. Berawal ... Baca selengkapnya » ================================================= Kamis, 12 Juli 07 - oleh : edy | 0   comment

Fungsi IsAngka(const text: string): Boolean;

Beberapa kasus terkadang menyulitkan dalam melakukan validasi terhadap inputan dari sebuah tedit yang bernilai string. kasus ini akan muncul jika kita menggunakan tedit sebagai inputan sedangkan validasi yang kita inginkan adalah user harus menginput karakter berupa angka 0 sampai 9. untuk inputan selain angka harus ditolak. Contoh ini bisa kita dapatkan ... Baca selengkapnya » ================================================= Rabu, 11 Juli 07 - oleh : edy | 0   comment

[Bagian 1] Looping For .. to .. Do

Setiap pemrograman mengenal istilah loop, yaitu proses pengulangan perintah atau aktifitas yang sama. Salah satunya adalah For ... Do , looping ini jenis pengulangan yang tidak bersyarat. artinya aktifitas atau perintah akan dilakukan sebanyak kondisi yang telah di tetapkan dan proses akan keluar dari blok loop setelah memenuhi ... Baca selengkapnya » ================================================= Rabu, 11 Juli 07 - oleh : edy | 0   comment

Metode mengakses Ttable

Beberapa hal yang harus diperhatikan untuk menggunakan komponen Ttable dari pallet BDE. ada beberapa properti yang harus diisikan sehingga database bisa tersambung dengan form. Kita bisa mengsisi properti tersebut pada saat form design atau bisa juga diisikan dengan perintah. beberapa properti tersebut adalah : DatabaseName : TableName : ... Baca selengkapnya » ================================================= Rabu, 11 Juli 07 - oleh : edy | 0   comment

70 Tutorials Before »

Tutorials

Tdelphi Delphi Tutorials/ Delphi Enviroment Treserved Word key word Ttype Data All About Data types Tstatements All about statements Tprocedures contoh penggunaan prosedur Tfunctions Contoh penggunaan fungsi TDatabase metode akses database TBDE All about Borland Database Engine Tregistry penggunaan registri Tqreport membuat laporan TExport Excel All about export data to excel TFile Directory manage file and directories Tprinter berbgai metode mencetak ke kertas Tindy pengunaan komponen indy Tunix unix tips and triks TKonsultasi bagi anda yang ingin berkonsultasi silahkan kirim artikel di Topik Tkonsultasi. Kami jawab selama kami mampu VCL Component Component VCL third party