Mematikan Komputer Win**** 7 menggunakan perintah command prompt

Caranya :
- Tekan WIN + R
- cmd [enter]
- shutdown -s [enter] atau
- shutdown /s /t 10 [enter]

opsi /s adalah perintah shutdown /r adalah restart /a abort shutdown ( untuk membatalkan shutdown ) /t adalah waktu dalam detik / second jadi /t 10 adalah shutdown dalam 10 detik. semoga bermanfaat.

Kenapa sih kecepatan internetku lambat ? GSM

Pertama tama kita harus tau faktor faktor alat pendukung internet.

- Bandwidth ISP (Internet Service Provider). Ex : Speedy, Indosat Broadband, Axiata, T-Sel dan lain lain.
- Coverage. (Area).
- Modem.

Bandwidth ISP adalah kecepatan yang dialirkan kepada pengguna (user) yang biasanya di tentukan dari awal pendaftaran (registrasi) kita disuguhkan berbagai pilihan paket volume, unlimited, atau pun time based.
bandwidth yang diberikan itu lah yang akan kita gunakan. gambaran nya seperti kita di suruh menentukan jalan mana yang akan kita gunakan ? Jalan Tol 8 jalur ? Jalan Tol 4 jalur ? Jalan Raya 2 Jalur ? atau Jalan sempit 5 meter. disitu kita akan ditempatkan sebagai kendaraan. kendaraan kita adalah modem. kenapa ? karena modem adalah penerjemah data streaming analog yang berupa sinyal / getaran berfrekuensi sesuai dengan media carrier, Frekuensi 3G,3.5G,4G dsb, menjadi data digital. data digital itu lah yang masuk ke komputer kita dan diterjemahkan lagi oleh browser/software yang kita gunakan. kembali ke bandwidth, dan modem sebagai kendaraan.

-bayangkan jika kalian punya mobil sport (yang kenceng buat balapan) keren nih bisa jalan 500KM/Jam, Jalan di jalanan 2 jalur yang jalannya berlubang". apa yang terjadi ? pasti jalannya lambat wkkwkwkwk.
gambaran diatas Jalan 2 jalur adalah Bandwidth dan mobil sport adalah modem.
sinyal adalah lubang" dijalan, makin sedikit sinyal yg kita tangkap makin dalam lubang yg dilalui. tapi tergantung coverage area lagi, kalau traffic sedikit mungkin masih bisa berselancar dengan nyaman. 
nah belum lagi klo coverage area-nya padat / rame. yakin lah kalian sudah bisa membayangkan.

jadi gunakan paket internet sesuai kantong dan modem sesuai dengan bandwidth yang kita pakai. gak perlu mahal yang penting nyaman digunakan :)

CMIIW ( Correct Me If Im Wrong )

Step - Step Install IDM + Crack

Siapkan Bahan-bahan berikut.

IDM. direct link.
http://mirror2.internetdownloadmanager.com/idman618build5.exe?b=1&filename=idman618build5.exe

IDM crack
http://www.sharebeast.com/6yyyyyh7px99

1.Cara Install IDM standart lah. tinggal tekan enter" ampe finish.

2.Terminate proses idm, pilih salah satu cara saja.

3.Extract crack p.i.d.m_www.software-word.blogspot.com.rar

4.Run/Jalankan/Klik2x IDM.v6.xx.release.3-patch.exe.
5.Klik Patch.
6.Isi First_Name = Nama Depan [ Isi sembarang aja gak masalah ]
7.Isi Last_Name = Nama Belakang [ Isi Sembarang juga gak masalah ]

8.Tulisan Patch Done Muncul, artinya berhasil. jika Failed, kembali ke langkah 2.

=============================================================

sumber : software-word.blogspot.com

Cek Lokasi IP kamu

http://en.utrace.de/ Klik Link disamping kalau iseng" cek IP server kamu

- Semoga Bermanfaat.

Paket SMS Indosat IM3

