CODE-VB6.BLOGSPOT.COM

PROGRAM DESCRIPTION

This program is an advance login security for your system. add this in your project then you have it 100% working. just dont forget to add the database. you may download the full project source code below for free!!!

SCREENSHOT

CODE


Option Explicit

Public conn As ADODB.Connection

Public Sub connect()
Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myDatabase.mdb;Persist Security Info=False"
End Sub

Sub main()
connect
frmLogin.Show
End Sub

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()

Dim rs As New ADODB.Recordset

rs.Open "SELECT * FROM tblUser WHERE username = '" & txtUserName & "'", conn, adOpenStatic, adLockReadOnly
    If rs.RecordCount <> 0 Then
        If txtPassword = rs!password Then

            MsgBox "Username and Password Succesful!"
            'Remove msgbox above then call a form to be load if login is succesful!
         
        Else
            MsgBox "Invalid Password, try again!", , "Login"
        End If
    Else
        MsgBox "Invalid Login, try again!", , "Login"
 
    End If
    rs.Close
    Set rs = Nothing

End Sub

PROGRAM DESCRIPTION


This program is capable of the following functionality:
-Add record
-Delete record
-Search and Filter record
-Edit and Update record
-Navigate into record

with Status bar using ADO connection to connect to Microsoft Access Database.


SCREENSHOT






CODE



Option Explicit

Public conn As ADODB.Connection
Public rs As ADODB.Recordset

Sub connect()
Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myDatabase.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
    rs.ActiveConnection = conn
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.Source = "SELECT * FROM MyTable"
    rs.Open
End Sub

Sub main()
connect
frmMain.Show
End Sub




Private Sub cmdDelete_Click()
On Error Resume Next
If MsgBox("Data is not recoverable!", vbExclamation + vbOKCancel, "Confirm Delete") = vbOK Then
rs.Delete
End If
End Sub

Private Sub cmdFirst_Click()
rs.MoveFirst
Call stat
End Sub

Private Sub cmdLast_Click()
rs.MoveLast
Call stat
End Sub

Private Sub cmdNext_Click()
If rs.EOF = True Then
    rs.MoveFirst
    Call stat
Else
    rs.MoveNext
    Call stat
End If
End Sub

Private Sub cmdPrevious_Click()
If rs.BOF = True Then
    rs.MoveLast
    Call stat
Else
    rs.MovePrevious
    Call stat
End If
End Sub

Private Sub Command1_Click()
rs.Filter = adFilterNone
rs.Requery
End Sub

