Compile and Run

Membuat Warna Scrollbar Halaman Web

2009-05-10T17:22:00.000-07:00

Secara umum warna scrollbar mengikuti warna setingan sistem operasi. Nah bila anda menginginkan merubah pada jendela ada bisa memakai properti display. Namun bagaimana jika anda menginginkan mengatur melalui halaman web. Tips ini memang hanya berguna pada beberapa browser seperti IE 5.5.ketas Namun tidak ada salahnya anda mencoba memasukan pada halaman web anda.

Penulisan yang akan dilakukan adalah dengan memakai bantuan script CSS. Pengatuarannya pun dapat disesuaikan dengan semau kita. Warna yang dipilih dapat anda tentukan sendiri.Seperi hanya yang saya sampaikan diatas warna scroolbar dapat disesuaikan dengan halama web. Seperi contoh bwegini saya memiliki web dengan latar belakang hitam maka saya dapat mengubah track scorolbar menjadi hitam hal ini dilakukan agar halaman web seperti menyatu.

Pada scrolbar terdapat beberapa bagian yang menyatu dan memiliki perbedaan diantara yang lain. Bagian bagian ini antara lain

SCROLLBAR-SHADOW-COLOR : Warna bayang bayang sisi kanan
SCROLLBAR-HIGHLIGHT-COLOR : Warna garis pengitar tombol
SCROLLBAR-ARROW-COLOR: : Warna anak panah penunjuk arah
SCROLLBAR-3DLIGHT-COLOR : Warna garis effect 3d
SCROLLBAR-TRACK-COLOR : Warna track
SCROLLBAR-DARKSHADOW-COLOR: Warna bayang banyang sisi kiri
SCROLLBAR-BASE-COLOR : Warna muka

Setelah jadi maka tempatkan diantara tag Head dan coba jalankan pekerjaan anda di browser. ( Coba di Internet Explorer v 5.5 keatas)

Sumber: http://users.domaindlx.com/beoarticle/printer_friendly_posts.asp?TID=38

Menyiasati QuotedStr

2009-05-07T15:54:00.000-07:00

Halo...halo... ketemu lagi kita di blog ku.. gini, biasanya kalo mau menambahkan data di SQL kan gini nih

INSERT INTO pribadi (nama, alamat) VALUES('Dhani', 'Jogja')

nah kalo di implementasikan buat nyimpan pake delphi kan jadinya gini (asumsi pake ADOQuery, misalnya nama ada pada edit1 dan alamat ada pada edit2)

With ADOQuery Do
Begin
Close;
SQL.Text := 'INSERT INTO pribadi (nama, alamat) VALUES ('+QuotedStr(Edit1.Text)+', '+Edit2.Text+')';
ExecSQL;
End;

Nah sebenarnya bisa disiasati tuh QuotedStr nya biar ga banyak sintaks jadinya gini

With ADOQuery Do
Begin
Close;
SQL.Text := 'INSERT INTO pribadi (nama, alamat) VALUES ('''+Edit1.Text+''', '''+Edit2.Text+''')';
ExecSQL;
End;

Jadi lebih singkat kan?? monggo.. silahkan dicoba nggih?

Penghematan Sintaks Query Di Delphi Menggunakan ADOQuery

2009-05-06T03:19:00.000-07:00

Biasanya di kampus diajarkan klo mau menampilkan data pake kode berikut:

With ADOQuery Do
Begin
Close;
Active := False;
SQL.Clear;
SQL.Add('select * from tb_buku');
Active := True;
End;

Sebenarnya bisa disingkat tuh sehingga bisa efisien, kira-kira begini nih nyingkat sintaksnya:

With ADOQuery Do
Begin
Close;
SQL.Text := 'select * from tb_buku';
Open;
End;

Tuh kan jadi lebih singkat hehehe.. sampe jumpa di kode berikutnya