Indosat tergolong mahal untuk sms reguler, memang sih 2x sms bisa dapat sms gratis tapi kalau dilihat, 2x sms dapat sms gratis itu periodik antara jam jam yg ditentukan jadi sehari bisa saja untuk sms habis sampai 1.500 rupiah. itu kira" hanya mengirim 8 sms, nah dibanding menghabiskan pulsa 1500 untuk 8 sms mending beli paket sms yg hanya 5000 rupiah dengan masa 1 bulan sebanyak 333 sms. lebih murah bukan ?

caranya :
SMS 5000 KIRIM KE 303 = 333 SMS masa aktif = masa aktif pulsa.
SMS 10000 KIRIM KE 303 = 666 SMS masa aktif = masa aktif pulsa.

paket berlaku sampai masa aktif habis.
*ini juga sebagai arsip saya ketika lupa menaruh dimana catatan cara membeli paket sms.

[ Tutorial ] Membuat Trainer, Cheat Engine 6.3

Gambar 1. Kegunaan Trainer ( Mengatur Value Ke Nilai Tertentu ).

Gambar 2. Kegunaan Trainer ( Lock Value ).

Gambar 3. ( Mengatur Value Ke Nilai 200 ). Ketika Menekan F10. *[ Value bisa di atur sesuai keinginan pembuat trainer. ]

Oke, Itu Spoiler dan Fungsi Trainer. Sekarang Cara Membuatnya. Ikuti Langkah-langkah pada gambar.

Gambar 4. File > Generate generic trainer lua script from table.

 - Klik, File > Generate generic trainer lua script from table.
* Pastikan Process game.
* Pastikan address speed sudah di dalam tabel. 

Gambar 5.

 - 1 dan 2 adalah bersifat opsional, boleh di ubah, boleh juga dibiarkan saja seperti yg sudah tampil.
*1. untuk mengubah Judul Trainer yg akan kita buat.
*2. untuk mengubah dekripsi pada About. yang pengen narsis bisa aja di ganti. "Trainer ini dibuat oleh UDIN GALAU"

- 3. Klik Add Hotkey. Untuk melanjutkan.

Gambar 6.

 - muncul jendela Cheat Entries.
- jika address pada tabel pertama lebih dari 1 maka akan muncul beberapa address.
* biasanya bernama "No Description" jadi sebaiknya dilihat lagi urutan address yg akan dipilih.
- setelah yakin dangan addressnya, klik OK. step 4.

Gambar 7.

 - 5.1 Tentukan Hotkey yg akan di gunakan, disini saya menggunakan F10, F11, dan F12. untuk tiap" perintah nantinya.
* Pertama saya menggunakan F12, untuk mengunci value.
- 6.1 Pilih Toggle Freeze.
- 7.1 Isi Dengan Kegunaan. disni saya mengisi Kunci. ( ini akan tampil pada trainer nantinya ).
- 8.1 Klik Apply, Dan selanjutnya > OK.

* Belum Selesai, Klik lagi Add Hotkey. jendela Cheat Entries akan muncul lagi. Klik OK.
- 5.2 Hotkey Selanjutnya adalah F11,
- 6.2 Pilih Set Value To.
* Isi Kotak dibawah 6.2 tadi dengan Value yg diinginkan. Contoh 200.
- 7.2 Ini akan saya isi dengan Speed 200.
- 8.2 Klik Apply, dan selanjutny > OK.

* Ulangi lagi jika ingin Menambahkan Value yg berbeda.
- Klik lagi Add Hotkey. jendela Cheat Entries akan muncul lagi. Klik OK.
- 5.3 Hotkey Selanjutnya adalah F10,
- 6.3 Pilih Set Value To.
* Isi Kotak dibawah 6.3 tadi dengan Value yg diinginkan. Contoh 180.
- 7.3 Ini akan saya isi dengan Speed 180.
- 8.3 Klik Apply, dan selanjutny > OK.

Gambar 8.

 * Kira-kira seperti ini lah tampilannya setelah melakukan langkah-langkah diatas.
