hanya memasukan code ini form login akan muncul
Dim Eco As New EcoFunctionCollection
Private Sub Command1_Click()
Dim Hasil As Integer
Dim con As New ADODB.Connection
‘Koneksi ke database
If Eco.EcoConnection(“127.0.0.1”, “DBDATA”, [2.Mysql Driver ODBC 3.51], “root”, “”, “3306”, con) = False Then
MsgBox “koneksi gagal”
End
End If
‘memanggil form login
Hasil = Eco.EcoShowLogin(con, “tbuser”, “userid”, “password”, [2.EcoEncrypt])
‘nilai 0 jika cancel , nilai 1 login berhasil
If Hasil = 1 Then
MsgBox “Login berhasil”
ElseIf Hasil = 0 Then
MsgBox “Cancel”
End If
End Sub
untuk pengecekan enkripsi syarat enkripsinya harus mengunkan enkripsi yg ada di ecocollection.dll (ada key public dan private)
jika tidak ada enkripsi bisa diisi [1.None]
untuk lebih jelasnya bisa download Ecocollection.dll dan contoh projectnya disini
ekojimmy 