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