- Langkah Selanjutnya Klik Generate trainer [ 10 ].

Gambar 9.

- Pilih Tiny. [ 11 ].
- Klik Generate [ 12 ].
- Beri Nama File tadi sesuai selera. contoh : TrainerAO.exe
* Pilih Folder penyimpanan yg mudah di temukan.

Sekian dan terima kasih, semoga bermanfaat.

Mouse wheel behaves strangely with dbgrids ( pindah record pake scroll mouse )

this code handler will correct this behavior.

Paste code dibawah ini pada public declaration :
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

Paste code dibawah ini dibawah impelentasi : ( TForm1 Sesuaikan dengan nama form kerja contoh : TMenu_Utama )

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
a: Smallint;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
a := HiWord(Msg.wParam);
if a > 0 then
Msg.wParam := VK_UP else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;


View Unit ( CTRL + F12 ). dan pilih project1 (sesuaikan dengan nama projek )
Paste code berikut

Application.OnMessage :=Form13.AppMessage;
Application.Run; // ini sudah ada pada coding. yg dipaste hanya 1 baris diatas.

original http://delphi.about.com/cs/adptips2002/a/bltip1102_3.htm


Just drop a TApplicationEvents ("Additional" tab on the Component Palette) component on a form and handle it's OnMessage event as:
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.ApplicationEvents1Message
   (var Msg: TMsg; var Handled: Boolean) ;
var
   i: SmallInt;
begin
   if Msg.message = WM_MOUSEWHEEL then
   begin
     Msg.message := WM_KEYDOWN;
     Msg.lParam := 0;
     i := HiWord(Msg.wParam) ;
     if i > 0 then
       Msg.wParam := VK_UP
     else
       Msg.wParam := VK_DOWN;

     Handled := False;
   end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

Note: This fixes the mouse wheel behavior not only for DBGrid-s but for all other list component (TListBox, TListView, etc).

Kalkulator Waktu

Karena saya agak lama kalau menghitung jam. jadi saya buat ni program buat ngitung waktu.
dalam kasus saya kesulitan untuk mengetahui delay Dungeon Guild, Dungeon Nation. atau Individual Dungeon dalam game AO. 40jam kedepan jam brp ya ?

atau yg pengen ngitung waktu penuhnya energi di game facebook. hehehe

3 menit 1 energy, atau 5 menit 1 energy dan lain sebagainya.
contohnya energy yg tersisa 1/110 energy. untuk 1 energy butuh 3 menit.
jadi perkiraan penuhnya energy ( 110 - 1 = 109 energy yg ditunggu ).
109 energy di kalikan 3 menit = 327 menit. nah lho jam brp itu 327 menit kedepan ? bingung kan hahaha.
dengan menggunakan kalkulator ini diharapkan pengguna bisa langsung mengetahui hasil nya :)

nah liat gambar 327 menit kedepan adalah jam 9 pagi. 

Enak kan ? langsung disedot aja Download

IF sederhana

buatlah form seperti gambar brikut : 

pada button1 klik 2x dan isi perintah berikut : 

FormatDateTime pemrograman Delphi

ini sekedar catatan saya jika lupa syntax hehe...

Example code : Showing all of the date field formatting data types

var   myDate : TDateTime; begin   // Set up our TDateTime variable with a full date and time :   // 5th of June 2000 at 01:02:03.004  (.004 milli-seconds)   myDate := EncodeDateTime(2000, 6, 5, 1, 2, 3, 4);   // Date only - numeric values with no leading zeroes (except year)   ShowMessage('              d/m/y = '+               FormatDateTime('d/m/y', myDate));   // Date only - numeric values with leading zeroes   ShowMessage('           dd/mm/yy = '+               FormatDateTime('dd/mm/yy', myDate));   // Use short names for the day, month, and add freeform text ('of')   ShowMessage('  ddd d of mmm yyyy = '+               FormatDateTime('ddd d of mmm yyyy', myDate));   // Use long names for the day and month   ShowMessage('dddd d of mmmm yyyy = '+               FormatDateTime('dddd d of mmmm yyyy', myDate));   // Use the ShortDateFormat settings only   ShowMessage('              ddddd = '+               FormatDateTime('ddddd', myDate));   // Use the LongDateFormat settings only   ShowMessage('             dddddd = '+               FormatDateTime('dddddd', myDate));   // Use the ShortDateFormat + LongTimeFormat settings   ShowMessage('                  c = '+               FormatDateTime('c', myDate)); end;

