(ini nih bagian yang aku suka )

CREATE NONCLUSTERED INDEX NCI_OrderDetailsFilteredIndex
ON OrderDetail (OrderDetailID, DateofPurchase)
WHERE DateofPurchase <=’12-31-2007’

Atau misal kita user hanya bisa bisa lihat dari table Employees yg memiliki jabatan Marketing Manager saja, maka kita cukup membuat index :

CREATE NONCLUSTERED INDEX NCI_Department
ON HumanResources.Employee(EmployeeID)
WHERE Title= ‘Marketing Manager’

Kalau kita ingin mendapatkan employee untuk jabatan “Marketing Manager”, untuk ini bisa create INDEX pada EmployeeID yang memiliki jabatan “Marketing Manager” lalu gunakanSQL Statement untuk mendapatkan Employees dengan jabatan “Marketing Manager”.

SELECT he.EmployeeID,he.LoginID,he.Title
FROM HumanResources.Employee he
WHERE he.Title = ‘Marketing Manager’

Lihat di gambar neee:

coba lihat penghematannya

cukup hemat kan
selemat mencoba

(alaahhhh ,,, sok sibuk aja, padahal kerjanya tidur aja )

ya udah ga usah panjang lebar… kapan ada waktu saya pasti akan perbanyak postingan di blog ini…

Poker Table

Games sekarang ini memang lagi booming2 nya di dunia internet,, sampai-sampai para hackeer atau cracker pun berlomba2 untuk memenangkan Games2 yang mereka geluti. seperti yang lagi populer sekarang ini “Zynga Poker” di FaceBook,, orang-orang pada rela ngluarin koceknya tanpa mikirin

1. Pacar
2. Anak
3. Istri
4. dll

kalok udah Nongkrong di Table, apalagi ditemenin Rokok+Kopi,, jadi lupa waktu… saking bosennya duduk trus ga menang2 alias kalah-kalah mulu, terbersitlah pikiran untuk berbuat curang untuk mendapatkan chip yang banyak… bagaimana caranya.. yahhhh menggunakan bot,, sekarang bot udah ga di pake buat perang d Irc aja.. tapi udah di pake untuk maen game.. ck ck ck ck ck

udah kebanyakan ngomong,, nih gua kasi link buat loe-loe pada, loq emang mau maen poker pake bot…

Berikut adalah event handler untuk event click kontrol Button :

Private Sub btnSave_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnSave.Click
End Sub


yang harus diperhatikan oleh VB 6 programmer yaitu keyword Handles. Keyword tersebut merupakan kunci assignment sebuah event handler dengan event nya. Anda bebas untuk mengubah nama event handler nya selama keyword Handles nya merujuk ke event dari object yang anda inginkan. Hal ini berbeda sekali dengan VB 6, bila anda ganti nama event handler nya maka prosedur tersebut tidak akan pernah di ekseskusi.

Misalkan saya memiliki tiga buah control Button dengan masing-masing event handler nya untuk event Click seperti dibawah ini :

Private Sub btnSave_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnSave.Click
MsgBox("Save")
End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnDelete.Click
MsgBox("Delete")
End Sub


Private Sub btnCancel_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnCancel.Click
MsgBox("Cancel")
End Sub


Bila business rule dari ketiga event handler tersebut mirip dan kontrol nya juga sama, apakah kode diatas cukup efektif? Mungkin kita bisa buat cara lain untuk menghemat space code designer ) bagaimana caranya? Kita bisa buat satu buah event handler yang menangani lebih dari satu event untuk masing-masing kontrol. Intinya terdapat pada Handles keyword :

Private Sub ClickEventHandler(ByVal sender As Object, ByVal e As EventArgs) _
Handles btnSave.Click, btnCancel.Click, btnDelete.Click

End Sub

