Membuat Form Login dengan Database Dengan Visual Basic 6.0

Untuk membuat form login yang berhubungan dengan data base pada dasarnya sama dengan membuat form login biasa. Yang menjadi perbedaan adalah kita mengambil data dari database yang sebelumnya telah tersimpan.

Untuk memulai mencoba membuat halaman login, terlebih dahulu membuat database misalnya dari microsoft access dengan nama tabel "login" dan berisi 2 buah kolom yaitu "username" dan "pass".

Setelah database kita buat maka tahap selanjutnya adalah membuat tampilan halaman login yang terdiri dari dua buah label, 2 buah text box dan dua buah command button.
Berikut adalah property yang saya ubah dari masing-masing tool:
Form : Caption > LOGIN
Label1 : caption > Username
Label2: caption > Password
Text1 : name > txtuser
Text2 : name > txtpass
PasswordChar > *
Command1: name > cmdLogin
Caption > &Login
Command2: name > cmdExit
Caption > &Exit
Berikut adalah bentuk tampilannya

Setelah itu kita baru masuk pada tahap pembuatan kode:

Kalo mau coba ini ada contoh kode-nya. Kalo malas ngetik atau copas desain dan codenya bisa di ambil disini:

Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String

Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strconn
Else
con.Open strconn
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdLogin_Click()
On Error Resume Next

Static i As Integer

If txtUser.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
Else
sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

Else
MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
Unload Me
End If
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
End
Else
Return
End If

End Sub

Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub
Penjelasan singkatnya sbb:

Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String

Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strconn
Else
con.Open strconn
End If
End Sub

Baris-baris kode ini adalah modul koneksi ke database, biasanya diletakkan pada sebuah modul apabila kita memiliki banyak form, karena kita hanya memiliki sebuah form maka kita letakkan pada form. Dan prosedur ini akan kita panggil pada saat form kita load “call Connections”

Private Sub cmdExit_Click()
End
End Sub
Kode ini saya kira sudah sangat jelas, yaitu untuk mengakhiri atau menutup form.

Private Sub cmdLogin_Click()
On Error Resume Next

Static i As Integer

If txtUser.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
Else
sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

Else
MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
Unload Me
End If
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
End
Else
Return
End If

End Sub
Untuk bagian ini hamper sama ketika kita membuat halaman login tanpa data base yang sudah pernah saya postingkan, hanya saja yang menjadi perbedaan hanya terletak pada beberapa bagian saja. Yaitu pada

sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus

ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
Disini kita akan menggunakan query sql untuk melakukan pencarian username terlebih dahulu kemudian hasilnya kita simpan pada variable rst setelah eksekusi query dilakukan. Apabila data tidak ditemukan maka akan menuju ke sub prosedur noacc, namun bila ditemukan maka kita akan membandingkan nilai password yang ada pada database dan password yang di-input-kan oleh user.

Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub

Bagian ini adalah bagian yang pertama kali dijalankan oleh program karena ditelakkan pada saat form kita buka. Kode ini hanya berfungsi untuk melakukan pengaturan awal saya, misalnya call connections, yaitu untuk melakukan pangggilam koneksi ke database, kemudian pengatur textbox menjadi kosong yaitu dengan menggunakan (“”) atau bisa juga dengan kata Empty.

Dah Cuma gitu aja, kayaknya gak susah2 bgt. Met mencoba deh.

Membuat Halaman Login Sederhana Dengan Visual Basic 6.0

Untuk membuat sebuah halaman login yang sederhana tidaklah sulit. Kita hanya membutuhkan sebuah form kemudian dua buah label dan textbox serta sebuah commandbutton. Halaman login yang akan dibuat ini akan melakukan pengecekan terhadap username dan password yang dimasukkan dan membatasi user dengan hanya boleh melakukan tiga kali kesalahan saja, bila melakukan tiga kali kesalahan maka aplikasi akan langsung melakukan logoff system. Berikut ini adalah property yang diubah pada masing-masing komponen dan ini bersifat optional saja, jadi kita bisa melakukan perubahan sesuai kemauan.
Form :
(Name) : frmLogin
BorderStyle : 1-fixed single
Caption : LOGIN
Label1:
Caption :Username
Label2:
Caption :Password
TextBox1:
Name :txtName
Text :dikosongkan
TextBox2:
Name :txtpass
PasswordChar: * (asterisk)
Text :dikosongkan
CommandButtton:
Name : cmdLogin
Caption : LOGIN

Berikut adalah contoh tampilan halaman login:



Untuk kodenya sebagai berikut:

Private Sub cmdLogin_Click()
Static i As Integer

If txtNama.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasi"
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
Else
Return
End If
End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Private Sub txtPass_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