Show full unit code

d/m/y = 5/6/00               dd/mm/yy = 05/06/00      ddd d of mmm yyyy = Mon 5 of Jun 2000    dddd d of mmmm yyyy = Monday 5 of June 2000                  ddddd = 05/06/2000                 dddddd = 05 June 2000                      c = 05/06/2000 01:02:03

Example code : Showing all of the time field formatting data types

var   myDate : TDateTime; begin   // Set up our TDateTime variable with a full date and time :   // 5th of June 2000 at 01:02:03.004  (.004 milli-seconds)   myDate := EncodeDateTime(2000, 6, 5, 1, 2, 3, 4);   // Time only - numeric values with no leading zeroes   ShowMessage('     h:n:s.z = '+FormatDateTime('h:n:s.z', myDate));   // Time only - numeric values with leading zeroes   ShowMessage('hh:nn:ss.zzz = '+FormatDateTime('hh:nn:ss.zzz', myDate));   // Use the ShortTimeFormat settings only   ShowMessage('           t = '+FormatDateTime('t', myDate));   // Use the LongTimeFormat settings only   ShowMessage('          tt = '+FormatDateTime('tt', myDate));   // Use the ShortDateFormat + LongTimeFormat settings   ShowMessage('           c = '+FormatDateTime('c', myDate)); end;

Show full unit code

h:m:s.z = 1:2:3.4    hh:mm:ss.zzz = 01:02:03.004               t = 01:02              tt = 01:02:03               c = 05/06/2000 01:02:03

Example code : Showing the effect of local date format settings

