Category Archives: Choi Hani’s Note

Syntax Program Skripsiku :)

Form Login

Option Explicit

Dim nama, pwd, pengguna As String

Sub user1()
query (“select status from tb_login where nama = ‘” & TxtUserName.Text & “‘”)
pengguna = rec!Status
End Sub

Sub admin()
FormMnuUtama.SubFileLogin.Enabled = False
FormMnuUtama.ML.Enabled = True
FormMnuUtama.SubLogout.Enabled = True
FormMnuUtama.MUMaster.Enabled = True
FormMnuUtama.MuPenelusuran.Enabled = True
FormMnuUtama.Toolbar2.Buttons(2).Enabled = True
FormMnuUtama.Toolbar2.Buttons(6).Enabled = True
FormMnuUtama.MUUser.Enabled = True
End Sub

Sub user()
FormMnuUtama.MUMaster.Enabled = False
FormMnuUtama.ML.Enabled = False
FormMnuUtama.SubLogout.Enabled = False
FormMnuUtama.MUUser.Enabled = False
FormMnuUtama.Toolbar2.Buttons(2).Enabled = False
FormMnuUtama.Toolbar2.Buttons(6).Enabled = False
FormMnuUtama.SubFileLogin.Enabled = True
FormMnuUtama.StatusBar1.Panels(3).Text = “User”
End Sub

Sub akses()
user1
If pengguna = “admin” Then
MsgBox “Selamat datang di Menu Admin ……..”, vbInformation, “Sistem Pakar”
admin
Else
If pengguna = “user” Then
MsgBox “Selamat datang ” & TxtUserName.Text & ” !!!”, vbInformation, “Sistem pakar”
user
End If
End If
End Sub

Sub bersih()
TxtUserName.Text = “”
TxtPassword.Text = “”
End Sub

Sub cekuser()
query (“select nama, pasword from tb_login where nama = ‘” & LCase(TxtUserName.Text) & “‘”)
nama = rec!nama
pwd = rec!pasword
End Sub

Sub login()
On Error Resume Next
query (“select * from tb_login where nama = ‘” & LCase(TxtUserName.Text) & “‘”)
If TxtUserName.Text = “” And TxtPassword.Text = “” Then
MsgBox “isikan username dan password anda!!!”, vbInformation, “Sistem Pakar”
ElseIf TxtUserName.Text = “” Then
MsgBox ” username belum disi ???”, vbInformation, “Sistem Pakar”
TxtUserName.SetFocus
ElseIf TxtPassword.Text = “” Then
MsgBox ” password belum disi ???”, vbInformation, “Sistem Pakar”
TxtPassword.SetFocus

Else
cekuser
If LCase(TxtUserName.Text) <> nama Then
MsgBox “Nama anda tidak terdaftar dalam sistem kami???”, vbInformation, “Sistem Pakar”
TxtUserName.Text = “”
TxtUserName.SetFocus
Else
cekuser
If Trim(TxtPassword.Text) <> pwd Then
MsgBox “Pasword anda salah !!!!”, vbInformation, “Sistem pakar”
TxtPassword.Text = “”
TxtPassword.SetFocus
Exit Sub
Else
akses
Read the rest of this entry

최하니 : Curahan Hati

29 SEPTEMBER 2011
Entah, itu hari yang bagaimana buatku… Hari dimana semuanya terasa berbeda, hari di mana ‘dia’ pergi… Pergi? Yah bukan pergi selamanya, hanya pergi menjalankan tugasnya sebagai warga negara yang baik…. Semua terasa berbeda saat ‘kehilangan’ dia, kehilangan untuk waktu yang lama…..

Bisakah aku bertahan? Yah, itu aku tanyakan juga pada diriku sendiri… Bisakan aku bertahan tanpa ‘dia’, bisakah aku seperti dulu tanpa ‘dia’ bisakah???? Aku memasuki dunia ini karena ‘dia’, karena ‘dia’ aku mengenal yang lainnya, menyukai yang lainnya, tidak bisa di pungkiri, ‘dia’ sudah mengubah hidupku…..

Rasa ini sudah mulai memudar, memudar untuk menyukai mereka, memudar untuk menyukai karya mereka… Ingin kembali seperti dulu, tapi aku rasa aku tidak bisa kembali, waktu tidak bisa di putar kembali, dan aku tidak bisa kembali lagi ke dunia yang sebelumnya (╥_╥)

KIM JOON dia orangnya, dia orang yang menjerumuskan aku ke dunia ini, dunia di mana aku bisa memujanya…. Aku tidak peduli kalau dia tidak begitu terkenal, aku sangat tidak peduli…. Tapi sekarang, aku tidak bisa melihat mendengar karya – karya dia dalam jangka waktu yang panjang, apa aku masih bisa bertahan di dunianya…. Dia… Dia yang membuatku seperti ini, sekarang dia tidak ada, apa yang harus aku lakukan????

Sent from my AXIS Worry Free BlackBerry® smartphone

최하니 : Real Life

Teman & Sahabat….

Apa ak pernah memiliki keduanya,? Tidak…. Ya aku tidak pernah memiliki keduanya…. Aku bukan orang yang mudah bergaul, aku bukan orang yang mudah dekat dengan orang baru, aku bukan seperti kalian….

Menyesal? Ya, aku menyesal menjadi diriku yang seperti ini, hidupku bagai di dalam tempurung, duniaku begitu sempit…..

Aku ingin seperti kalian, ingin sekali, tapi aku tidak bisa, aku sedih harus seperti ini terus, benar – benar sedih….

Aku merindukan kalian, aku merindukan saat – saat kita bersama, aku merindukan semua itu… Tidak bisakah kita kembali seperti dulu. Ah…aku tau itu tidak mungkin, kita akan terus melangkah ke depan bukan ke belakang….

Aku ingin memiliki seseorang dan aku juga ingin dimiliki seseorang, apa aku tidak boleh melakukan itu, oh Tuhan….. Sebesar inikah dosaku hingga kau menghukumku seperti ini…. Begitu banyak hal yang kurang, tidak ada kelebihan sama sekali…. Kenapa aku terlahir seperti ini, selalu membuat orang – orang yang aku sayangi kecewa… Kenapa???? Kenapa?????

Tuhan, aku sudah banyak mencoba, tidak bisakah kau sedikit memberiku jalan, jalan agar ak bisa membahagiakan mereka…. Jangan siksa aku seperti ini, aku sudah benar – benar tidak sanggup……