Public class login form in vb

Download .pdf, .docx, .epub, .txt
Did you like this example?

Public Class loginForm

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okButton2.Click

Don’t waste time! Our writers will create an original "Public class login form in vb" essay for you whith a 15% discount.

Create order

Try

mappDB.UserName = usernameTextBox.Text : mappDB.Password = passwordTextBox.Text

Call mappDB.connect()

MainForm.Show()

Catch ex As Exception

Call showError(ex.Message)

End Try

End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

If MessageBox.Show("Do you really want to quit now?", strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Application.Exit()

End Sub

Private Sub loginForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.Text = strApplicationName & " Login"

passwordTextBox.Text = String.Empty

‘todo remove when launch

usernameTextBox.Text = "admin"

passwordTextBox.Text = "7151epeN"

End Sub

End Class

Imports System.Data.OleDb

Imports System.Configuration

Public Class MainForm

Structure _gridFilter

Dim _sql As String

Dim _criteria As String

Dim _orderBy As String

End Structure

Dim gridFilter As New _gridFilter

Dim cmdLocal As OleDbCommand

Dim blIsActiveLoan As Boolean

Dim bsGLSummary As New BindingSource

Private Sub exitToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

If MessageBox.Show("Quit application now?", strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Application.Exit()

End Sub

Private Sub MainForm_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

loginForm.Visible = False

End Sub

Private Sub MainForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

Call mappDB.close() : Call mappDB.dispose()

mappDB = Nothing

End Sub

Private Sub NewLoanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewLoanToolStripMenuItem.Click

borrowForm.ShowDialog()

End Sub

Private Sub BorrowerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrowerToolStripMenuItem.Click

borrowerForm.ShowDialog()

End Sub

Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.Text = strApplicationName & " for " & ConfigurationManager.AppSettings("client").ToString

‘dateLabel.Text = System.DateTime.Now.ToString("MMM dd yyyy")

loginUserNameLabel.Text = mappDB.UserName

loginsinceLabel.Text = System.DateTime.Now.ToString("MMM dd yyyy hh:mm tt")

filtercriteriaComboBox.SelectedIndex = 1

With glSumTotalDataGridView

.ReadOnly = True

.Rows.Add() : .Rows.Add() : .Rows.Add()

.Item(0, 0).Value = "Total Cr"

.Item(0, 1).Value = "Total Dr"

.Item(0, 2).Value = "Balance "

.Columns(0).Width = 550

.Columns(1).Width = 150

.Cursor = Cursors.Hand

.SelectionMode = DataGridViewSelectionMode.FullRowSelect

End With

End Sub

Private Sub searchfilterButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchfilterButton.Click

Me.Cursor = Cursors.WaitCursor

gridFilter._sql = "SELECT pk_borrowerID,lastname as [Last name],firstname as [First Name] FROM tblborrower"

Do you want to see the Full Version?

View full version

Having doubts about how to write your paper correctly?

Our editors will help you fix any mistakes and get an A+!

Get started
Leave your email and we will send a sample to you.
Thank you!

We will send an essay sample to you in 2 Hours. If you need help faster you can always use our custom writing service.

Get help with my paper
Sorry, but copying text is forbidden on this website. You can leave an email and we will send it to you.