var   myDate : TDateTime; begin   // Set up our TDateTime variable with a full date and time :   // 5th of June 2049 at 01:02:03.004  (.004 milli-seconds)   //   // Note that 49 is treated as 2049 as follows :   //               TwoDigitYearCenturyWindow => 50   //                            Current year => 2008 (at time of writing)   //      Subtract TwoDigitYearCenturyWindow => 1958   //            2 digit year to be converted => 49   //  Compare with the last 2 digits of 1958 => Less   //      So the year is in the next century => 2049   // (58 would be converted to 1958)   myDate := StrToDateTime('05/06/49 01:02:03.004');   // Demonstrate default locale settings   // Use the DateSeparator and TimeSeparator values   ShowMessage('dd/mm/yy hh:nn:ss = '+               FormatDateTime('dd/mm/yy hh:nn:ss', myDate));   // Use ShortMonthNames   ShowMessage('              mmm = '+FormatDateTime('mmm', myDate));   // Use LongMonthNames   ShowMessage('             mmmm = '+FormatDateTime('mmmm', myDate));   // Use ShortDayNames   ShowMessage('              ddd = '+FormatDateTime('ddd', myDate));   // Use LongDayNames   ShowMessage('             dddd = '+FormatDateTime('dddd', myDate));   // Use the ShortDateFormat string   ShowMessage('            ddddd = '+FormatDateTime('ddddd', myDate));   // Use the LongDateFormat string   ShowMessage('           dddddd = '+FormatDateTime('dddddd', myDate));   // Use the TimeAmString   ShowMessage('           hhampm = '+FormatDateTime('hhampm', myDate));   // Use the ShortTimeFormat string   ShowMessage('                t = '+FormatDateTime('t', myDate));   // Use the LongTimeFormat string   ShowMessage('               tt = '+FormatDateTime('tt', myDate));   // Use the TwoDigitCenturyWindow   ShowMessage('       dd/mm/yyyy = '+               FormatDateTime('dd/mm/yyyy', myDate));   ShowMessage('');   // Now change the defaults   DateSeparator      := '-';   TimeSeparator      := '_';   ShortDateFormat    := 'dd/mmm/yy';   LongDateFormat     := 'dddd dd of mmmm of yyyy';   TimeAMString       := 'morning';   TimePMString       := 'afternoon';   ShortTimeFormat    := 'hh:nn:ss';   LongTimeFormat     := 'hh : nn : ss . zzz';   ShortMonthNames[6] := 'JUN';   LongMonthNames[6]  := 'JUNE';   ShortDayNames[1]   := 'SUN';   LongDayNames[1]    := 'SUNDAY';   TwoDigitYearCenturyWindow := 75; // This means 49 is treated as 1949   // Set up our TDateTime variable with the same value as before   // except that we must use the new date and time separators   // The TwoDigitYearCenturyWindow variable only takes effect here   myDate := StrToDateTime('09-02-49 01_02_03.004');   // Use the DateSeparator and TimeSeparator values   ShowMessage('dd/mm/yy hh:nn:ss = '+               FormatDateTime('dd/mm/yy hh:nn:ss', myDate));   // Use ShortMonthNames   ShowMessage('              mmm = '+FormatDateTime('mmm', myDate));   // Use LongMonthNames   ShowMessage('             mmmm = '+FormatDateTime('mmmm', myDate));   // Use ShortDayNames   ShowMessage('              ddd = '+FormatDateTime('ddd', myDate));   // Use LongDayNames   ShowMessage('             dddd = '+FormatDateTime('dddd', myDate));   // Use the ShortDateFormat string   ShowMessage('            ddddd = '+FormatDateTime('ddddd', myDate));   // Use the LongDateFormat string   ShowMessage('           dddddd = '+FormatDateTime('dddddd', myDate));   // Use the TimeAmString   ShowMessage('           hhampm = '+FormatDateTime('hhampm', myDate));   // Use the ShortTimeFormat string   ShowMessage('                t = '+FormatDateTime('t', myDate));   // Use the LongTimeFormat string   ShowMessage('               tt = '+FormatDateTime('tt', myDate));   // Use the TwoDigitCenturyWindow   ShowMessage('       dd/mm/yyyy = '+               FormatDateTime('dd/mm/yyyy', myDate)); end;

Show full unit code

dd/mm/yy hh:mm:ss = 05/06/49 01:02:03                  mmm = Jun                 mmmm = June                  ddd = Sat                 dddd = Saturday                ddddd = 05/06/2049               dddddd = 05 June 2049               hhampm = 01AM                    t = 01:02                   tt = 01:02:03           dd/mm/yyyy = 05/06/2049      dd/mm/yy hh:nn:ss = 05-06-49 01_02_03                  mmm = JUN                 mmmm = JUNE                  ddd = SUN                 dddd = SUNDAY                ddddd = 05-JUN-49               dddddd = SUNDAY 05 of JUNE of 1949               hhampm = 01morning                    t = 01_02_03                   tt = 01 _ 02 _ 03 . 004           dd/mm/yyyy = 05-06-1949

Source : www.delphibasics.co.uk

Handling errors / Penanganan Kesalahan di Delphi

Delphi menggunakan pendekatan event handling untuk penanganan error. Kesalahan adalah (kebanyakan) dianggap sebagai pengecualian, yang menyebabkan pengoperasian program untuk menunda dan melompat ke handler pengecualian terdekat. Jika kita tidak memiliki satu, ini akan menjadi default handler Delphi yang akan melaporkan kesalahan dan menghentikan program.


Try, except dimana masalah berada

Delphi menyediakan hanya membangun untuk membungkus kode dengan penanganan exception. Ketika pengecualian terjadi dalam kode terbungkus (atau apa pun itu panggilan), kode tersebut akan melompat ke exception handling bagian dari kode pembungkus:


