Cara Membuat Form login dan loading dengan data base di VB6

Kali ini saya ingin berbagi cara membuat form loading di vb6 dengan database dan juga memakai loading,,,ok kita mulai aja ya

Pertama buka vb6>>standard exe

Masukan beberapa komponen yaitu:

1. Image (isi dengan gambar yang kamu suka) ini digunakan untuk backgroundnya biar keren
   
2. 2 buah textbox
   
3. 2 label
   
4. 2 command button
   
5. ProgressBar1 (microsoft common control 6.0(SP6))
   
6. Datagrid (microsoft datagrid6.0(OLEDB))
   
7. Adodc (microsoft Data Ado Control 6.0(OLEDB))
   
8. 2 buah form 1 dan 2
   

Pertama kita buat databasenya dulu dengan acces(ms.acces),dengan databasename:data.mdb dan tablename:login

Anda bisa membuat database di acces langsung ato bisa juga pada vb nya,klo pada vb6 begini caranya:

1. pilih add_in
   
2. visual data manager
   
3. new
   
4. microsoft acces
   
5. pilih version 7.0 MDB...
   
6. beri nama dan pilih di drive mana kita akan menyimpan database
   
7. setelah terbuka klik kanan pada properties dan pilih new table
   
8. beri nama table pilih add field
   
9. masukan dua fiel yaitu name dan password
   
10. close>>build table
    
11. kemudian close
    

Selanjutnya masuk ke form susun component sesuai gambar berikut:

Datagrid dan adodc di simpan dengan visible=false

Progres bar simpan di bagian hitam dengan visible=false,





setelah selesai masukan code di bawah ini:

Private Sub Command1_Click()

On Error Resume Next

With Adodc1.Recordset


 
If Text1.Text = "" And txtPassword = "" Then

MsgBox "Isi Semua data!!!!!!"

Else

If Text1.Text <> !Name Then

MsgBox "Nama Salah"

Else

If Text2.Text <> !Password Then

MsgBox "Password Salah"

Else


 
With Me.ProgressBar1

.Appearance = ccFlat

.Scrolling = ccScrollingSmooth

.Max = 1500

.Min = 0

.Value = 0

Dim i As Integer

For i = .Min To .Max

.Value = i

Next i


 
End With

Form1.Hide

MsgBox "ANDA TELAH LOGIN SEBAGAI USER"

Form2.Show

End If

End If

End If

End With


 
End Sub


 
Klo gak ada kesalahn pasti jalan dech,,,,terimakasih mudah mudahan bermanfaat mohon maaf apabila ada kesalahan dalam tuliasan

Silahkan tulis di koment aja,klo ada pertanyaan