Setelah Handles keyword anda tinggal definisikan event-event yang akan dibuatkan handler nya dari masing-masing kontrol dengan dipisahkan dengan tanda koma. Lalu sekarang bagaimana caranya kita mengetahui control mana yang mentrigger event tsb? Dengan variabel sender yang terdapat pada parameter pertama di prosedur tsb. Yang harus dilakukan adalah melakukan casting explicit ke kontrol yang mentrigger event tsb. Setelah didapatkan object nya maka kita dapat memanfaatkan properti yang dimiliki oleh kontrol tsb untuk identifikasi. Properti yang mudah dan umum digunakan yaitu properti Name. Berikut code nya :

Private Sub ClickEventHandler(ByVal sender As Object, ByVal e As EventArgs) _
Handles btnSave.Click, btnCancel.Click, btnDelete.Click


Dim aButton = DirectCast(sender, Button)
Select Case aButton.Name.ToLower
Case "btnsave"
MsgBox("Save")
Case "btncancel"
MsgBox("Cancel")
Case "btndelete"
MsgBox("Delete")
End Select
End Sub

Lebih menghemat space kan ? Kode ini saya buat dengan VB 9.0, jadi variabel aButton tersebut tipe datanya langsung di Infer oleh si CLR. Cara lainnya gimana nih? Apakah ada cara lain untuk assignment event handler terhadap sebuah event? Ada…cara ini berguna kalau anda ingin membuat event handler secara dinamis. Pertama anda buat terlebih dahulu event handler nya dengan signature yang sama tanpa keyword Handles :

Private Sub ClickEventHandler(ByVal sender As Object, ByVal e As EventArgs)
Dim aButton = DirectCast(sender, Button)
Select Case aButton.Name.ToLower
Case "btnsave"
MsgBox("Save")
Case "btncancel"
MsgBox("Cancel")
Case "btndelete"
MsgBox("Delete")
End Select
End Sub

Setelah itu langkah yang harus dilakukan yaitu proses assignmentnya. Gunakan AddHandler keyword. Anda bisa tempatkan perintah tersebut dimana saja. Contoh berikut saya tempatkan di event Load dari form yang digunakan :

Private Sub EventAndEventHandler_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
AddHandler btnSave.Click, AddressOf ClickEventHandler
AddHandler btnCancel.Click, AddressOf ClickEventHandler
AddHandler btnDelete.Click, AddressOf ClickEventHandler
End Sub

Perintah AddressOf merupakan sebuah object Delegate. Lalu ada seseorang bertanya pada saya…Pak disitu pake perintah AddHandler, berarti ada dong perintah lainnya yang berseberangan dengan perintah tsb?? Ada…RemoveHandler jawabannya

Perintah Remove Handler digunakan untuk “memutuskan” asosiasi antara event dengan event handler nya. Hal tersebut berguna agar tidak terjadi proses assignment event handler lebih dari satu kali. Penulisan kode nya sama, seperti berikut :

Private Sub btnRemoveHandler_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnRemoveHandler.Click
RemoveHandler btnSave.Click, AddressOf ClickEventHandler
RemoveHandler btnCancel.Click, AddressOf ClickEventHandler
RemoveHandler btnDelete.Click, AddressOf ClickEventHandler
End Sub

Begitulah ceritanya … anda tinggal memlilih cara mana yang sesuai dengan kebutuhan aplikasi tersebut. C U on the next articles

liat gambar yang ke-2 :

wew…. keren kan…. jangan pernah menghina koneksi di kampus gw… liat dunk koneksinya

coba deh buka http://soal-unas.blogspot.com, di blog ntu banyak banget soal-soal n kisi-kisi untuk UAN 2009,, kali aja bermanfaat buat kalian semua yang punya adik, sepupu, om , tante, kakek, nenek, oma, opa dll yg ngikutin UAN )

Situs peringatan yang beralamat di www.wenming.cn/wmdjr/qm.htm tersebut diluncurkan Central Civilization Office of the Communist Party of China (CPC) pada tanggal 26 Maret. Di situs ini, warga China bebas memberikan penghormatan kepada pendahulu mereka yang meninggal dalam peristiwa revolusi tersebut. Ternyata situs ini lumayan laris dikunjungi. Terbukti, hingga saat ini, situs tersebut telah dikunjungi lebih dari 500 ribu kali, dan tak sedikit yang telah mempublikasikan komentar mereka.