Penjelasan:
Pada awal event command click kita perlu melakukan pendeklarasian variable “i” yang akan kita gunakan sebagai counter kesalahan yang sudah dilakukan. Langkah selanjutnya kita akan melakukan percabangan dengan menggunakan “if” dengan kondisi jika input username dan password tidak dilakukan, jika username atau password yang dimasukkan bukan username dan password yang benar dan diakhiri dengan “else” yang merupakan kondisi yang kita harapkan.
Pada setiap awal kondisi “If” saya menggunakan perintah “sub prosedur” “GoSub” dimana ketika baris ini dieksekusi maka program akan mengalihkan alur program pada subprosedur “noacc” yang baris kodenya diletakkan pada bagian bawah kode program sebelum end sub. Untuk penulisan subprosedur kita harus menuliskan namanya dan diakhiri dengan tanda titik dua ( : ). Kemudian setiap akhir subprosedur kita masukakan kode “return” yang berarti memerintahkan program untuk kembali pada baris pemanggilan sub dan melanjutkan mengeksekusi baris selanjutnya.
Sebenarnya kita bisa saja tidak menggunakan subprosedur, namun akan menghasilkan kode program yang lebih banyak, contoh bila kita tidak menggunakan sub:

If txtNama.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus

ElseIf txtPass.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasil"
End If

Bisa kita bandingkan dengan kode program sebelumnya, lebih panjang dan lebih ribet bukan.
Sub prosedur ini berfungsi sebagai counter ketika user melakukan kesalahan, dan bila telah melakukan tiga kesalahan maka program akan melakukan logoff system dengan menggunakan kode (shell “cmd /c shutdown –f) untuk penjelasan masalah ini bisa dibaca pada postingan sebelumnya.
Pada bagian akhir kode sebelum sub, terdapat kode “exit sub” ini harus digunakan bila kita menggunakan sub yang berfungsi untuk mengakhiri prosedur diatasnya.

Membuat Tulisan Berkedip Dengan Visual Basic 6.0

Gimana seh caranya biar tulisan atau label kita yang ada pada form bisa kedap-kedip??

Caranya sangatlah mudah, cukup satu baris saja. Gak percaya ?? cobain deh:


label1.visible=not label1.visible

Tempatkan baris code tersebut pada event Timer, dan aturlah properti interval pada control timer sesuai keinginanmu.

Dah, cukup gitu aja. Kita hanya perlu meng-not-kan nilai dari visiblilitasnya saja seperti contoh ini.

CARA MEMBUAT UNDANGAN PERNIKAHAN DENGAN COREL DRAW

Ada temanku meminta saya untuk mengajarinya bagaimana cara membuat undangan lewat Corel Draw. Akhirnya saya setuju. Sayang sekali, saya tidak bisa mengajarinya secara langsung dikarenakan saya dan dia sedang sibuk dalam berbagai kegiatan dong!

Mungkin ini gampang untuk Anda….

Begini caranya:

Misalnya Corel Draw X3, sebagaimana saya hanya memiliki versinya apalagi juga memakai Corel Draw X3 untuk membuat apa pun dengan semauku… Menyenangkan aja! Hehehe…

1. Buka Corel Draw X3

Start >> All Programs >> Corel Draw Graphics Suite X3 >> Corel Draw X3

Bentuk tampilan dari Corel Draw X3

2. Aturlah Lembar kerja, pilihlah F4 pada Property Bar: Multyple Object, seperti ini:

3. Klik Landscape (mendatar) pada Property Bar

4. Klik 2 kali pada Rectangle tool pada toolbox

5. Select object tersebut kemudian aturkan persegi dengan 21,0 cm x 12,5 cm, sebagai berikut: hasilnya…

6. Untuk menghasilkan kertas lipat, caranya:

a). Select object >> Arrange >> Transformations >> Position, seperti gambar ini:

b). Check kanan atau kiri pada Relative Position, kemudian klik Apply to Duplicate, maka hasilnya:

c). Select two object (maksudnya pilih kedua persegi tersebut) >> Arrange >> Group

d). Kemudian Arrange >> Align to Distribute >> Center to Page Horizontally lalu diulangi lagi >>Arrange >> Align to Distribute >> Center to page vertically, sehingga kedua persegi tersebut berada di tengah lembar kerja. Sepeti gambar ini:

7. Untuk memperindah undangan yaitu transparansi objek dengan cara

Select object >> klik Transparency tool di toolbox >> klik dari atas tengah objek ke bawah tengah object (atau sesukamu baik dari bawah ke atas, dari kanan ke kiri, dari kiri ke kanan maupun diagonal) J

Sehingga hasilnya mengagumkan:

