Rabu, 01 Februari 2012

Login Master

Kategori : Visual Basic Source Code
Golongan : Free


Dari catatan request yang saya kumpulkan dari beberapa teman dalam forum VBO, cukup banyak juga yang menanyakan tentang contoh modul untuk login. Untuk sementara baru ini yang bisa saya tulis. Mudah-mudahan bisa dikembangkan sendiri.

Letakkan kode ini di Module

'Written by : Deni Setyawan @ 2 Februari 2012
'email : ahdan1302@yahoo.com
'blog : http://ahdani.blogspot.com

Option Explicit

Public AryQuest1() As String
Public AryQuest2() As String
Public CurrentID As String 'Untuk menyimpan ID ketika login yang dibutuhkan dalam beberapa event selama logged in
Public Conn As ADODB.Connection 'Deklarasi ADO


Sub Main() 'Aplikasi harus startup dari sini

Dim StrDbName As String
StrDbName = App.Path & "\DatabaseSaya.mdb" 'Alamat Database

Set Conn = New ADODB.Connection
Conn.Provider = "Microsoft.jet.oledb.4.0" 'Database Engine
Conn.Open StrDbName 'Buka Koneksi pada alamat itu

Form1.Show 'Tampilkan Form1


End Sub


'Pengisian data dari recordset ke Grid
Function LoadGrid(ByVal vGrid As MSFlexGrid, ByVal vRs As ADODB.Recordset)
Dim I As Long, U As Long
vGrid.Cols = vRs.Fields.Count
vGrid.Rows = getRecordCount(vRs) + 1
For I = 0 To vGrid.Rows - 1
For U = 0 To vRs.Fields.Count - 1
If I = 0 Then vGrid.TextMatrix(I, U) = vRs.Fields(U).Name & "" Else vGrid.TextMatrix(I, U) = Trim(vRs.Fields(U).Value & "")
Next U
If I > 0 Then vRs.MoveNext
Next I
End Function

'Mendapatkan jumlah record dan set ke awal record
Public Function getRecordCount(ByVal vRs As ADODB.Recordset) As Long
On Error Resume Next

vRs.MoveLast
getRecordCount = vRs.RecordCount
vRs.MoveFirst
End Function


Sub LoadQuestion(Optional Kombo1 As ComboBox, Optional Kombo2 As ComboBox)

Dim I As Integer
AryQuest1 = Split("Siapa nama kecil ayah anda?|" & _
"Siapa guru favorit anda sewaktu SD?|" & _
"Apa makanan favorit anda sewaktu kecil?|" & _
"Sebutkan tempat kelahiran ayah anda|" & _
"Sebutkan nama paman anda", "|")

AryQuest2 = Split("Apa Group musik anda sepanjang masa?|" & _
"Siapakah tokoh film favorit anda sepanjang masa?|" & _
"Apa judul buku favorit anda?|" & _
"Siapakah tokoh kartun anda di masa kecil?|" & _
"Sebutkan nama hewan peliharaan anda yang pertama", "|")

On Error GoTo Lewatlah

Kombo1.Clear
For I = LBound(AryQuest1) To UBound(AryQuest2)
Kombo1.AddItem AryQuest1(I)
Next I

Kombo2.Clear
For I = LBound(AryQuest2) To UBound(AryQuest2)
Kombo2.AddItem AryQuest2(I)
Next I

Lewatlah:
End Sub

Ah susah amat nulisnya di halaman ini. Download aja source code nya yah... lengkap dengan comment text nya untuk tutorial.

Login Master.zip