Private Sub Command2_Click()
If MsgBox("Close Applect?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    End
End If
End Sub

Private Sub Form_Load()

Set DataGrid1.DataSource = rs

End Sub

Sub stat()
StatusBar1.Panels(1).Text = "Record " & rs.AbsolutePosition & " of " & rs.RecordCount
End Sub

Private Sub mnuAdd_Click()
frmAdd.Show
End Sub

Private Sub cmdSave_Click()
If txtid.Text = "" Or txtFn.Text = "" Or txtMi.Text = "" Or txtLn.Text = "" Then
    MsgBox "Some fields are still empty!", vbExclamation, "Input Error"
Else
rs.AddNew
rs("studId") = txtid.Text
rs("FirstName") = txtFn.Text
rs("MI") = txtMi.Text
rs("LastName") = txtLn.Text
rs.Update
MsgBox "Record Added Successfusly!", vbInformation, "Add Record"
Call clear
End If
End Sub

Sub clear()
txtid.Text = ""
txtFn.Text = ""
txtMi.Text = ""
txtLn.Text = ""
txtFn.SetFocus
End Sub

Private Sub txtSearch_Change()
If txtSearch.Text = "" Then
Call Form_Load
Me.Show
Else
rs.Filter = "FirstName LIKE '" & Me.txtSearch.Text & "*'"
Set DataGrid1.DataSource = rs
End If
End Sub

DESCRIPTION


This vb sample program using a progress bar is use for loading / splash screen on your small application.
download the full source code below for free then try it on your own. enjoy!


SCREENSHOT




CODE

Option Explicit

Private Sub Form_Load()
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
    If ProgressBar1.Value = 80 Then
      ProgressBar1.Value = ProgressBar1 + 20

        If ProgressBar1.Value >= ProgressBar1.Max Then
            Timer1.Enabled = False
        End If
      'In this are you may call the form to be loaded next!
      MsgBox "Loading Complete!", vbInformation, "Info"
      Unload Me
   End If
End Sub

SCREENSHOT




CODE

Option Explicit
Dim user As String
Dim pass As String

Public LoginSucceeded As Boolean

Private Sub cmdExit_Click()
If MsgBox("Are you sure to close this Application?", vbQuestion + vbYesNo, "System") = vbYes Then
    End
End If
End Sub

Private Sub cmdLogin_Click()
user = "admin"
pass = "12345"

    If txtUserName.Text = user Then
        If txtPassword.Text = pass Then

                MsgBox "Username and Password Accepted!", vbInformation, "Login"
                'You may change this line here. call the form rather than displaying a message box!
   
        ElseIf txtPassword.Text = "" Then
            MsgBox "Password Field Empty!", vbExclamation, "Login"
        Else
     
            MsgBox "Username and Password not Matched!", vbExclamation, "Login"
        End If
    ElseIf txtUserName.Text = "" Then
        MsgBox "Username Field Empty!", vbExclamation, "Login"
    Else
        MsgBox "Invalid Username, try again!", , "Login"
        txtPassword.SetFocus
    End If

End Sub

DOWNLOAD HERE: Simple Login / Security in VB 6.0

This simple Human Resource and Payroll System is for beginners with no Database application. it contains Login form that has 3 user accounts and user level, Splash screen, main form where to find Human Resource Form and Payroll System Form and the additional source code of calculator written in Visual Basic 6.0.

User level - admin - username - admin - password - admin
refer to source code for other username and password.

Download the source code for Free!
Have fun!

Who should read this article?

Prerequisites

Why you need to use progress bar in your applications?

When you may need custom progress bar?

1. Standard progress bar does not fit to your application user interface design.
2. Standard progress bar is too complex or too "heavy" for your simple application.
3. Standard progress bar is part of the mscomctl.ocx ActiveX controls library, but you do not want to include additional files in your application package.
4. etc.

Lightweight progress bar design

1. The lblBack Label control will represent progress bar background. It is absolutely static. All properties for this control can be set at design time.
2. The lblFace Label control will represent face of our progress bar. Top, Left and Height properties should be the same as corresponding properties of the lblBack Label control. The Width property of the lblFace should be set to 0 at design time. It will be changed dynamically at runtime.

1. Appearance: 0 - Flat
2. BorderStyle: 1 - Fixed Single

Progress bar implementation and Visual Basic code

1. m_iMin - minimal range value. We will need it to calculate current progress position correctly.
2. m_iValue - current progress bar counter value, i.e. current progress position.
3. m_iMaxValue - maximal progress bar counter value. It will be calculated during initialization from the Min and Max range values.
4. m_sWidth - progress bar control width. It is the lblBack.Width value.

Private m_iMin As Long
 Private m_iValue As Long
 Private m_iMaxValue As Long
 Private m_sWidth As Single

Private Sub InitProgress(ByVal iMin As Long, ByVal iMax As Long)

m_sWidth = Me.lblBack.Width
 m_iMin = iMin

If iMin = 1 Then
  m_iMaxValue = iMax
 Else
  m_iMaxValue = Abs(iMax - iMin)
  If iMin < 1 Then
   m_iMaxValue = m_iMaxValue + 1
  End If
 End If
 m_iValue = 1
 End Sub

Private Sub SetProgress(ByVal iValue As Long)

m_iValue = Abs(iValue - m_iMin) + 1

With Me.lblFace
  .Width = (m_iValue * m_sWidth) / m_iMaxValue
  .Caption = CStr(Int(m_iValue * 100 / m_iMaxValue)) & "%"
 End With

DoEvents
 End Sub

How to use sample Visual Basic code

1. Download and Unpack visual-basic-custom-progress.zip into a single folder on your computer.
2. Run compiled executable Project1.exe. It doesn't require any additional DLLs except Visual Basic run-time.
3. Or load Project1.vbp in your Visual Basic development environment to view sample sources.

How to customize your progress bar

1. Set your own font, size, filling and borders.
2. Change Height property instead of Width property and create vertical progress bar.
3. Create right-to-left or bottom-to-top progress bars.
4. Use Image control instead of Label control. It is also graphical lightweight control, but allow using pictures.

Last note

SCREENSHOT