begin
Try
...
The code we want to execute
...
Except
...
This code gets executed if an exception occurs in the above block
...
end;
end;


kita mencoba untuk mengeksekusi beberapa kode, yang akan berjalan kecuali jika kesalahan (pengecualian) terjadi. Kemudian kode kecuali akan mengambil alih.


Mari kita lihat contoh sederhana di mana kita sengaja membagi angka dengan nol:


var
number1, number0 : Integer;
begin
try
number0 := 0;
number1 := 1;
number1 := number1 div number0;
ShowMessage('1 / 0 = '+IntToStr(number1));
except
on E : Exception do
begin
ShowMessage('Exception class name = '+E.ClassName);
ShowMessage('Exception message = '+E.Message);
end;
end;
end;


Ketika pembagian gagal, kode melompat ke blok statement Exception . Pernyataan ShowMessage pertama sehingga tidak bisa dijalankan.


apa yangh terjadi ketika proses debugging


Perhatikan bahwa ketika Anda kode debug kita dalam Delphi, Delphi akan pengecualian perangkap bahkan jika kita memiliki exception handling. kita kemudian harus mengklik OK pada dialog kesalahan, lalu tekan F9 atau panah hijau untuk meneruskan statement exeception . kita bisa menghindari ini dengan mengubah pilihan debug.


And finally …


Misalkan bukannya menjebak kesalahan statement itu terjadi, kita mungkin ingin membiarkan tingkat pengecualian penangan yang lebih tinggi dalam kode kita untuk melakukan perangkap lebih global.


Delphi menyediakan bagian alternatif untuk pembungkus exception Akhirnya. Bukannya dipanggil ketika pengecualian terjadi, klausa akhirnya selalu disebut setelah sebagian atau semua statement coba dijalankan. Hal ini memungkinkan kita untuk membebaskan memori yang dialokasikan, atau kegiatan sejenis lainnya. Namun, tidak perangkap kesalahan – penanganan exception tertinggi berikutnya (Try) blok yang bersarang telah di alokasikan dan dieksekusi.






Sumber : readoneit.wordpress.com

Hardiskku yang malang habis terjatuh dari lemari baju.

Dari judulnya sangat menyeramkan hahahaha.
tapi memang menyeramkan, setelah hardisk seagate ku terjatuh
dia mati !!! gak bergerak ( berputar maksudnya ) dibios gak kedetect.
external apa lagi. setelah beberapa abad berlalu ....
muncul lah niat untuk mengetahui, ngapain aja sih isinya hardisk kwkwkwkw...
dan dibedah lah sang hardisk mati tadi...
(maaf gambarnya belum di upload. nanti ya kalau sempat hahahha... )

setelah dibedah, dan dikeluarkan isinya. ( lebay dikit hahaha )
di ketuk-ketuk, dicolok lagi powernya. zzzzhhhh zzzzhhhh wah bunyi apa itu ?
jangan-jangan ada jin-nya hahhaha.

mungkin faktor hoki ato apa heatnya aq geser saat powernya nyala, wuzz wuzz wuzz... wah headnya pindah ke track awal. dan piringannya berputar kembali :D horeee...

pengalaman hari ini sangat mengesankan hehehhe.... jadi ini hanya coretan saya. jika tidak berkenan silahkan lewati postingan ini hahaha :D

yang jelas hari ini saya senang. wkkwk

Mengambil Tabel Dari web tertentu menggunakan google spreadsheed.

OK, Pertama Kalian Harus memiliki akun google. kalau tidak punya silahkan buat.
Siapkan link website yang ingin di ambil tabelnya. contoh saya adalah http://www.atlantica-db.com/mercenary/melee .

Langkah Selanjutnya Melangkah Ke Google Drive.
- Pilih Create.
- Pilih Spreadsheet.
- sorot pada cell a1.
- ketik atau paste link =ImportHtml("http://www.atlantica-db.com/mercenary/melee","table",1)
fungsi ImportHtml(url,query,index)