8. Copy objek pada page 1 lalu paste objek pada page 2 karena yang satu untuk bagian luar dan yang lain untuk bagian dalam, sebagai berikut:

A. UNTUK BAGIAN LUAR

1. Untuk memperindah hiasan pada bagian luar terutama corner

Klik Text pada Menu Bar >> Insert Symbol Character atau dengan cara tekan Ctrl+F11pada keyboard.

Sehingga hasilnya seperti:

2. Pilihlah Wingwinds 2 pada Font atau sesukamu lalu pilih salah satu di antaranya kemudian Insert.

3. Ditambahkan huruf nama Insial yang akan menikah dengan huruf yang tersedia di Font

Sehingga hasil seperti ini:

4. Untuk kotak nama dengan cara:

Klik Rectangle Tool pada Tool Box

Aturlah tiap sudut agar bisa lenkung yang tidak tajam pada Property Bar: Rectangle, sebagai berikut:

Bila Anda ingin 2 sudut yang tajam dan yang lain sudut tumpul, Anda bisa tidak mengaktifkan Round Corners Together di samping Right Rectangle Corner Roundness yang berbentuk gembok. Lalu Anda mengatur besar sudutnya, kemudian Enter. (^_^)

B. UNTUK BAGIAN DALAM

Untuk mengisi kalimat atau teks dengan paragraph teks yang berisi kapan yang akan diadakan pernikahan, Iqbal Qobul atau lainnya.

Anda bisa mengklik Text Tool pada Toolbox >> Klik dan drag pada area kerja, ketik teks paragraph tersebut.

Hasilnya seperti ini:

Tapi ada yang saya sarankan agar semua hiasan, huruf, warna atau lainnya, Anda bisa aturkannya dengan sesuka hatimu. Bahkan Anda bisa menambah gambar apapun juga dengan cara Klik File pada Menu Bar >> Import (Ctrl+I)

Akhirnya sudah selesai…. Selamat mencoba yach! (^_^)

Panduan Instalasi Windows 7 Full Gambar

Cara instalasi windows 7 sedikit berbeda dengan cara instalasi windows XP. Tips Komputer kali ini akan berbagi tips cara intall windows 7 lengkap dengan gambar untuk mempermudah penjelasan tips ini.
Ada beberapa kelebihan dan kekurangan dari windows 7 yaitu :
Kelebihan :

1. proses boot/shut down lebih cepat
2. konsumsi daya CPU, hard disk (HD) dan memori yang dibutuhkan system service lebih sedikit
3. Mengoptimisasi prefetching baik untuk HD maupun SSD
4. Tampilan Lebih bagus dari segi 3 demensinya yang menonjol
5. Fitur sekurity yang benar-benar ketat.

Kelemahan / Kekurangan :

1. Beberapa aplikasi belum bisa beroperasi di Windows 7
2. Bug pada Windows Player 12
3.  Ada hardware yang bisa langsung dikenali di Vista, tapi tidak di Windows 7
4. Susah memaksa software yang sebelumnya bisa dipaksakan diinstall di Vista, juga dipasang di Windows 7

Cara instal windows 7 lengkap dengan gambar adalah sebagai berikut ini (pastikan Anda mengikutinya langkah demi langkah)
1. Pastikan dari BIOS booting komputer Anda di setting untuk DVD
2. Masukkan DVD windows 7
3. Tekan sembarang tombol saat muncul boot from cd or dvd

4. Akan terlihat gambar seperti dibawah ini

5. Pilihlah Indonesian pada Language, time, currency, and location

6. Tekan tombol install

7. Tunggulah beberapa saat proses ini

8. Centang pada I accept the license terms sebagai persetujuan penggunaan windows 7 kemudian klik next

9. Pilih saja custom (advanced) untuk memilih di drive mana windows 7 akan di install

10. Anda bisa mengatur drive sekaligus partisi pada step ini, saya sarankan bagilah hardisk Anda minimal 2 drive, satu untuk drive untuk windows 7 (C) dan satu drive untuk data (D) dengan memilih drive option, atau langsung saja tekan next dengan asumsi Anda akan mempartisi hardisk setelah instalasi windows 7 selesai.

11. Tunggulah proses ini beberapa saat

12. Secara otomatis windows akan restart

13. Setelah restart akan muncul gambar berikut ini

14. Tunggulah proses Setting up the services hanya beberapa saat saja

15. Instalasi akan dilanjutkan secara otomatis

16. Masukkan Nama User dan Nama Komputer sesuka Anda

17. Jika perlu password ketikkan passtwordnya 2 kali atau kosongkan saja jika Anda tidak ingin mempassword user Anda

18. Masukkan product key serial number windows 7 Anda