“Para pejuang nasional telah mengorbankan nyawa mereka demi kehidupan kita. Aku akan giat belajar untuk membaktikan diri kepada negara,” tulis Chen Binpeng, seorang siswa di Nanchang dalam situs tersebut. Tanggal 4 April mendatang, warga China akan memperingati Tomb-Sweeping Day untuk memberikan penghormatan kepada leluhur mereka yang telah meninggal.

Andai saja Indonesia seperti China,, sampai membuat situs untuk mengenang para pahlawannya… kapan dan saiapa ya ??????? yg mo buat situs kaya gini

Berikut adalah tips menghapus Kido dari komputer yang disampaikan oleh perusahaan antivirus Kaspersky.

Peranti khusus bernama KKiller.exe dapat digunakan untuk menghapus worm ini.
Untuk mencegah seluruh komputer dan server terinfeksi Kido, Anda disarankan melakukan langkah-langkah berikut ini:

• Instal patch dari Microsoft yang menutup celah MS08-067, MS08-068, MS09-001.
• Pastikan password akun administrator lokal tidak dapat diterka dengan mudah—password minimal harus terdiri dari 6 karakter yang merupakan perpaduan antara huruf kapital dan non-kapital, angka, serta karakter spesial seperti tanda baca.
• Matikan fitur yang menjalankan file dalam USB flash disk secara otomatis.

Peranti KKiller.exe dapat dijalankan secara lokal pada komputer yang sudah terinfeksi atau dijalankan secara remote dengan bantukan Kaspersky Administration Kit.

Untuk menghapus secara Lokal :

1. Unduh KKiller_v3.4.3.zip dan ekstrak paket itu ke sebuah folder dalam komputer yang sudah terinfeksi.
2. Jalankan file KKiller.exe, Ketika scan sudah selesai, jendela command prompt bsia muncul pada layar monitor. Untuk me-minimize jendela itu, tekan sembarang ombol. Agar jendela itu ditutup secara otomatis, disarankan gar KKiller.exe dijalankan dengan parameter “-y”.
3. Buat task untuk instalasi jarak jauh yang dapat dilakukan secara global atau hanya grup tertentu. Jalankan task itu. KKiller.exe dapat dijalankan pada semua komputer dalam jaringan.
4. Ketika KKiller.exe sudah selesai bekerja, scan setiap komputer menggunakan Kaspersky Anti-Virus.Kalau Agnitum Outpost Firewall terinstal pada komputer, restart PC setelah KKiller.exe digunakan. Untuk mendapat informasi tambahan, jalankan KKiller.exe dengan parameter tambahan “-help”.

Mudah-mudahan postingan ini bermanfaat

sebuah grup bernama ‘Find the Sale Rapist’ pun dibuat sang pria di Facebook. Di situ terdapat konten foto kamera CCTV tersangka berikut detail insiden pemerkosaan yang terjadi di kota Manchester, Inggris pada Agustus tahun lalu. Para pengguna Facebook yang mungkin mengenali si pelaku diharapkan langsung mengontak polisi. ‘Pria ini harus ditangkap secepatnya karena dia membahayakan publik’, demikian tertera dalam halaman Facebook grup tersebut
Si pria yang kekasihnya jadi korban perkosaan itu mengaku terpaksa memanfaatkan Facebook karena sampai sekarang usaha aparat untuk melacak tersangka belum membuahkan hasil. Sejauh ini, grup Facebok tersebut telah punya sekitar 6000 anggota.
“Kami hanya ingin pemerkosa itu tertangkap dan dengan Facebook di mana banyak orang melihatnya akan meningkatkan kemungkinan tersebut,” papar si pria yang tidak disebutkan namanya dengan alasan hukum.