untuk menyimpan ke drive lokal anda tinggal pilih File > Download as...
pilih sesuai kebutuhan anda.

wala, tabel sukses tercopy. hahaha. semoga bermanfaat.

Google Drive Mempermudah Berbagi file

Rasanya kebutuhan untuk berbagi file itu sangat penting apa lagi saat ini jarak merupakan salah satu penghalang yg nyata. nah google drive adalah solusinya. tidak perlu berjalan ke rumah teman untuk mengcopy file. tinggal di taruh di folder google drive, sync ( google drive akan mensinkronkan file di lokal disk ke disk di google ) jika di temukan file baru, akan di upload secara otomatis. mudah kan ? tidak perlu lagi masuk ke halaman upload haha. mari kunjungi halaman google drive disini.

Aplikasi Ping dengan Log File

Silahkan Langsung ~ download

File > Unduh atau CTRL + S.

QuickReport borland delphi 7

Setelah browsing-browsing ternyata susah juga cari tutorial pembuatan laporan menggunakan Quickreport.
langsung aja ya, ternyata borland delphi sudah menyediakan demo / contoh quickreport di folder installasi di komputer saya berada di C:\Program Files\Borland\Delphi7\Demos\Quickrpt.


QReport_Readme.txt
The Quick Reports package is not installed in the IDE by default. To run
these demos you must first install dclqrt70.bpl.

To install, go to the IDE menu and select the "Component" menu item. From there,
select "Install Packages". In the dialog select the "Add" button and then browse
to the \bin directory of Delphi (default location is 
c:\Program Files\Borland\Delphi7\bin). Select the file named dclqrt70.bpl.

The QuickReport pacakge is now installed and you can run the example programs.

mungkin agak berbeda lokasi di komputer pembaca, jadi sesuaikan dengan folder installasi delphinya.
sekian. semoga bermanfaat.

Coretan hari ini

Mempermudah pekerjaan. Contoh ? Linggis untung mencabut paku. Bayangkan jika gak ada linggis, apa yg akan tukang lakukan ? Mematahkan paku mungkin salah satunya. Tapi, itu akan menguras tenaga kan ? :D

Saat ini, kemajuan teknologi sudah berkembang dengan pesatnya. Dimulai dari personal computer : desktop, laptop, dan gadget genggam lainya. Semuanya mempermudah dan meringkas fungsi-fungsi extrim kalau dibandingkan penggunaan alat alat manual pada gadget tesebut. Contoh saja mobile phone (HP lah sebutan org org) minimal punya fungsi kalkulator, memo, alarm, phone book (buku telpon), dan game. Wah banyak bukan ? Bayangkan kalau orang dahulu membawa semua yg ada di hape itu, apa gak bikin ribet ya ?

Tapi pandangan orang-orang sekaran tidak sejauh orang orang dahulu. Bukan menjudge semua orang. dari lingkungan, moral, dan kepedulian sesama mahluk hidup saja sudah sangat memperihatin kan :D. Lebih memilih menebang pohon untuk mendirikan tenda acara yg cuma diadakan 1-2 hari. Ada yg aneh ? Jika anda jawab tidak, berarti anda salah satu dari manusia yg saya maksud hahaha.

Maaf kalau bingung membaca coretan saya. Karena ini hanya coretan.

Im not a perfect. Coz im human being.

-------
Sent using a Sony Ericsson mobile phone

Pencarian data pada tabel adotable atau adoquery delphi 7

Begin
If not ADOTable1.locate('nim',edit1.text,[]) then
Showmessage('nim tidak ditemukan');

Penjelasan 'nim' adalah area field yg ingin dicari.
Edit1.text adalah variabel yg ingin dicocokkan
Sedangkan [] adalah opsi tambahan (bisa dibaca pada bagian help).

Hasil dari locate, adalah pointer akan berhenti pada record yg cocok pertama. Jika hasil locate lebih dari 1 maka locate akan mengabaikan record lain.

Semoga bermanfaat.
--
Sent using a Sony Ericsson mobile phone