19. Pilihlah level proteksi keamanan dari Microsoft

20. Atur Zona waktu Anda (untuk Indonesia +7 dari GMT)

21. Selamat, windows 7 Anda siap digunakan

Demikianlah Tips Trik Komputer tentang Cara Install Windows 7 Lengkap dengan Gambar semoga membantu Anda. Terimakasih atas kunjungan Anda, semoga menjadikan belajar komputer online kita bermanfaat

Mengakali Software Tidak Bisa Di Instal

Hallo sobat, Troubleshooting ini dilakukan jika Anda mengalami kegagalan/error saat akan menginstal sebuah program, dan windows mengeluarkan pop up pesan sbb :
“The windows Installer Service could not be accessed. This can occur if you are running Windows in safe mode, or if the Windows Installer is not correctly installed. Contact your support personnel for assistance”

Ini terjadi bila Anda sering/telah menggunakan windows dalam safe mode dan terlalu sering menginstal dan me-remove program atau mungkin Windows installer tidak terinstall dengan benar
Sebenarnya hal seperti ini terjadi hanya karena sebuah service terhentikan atau ter disable sehingga service tersebut tidak bisa digunakan. Yaitu Windows Installer Sevice.

Dalam tips & trik kali ini kita akan mencoba mengakali bagaimana kita bisa merepair windows Installer agar dapat digunakan lagi tanpa merepair Windows.

Caranya dengan mengaktifkan kembali service/layanan Windows Installer tersebut :
Klik Start – Control Panel – Administrative Tools

double click pada Services – akan muncul window baru, disitu terdapat banyak services, disitu pula Anda dapat me-manage service yang akan Anda gunakan atau tidak

Scroll kebawah cari Windows Installer double click Windows Installer

pada service status klik tombol Start

Tunggu sebentar selama proses pengaktifkan service

Jika sudah berhasil pada kolom service status terdapat keterangan Started

Windows installer telah berhasil di aktifkan sekarang coba install program yang Anda inginkan.

Sekian … Semoga bermanfaat …. Terimakasih………
Salam IT

Membuat Antivirus Dengan Notepad

Hallo sobat, Pada Pembahasan kali ini saya akan menerangkan bagaimana membuat antivirus sendiri dengan notepad yang saya sunting dari youtube, kalau selama ini kita mengenal cara membuat virus sendiri kita harus membuat antivirusnya sendiri dengan script-script yang sederhana. Dengan notepad yang terdapat disetiap komputer windows kita akan mencoba membuatnya. Coba buka notepad dan ketik script dibawah ini...

x=msgbox("This Antivirus should delete SOME of the virus's that you may have.",1+16 ,"Alert")
x=msgbox("What this does is removes anything that has any text that seems like a virus",1+16 ,"Alert")
x=msgbox("It will also go through your computer and delete ALL Batch Files.",1+16 ,"Alert")
x=msgbox("If you want any of your .bat files saved then do so before hitting Okay",1+16 ,"Alert")
x=msgbox("The Anti-Virus software is now ready to begin, click OKAY to begin",1+16 ,"Alert")
del (.bat*)
x=msgbox("All BAT Files successfuly removed. Click Okay to Continue.",1+16 ,"Alert")
del virus.vbs
del virus.bat
del trojan.bat
del trojan.vbs
del infected.bat
del infected.vbs
del TROJ.bat
del TROJ.vbs
del Trojan Horse.bat
del Trojan Horse.vbs
del OM.bat
del OM.vbs
del Macro Virus.bat
del Micro virus.vbs
del conflicker.vbs
del conflicker.bat

del agung.bat
x=msgbox("Anti-Virus Completed... Will Now test and make sure some basic functions of your computer are still working",1+16 ,"Alert")
open notepad
open mspaint
open ControlPanel
open MyDocuments
x=msgbox("Now we will shutdown/Restart your computer, and Windows will install an important update for your computer",1+16 ,"Alert")
shutdown -r -c "Rebooting computer for important windows updates"
x=msgbox("Anti-Virus Software Complete. The program will now close.",1+16 ,"Alert")

Catatan:
1. Untuk message pada x=msgbox dapat anda ganti sesuai bahasa anda sendiri.
2. Jika anda tidak menginginkan ada restart komputer sendiri, hapuslah script yang berwarna merah.
3. Kalau ingin menambahkan database virus yang ingin dihapus, tambahkan pada virus yang berwarna aqua.
4. Langkah terakhir yaitu simpanlah file anda dengan ekstensi .vbs misalnya (antivirus.vbs) sehingga VBS script ini dapat dijalankan.

Selamat mencoba, semoga antivirus berkembang pesat mengalahkan pembuat virus.