E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.

vb 1
Imports System.Data.SqlClient
Imports System.Drawing.Printing
Imports Excel = Microsoft.Office.Interop.Excel

''Sum of Column
'Dim total As Double = 0
'For i As Integer = 0 To MembershipsDataGridView.RowCount - 1
' total += MembershipsDataGridView.Rows(i).Cells(4).Value
'Next
'txtBlMsPoints.Text = total

Public Class frmMainPage

Dim a As New OpenFileDialog 'To import NEW MEMBER picture from computer
Dim b As New OpenFileDialog 'To import picture to modify EXISTING MEMBER picture in DATABASE

'APPLICATION STARTUP
'TAB-1 CORE
Private Sub frmMainPage_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Members()

'TODO: This line of code loads data into the 'CoreDataSet.invsettings' table. You can move, or
remove it, as needed.
Me.InvsettingsTableAdapter.Fill(Me.CoreDataSet.invsettings)
Me.Inv_Settings_Readonly()

'TODO: This line of code loads data into the 'CoreDataSet.invoice' table. You can move, or
remove it, as needed.
Me.InvoiceTableAdapter.Fill(Me.CoreDataSet.invoice)

'TODO: This line of code loads data into the 'CoreDataSet.products' table. You can move, or
remove it, as needed.
Me.ProductsTableAdapter.Fill(Me.CoreDataSet.products)

'TODO: This line of code loads data into the 'CoreDataSet.tax' table. You can move, or remove it
, as needed.
Me.TaxTableAdapter.Fill(Me.CoreDataSet.tax)

'TODO: This line of code loads data into the 'ProgramsDataSet1.programs' table. You can move, or
remove it, as needed.
Me.ProgramsTableAdapter1.Fill(Me.ProgramsDataSet1.programs)

'TODO: This line of code loads data into the 'MpmsDataSet2.memberships' table. You can move, or
remove it, as needed.
' Me.MembershipsTableAdapter1.Fill(Me.MpmsDataSet2.memberships)

'TODO: This line of code loads data into the 'CoreDataSet1.assessments' table. You can move, or
remove it, as needed.
Me.AssessmentsTableAdapter1.Fill(Me.CoreDataSet1.assessments)

''TODO: This line of code loads data into the 'CoreDataSet.programs' table. You can move, or
remove it, as needed.
'Me.ProgramsTableAdapter.Fill(Me.CoreDataSet.programs)

''TODO: This line of code loads data into the 'CoreDataSet.assessments' table. You can move, or
remove it, as needed.
'Me.AssessmentsTableAdapter.Fill(Me.CoreDataSet.assessments)

'TODO: This line of code loads data into the 'CoreDataSet.memberships' table. You can move, or
remove it, as needed.
Me.MembershipsTableAdapter.Fill(Me.CoreDataSet.memberships)
Me.MembershipsBindingSource.AddNew()

'Total Membership
Dim rowcount As Integer
rowcount = MembershipsDataGridView2.BindingContext(MembershipsDataGridView2.DataSource,
MembershipsDataGridView2.DataMember).Count.ToString
txtTotalMembership.Text = rowcount

'Total Members
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 2
Dim totalmem As Integer
totalmem = MembersDataGridView.BindingContext(MembersDataGridView.DataSource,
MembersDataGridView.DataMember).Count.ToString
txtTotalMembers.Text = totalmem

'Total Male Members

Try
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\
core.mdf;Integrated Security=True;User Instance=True")
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand("SELECT COUNT(*) FROM members WHERE gender= 'Male'", con)
Dim cmdd As New SqlCommand("SELECT COUNT(*) FROM members WHERE gender= 'Female'", con)
Dim count As Integer
Dim countd As Integer
count = cmd.ExecuteScalar()
txtTotalMale.Text = count
countd = cmdd.ExecuteScalar()
txtTotalFemale.Text = countd
Catch ex As Exception
End Try
Try
Me.MembershipsTableAdapter1.sort(Me.MpmsDataSet2.memberships)
Me.MembershipsBindingSource1.Filter = "end_date > #" & System.DateTime.Now.Date & "#"
Try
Dim ActiveMembers As Integer
ActiveMembers = MembershipsDataGridView2.BindingContext(MembershipsDataGridView2.
DataSource, MembershipsDataGridView2.DataMember).Count.ToString
txtActiveMembers.Text = ActiveMembers
Catch ex As Exception
End Try
Catch ex As Exception
End Try

btnInvPrintPreview.Enabled = False
'Methods
Me.StPd_readonly()
Me.StPr_Readonly()
Me.StTax_Readonly()
'User Entry
txtUser.Text = "Admin"
End Sub

'TAB-2 MEMBERS
Private Sub tpMembers_Enter(sender As System.Object, e As System.EventArgs) Handles tpMembers.Enter
Me.member_readonly()
'If txtUser.Text = "Admin" Then
' btnUpdate.Enabled = False
' btnUpdatedSave.Enabled = False
'End If
End Sub

Public Sub member_readonly()

txtMemAddress.ReadOnly = True
txtMemBpHigh.ReadOnly = True
txtMemBpLow.ReadOnly = True
txtMemCity.ReadOnly = True
txtMemCompany.ReadOnly = True
txtMemEmail.ReadOnly = True
txtMemFatPercentage.ReadOnly = True
txtMemFirstName.ReadOnly = True
txtMemHeight.ReadOnly = True
txtMemLandline.ReadOnly = True
txtMemLastName.ReadOnly = True
txtMemMedicalHistory.ReadOnly = True
txtMemMobile.ReadOnly = True
txtMemOccupation.ReadOnly = True
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 3
txtMemPincode.ReadOnly = True
cbMemRole.Enabled = False
txtMemMsPoint.ReadOnly = True
txtMemSugar.ReadOnly = True
txtMemTown.ReadOnly = True
txtMemWeight.ReadOnly = True
cbMemActivity.Enabled = False
cbMemBloodGroup.Enabled = False
cbMemGender.Enabled = False
dtpMemDob.Enabled = False
btnImportPicture.Enabled = False
btnUpdatePicture.Enabled = False
End Sub

Public Sub member_read()

txtMemAddress.ReadOnly = False
txtMemBpHigh.ReadOnly = False
txtMemBpLow.ReadOnly = False
txtMemCity.ReadOnly = False
txtMemCompany.ReadOnly = False
txtMemEmail.ReadOnly = False
txtMemFatPercentage.ReadOnly = False
txtMemFirstName.ReadOnly = False
txtMemHeight.ReadOnly = False
txtMemLandline.ReadOnly = False
txtMemLastName.ReadOnly = False
txtMemMedicalHistory.ReadOnly = False
txtMemMobile.ReadOnly = False
txtMemOccupation.ReadOnly = False
txtMemPincode.ReadOnly = False
cbMemRole.Enabled = True
txtMemMsPoint.ReadOnly = False
txtMemSugar.ReadOnly = False
txtMemTown.ReadOnly = False
txtMemWeight.ReadOnly = False
cbMemActivity.Enabled = True
cbMemBloodGroup.Enabled = True
cbMemGender.Enabled = True
dtpMemDob.Enabled = True
btnImportPicture.Enabled = True
btnUpdatePicture.Enabled = True
End Sub

Public Sub Members()

'TODO: This line of code loads data into the 'CoreDataSet.members' table. You can move, or
remove it, as needed.
Me.MembersTableAdapter.Fill(Me.CoreDataSet.members)
End Sub

Public Sub AddNewClear()

txtMemActivityValue.Clear()
txtMemAddress.Clear()
txtMemEdited.Clear()
txtMemBmi.Clear()
txtMemBmiCategory.Clear()
txtMemBmr.Clear()
txtMemBpCategory.Clear()
txtMemBpHigh.Clear()
txtMemBpLow.Clear()
txtMemCity.Clear()
txtMemCompany.Clear()
txtMemEmail.Clear()
txtMemFatPercentage.Clear()
txtMemFirstName.Clear()
txtMemHeight.Clear()
txtMemLandline.Clear()
txtMemLastName.Clear()
txtMemMedicalHistory.Clear()
txtMemMobile.Clear()
txtMemOccupation.Clear()
txtMemPincode.Clear()
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 4
cbMemRole.Text = ""
txtMemMsPoint.Clear()
txtMemSugar.Clear()
txtMemTown.Clear()
txtMemWeight.Clear()
cbMemActivity.Text = ""
cbMemBloodGroup.Text = ""
cbMemGender.Text = ""
dtpMemDob.Value = Today
txtMemDoj.Clear()
txtMemEdited.Clear()
txtMemCreated.Clear()
pbMemPicture.Image = Nothing
End Sub
'2.1 Search Member - Panel
Private Sub btnMemNewMember_Click(sender As System.Object, e As System.EventArgs) Handles
btnMemNewMember.Click
Me.member_readonly()
Me.AddNewClear()
pnlMemAddMenu.BringToFront()
End Sub

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

Handles cbMemSearchby.SelectedIndexChanged
If cbMemSearchby.Text = "ID" Then
txtMemSearchCriteria.BringToFront()
ElseIf cbMemSearchby.Text = "Name" Then
txtMemSearchCriteria.BringToFront()
ElseIf cbMemSearchby.Text = "DOB" Then
dtpMemSearch.BringToFront()
ElseIf cbMemSearchby.Text = "MsP <" Then
txtMemSearchCriteria.BringToFront()
ElseIf cbMemSearchby.Text = "MsP >" Then
txtMemSearchCriteria.BringToFront()
End If
End Sub

Private Sub btnMemSearch_Click(sender As System.Object, e As System.EventArgs) Handles btnMemSearch.

Click
If cbMemSearchby.Text = "ID" Then 'Coding to search by Member ID
Try
Me.MembersTableAdapter.FillByID(Me.CoreDataSet.members, txtMemSearchCriteria.Text)
Dim count As Integer = Me.MembersBindingSource.Count
If count = 0 Then
MsgBox("No Records Found for the Member ID - " & txtMemSearchCriteria.Text)
End If
Catch ex As System.Exception
MsgBox("Error in Search by ID : " & ex.Message)
End Try

ElseIf cbMemSearchby.Text = "Name" Then 'Coding to Search by Name

Try
Me.MembersTableAdapter.FillbyName(Me.CoreDataSet.members, txtMemSearchCriteria.Text)
Dim count As Integer = Me.MembersBindingSource.Count
If count = 0 Then
MsgBox("No Records Found for the Name - " & txtMemSearchCriteria.Text)
End If
Catch ex As Exception
MsgBox("Error in Search by Name : " & ex.Message)
End Try

ElseIf cbMemSearchby.Text = "DOB" Then 'Coding to Search ny Date of Birth (DOB)

Try
Me.MembersTableAdapter.FillByDOB(Me.CoreDataSet.members, dtpMemSearch.Value)
Dim count As Integer = Me.MembersBindingSource.Count
If count = 0 Then
MsgBox("No Records Found in this Date - " & txtMemSearchCriteria.Text)
End If
Catch ex As System.Exception
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 5
MsgBox("Error in Search by D.O.B : " & ex.Message)
End Try

ElseIf cbMemSearchby.Text = "MsP <" Then 'Coding to Filter Less than specified Membership
Points
Try
Me.MembersBindingSource.Filter = "pincode <= '" & txtMemSearchCriteria.Text & "'"
Catch ex As Exception
MsgBox("Error in Search by Ms Point" & ex.Message)
End Try

ElseIf cbMemSearchby.Text = "MsP >" Then 'Coding to Filter More than specified Membership
Points
Try
Me.MembersBindingSource.Filter = "pincode >= '" & txtMemSearchCriteria.Text & "'"
Catch ex As Exception
MsgBox("Error in Search by Ms Point" & ex.Message)
End Try
End If

End Sub

Private Sub llblRefresh_LinkClicked(sender As System.Object, e As System.Windows.Forms.

LinkLabelLinkClickedEventArgs) Handles llblSearchRefresh.LinkClicked
Me.Members()
End Sub

Private Sub btnUpdate_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdate.Click

btnUpdatedSave.BringToFront()
btnUpdatePicture.Enabled = True
Me.member_read()
End Sub

Private Sub btnUpdatedSave_Click(sender As System.Object, e As System.EventArgs) Handles

btnUpdatedSave.Click
Try
Dim update_member As String = "UPDATE members SET member_id=@member_id,first_name=@
first_name,last_name=@last_name,dob=@dob,age=@age,gender=@gender,blood_group=@blood_group,address=@
address,town=@town,city=@city,state=@state,pincode=@pincode,occupation=@occupation,company=@company,
landline=@landline,mobile=@mobile,email=@email,height=@height,weight=@weight,bmi=@bmi,bmi_category=@
bmi_category,fat_percentage=@fat_percentage,bmr=@bmr,doj=@doj,activity=@activity,activity_value=@
activity_value,medical_history=@medical_history,bp_low=@bp_low,bp_high=@bp_high,bp_category=@
bp_category,sugar=@sugar,sugar_category=@sugar_category,role=@role WHERE id=@id"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(update_member, con)
cmd.Parameters.Add("@id", SqlDbType.Int, 50).Value = txtMemMemId.Text
cmd.Parameters.Add("@member_id", SqlDbType.NText, 50).Value = txtMemAge.Text 'Age
cmd.Parameters.Add("@first_name", SqlDbType.NText, 50).Value = txtMemFirstName.Text
cmd.Parameters.Add("@last_name", SqlDbType.NText, 50).Value = txtMemLastName.Text
cmd.Parameters.Add("@dob", SqlDbType.Date).Value = dtpMemDob.Text
cmd.Parameters.Add("@age", SqlDbType.NText, 50).Value = txtUser.Text + " @ " + Now.ToString
'User Edits the Info
cmd.Parameters.Add("@gender", SqlDbType.NText, 50).Value = cbMemGender.Text
cmd.Parameters.Add("@blood_group", SqlDbType.NText, 50).Value = cbMemBloodGroup.Text
cmd.Parameters.Add("@address", SqlDbType.NText, 100).Value = txtMemAddress.Text
cmd.Parameters.Add("@town", SqlDbType.NText, 50).Value = txtMemTown.Text
cmd.Parameters.Add("@city", SqlDbType.NText, 50).Value = txtMemCity.Text
cmd.Parameters.Add("@state", SqlDbType.NText, 50).Value = txtMemMsPoint.Text
cmd.Parameters.Add("@pincode", SqlDbType.NText, 50).Value = txtMemPincode.Text
cmd.Parameters.Add("@occupation", SqlDbType.NText, 50).Value = txtMemOccupation.Text
cmd.Parameters.Add("@company", SqlDbType.NText, 50).Value = txtMemCompany.Text
cmd.Parameters.Add("@landline", SqlDbType.NText, 50).Value = txtMemLandline.Text
cmd.Parameters.Add("@mobile", SqlDbType.NText, 50).Value = txtMemMobile.Text
cmd.Parameters.Add("@email", SqlDbType.NText, 50).Value = txtMemEmail.Text
cmd.Parameters.Add("@height", SqlDbType.NText, 50).Value = txtMemHeight.Text
cmd.Parameters.Add("@weight", SqlDbType.NText, 50).Value = txtMemWeight.Text
cmd.Parameters.Add("@bmi", SqlDbType.NText, 50).Value = txtMemBmi.Text
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 6
cmd.Parameters.Add("@bmi_category", SqlDbType.NText, 50).Value = txtMemBmiCategory.Text
cmd.Parameters.Add("@fat_percentage", SqlDbType.NText, 50).Value = txtMemFatPercentage.Text
cmd.Parameters.Add("@bmr", SqlDbType.NText, 50).Value = txtMemBmr.Text
cmd.Parameters.Add("@doj", SqlDbType.Date).Value = txtMemDoj.Text
cmd.Parameters.Add("@activity", SqlDbType.NText, 50).Value = cbMemActivity.Text
cmd.Parameters.Add("@activity_value", SqlDbType.NText, 50).Value = txtMemActivityValue.Text
cmd.Parameters.Add("@medical_history", SqlDbType.NText, 100).Value = txtMemMedicalHistory.
Text
cmd.Parameters.Add("@bp_low", SqlDbType.NText, 50).Value = txtMemBpLow.Text
cmd.Parameters.Add("@bp_high", SqlDbType.NText, 50).Value = txtMemBpHigh.Text
cmd.Parameters.Add("@bp_category", SqlDbType.NText, 50).Value = txtMemBpCategory.Text
cmd.Parameters.Add("@sugar", SqlDbType.NText, 50).Value = txtMemSugar.Text
cmd.Parameters.Add("@sugar_category", SqlDbType.NText, 50).Value = txtMemCreated.Text
'Created By
cmd.Parameters.Add("@role", SqlDbType.NText, 50).Value = cbMemRole.Text
cmd.ExecuteNonQuery()
con.Close()
btnUpdate.BringToFront()
btnUpdatePicture.Enabled = False
Me.MembersTableAdapter.Fill(Me.CoreDataSet.members)
MessageBox.Show("Member ID - " & txtMemMemId.Text & "Updated Successfully")
Catch ex As Exception
MessageBox.Show("Error during update of member Info : " & ex.Message)
End Try
End Sub

Private Sub btnUpdatePicture_Click(sender As System.Object, e As System.EventArgs) Handles

btnUpdatePicture.Click
Try
Dim piclocation As String
If b.ShowDialog() = DialogResult.OK Then
'a.ShowDialog(PicturePictureBox.Image)
b.Filter = Nothing
piclocation = b.FileName
pbMemPicture.Image = Image.FromFile(b.FileName)
End If
Dim update_picture As String = "UPDATE members SET picture=@picture WHERE id=@id"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(update_picture, con)
cmd.Parameters.Add("@id", SqlDbType.Int, 50).Value = txtMemMemId.Text
cmd.Parameters.Add(New SqlClient.SqlParameter("@picture", SqlDbType.Image)).Value = IO.File.
ReadAllBytes(b.FileName)
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Picture Updated Successfully")
Catch ex As Exception
MessageBox.Show("Error during update of Picture : " & ex.Message)
End Try
End Sub

Private Sub llblEditedBy_LinkClicked(sender As System.Object, e As System.Windows.Forms.

LinkLabelLinkClickedEventArgs) Handles llblEditedBy.LinkClicked
llblCreatedBy.BringToFront()
txtMemCreated.BringToFront()
End Sub

Private Sub llblCreatedBy_LinkClicked(sender As System.Object, e As System.Windows.Forms.

LinkLabelLinkClickedEventArgs) Handles llblCreatedBy.LinkClicked
llblEditedBy.BringToFront()
txtMemEdited.BringToFront()
End Sub

'2.2 New Member - Panel

Private Sub btnMemSearchTest_Click(sender As System.Object, e As System.EventArgs) Handles
btnMemSearchTest.Click
pnlMemSearchMenu.BringToFront()
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 7
Me.member_readonly()
End Sub

Private Sub btnAddNew_Click(sender As System.Object, e As System.EventArgs) Handles btnAddNew.Click

Me.MembersBindingSource.AddNew() 'Addnew for New Member ID
Me.AssessmentsBindingSource1.AddNew() 'Addnew for New Member Assessments
btnSave.BringToFront()
txtMemDoj.Text = Today
Me.member_read()
txtMemMsPoint.Text = "0"
End Sub

Private Sub btnSave_Click_1(sender As System.Object, e As System.EventArgs) Handles btnSave.Click

If txtMemFirstName.Text = "" Or txtAddNewMemId.Text = "" Or pbMemPicture.Image Is Nothing Then
MsgBox("Please Fill the details and Continue")
Else

'ASSESSMENT SAVING FOR NEW MEMBER

Try
Dim insertt As String = "INSERT INTO assessments(member_id,name,date,height,weight,bmi,
bmr,fat_percentage,bmi_category,activity,activity_value,gender) VALUES (@member_id,@name,@date,@
height,@weight,@bmi,@bmr,@fat_percentage,@bmi_category,@activity,@activity_value,@gender)"
Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|
\core.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
conn.Open()
Dim cmdd As New SqlCommand(insertt, conn)
cmdd.Parameters.Add("@member_id", SqlDbType.NText, 50).Value = txtAddNewMemId.Text
cmdd.Parameters.Add("@name", SqlDbType.NText, 50).Value = txtMemFirstName.Text
cmdd.Parameters.Add("@date", SqlDbType.Date).Value = Convert.ToDateTime(txtMemDoj.Text)
cmdd.Parameters.Add("@height", SqlDbType.NText, 50).Value = txtMemHeight.Text
cmdd.Parameters.Add("@weight", SqlDbType.NText, 50).Value = txtMemWeight.Text
cmdd.Parameters.Add("@bmi", SqlDbType.NText, 50).Value = txtMemBmi.Text
cmdd.Parameters.Add("@bmr", SqlDbType.NText, 50).Value = txtMemBmr.Text
cmdd.Parameters.Add("@fat_percentage", SqlDbType.NText, 50).Value = txtMemFatPercentage.
Text
cmdd.Parameters.Add("@bmi_category", SqlDbType.NText, 50).Value = txtMemBmiCategory.Text
cmdd.Parameters.Add("@activity", SqlDbType.NText, 50).Value = cbMemActivity.Text
cmdd.Parameters.Add("@activity_value", SqlDbType.NText, 50).Value = txtUser.Text + " @ "
+ Now.ToString 'user created
cmdd.Parameters.Add("@gender", SqlDbType.NText, 50).Value = cbMemGender.Text
cmdd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("Assessment Successfully Added")
Me.AssessmentsTableAdapter1.Fill(Me.CoreDataSet1.assessments)

Catch ex As Exception
MessageBox.Show("Error in saving Assessment : " & ex.Message)
End Try

'SAVING NEW MEMBER

Try
Dim insert As String = "INSERT INTO members(member_id,first_name,last_name,dob,gender,
blood_group,address,town,city,state,pincode,occupation,company,landline,mobile,email,height,weight,
bmi,bmi_category,fat_percentage,bmr,doj,activity,activity_value,medical_history,bp_low,bp_high,
bp_category,sugar,sugar_category,picture,role) VALUES (@member_id,@first_name,@last_name,@dob,@
gender,@blood_group,@address,@town,@city,@state,@pincode,@occupation,@company,@landline,@mobile,@
email,@height,@weight,@bmi,@bmi_category,@fat_percentage,@bmr,@doj,@activity,@activity_value,@
medical_history,@bp_low,@bp_high,@bp_category,@sugar,@sugar_category,@picture,@role)"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\
core.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@member_id", SqlDbType.Int, 50).Value = txtMemAge.Text 'Age
cmd.Parameters.Add("@first_name", SqlDbType.NText, 50).Value = txtMemFirstName.Text
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 8
cmd.Parameters.Add("@last_name", SqlDbType.NText, 50).Value = txtMemLastName.Text
cmd.Parameters.Add("@dob", SqlDbType.Date).Value = dtpMemDob.Text
'cmd.Parameters.Add("@age", SqlDbType.NText, 50).Value = txtUser.Text + Now.ToString
'User Created
cmd.Parameters.Add("@gender", SqlDbType.NText, 50).Value = cbMemGender.Text
cmd.Parameters.Add("@blood_group", SqlDbType.NText, 50).Value = cbMemBloodGroup.Text
cmd.Parameters.Add("@address", SqlDbType.NText, 100).Value = txtMemAddress.Text
cmd.Parameters.Add("@town", SqlDbType.NText, 50).Value = txtMemTown.Text
cmd.Parameters.Add("@city", SqlDbType.NText, 50).Value = txtMemCity.Text
cmd.Parameters.Add("@state", SqlDbType.NText, 50).Value = txtMemMsPoint.Text
cmd.Parameters.Add("@pincode", SqlDbType.NText, 50).Value = txtMemPincode.Text
cmd.Parameters.Add("@occupation", SqlDbType.NText, 50).Value = txtMemOccupation.Text
cmd.Parameters.Add("@company", SqlDbType.NText, 50).Value = txtMemCompany.Text
cmd.Parameters.Add("@landline", SqlDbType.NText, 50).Value = txtMemLandline.Text
cmd.Parameters.Add("@mobile", SqlDbType.NText, 50).Value = txtMemMobile.Text
cmd.Parameters.Add("@email", SqlDbType.NText, 50).Value = txtMemEmail.Text
cmd.Parameters.Add("@height", SqlDbType.NText, 50).Value = txtMemHeight.Text
cmd.Parameters.Add("@weight", SqlDbType.NText, 50).Value = txtMemWeight.Text
cmd.Parameters.Add("@bmi", SqlDbType.NText, 50).Value = txtMemBmi.Text
cmd.Parameters.Add("@bmi_category", SqlDbType.NText, 50).Value = txtMemBmiCategory.Text
cmd.Parameters.Add("@fat_percentage", SqlDbType.NText, 50).Value = txtMemFatPercentage.
Text
cmd.Parameters.Add("@bmr", SqlDbType.NText, 50).Value = txtMemBmr.Text
cmd.Parameters.Add("@doj", SqlDbType.Date).Value = Convert.ToDateTime(txtMemDoj.Text)
cmd.Parameters.Add("@activity", SqlDbType.NText, 50).Value = cbMemActivity.Text
cmd.Parameters.Add("@activity_value", SqlDbType.NText, 50).Value = txtMemActivityValue.
Text
cmd.Parameters.Add("@medical_history", SqlDbType.NText, 100).Value =
txtMemMedicalHistory.Text
cmd.Parameters.Add("@bp_low", SqlDbType.NText, 50).Value = txtMemBpLow.Text
cmd.Parameters.Add("@bp_high", SqlDbType.NText, 50).Value = txtMemBpHigh.Text
cmd.Parameters.Add("@bp_category", SqlDbType.NText, 50).Value = txtMemBpCategory.Text
cmd.Parameters.Add("@sugar", SqlDbType.NText, 50).Value = txtMemSugar.Text
cmd.Parameters.Add("@sugar_category", SqlDbType.NText, 50).Value = txtUser.Text + " @ "
+ Now.ToString 'User Created
cmd.Parameters.Add("@role", SqlDbType.NText, 50).Value = cbMemRole.Text
cmd.Parameters.Add(New SqlClient.SqlParameter("@picture", SqlDbType.Image)).Value = IO.
File.ReadAllBytes(a.FileName)
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("New Member saved Successfully")
Me.MembersTableAdapter.Fill(Me.CoreDataSet.members)
btnAddNew.BringToFront()
Me.AddNewClear()
Me.member_readonly()

Catch ex As Exception
MessageBox.Show("Error in adding New Member : " & ex.Message)
End Try 'Closing Members Insert Try
End If 'Closing count IF Statement

AssessmentsDataGridView.FirstDisplayedScrollingRowIndex = AssessmentsDataGridView.Rows.Count - 1
MembersDataGridView.FirstDisplayedScrollingRowIndex = MembersDataGridView.Rows.Count - 1 'To
scroll down position of Dategrid view

End Sub

Private Sub llblNewMemRefresh_LinkClicked_1(sender As System.Object, e As System.Windows.Forms.

LinkLabelLinkClickedEventArgs) Handles llblNewMemRefresh.LinkClicked
btnAddNew.BringToFront()
btnImportPicture.Enabled = False
Me.MembersTableAdapter.Fill(Me.CoreDataSet.members)
MembersDataGridView.FirstDisplayedScrollingRowIndex = MembersDataGridView.Rows.Count - 1
Me.member_readonly()
Me.AddNewClear()
End Sub

Private Sub btnImportPicture_Click_1(sender As System.Object, e As System.EventArgs) Handles

btnImportPicture.Click
Dim piclocation As String
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 9
If a.ShowDialog() = DialogResult.OK Then
'a.ShowDialog(PicturePictureBox.Image)
a.Filter = Nothing
piclocation = a.FileName
pbMemPicture.Image = Image.FromFile(a.FileName)
End If
End Sub
'2.2.1 Auto Validations
Private Sub dtpMemDob_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpMemDob
.ValueChanged
Dim age As Integer
age = Date.Now.Year - dtpMemDob.Value.Year
txtMemAge.Text = age
End Sub

Private Sub txtMemWeight_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtMemWeight.Leave
Try
Dim bmi As Decimal
Dim height, weight As String

height = Convert.ToDecimal(txtMemHeight.Text)
weight = Convert.ToDecimal(txtMemWeight.Text)
bmi = Format(weight / (height * height), "0.00")
txtMemBmi.Text = bmi

If bmi < 18.5 Then

txtMemBmiCategory.Text = "Under Weight"
ElseIf bmi < 24.9 Then
txtMemBmiCategory.Text = "Normal"
ElseIf bmi < 29.9 Then
txtMemBmiCategory.Text = "Over Weight"
ElseIf bmi < 34.9 Then
txtMemBmiCategory.Text = "Obesity Class I"
ElseIf bmi < 39.9 Then
txtMemBmiCategory.Text = "Obesity Class II"
ElseIf bmi > 40 Then
txtMemBmiCategory.Text = "Extreme Obesity, Class III"
End If
Catch ex As Exception
MessageBox.Show("Please enter Height and Weight")
End Try
End Sub

Private Sub txtMemBpLow_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtMemBpLow.Leave
Try
If txtMemBpHigh.Text < 90 AndAlso txtMemBpLow.Text < 60 Then
txtMemBpCategory.Text = "Hypotension"
ElseIf txtMemBpHigh.Text >= 90 AndAlso txtMemBpHigh.Text <= 119 AndAlso txtMemBpLow.Text >=
60 AndAlso txtMemBpLow.Text <= 79 Then
txtMemBpCategory.Text = "Normal Desired Range"
ElseIf txtMemBpHigh.Text >= 120 AndAlso txtMemBpHigh.Text <= 139 AndAlso txtMemBpLow.Text >=
80 AndAlso txtMemBpLow.Text <= 89 Then
txtMemBpCategory.Text = "Prehypertension"
ElseIf txtMemBpHigh.Text >= 140 AndAlso txtMemBpHigh.Text <= 159 AndAlso txtMemBpLow.Text >=
90 AndAlso txtMemBpLow.Text <= 99 Then
txtMemBpCategory.Text = "Stage-1 HypertensiontxtMemBpLow"
ElseIf txtMemBpHigh.Text >= 160 AndAlso txtMemBpHigh.Text <= 179 AndAlso txtMemBpLow.Text >=
100 AndAlso txtMemBpLow.Text <= 109 Then
txtMemBpCategory.Text = "Stage-2 Hypertension"
ElseIf txtMemBpHigh.Text >= 180 AndAlso txtMemBpHigh.Text >= 110 Then
txtMemBpCategory.Text = "Hypertensive Emergency"
ElseIf txtMemBpHigh.Text >= 140 AndAlso txtMemBpLow.Text < 90 Then
txtMemBpCategory.Text = "Isoloted Systolic Hypertension"
End If
Catch ex As Exception
MsgBox("Error in predicting BP Category : " & ex.Message)
End Try
End Sub
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 10
Private Sub cbMemActivity_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
Handles cbMemActivity.SelectedIndexChanged
If cbMemActivity.Text = "Very Light" Then
txtMemActivityValue.Text = "1.30"
ElseIf cbMemActivity.Text = "Light" Then
txtMemActivityValue.Text = "1.55"
ElseIf cbMemActivity.Text = "Moderate" Then
txtMemActivityValue.Text = "1.65"
ElseIf cbMemActivity.Text = "Heavy" Then
txtMemActivityValue.Text = "1.80"
ElseIf cbMemActivity.Text = "Very Heavy" Then
txtMemActivityValue.Text = "2.00"
End If
End Sub

Private Sub txtMemFatPercentage_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtMemFatPercentage.Leave
Try
Dim bmrstep1, bmr, bmrstep3, leanfactor As Decimal
Dim weight As String
weight = Convert.ToDecimal(txtMemWeight.Text)
If cbMemGender.Text = "Male" Then
bmrstep1 = 1.0 * txtMemWeight.Text * 24
If txtMemFatPercentage.Text >= 10 AndAlso txtMemFatPercentage.Text <= 14 Then
leanfactor = "1.0"
ElseIf txtMemFatPercentage.Text >= 15 AndAlso txtMemFatPercentage.Text <= 20 Then
leanfactor = "0.95"
ElseIf txtMemFatPercentage.Text >= 21 AndAlso txtMemFatPercentage.Text <= 28 Then
leanfactor = "0.90"
ElseIf txtMemFatPercentage.Text > 28 Then
leanfactor = "0.85"
End If
bmr = bmrstep1 * leanfactor
bmrstep3 = Format(bmr * txtMemActivityValue.Text, "0000.00")
txtMemBmr.Text = bmrstep3
ElseIf cbMemGender.Text = "Female" Then
bmrstep1 = 0.9 * txtMemWeight.Text * 24
If txtMemFatPercentage.Text >= 14 AndAlso txtMemFatPercentage.Text <= 18 Then
leanfactor = "1.0"
ElseIf txtMemFatPercentage.Text >= 19 AndAlso txtMemFatPercentage.Text <= 28 Then
leanfactor = "0.95"
ElseIf txtMemFatPercentage.Text >= 29 AndAlso txtMemFatPercentage.Text <= 38 Then
leanfactor = "0.90"
ElseIf txtMemFatPercentage.Text > 38 Then
leanfactor = "0.85"
End If
bmr = bmrstep1 * leanfactor
bmrstep3 = Format(bmr * txtMemActivityValue.Text, "0000")
txtMemBmr.Text = bmrstep3
End If
Catch ex As Exception
MessageBox.Show("Error in BMR Caluculation" & ex.Message)
End Try
End Sub

'TAB-3 MEMBERSHIPS
Private Sub tpMembership_Click(sender As System.Object, e As System.EventArgs) Handles tpMembership.
Enter
'Total Membership
Dim Total_Ms_count As Integer = Me.MembershipsBindingSource.Count
txtMsTotalMs.Text = Total_Ms_count

Try
Dim Ms_Active_con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|
DataDirectory|\core.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
Ms_Active_con.Open()
Dim ActiveMscmd As New SqlCommand("SELECT COUNT(*) FROM memberships WHERE end_date> '" &
Today & "'", Ms_Active_con)
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 11
Dim PaidMscmd As New SqlCommand("SELECT COUNT(*) FROM memberships WHERE end_date> '" & Today
& "' and payment_status= 'Paid'", Ms_Active_con)
Dim NotPaidMscmd As New SqlCommand("SELECT COUNT(*) FROM memberships WHERE end_date> '" &
Today & "' and payment_status= 'Not Paid'", Ms_Active_con)
Dim CancelledMscmd As New SqlCommand("SELECT COUNT(*) FROM memberships WHERE end_date> '" &
Today & "' and payment_status= 'Cancelled'", Ms_Active_con)
Dim ActiveMscount, PaidMscount, NotPaidMscount, CancelledMscount As Integer
'Active Members
ActiveMscount = ActiveMscmd.ExecuteScalar()
txtMsActiveMs.Text = ActiveMscount
'Paid Members
PaidMscount = PaidMscmd.ExecuteScalar()
txtMsPaidMs.Text = PaidMscount
'Not Paid Members
NotPaidMscount = NotPaidMscmd.ExecuteScalar()
txtMsNotPaidMs.Text = NotPaidMscount
'Cancelled Members
CancelledMscount = CancelledMscmd.ExecuteScalar()
txtMsCancelledMs.Text = CancelledMscount
Catch ex As Exception
MsgBox("MS Details Error :" & ex.Message)
End Try

End Sub

Private Sub btnMsFilterRefresh_Click(sender As System.Object, e As System.EventArgs) Handles

btnMsFilterRefresh.Click
txtMsFilterMemId.Clear()
dtpMsFilterStartDate.Value = Today
dtpMsFilterToDate.Value = Today
cbMsFilterPaymentStatus.Text = ""
txtMsMsP.Clear()
txtMsMsP.Clear()
Me.MembershipsTableAdapter.Fill(Me.CoreDataSet.memberships)
Me.MembershipsBindingSource.RemoveFilter()
End Sub

Private Sub txtMsFilterMemId_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtMsFilterMemId.Leave
Try
Me.MembershipsTableAdapter.FillByMemId(Me.CoreDataSet.memberships, txtMsFilterMemId.Text)
'Sum of Column
Dim total As Double = 0
For i As Integer = 0 To MembershipsDataGridView.RowCount - 1
total += MembershipsDataGridView.Rows(i).Cells(4).Value
Next
txtMsMsP.Text = total
Catch ex As System.Exception
MsgBox("Please Insert Value to Search")
End Try
End Sub

Private Sub dtpMsFilterToDate_ValueChanged(sender As System.Object, e As System.EventArgs) Handles

dtpMsFilterToDate.ValueChanged
Try
Me.MembershipsBindingSource.Filter = "end_date >= '" & dtpMsFilterStartDate.Value & "' AND
end_date<= '" & dtpMsFilterToDate.Value & "'"
Catch ex As Exception
MsgBox("Date Sorting Failure" & ex.Message)
End Try
End Sub

Private Sub cbMsFilterPaymentStatus_SelectedIndexChanged(sender As System.Object, e As System.

EventArgs) Handles cbMsFilterPaymentStatus.SelectedIndexChanged
Try
If cbMsFilterPaymentStatus.Text = "Paid" Then
Me.MembershipsBindingSource.Filter = "payment_status= 'Paid'"
ElseIf cbMsFilterPaymentStatus.Text = "Not Paid" Then
Me.MembershipsBindingSource.Filter = "payment_status= 'Not Paid'"
ElseIf cbMsFilterPaymentStatus.Text = "Cancelled" Then
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 12
Me.MembershipsBindingSource.Filter = "payment_status= 'Cancelled'"
ElseIf cbMsFilterPaymentStatus.Text = "" Then

End If
Catch ex As Exception
MsgBox("Payment Status Sorting Failure" & ex.Message)
End Try
End Sub
'3.1 Not in Use
Private Sub SortbyEndDateToolStripButton_Click(sender As System.Object, e As System.EventArgs)
Try
Me.MembershipsTableAdapter.SortbyEndDate(Me.CoreDataSet.memberships)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub SortToolStripButton_Click(sender As System.Object, e As System.EventArgs) Handles

SortToolStripButton.Click
Try
Me.MembershipsTableAdapter1.sort(Me.MpmsDataSet2.memberships)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

End Sub

'TAB-4 ASSESSMENTS
Private Sub AS_Read()
txtAsFatPercentage.ReadOnly = False
txtAsHeight.ReadOnly = False
txtAsWeight.ReadOnly = False
cbAsActivity.Enabled = True
dtpAsDate.Enabled = True
End Sub

Private Sub AS_Readonly()

txtAsFatPercentage.ReadOnly = True
txtAsHeight.ReadOnly = True
txtAsWeight.ReadOnly = True
cbAsActivity.Enabled = False
dtpAsDate.Enabled = False
End Sub

Private Sub AS_Clear()

txtAsAssessedby.Clear()
txtAsBmi.Clear()
txtAsBmiCategory.Clear()
txtAsBmr.Clear()
txtAsFatPercentage.Clear()
txtAsGender.Clear()
txtAsHeight.Clear()
txtAsMemId.Clear()
txtAsName.Clear()
txtAsWeight.Clear()
dtpAsDate.Value = Today
cbAsActivity.Text = ""
End Sub

Private Sub btnAsSave_Click(sender As System.Object, e As System.EventArgs) Handles btnAsSave.Click

Try
Dim insert As String = "INSERT INTO assessments(member_id,name,date,height,weight,bmi,bmr,
fat_percentage,bmi_category,activity,activity_value,gender) VALUES (@member_id,@name,@date,@height,@
weight,@bmi,@bmr,@fat_percentage,@bmi_category,@activity,@activity_value,@gender)"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 13
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@member_id", SqlDbType.NText, 50).Value = txtAsMemMemID.Text
cmd.Parameters.Add("@name", SqlDbType.NText, 50).Value = txtAsMemName.Text
cmd.Parameters.Add("@date", SqlDbType.Date).Value = dtpAsDate.Text
cmd.Parameters.Add("@height", SqlDbType.NText, 50).Value = txtAsHeight.Text
cmd.Parameters.Add("@weight", SqlDbType.NText, 50).Value = txtAsWeight.Text
cmd.Parameters.Add("@bmi", SqlDbType.NText, 50).Value = txtAsBmi.Text
cmd.Parameters.Add("@bmr", SqlDbType.NText, 50).Value = txtAsBmr.Text
cmd.Parameters.Add("@fat_percentage", SqlDbType.NText, 50).Value = txtAsFatPercentage.Text
cmd.Parameters.Add("@bmi_category", SqlDbType.NText, 50).Value = txtAsBmiCategory.Text
cmd.Parameters.Add("@activity", SqlDbType.NText, 50).Value = cbAsActivity.Text
cmd.Parameters.Add("@activity_value", SqlDbType.NText, 50).Value = txtAsAssessedby.Text
cmd.Parameters.Add("@gender", SqlDbType.NText, 50).Value = txtAsMemGender.Text
cmd.ExecuteNonQuery()
con.Close()
Me.AssessmentsTableAdapter1.Fill(Me.CoreDataSet1.assessments)
Me.AS_Clear()
AssessmentsDataGridView.FirstDisplayedScrollingRowIndex = AssessmentsDataGridView.Rows.Count
- 1 'To scroll down position of Dategrid view
MessageBox.Show("Record Successfully Added")
Catch ex As Exception
MessageBox.Show("Invalid : " & ex.Message)
Finally
End Try

btnAsAddNew.BringToFront()
lblAsAsDetails.Visible = True
txtAsAsDetails.Visible = True
txtAsName.BringToFront()
txtAsMemId.BringToFront()
txtAsGender.BringToFront()
Me.AS_Readonly()

End Sub

Private Sub txtAsMemMemId_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtAsMemMemId.Leave
Try
Me.MembersTableAdapter.FillByID(Me.CoreDataSet.members, txtAsMemMemId.Text)
Catch ex As System.Exception
MsgBox("Found Record" & vbNewLine & vbNewLine & " Invalid :" & (ex.Message))
End Try
End Sub

Private Sub btnAsAddNew_Click(sender As System.Object, e As System.EventArgs) Handles btnAsAddNew.

Click
Me.AssessmentsBindingSource1.AddNew()
dtpAsDate.Value = Today
btnAsSave.BringToFront()
lblAsAsDetails.Visible = False
txtAsAsDetails.Visible = False
txtAsMemMemID.BringToFront()
txtAsMemName.BringToFront()
txtAsMemGender.BringToFront()
txtAsMemMemID.Clear()
txtAsMemName.Clear()
txtAsMemGender.Clear()
Me.AS_Read()
txtAsAssessedby.Text = txtUser.Text + " @ " + Now.ToString
End Sub

Private Sub txtAsFatPercentage_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtAsFatPercentage.Leave
Try
Dim Activity_Value As Decimal
If cbAsActivity.Text = "Very Light" Then
Activity_Value = "1.30"
ElseIf cbAsActivity.Text = "Light" Then
Activity_Value = "1.55"
ElseIf cbAsActivity.Text = "Moderate" Then
Activity_Value = "1.65"
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 14
ElseIf cbAsActivity.Text = "Heavy" Then
Activity_Value = "1.80"
ElseIf cbAsActivity.Text = "Very Heavy" Then
Activity_Value = "2.00"
End If
Dim bmrstep1, bmr, bmrstep3, leanfactor As Decimal
Dim weight As String
weight = Convert.ToDecimal(txtAsWeight.Text)
If txtAsMemGender.Text = "Male" Then
bmrstep1 = 1.0 * txtAsWeight.Text * 24
If txtAsFatPercentage.Text >= 10 AndAlso txtAsFatPercentage.Text <= 14 Then
leanfactor = "1.0"
ElseIf txtAsFatPercentage.Text >= 15 AndAlso txtAsFatPercentage.Text <= 20 Then
leanfactor = "0.95"
ElseIf txtAsFatPercentage.Text >= 21 AndAlso txtAsFatPercentage.Text <= 28 Then
leanfactor = "0.90"
ElseIf txtAsFatPercentage.Text > 28 Then
leanfactor = "0.85"
End If
bmr = bmrstep1 * leanfactor
bmrstep3 = Format(bmr * Activity_Value, "0000.00")
txtAsBmr.Text = bmrstep3
ElseIf txtAsMemGender.Text = "Female" Then
bmrstep1 = 0.9 * txtAsWeight.Text * 24
If txtAsFatPercentage.Text >= 14 AndAlso txtAsFatPercentage.Text <= 18 Then
leanfactor = "1.0"
ElseIf txtAsFatPercentage.Text >= 19 AndAlso txtAsFatPercentage.Text <= 28 Then
leanfactor = "0.95"
ElseIf txtAsFatPercentage.Text >= 29 AndAlso txtAsFatPercentage.Text <= 38 Then
leanfactor = "0.90"
ElseIf txtAsFatPercentage.Text > 38 Then
leanfactor = "0.85"
End If
bmr = bmrstep1 * leanfactor
bmrstep3 = Format(bmr * Activity_Value, "0000")
txtAsBmr.Text = bmrstep3
End If
Catch ex As Exception
MessageBox.Show("Please enter correct values")
End Try
End Sub

Private Sub txtAsWeight_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtAsWeight.Leave
Try
Dim bmi As Decimal
Dim height, weight As String

height = Convert.ToDecimal(txtAsHeight.Text)
weight = Convert.ToDecimal(txtAsWeight.Text)
bmi = Format(weight / (height * height), "0.00")
txtAsBmi.Text = bmi

If bmi < 18.5 Then

txtAsBmiCategory.Text = "Under Weight"
ElseIf bmi < 24.9 Then
txtAsBmiCategory.Text = "Normal"
ElseIf bmi < 29.9 Then
txtAsBmiCategory.Text = "Over Weight"
ElseIf bmi < 34.9 Then
txtAsBmiCategory.Text = "Obesity Class I"
ElseIf bmi < 39.9 Then
txtAsBmiCategory.Text = "Obesity Class II"
ElseIf bmi > 40 Then
txtAsBmiCategory.Text = "Extreme Obesity, Class III"
End If
Catch ex As Exception
MessageBox.Show("Please enter Height and Weight")
End Try
End Sub
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 15
Private Sub txtAsMemId_TextChanged(sender As System.Object, e As System.EventArgs) Handles
txtAsMemId.Leave
Try
Me.AssessmentsTableAdapter1.FillByAsID(Me.CoreDataSet1.assessments, txtAsMemId.Text)
Dim count As Integer = Me.AssessmentsBindingSource1.Count
If count = 0 Then
MsgBox("Member ID Not Found")
End If
txtAsAsDetails.Text = count
Catch ex As System.Exception
MsgBox("Error in Assessment Member ID :" & ex.Message)
End Try
End Sub

Private Sub btnAsRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnAsRefresh.

Click
AssessmentsTableAdapter1.Fill(Me.CoreDataSet1.assessments)
txtAsAsDetails.Clear()
cbAsGraph.Text = ""
End Sub

Private Sub btnAsExport_Click(sender As System.Object, e As System.EventArgs) Handles btnAsExport.

Click

Dim rowsTotal, colsTotal As Short

Dim I, j, iC As Short
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
Dim xlApp As New Excel.Application
Try
Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
xlApp.Visible = True
rowsTotal = AssessmentsDataGridView.RowCount - 1
colsTotal = AssessmentsDataGridView.Columns.Count - 1
With excelWorksheet
.Cells.Select()
.Cells.Delete()
For iC = 0 To colsTotal
.Cells(1, iC + 1).Value = AssessmentsDataGridView.Columns(iC).HeaderText
Next
For I = 0 To rowsTotal - 1
For j = 0 To colsTotal
.Cells(I + 2, j + 1).value = AssessmentsDataGridView.Rows(I).Cells(j).Value
Next j
Next I
.Rows("1:1").Font.FontStyle = "Bold"
.Rows("1:1").Font.Size = 10
.Cells.Columns.AutoFit()
.Cells.Select()
.Cells.EntireColumn.AutoFit()
.Cells(1, 1).Select()
End With
Catch ex As Exception
MsgBox("Export Excel Error " & ex.Message)
Finally
'RELEASE ALLOACTED RESOURCES
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
xlApp = Nothing
End Try
End Sub

Private Sub cbAsGraph_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles

cbAsGraph.SelectedIndexChanged
Chart1.Series(0).Points.Clear()
If cbAsGraph.Text = "Weight" Then
txtAsGraphHint.Text = "Weight"
For Count As Integer = 0 To AssessmentsDataGridView.Rows.Count - 2
Chart1.Series(0).Points.AddXY(Convert.ToString(AssessmentsDataGridView.Item(4, Count).
Value), AssessmentsDataGridView.Item(6, Count).Value)
Chart1.ChartAreas("ChartArea1").AxisX.IsLabelAutoFit = True
Next
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 16
ElseIf cbAsGraph.Text = "BMI" Then
txtAsGraphHint.Text = "BMI"
For Count As Integer = 0 To AssessmentsDataGridView.Rows.Count - 2
Chart1.Series(0).Points.AddXY(Convert.ToString(AssessmentsDataGridView.Item(4, Count).
Value), AssessmentsDataGridView.Item(7, Count).Value)
Chart1.ChartAreas("ChartArea1").AxisX.IsLabelAutoFit = True
Next
ElseIf cbAsGraph.Text = "BMR" Then
txtAsGraphHint.Text = "BMR"
For Count As Integer = 0 To AssessmentsDataGridView.Rows.Count - 2
Chart1.Series(0).Points.AddXY(Convert.ToString(AssessmentsDataGridView.Item(4, Count).
Value), AssessmentsDataGridView.Item(11, Count).Value)
Chart1.ChartAreas("ChartArea1").AxisX.IsLabelAutoFit = True
Next
ElseIf cbAsGraph.Text = "Fat %" Then
txtAsGraphHint.Text = "Fat %"
For Count As Integer = 0 To AssessmentsDataGridView.Rows.Count - 2
Chart1.Series(0).Points.AddXY(Convert.ToString(AssessmentsDataGridView.Item(4, Count).
Value), AssessmentsDataGridView.Item(10, Count).Value)
Chart1.ChartAreas("ChartArea1").AxisX.IsLabelAutoFit = True
Next
End If

End Sub

Private Sub tpCore_Click(sender As System.Object, e As System.EventArgs) Handles tpCore.Enter

'Total Members
Dim totalmem As Integer
totalmem = MembersDataGridView.BindingContext(MembersDataGridView.DataSource,
MembersDataGridView.DataMember).Count.ToString
txtTotalMembers.Text = totalmem
End Sub

'TAB-5 BILLING
'5.0 Generate Invoice
Private Sub BillClear()
txtBlAmount1.Clear()
txtBlAmount2.Clear()
txtBlAmount3.Clear()
txtBlDesc1.Clear()
txtBlDesc2.Clear()
txtBlDesc3.Clear()
txtBlL1DiscAmt.Clear()
txtBlL1TaxAmt.Clear()
txtBlL2DiscAmt.Clear()
txtBlL2TaxAmt.Clear()
txtBlL3DiscAmt.Clear()
txtBlL3TaxAmt.Clear()
txtBlMemFullAddress.Clear()
txtBlMemId.Clear()
txtBlMemMobile.Clear()
txtBlMemName.Clear()
txtBlQty1.Clear()
txtBlQty2.Clear()
txtBlQty3.Clear()
txtBlRate1.Clear()
txtBlRate2.Clear()
txtBlRate3.Clear()
txtBlTax1.Clear()
txtBlTax2.Clear()
txtBlTax3.Clear()
txtBlTaxPercentage1.Clear()
txtBlTaxPercentage2.Clear()
txtBlTaxPercentage3.Clear()
txtBlTotal.Clear()
txtBlTotalTax.Clear()
txtBlTotalMs.Clear()
txtBlWordTotal.Clear()
txtBlInvNo.Clear()
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 17
txtBlInvUser.Clear()
txtBlInvTime.Clear()
dtpBlInvDate.Value = Today
dtpBlMsStartDate.Value = Today
dtpBlMsEndDate.Value = Today
cbBlType1.Text = ""
cbBlType2.Text = ""
cbBlType3.Text = ""
cbBlDisc1.Text = ""
cbBlDisc2.Text = ""
cbBlDisc3.Text = ""
'cbBlMsPaymentStatus.Text = ""
End Sub

Private Sub tpBilling_Click(sender As System.Object, e As System.EventArgs) Handles tpBilling.Enter

End Sub

Private Sub btnBlSearchInvoice_Click(sender As System.Object, e As System.EventArgs) Handles

btnBlSearchInvoice.Click
gbBlSearchInvoice.BringToFront()
btnBlInvoice.BringToFront()
btnBlReset.Visible = False
End Sub

Private Sub btnBlReset_Click(sender As System.Object, e As System.EventArgs) Handles btnBlReset.

Click
Me.BillClear()
btnBlNewInvoice.Enabled = True
cbBlMsPaymentStatus.Text = ""
End Sub

Private Sub btnBlNewInvoice_Click(sender As System.Object, e As System.EventArgs) Handles

btnBlNewInvoice.Click
Me.BillClear()
dtpBlInvDate.Value = Today
Dim Time As DateTime
Time = TimeOfDay
txtBlInvTime.Text = Time.ToString("hh:mm:ss tt")
txtBlInvUser.Text = txtUser.Text
txtBlMemId.Enabled = True
btnBlNewInvoice.Enabled = False
Me.InvoiceBindingSource.AddNew()
End Sub

Private Sub txtBlMemId_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtBlMemId.Leave
If txtBlMemId.Text = "" Then
MsgBox("Please type Member ID to Continue...")
Else
Try
'Get data of members in billing
Try
Me.MembersTableAdapter.FillByID(Me.CoreDataSet.members, txtBlMemId.Text)
Catch ex As System.Exception
MsgBox("Found Record" & vbNewLine & vbNewLine & " Invalid :" & (ex.Message))
End Try
txtBlMemFullAddress.Text = txtBlMemAddress.Text & vbNewLine & txtBlMemTown.Text &
vbNewLine & txtBlMemCity.Text + "-" + txtBlMemPincode.Text

Try
Me.MembershipsTableAdapter.FillByMemId(Me.CoreDataSet.memberships, txtBlMemId.Text)
Catch ex As System.Exception
MsgBox("Please Insert Value to Search")
End Try

'Sum of Column
Dim total As Double = 0
For i As Integer = 0 To MembershipsDataGridView.RowCount - 1
total += MembershipsDataGridView.Rows(i).Cells(4).Value
Next
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 18
txtBlTotalMs.Text = total

txtBlMemId.Enabled = False
cbBlType1.Enabled = True
Catch ex As Exception
MsgBox("Error in getting value from Member ID")
End Try
End If
End Sub

Private Sub cbBlType1_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles

cbBlType1.SelectedIndexChanged
If cbBlType1.Text = "Membership" Then
'PROGRAM DATA BINDING COMBOBOX
cbBlMs1.BringToFront()
txtBlMsAmt1.BringToFront()
'DISABLING NOT APPLICABLE ITEMS
'Quantity TextBox
txtBlQty1.ReadOnly = True
'Discount TextBox
cbBlDisc1.Text = ""
'Tax Items
cbBlTax1.Text = ""
cbBlTax1.Enabled = False
txtBlTax1.Clear()
txtBlTaxPercentage1.Clear()
txtBlTax1.ReadOnly = True
txtBlTax1.BringToFront()
txtBlTaxPercentage1.BringToFront()

ElseIf cbBlType1.Text = "Products" Then

'PROGRAM DATA BINDING COMBOBOX
cbBlPd1.BringToFront()
txtBlPdAmt1.BringToFront()
'ENABLING APPLICABLE ITEMS
txtBlQty1.ReadOnly = False
cbBlTax1.Enabled = True
cbBlTax1.BringToFront()
txtBlTaxPer1.BringToFront()

'When Type ComboBox text is Something Else

Else
MsgBox("Please Select from Drop Down Menu")
End If

End Sub

Private Sub cbBlType2_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles

cbBlType2.SelectedIndexChanged
If txtBlAmount1.Text = "" Then
MsgBox("Hey " & txtUser.Text & "! Complete the Above line and Continue")
ElseIf cbBlType1.Text = "Membership" AndAlso cbBlType2.Text = "Membership" Then
MsgBox("Only One Membership is accepted for a Member ID")
Else
If cbBlType2.Text = "Membership" Then
'PROGRAM DATA BINDING COMBOBOX
cbBlMs2.BringToFront()
txtBlMsAmt2.BringToFront()
'DISABLING NOT APPLICABLE ITEMS
'Quantity TextBox
txtBlQty2.ReadOnly = True
'Discount TextBox
cbBlDisc2.Text = ""
'Tax Items
cbBlTax2.Text = ""
cbBlTax2.Enabled = False
txtBlTax2.Clear()
txtBlTaxPercentage2.Clear()
txtBlTax2.ReadOnly = True
txtBlTax2.BringToFront()
txtBlTaxPercentage2.BringToFront()
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 19

ElseIf cbBlType2.Text = "Products" Then

'PROGRAM DATA BINDING COMBOBOX
cbBlPd2.BringToFront()
txtBlPdAmt2.BringToFront()
'ENABLING APPLICABLE ITEMS
txtBlQty2.ReadOnly = False
cbBlTax2.Enabled = True
cbBlTax2.BringToFront()
txtBlTaxPer2.BringToFront()

'When Type ComboBox text is Something Else

Else
MsgBox("Please Select from Drop Down Menu")
End If
End If
End Sub

Private Sub cbBlType3_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles

cbBlType3.SelectedIndexChanged
If txtBlAmount2.Text = "" Then
MsgBox("Hey " & txtUser.Text & "! Complete the Above line and Continue")
ElseIf cbBlType1.Text = "Membership" AndAlso cbBlType3.Text = "Membership" Then
MsgBox("Only One Membership is accepted for a Member ID")
ElseIf cbBlType2.Text = "Membership" AndAlso cbBlType3.Text = "Membership" Then
MsgBox("Only One Membership is accepted for a Member ID")
Else
If cbBlType3.Text = "Membership" Then
'PROGRAM DATA BINDING COMBOBOX
cbBlMs3.BringToFront()
txtBlMsAmt3.BringToFront()
'DISABLING NOT APPLICABLE ITEMS
'Quantity TextBox
txtBlQty3.ReadOnly = True
'Discount TextBox
cbBlDisc3.Text = ""
'Tax Items
cbBlTax3.Text = ""
cbBlTax3.Enabled = False
txtBlTax3.Clear()
txtBlTaxPercentage3.Clear()
txtBlTax3.ReadOnly = True
txtBlTax3.BringToFront()
txtBlTaxPercentage3.BringToFront()

ElseIf cbBlType3.Text = "Products" Then

'PROGRAM DATA BINDING COMBOBOX
cbBlPd3.BringToFront()
txtBlPdAmt3.BringToFront()
'ENABLING APPLICABLE ITEMS
txtBlQty3.ReadOnly = False
cbBlTax3.Enabled = True
cbBlTax3.BringToFront()
txtBlTaxPer3.BringToFront()

'When Type ComboBox text is Something Else

Else
MsgBox("Please Select from Drop Down Menu")
End If
End If
End Sub

Private Sub txtBlAmount1_TextChanged(sender As System.Object, e As System.Windows.Forms.

MouseEventArgs) Handles txtBlAmount1.MouseClick
'GENERATING BILL AMOUNT IN LINE-1
If txtBlAmount1.Text = "" Then

If cbBlType1.Text = "Membership" Then

'Arranging Data for Calculation and Database
txtBlDesc1.Text = cbBlMs1.Text
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 20
txtBlRate1.Text = txtBlMsAmt1.Text
txtBlRate1.BringToFront()
txtBlDesc1.BringToFront()
txtBlTax1.Clear()
txtBlTaxPercentage1.Clear()
cbBlDisc1.Enabled = False

Try
'TO CALCULATE MS WE NEED-PROGRAM AMT,DISCOUNT,AMOUNT
Dim Rate, Disc, DisAmt, Amt As Decimal
Rate = txtBlRate1.Text
Disc = cbBlDisc1.Text
DisAmt = (Rate / 100) * Disc
txtBlL1DiscAmt.Text = DisAmt
Amt = Format((Rate - DisAmt), "0.00")
txtBlAmount1.Text = Amt
Catch ex As Exception
MessageBox.Show("Hey, " & txtUser.Text & "! Check the value you have entered" &
vbNewLine & vbNewLine & "Invalid : " & ex.Message)
End Try

ElseIf cbBlType1.Text = "Products" Then

'Arranging Data for Calculation and Database
txtBlDesc1.Text = cbBlPd1.Text
txtBlRate1.Text = txtBlPdAmt1.Text
txtBlRate1.BringToFront()
txtBlDesc1.BringToFront()
txtBlTax1.Text = cbBlTax1.Text
txtBlTaxPercentage1.Text = txtBlTaxPer1.Text
txtBlTax1.BringToFront()
txtBlTaxPercentage1.BringToFront()
cbBlDisc1.Enabled = False
txtBlQty1.ReadOnly = True
txtBlTax1.ReadOnly = True
txtBlTaxPercentage1.ReadOnly = True

Try
'TO CALCULATE PD WE NEED-PRODUCT AMT, QTY, DISC, TAX, AMOUNT
Dim Rate, Qty, Disc, DisAmt, DisRate, Tax, TaxAmt, Amt As Decimal
Rate = txtBlRate1.Text
Qty = txtBlQty1.Text
Disc = cbBlDisc1.Text
Tax = txtBlTaxPercentage1.Text
DisAmt = (Rate / 100) * Disc
DisRate = (Rate - DisAmt) * Qty
txtBlL1DiscAmt.Text = DisAmt
TaxAmt = (DisRate / 100) * Tax
txtBlL1TaxAmt.Text = TaxAmt
Amt = Format((DisRate + TaxAmt), "0.00")
txtBlAmount1.Text = Amt
Catch ex As Exception
MessageBox.Show("Hey, " & txtUser.Text & "! Check the value you have entered" &
vbNewLine & vbNewLine & "Invalid : " & ex.Message)
End Try
End If
Else
MsgBox("Hey, " & txtUser.Text & "! Already Amount Generated." & vbNewLine & vbNewLine & "If
you want to edit, start from the beginning...")
cbBlType1.Text = ""
txtBlDesc1.Clear()
txtBlRate1.Clear()
txtBlQty1.Clear()
cbBlDisc1.Text = ""
txtBlTax1.Clear()
txtBlTaxPercentage1.Clear()
txtBlAmount1.Clear()
cbBlDisc1.Enabled = True
txtBlQty1.ReadOnly = False
txtBlTax1.ReadOnly = False
txtBlTaxPercentage1.ReadOnly = False
End If
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 21

End Sub

Private Sub txtBlAmount2_TextChanged(sender As System.Object, e As System.Windows.Forms.

MouseEventArgs) Handles txtBlAmount2.MouseClick
'GENERATING BILL AMOUNT IN LINE-2
If txtBlAmount2.Text = "" Then

If cbBlType2.Text = "Membership" Then

'Arranging Data for Calculation and Database
txtBlDesc2.Text = cbBlMs2.Text
txtBlRate2.Text = txtBlMsAmt2.Text
txtBlRate2.BringToFront()
txtBlDesc2.BringToFront()
txtBlTax2.Clear()
txtBlTaxPercentage2.Clear()
cbBlDisc2.Enabled = False

Try
'TO CALCULATE MS WE NEED-PROGRAM AMT,DISCOUNT,AMOUNT
Dim Rate, Disc, DisAmt, Amt As Decimal
Rate = txtBlRate2.Text
Disc = cbBlDisc2.Text
DisAmt = (Rate / 100) * Disc
txtBlL2DiscAmt.Text = DisAmt
Amt = Format((Rate - DisAmt), "0.00")
txtBlAmount2.Text = Amt
Catch ex As Exception
MessageBox.Show("Hey, " & txtUser.Text & "! Check the value you have entered" &
vbNewLine & vbNewLine & "Invalid : " & ex.Message)
End Try

ElseIf cbBlType2.Text = "Products" Then

'Arranging Data for Calculation and Database
txtBlDesc2.Text = cbBlPd2.Text
txtBlRate2.Text = txtBlPdAmt2.Text
txtBlRate2.BringToFront()
txtBlDesc2.BringToFront()
txtBlTax2.Text = cbBlTax2.Text
txtBlTaxPercentage2.Text = txtBlTaxPer2.Text
txtBlTax2.BringToFront()
txtBlTaxPercentage2.BringToFront()
cbBlDisc2.Enabled = False
txtBlQty2.ReadOnly = True
txtBlTax2.ReadOnly = True
txtBlTaxPercentage2.ReadOnly = True

Try
'TO CALCULATE PD WE NEED-PRODUCT AMT, QTY, DISC, TAX, AMOUNT
Dim Rate, Qty, Disc, DisAmt, DisRate, Tax, TaxAmt, Amt As Decimal
Rate = txtBlRate2.Text
Qty = txtBlQty2.Text
Disc = cbBlDisc2.Text
Tax = txtBlTaxPercentage2.Text
DisAmt = (Rate / 100) * Disc
txtBlL2DiscAmt.Text = DisAmt
DisRate = (Rate - DisAmt) * Qty
TaxAmt = (DisRate / 100) * Tax
txtBlL2TaxAmt.Text = TaxAmt
Amt = Format((DisRate + TaxAmt), "0.00")
txtBlAmount2.Text = Amt
Catch ex As Exception
MessageBox.Show("Hey, " & txtUser.Text & "! Check the value you have entered" &
vbNewLine & vbNewLine & "Invalid : " & ex.Message)
End Try
End If
Else
MsgBox("Hey, " & txtUser.Text & "! Already Amount Generated." & vbNewLine & vbNewLine & "If
you want to edit, start from the beginning...")
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 22
cbBlType2.Text = ""
txtBlDesc2.Clear()
txtBlRate2.Clear()
txtBlQty2.Clear()
cbBlDisc2.Text = ""
txtBlTax2.Clear()
txtBlTaxPercentage2.Clear()
txtBlAmount2.Clear()
cbBlDisc2.Enabled = True
txtBlQty2.ReadOnly = False
txtBlTax2.ReadOnly = False
txtBlTaxPercentage2.ReadOnly = False
End If
End Sub

Private Sub txtBlAmount3_TextChanged(sender As System.Object, e As System.Windows.Forms.

MouseEventArgs) Handles txtBlAmount3.MouseClick
'GENERATING BILL AMOUNT IN LINE-2
If txtBlAmount3.Text = "" Then

If cbBlType3.Text = "Membership" Then

'Arranging Data for Calculation and Database
txtBlDesc3.Text = cbBlMs3.Text
txtBlRate3.Text = txtBlMsAmt3.Text
txtBlRate3.BringToFront()
txtBlDesc3.BringToFront()
txtBlTax3.Clear()
txtBlTaxPercentage3.Clear()
cbBlDisc3.Enabled = False

Try
'TO CALCULATE MS WE NEED-PROGRAM AMT,DISCOUNT,AMOUNT
Dim Rate, Disc, DisAmt, Amt As Decimal
Rate = txtBlRate3.Text
Disc = cbBlDisc3.Text
DisAmt = (Rate / 100) * Disc
txtBlL3DiscAmt.Text = DisAmt
Amt = Format((Rate - DisAmt), "0.00")
txtBlAmount3.Text = Amt
Catch ex As Exception
MessageBox.Show("Hey, " & txtUser.Text & "! Check the value you have entered" &
vbNewLine & vbNewLine & "Invalid : " & ex.Message)
End Try

ElseIf cbBlType3.Text = "Products" Then

'Arranging Data for Calculation and Database
txtBlDesc3.Text = cbBlPd3.Text
txtBlRate3.Text = txtBlPdAmt3.Text
txtBlRate3.BringToFront()
txtBlDesc3.BringToFront()
txtBlTax3.Text = cbBlTax3.Text
txtBlTaxPercentage3.Text = txtBlTaxPer3.Text
txtBlTax3.BringToFront()
txtBlTaxPercentage3.BringToFront()
cbBlDisc3.Enabled = False
txtBlQty3.ReadOnly = True
txtBlTax3.ReadOnly = True
txtBlTaxPercentage3.ReadOnly = True

Try
'TO CALCULATE PD WE NEED-PRODUCT AMT, QTY, DISC, TAX, AMOUNT
Dim Rate, Qty, Disc, DisAmt, DisRate, Tax, TaxAmt, Amt As Decimal
Rate = txtBlRate3.Text
Qty = txtBlQty3.Text
Disc = cbBlDisc3.Text
Tax = txtBlTaxPercentage3.Text
DisAmt = (Rate / 100) * Disc
txtBlL3DiscAmt.Text = DisAmt
DisRate = (Rate - DisAmt) * Qty
TaxAmt = (DisRate / 100) * Tax
txtBlL3TaxAmt.Text = TaxAmt
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 23
Amt = Format((DisRate + TaxAmt), "0.00")
txtBlAmount3.Text = Amt
Catch ex As Exception
MessageBox.Show("Hey, " & txtUser.Text & "! Check the value you have entered" &
vbNewLine & vbNewLine & "Invalid : " & ex.Message)
End Try

End If
Else
MsgBox("Hey, " & txtUser.Text & "! Already Amount Generated." & vbNewLine & vbNewLine & "If
you want to edit, start from the beginning...")
cbBlType3.Text = ""
txtBlDesc3.Clear()
txtBlRate3.Clear()
txtBlQty3.Clear()
cbBlDisc3.Text = ""
txtBlTax3.Clear()
txtBlTaxPercentage3.Clear()
txtBlAmount3.Clear()
cbBlDisc3.Enabled = True
txtBlQty3.ReadOnly = False
txtBlTax3.ReadOnly = False
txtBlTaxPercentage3.ReadOnly = False
End If
End Sub

Private Sub txtBlAmount1_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtBlAmount1.TextChanged, txtBlAmount1.MouseClick
txtBlTotal.Clear()
txtBlWordTotal.Clear()
End Sub

Private Sub txtBlAmount2_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtBlAmount2.TextChanged, txtBlAmount2.MouseClick
txtBlTotal.Clear()
txtBlWordTotal.Clear()
End Sub

Private Sub txtBlAmount3_TextChanged(sender As System.Object, e As System.EventArgs) Handles

txtBlAmount3.TextChanged, txtBlAmount3.MouseClick
txtBlTotal.Clear()
txtBlWordTotal.Clear()
End Sub

Private Sub txtBlTotal_TextChanged(sender As System.Object, e As System.Windows.Forms.

MouseEventArgs) Handles txtBlTotal.MouseClick
'Automatically calculating MS Due Date
Try
If cbBlType1.Text = "Membership" Or cbBlType2.Text = "Membership" Or cbBlType3.Text =
"Membership" Then
dtpBlMsEndDate.Value = dtpBlMsStartDate.Value.AddDays(txtBlMsDuration.Text)
Else
End If
Catch ex As Exception
MsgBox("Error in calculating due date " & ex.Message)
End Try

'CALCULATING TOTAL
Try
Dim Line1, Line2, Line3, Total As Decimal

If txtBlAmount1.Text = "" Then 'Checking NULL in Line1 Total

Line1 = 0
Else
Line1 = txtBlAmount1.Text
End If

If txtBlAmount2.Text = "" Then 'Checking NULL in Line2 Total

Line2 = 0
Else
Line2 = txtBlAmount2.Text
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 24
End If

If txtBlAmount3.Text = "" Then 'Checking NULL in Line3 Total

Line3 = 0
Else
Line3 = txtBlAmount3.Text
End If

Total = Line1 + Line2 + Line3

txtBlTotal.Text = Total
If Total < 100000.0 Then
txtBlWordTotal.Text = "Rupees " & AmountInWords(txtBlTotal.Text.Trim) & "Only"
Else
End If
Catch ex As Exception
MessageBox.Show("Hey, " & txtUser.Text & "!" & vbNewLine & vbNewLine & "Check the Value :" &
ex.Message)
End Try
Try
Dim Tax1, Tax2, Tax3, Total_Tax As Decimal

If txtBlL1TaxAmt.Text = "" Then

Tax1 = 0
Else
Tax1 = txtBlL1TaxAmt.Text
End If

If txtBlL2TaxAmt.Text = "" Then

Tax2 = 0
Else
Tax2 = txtBlL2TaxAmt.Text
End If

If txtBlL3TaxAmt.Text = "" Then

Tax3 = 0
Else
Tax3 = txtBlL3TaxAmt.Text
End If
Total_Tax = Tax1 + Tax2 + Tax3
txtBlTotalTax.Text = Total_Tax

Catch ex As Exception
MessageBox.Show("Hey, " & txtUser.Text & "!" & vbNewLine & vbNewLine & "Invalid :" & ex.
Message)
End Try
cbBlMsPaymentStatus.Enabled = True
End Sub

Public Function AmountInWords(ByVal nAmount As String, Optional ByVal wAmount _

As String = vbNullString, Optional ByVal nSet As Object = Nothing) As String
'Let's make sure entered value is numeric
If Not IsNumeric(nAmount) Then Return "Please enter numeric values only."

Dim tempDecValue As String = String.Empty : If InStr(nAmount, ".") Then _

tempDecValue = nAmount.Substring(nAmount.IndexOf("."))
nAmount = Replace(nAmount, tempDecValue, String.Empty)

Try
Dim intAmount As Long = nAmount
If intAmount > 0 Then
nSet = IIf((intAmount.ToString.Trim.Length / 3) _
> (CLng(intAmount.ToString.Trim.Length / 3)), _
CLng(intAmount.ToString.Trim.Length / 3) + 1, _
CLng(intAmount.ToString.Trim.Length / 3))
Dim eAmount As Long = Microsoft.VisualBasic.Left(intAmount.ToString.Trim, _
(intAmount.ToString.Trim.Length - ((nSet - 1) * 3)))
Dim multiplier As Long = 10 ^ (((nSet - 1) * 3))

Dim Ones() As String = _

{"", "One", "Two", "Three", _
"Four", "Five", _
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 25
"Six", "Seven", "Eight", "Nine"}
Dim Teens() As String = {"", _
"Eleven", "Twelve", "Thirteen", _
"Fourteen", "Fifteen", _
"Sixteen", "Seventeen", "Eighteen", "Nineteen"}
Dim Tens() As String = {"", "Ten", _
"Twenty", "Thirty", _
"Forty", "Fifty", "Sixty", _
"Seventy", "Eighty", "Ninety"}
Dim HMBT() As String = {"", "", _
"Thousand", "Million", _
"Billion", "Trillion", _
"Quadrillion", "Quintillion"}

intAmount = eAmount

Dim nHundred As Integer = intAmount \ 100 : intAmount = intAmount Mod 100

Dim nTen As Integer = intAmount \ 10 : intAmount = intAmount Mod 10
Dim nOne As Integer = intAmount \ 1

If nHundred > 0 Then wAmount = wAmount & _

Ones(nHundred) & " Hundred " 'This is for hundreds
If nTen > 0 Then 'This is for tens and teens
If nTen = 1 And nOne > 0 Then 'This is for teens
wAmount = wAmount & Teens(nOne) & " "
Else 'This is for tens, 10 to 90
wAmount = wAmount & Tens(nTen) & IIf(nOne > 0, "-", " ")
If nOne > 0 Then wAmount = wAmount & Ones(nOne) & " "
End If
Else 'This is for ones, 1 to 9
If nOne > 0 Then wAmount = wAmount & Ones(nOne) & " "
End If
wAmount = wAmount & HMBT(nSet) & " "
wAmount = AmountInWords(CStr(CLng(nAmount) - _
(eAmount * multiplier)).Trim & tempDecValue, wAmount, nSet - 1)
Else
If Val(nAmount) = 0 Then nAmount = nAmount & _
tempDecValue : tempDecValue = String.Empty
If (Math.Round(Val(nAmount), 2) * 100) > 0 Then wAmount = _
Trim(AmountInWords(CStr(Math.Round(Val(nAmount), 2) * 100), _
wAmount.Trim & " And ", 1)) & " Paise"
End If
Catch ex As Exception
MessageBox.Show("Error Encountered: " & ex.Message, _
"Convert Numbers To Words", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Return "!#ERROR_ENCOUNTERED"
End Try

'Trap null values

'If IsNothing(wAmount) = True Then wAmount = String.Empty Else wAmount = _
' IIf(InStr(wAmount.Trim.ToLower, "Rupees"), _
' wAmount.Trim, wAmount.Trim & " Only")

'Display the result

Return wAmount
End Function

Private Sub cbBlMsPaymentStatus_SelectedIndexChanged_1(sender As System.Object, e As System.

EventArgs) Handles cbBlMsPaymentStatus.SelectedIndexChanged
btnInvPrintPreview.Enabled = True
cbBlType2.Enabled = False
cbBlType3.Enabled = False

If txtBlTaxPercentage1.Text = "" Then

Else
txtBlTaxPercentage1.Text = txtBlTaxPercentage1.Text + " %"
End If

If txtBlTaxPercentage2.Text = "" Then

Else
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 26
txtBlTaxPercentage2.Text = txtBlTaxPercentage2.Text + " %"
End If

If txtBlTaxPercentage3.Text = "" Then

Else
txtBlTaxPercentage3.Text = txtBlTaxPercentage3.Text + " %"
End If

If cbBlDisc1.Text = "" Then

Else
cbBlDisc1.Text = cbBlDisc1.Text + " %"
End If

If cbBlDisc2.Text = "" Then

Else
cbBlDisc2.Text = cbBlDisc2.Text + " %"
End If

If cbBlDisc3.Text = "" Then

Else
cbBlDisc3.Text = cbBlDisc3.Text + " %"
End If
End Sub

Private Sub btnBlSaveInvoice_Click(sender As System.Object, e As System.EventArgs) Handles

btnBlSaveInvoice.Click
'Saving Invoice to Database
Try
Dim insert As String = "INSERT INTO invoice(invoice_number,invoice_date,invoice_time,
invoice_user,member_id,member_name,member_address,member_mobile,desc1,rate1,qty1,disc1,tax1,amount1,
desc2,rate2,qty2,disc2,tax2,amount2,desc3,rate3,qty3,disc3,tax3,amount3,total,word_total,extra1,
extra2,extra3) VALUES (@invoice_number,@invoice_date,@invoice_time,@invoice_user,@member_id,@
member_name,@member_address,@member_mobile,@desc1,@rate1,@qty1,@disc1,@tax1,@amount1,@desc2,@rate2,@
qty2,@disc2,@tax2,@amount2,@desc3,@rate3,@qty3,@disc3,@tax3,@amount3,@total,@word_total,@extra1,@
extra2,@extra3)"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@invoice_number", SqlDbType.NText, 50).Value = txtBlInvNo.Text
cmd.Parameters.Add("@invoice_date", SqlDbType.Date).Value = dtpBlInvDate.Text
cmd.Parameters.Add("@invoice_time", SqlDbType.NText, 50).Value = txtBlInvTime.Text
cmd.Parameters.Add("@invoice_user", SqlDbType.NText, 50).Value = txtUser.Text
cmd.Parameters.Add("@member_id", SqlDbType.NText, 50).Value = txtBlMemId.Text
cmd.Parameters.Add("@member_name", SqlDbType.NText, 50).Value = cbBlMemTitle.Text + " " +
txtBlMemName.Text + " " + txtBlMemLastName.Text
cmd.Parameters.Add("@member_address", SqlDbType.NText, 100).Value = txtBlMemFullAddress.Text
cmd.Parameters.Add("@member_mobile", SqlDbType.NText, 50).Value = txtBlMemMobile.Text
cmd.Parameters.Add("@desc1", SqlDbType.NText, 50).Value = txtBlDesc1.Text
cmd.Parameters.Add("@rate1", SqlDbType.NText, 50).Value = txtBlRate1.Text
cmd.Parameters.Add("@qty1", SqlDbType.NText, 50).Value = txtBlQty1.Text
cmd.Parameters.Add("@disc1", SqlDbType.NText, 50).Value = cbBlDisc1.Text
cmd.Parameters.Add("@tax1", SqlDbType.NText, 50).Value = txtBlTax1.Text + " " +
txtBlTaxPercentage1.Text
cmd.Parameters.Add("@amount1", SqlDbType.NText, 50).Value = txtBlAmount1.Text
cmd.Parameters.Add("@desc2", SqlDbType.NText, 50).Value = txtBlDesc2.Text
cmd.Parameters.Add("@rate2", SqlDbType.NText, 50).Value = txtBlRate2.Text
cmd.Parameters.Add("@qty2", SqlDbType.NText, 50).Value = txtBlQty2.Text
cmd.Parameters.Add("@disc2", SqlDbType.NText, 50).Value = cbBlDisc2.Text
cmd.Parameters.Add("@tax2", SqlDbType.NText, 50).Value = txtBlTax2.Text + " " +
txtBlTaxPercentage2.Text
cmd.Parameters.Add("@amount2", SqlDbType.NText, 50).Value = txtBlAmount2.Text
cmd.Parameters.Add("@desc3", SqlDbType.NText, 50).Value = txtBlDesc3.Text
cmd.Parameters.Add("@rate3", SqlDbType.NText, 50).Value = txtBlRate3.Text
cmd.Parameters.Add("@qty3", SqlDbType.NText, 50).Value = txtBlQty3.Text
cmd.Parameters.Add("@disc3", SqlDbType.NText, 50).Value = cbBlDisc3.Text
cmd.Parameters.Add("@tax3", SqlDbType.NText, 50).Value = txtBlTax3.Text + " " +
txtBlTaxPercentage3.Text
cmd.Parameters.Add("@amount3", SqlDbType.NText, 50).Value = txtBlAmount3.Text
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 27
cmd.Parameters.Add("@total", SqlDbType.NText, 50).Value = txtBlTotal.Text
cmd.Parameters.Add("@word_total", SqlDbType.NText, 100).Value = txtBlWordTotal.Text
cmd.Parameters.Add("@extra1", SqlDbType.NText, 50).Value = txtBlTotalTax.Text
cmd.Parameters.Add("@extra2", SqlDbType.NText, 100).Value = txtBlMsDuration.Text
cmd.Parameters.Add("@extra3", SqlDbType.NText, 100).Value = cbBlMsPaymentStatus.Text
cmd.ExecuteNonQuery()
con.Close()
btnBlNewInvoice.Enabled = True
cbBlType1.Enabled = False
cbBlMsPaymentStatus.Enabled = False
cbBlType2.Enabled = True
cbBlType3.Enabled = True

cbBlDisc1.Enabled = True
txtBlQty1.ReadOnly = False
txtBlTax1.ReadOnly = False
txtBlTaxPercentage1.ReadOnly = False

cbBlDisc2.Enabled = True
txtBlQty2.ReadOnly = False
txtBlTax2.ReadOnly = False
txtBlTaxPercentage2.ReadOnly = False

cbBlDisc3.Enabled = True
txtBlQty3.ReadOnly = False
txtBlTax3.ReadOnly = False
txtBlTaxPercentage3.ReadOnly = False
'MsgBox("Invoice Successfully Saved")
Catch ex As Exception
MessageBox.Show("Error in Generating Invoice: " & ex.Message)
End Try

'Saving membership while saving generating and saving invoice

'Checking which Line have membership
If cbBlType1.Text = "Membership" Then
Try
Dim insert As String = "INSERT INTO memberships(member_id,name,program,program_id,
program_group,duration,amount,start_date,end_date,payment_status) VALUES (@member_id,@name,@program,
@program_id,@program_group,@duration,@amount,@start_date,@end_date,@payment_status)"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\
core.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@member_id", SqlDbType.NText, 50).Value = txtBlMemId.Text
cmd.Parameters.Add("@name", SqlDbType.NText, 50).Value = txtBlMemName.Text
cmd.Parameters.Add("@program", SqlDbType.NText, 50).Value = txtBlDesc1.Text
cmd.Parameters.Add("@program_id", SqlDbType.NText, 50).Value = txtBlMsPoints.Text
'Renewals
cmd.Parameters.Add("@program_group", SqlDbType.NText, 50).Value = txtUser.Text + " @ " +
dtpBlInvDate.Text + " " + txtBlInvTime.Text 'User Created
cmd.Parameters.Add("@duration", SqlDbType.NText, 50).Value = txtBlMsDuration.Text
cmd.Parameters.Add("@amount", SqlDbType.NText, 50).Value = txtBlTotal.Text
cmd.Parameters.Add("@start_date", SqlDbType.Date).Value = dtpBlMsStartDate.Text
cmd.Parameters.Add("@end_date", SqlDbType.Date).Value = dtpBlMsEndDate.Text
cmd.Parameters.Add("@payment_status", SqlDbType.NText, 50).Value = cbBlMsPaymentStatus.
Text
cmd.ExecuteNonQuery()
con.Close()
'MsgBox("Membership Successfully Added")
Catch ex As Exception
MessageBox.Show("Invalid : " & ex.Message)
End Try
ElseIf cbBlType2.Text = "Membership" Then
Try
Dim insert As String = "INSERT INTO memberships(member_id,name,program,program_id,
program_group,duration,amount,start_date,end_date,payment_status) VALUES (@member_id,@name,@program,
@program_id,@program_group,@duration,@amount,@start_date,@end_date,@payment_status)"
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 28
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\
core.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@member_id", SqlDbType.NText, 50).Value = txtBlMemId.Text
cmd.Parameters.Add("@name", SqlDbType.NText, 50).Value = txtBlMemName.Text
cmd.Parameters.Add("@program", SqlDbType.NText, 50).Value = txtBlDesc2.Text
cmd.Parameters.Add("@program_id", SqlDbType.NText, 50).Value = txtBlMsPoints.Text
cmd.Parameters.Add("@program_group", SqlDbType.NText, 50).Value = txtUser.Text + " @ " +
Now.ToString
cmd.Parameters.Add("@duration", SqlDbType.NText, 50).Value = txtBlMsDuration.Text
cmd.Parameters.Add("@amount", SqlDbType.NText, 50).Value = txtBlTotal.Text
cmd.Parameters.Add("@start_date", SqlDbType.Date).Value = dtpBlMsStartDate.Text
cmd.Parameters.Add("@end_date", SqlDbType.Date).Value = dtpBlMsEndDate.Text
cmd.Parameters.Add("@payment_status", SqlDbType.NText, 50).Value = cbBlMsPaymentStatus.
Text
cmd.ExecuteNonQuery()
con.Close()
'MsgBox("Membership Successfully Added")
Catch ex As Exception
MessageBox.Show("Invalid : " & ex.Message)
End Try
ElseIf cbBlType3.Text = "Membership" Then
Try
Dim insert As String = "INSERT INTO memberships(member_id,name,program,program_id,
program_group,duration,amount,start_date,end_date,payment_status) VALUES (@member_id,@name,@program,
@program_id,@program_group,@duration,@amount,@start_date,@end_date,@payment_status)"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\
core.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@member_id", SqlDbType.NText, 50).Value = txtBlMemId.Text
cmd.Parameters.Add("@name", SqlDbType.NText, 50).Value = txtBlMemName.Text
cmd.Parameters.Add("@program", SqlDbType.NText, 50).Value = txtBlDesc3.Text
cmd.Parameters.Add("@program_id", SqlDbType.NText, 50).Value = txtBlMsPoints.Text
cmd.Parameters.Add("@program_group", SqlDbType.NText, 50).Value = txtUser.Text + " @ " +
Now.ToString
cmd.Parameters.Add("@duration", SqlDbType.NText, 50).Value = txtBlMsDuration.Text
cmd.Parameters.Add("@amount", SqlDbType.NText, 50).Value = txtBlTotal.Text
cmd.Parameters.Add("@start_date", SqlDbType.Date).Value = dtpBlMsStartDate.Text
cmd.Parameters.Add("@end_date", SqlDbType.Date).Value = dtpBlMsEndDate.Text
cmd.Parameters.Add("@payment_status", SqlDbType.NText, 50).Value = cbBlMsPaymentStatus.
Text
cmd.ExecuteNonQuery()
con.Close()
'MsgBox("Membership Successfully Added")
Catch ex As Exception
MessageBox.Show("Invalid : " & ex.Message)
End Try
End If

'Updating Ms Points
Dim PMsP, MsPv, TMsP As Double 'Previous Membership Points (PmsP), Membership Points Value
(MsPv), Total Membership Points (TMsP)
MsPv = txtBlMsPoints.Text
PMsP = txtBlTotalMs.Text
TMsP = MsPv + PMsP

Try
Dim update_member As String = "UPDATE members SET state=@state WHERE id=@id"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(update_member, con)
cmd.Parameters.Add("@id", SqlDbType.Int, 50).Value = txtBlMemId.Text
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 29
cmd.Parameters.Add("@state", SqlDbType.NText, 50).Value = TMsP
cmd.ExecuteNonQuery()
con.Close()
Catch ex As Exception
MessageBox.Show("Error during update of member Info : " & ex.Message)
End Try
End Sub
'5.0.1 Invoice Printing
Private Sub pdocInvoice_PrintPage(sender As System.Object, e As System.Drawing.Printing.
PrintPageEventArgs) Handles pdocInvoice.PrintPage
'Fonts Used in Invoice
Dim myfont As New Font("Book Antiqua", 10)
Dim myfon As New Font("Book Antiqua", 8)
Dim myfor As New Font("Book Antiqua", 6)
Dim mytitle As New Font("Franklin Gothic Heavy", 20)

'Assinging Location to Objects in Invoice Page

'Title
Dim TitleCenter As Single
TitleCenter = Convert.ToSingle(e.PageBounds.Width / 2 - e.Graphics.MeasureString(txtBlInvTitle.
Text, mytitle).Width / 2)
e.Graphics.DrawString(txtBlInvTitle.Text, mytitle, Brushes.Black, TitleCenter, 50)
'Invoice
Dim InvoiceCenter As Single
InvoiceCenter = Convert.ToSingle(e.PageBounds.Width / 2 - e.Graphics.MeasureString
(txtBlInvInvoice.Text, myfont).Width / 2)
e.Graphics.DrawString(txtBlInvInvoice.Text, myfont, Brushes.Black, InvoiceCenter, 100)
'Address
e.Graphics.DrawString(txtBlInvAddress.Text, myfont, Brushes.Black, 50, 120)
'Registration Numbers
e.Graphics.DrawString(Me.txtBlInvTIN.Text, myfont, Brushes.Black, 600, 120)
e.Graphics.DrawString(Me.txtBlInvCST.Text, myfont, Brushes.Black, 600, 140)
e.Graphics.DrawString(Me.txtBlInvCSTDate.Text, myfont, Brushes.Black, 600, 160)
e.Graphics.DrawString(Me.txtBlInvExtra1.Text, myfont, Brushes.Black, 600, 180)
'Lines
e.Graphics.DrawString(Me.txtStInvLine1.Text, myfont, Brushes.Black, 50, 300) 'Line1
e.Graphics.DrawString(Me.txtStInvLine2.Text, myfont, Brushes.Black, 50, 470) 'Line2
e.Graphics.DrawString(Me.txtStInvLine3.Text, myfont, Brushes.Black, 50, 495) 'Line3
e.Graphics.DrawString(Me.txtStInvLine4.Text, myfont, Brushes.Black, 50, 870) 'Line4
'Invoice
'Member Details
e.Graphics.DrawString("Member Name", myfont, Brushes.Black, 50, 325)
e.Graphics.DrawString("Member ID", myfont, Brushes.Black, 50, 350)
e.Graphics.DrawString("Address", myfont, Brushes.Black, 50, 400)
e.Graphics.DrawString("Mobile", myfont, Brushes.Black, 50, 375)

e.Graphics.DrawString(":", myfont, Brushes.Black, 150, 325)

e.Graphics.DrawString(":", myfont, Brushes.Black, 150, 350)
e.Graphics.DrawString(":", myfont, Brushes.Black, 150, 400)
e.Graphics.DrawString(":", myfont, Brushes.Black, 150, 375)

e.Graphics.DrawString(cbBlMemTitle.Text + " " + txtBlMemName.Text + " " + txtBlMemLastName.Text,

myfont, Brushes.Black, 160, 325)
e.Graphics.DrawString(txtBlMemId.Text, myfont, Brushes.Black, 160, 350)
e.Graphics.DrawString(txtBlMemFullAddress.Text, myfont, Brushes.Black, 160, 400)
e.Graphics.DrawString(txtBlMemMobile.Text, myfont, Brushes.Black, 160, 375)
'Invoice Details
e.Graphics.DrawString("Invoice No", myfont, Brushes.Black, 560, 325)
e.Graphics.DrawString("Invoice Date", myfont, Brushes.Black, 560, 350)
e.Graphics.DrawString("Invoice Time", myfont, Brushes.Black, 560, 375)
e.Graphics.DrawString("Invoice Issued By", myfont, Brushes.Black, 560, 280)

e.Graphics.DrawString(":", myfont, Brushes.Black, 670, 325)

e.Graphics.DrawString(":", myfont, Brushes.Black, 670, 350)
e.Graphics.DrawString(":", myfont, Brushes.Black, 670, 375)
e.Graphics.DrawString(":", myfont, Brushes.Black, 670, 280)

e.Graphics.DrawString(txtBlInvNo.Text, myfont, Brushes.Black, 680, 325)

e.Graphics.DrawString(dtpBlInvDate.Text, myfont, Brushes.Black, 680, 350)
e.Graphics.DrawString(txtBlInvTime.Text, myfont, Brushes.Black, 680, 375)
e.Graphics.DrawString(txtUser.Text, myfont, Brushes.Black, 680, 280)
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 30
'Billing Details
'Header
e.Graphics.DrawString("Description", myfont, Brushes.Black, 50, 483)
e.Graphics.DrawString("Rate", myfont, Brushes.Black, 350, 483)
e.Graphics.DrawString("Qty", myfont, Brushes.Black, 440, 483)
e.Graphics.DrawString("Dis %", myfont, Brushes.Black, 530, 483)
e.Graphics.DrawString("Tax %", myfont, Brushes.Black, 620, 483)
'Line-1
e.Graphics.DrawString(txtBlDesc1.Text, myfont, Brushes.Black, 50, 520)
e.Graphics.DrawString(txtBlRate1.Text, myfont, Brushes.Black, 350, 520)
e.Graphics.DrawString(txtBlQty1.Text, myfont, Brushes.Black, 450, 520)
e.Graphics.DrawString(cbBlDisc1.Text, myfont, Brushes.Black, 535, 520)
e.Graphics.DrawString(txtBlTax1.Text + " " + txtBlTaxPercentage1.Text, myfont, Brushes.Black,
590, 520)
'Line-2
e.Graphics.DrawString(txtBlDesc2.Text, myfont, Brushes.Black, 50, 560)
e.Graphics.DrawString(txtBlRate2.Text, myfont, Brushes.Black, 350, 560)
e.Graphics.DrawString(txtBlQty2.Text, myfont, Brushes.Black, 450, 560)
e.Graphics.DrawString(cbBlDisc2.Text, myfont, Brushes.Black, 535, 560)
e.Graphics.DrawString(txtBlTax2.Text + " " + txtBlTaxPercentage2.Text, myfont, Brushes.Black,
590, 560)
'Line-3
e.Graphics.DrawString(txtBlDesc3.Text, myfont, Brushes.Black, 50, 600)
e.Graphics.DrawString(txtBlRate3.Text, myfont, Brushes.Black, 350, 600)
e.Graphics.DrawString(txtBlQty3.Text, myfont, Brushes.Black, 450, 600)
e.Graphics.DrawString(cbBlDisc3.Text, myfont, Brushes.Black, 535, 600)
e.Graphics.DrawString(txtBlTax3.Text + " " + txtBlTaxPercentage3.Text, myfont, Brushes.Black,
590, 600)
'Net Total,Tax Total and Amount in Words
e.Graphics.DrawString("Total Tax ₹ " + txtBlTotalTax.Text, myfont, Brushes.Black, 590, 640)
e.Graphics.DrawString(txtStInvExtra2.Text, myfont, Brushes.Black, 50, 660)
e.Graphics.DrawString("Net Pay ₹ ", myfont, Brushes.Black, 650, 795)
e.Graphics.DrawString(txtStInvSmallLine.Text, myfont, Brushes.Black, 720, 782)
e.Graphics.DrawString(txtStInvSmallLine.Text, myfont, Brushes.Black, 720, 807)
e.Graphics.DrawString(txtBlInvEOE.Text, myfon, Brushes.Black, 50, 885)
e.Graphics.DrawString(txtBlInvTerms.Text, myfon, Brushes.Black, 50, 905)
'e.Graphics.DrawString("Payment Status :", myfont, Brushes.Black, 630, 845)
'e.Graphics.DrawString(cbBlMsPaymentStatus.Text, myfont, Brushes.Black, 750, 845)

'Right Justified Items

Dim pgsettings As New Printing.PageSettings
Dim Amount As New SizeF(e.Graphics.MeasureString("Amount", myfont))
Dim Amountwordwidth As Long = Amount.Width
' To print Right Justified
' Calculate available space on page (ignoring margins)
Dim pagewidth As Single = pgsettings.Bounds.Right - pgsettings.Bounds.Left
' Set startpoint by offsetting by substracting right margin width and
' the length of this string
Dim Amountstartpoint As Single = pagewidth - Amountwordwidth - pgsettings.Margins.Right
' Draw the text
e.Graphics.DrawString("Amount", myfont, Brushes.Black, Amountstartpoint + 50, 483)
'Amount-1
Dim Amount1 As New SizeF(e.Graphics.MeasureString(Me.txtBlAmount1.Text, myfont))
Dim Amount1wordwidth As Long = Amount1.Width
Dim Amount1startpoint As Single = pagewidth - Amount1wordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlAmount1.Text, myfont, Brushes.Black, Amount1startpoint + 50, 520)
'Amount-2
Dim Amount2 As New SizeF(e.Graphics.MeasureString(Me.txtBlAmount2.Text, myfont))
Dim Amount2wordwidth As Long = Amount2.Width
Dim Amount2startpoint As Single = pagewidth - Amount2wordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlAmount2.Text, myfont, Brushes.Black, Amount2startpoint + 50, 560)
'Amount-3
Dim Amount3 As New SizeF(e.Graphics.MeasureString(Me.txtBlAmount3.Text, myfont))
Dim Amount3wordwidth As Long = Amount3.Width
Dim Amount3startpoint As Single = pagewidth - Amount3wordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlAmount3.Text, myfont, Brushes.Black, Amount3startpoint + 50, 600)
'Total
Dim Total As New SizeF(e.Graphics.MeasureString(Me.txtBlTotal.Text, myfont))
Dim Totalwordwidth As Long = Total.Width
Dim Totalstartpoint As Single = pagewidth - Totalwordwidth - pgsettings.Margins.Right
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 31
e.Graphics.DrawString(txtBlTotal.Text, myfont, Brushes.Black, Totalstartpoint + 50, 795)
'Amount in Words
Dim WordTotal As New SizeF(e.Graphics.MeasureString(Me.txtBlWordTotal.Text, myfont))
Dim WordTotalwordwidth As Long = WordTotal.Width
Dim WordTotalstartpoint As Single = pagewidth - WordTotalwordwidth - pgsettings.Margins.Right
e.Graphics.DrawString("Amount in Words : " + txtBlWordTotal.Text, myfont, Brushes.Black,
WordTotalstartpoint - 70, 820)
'Thank You!
Dim EOE As New SizeF(e.Graphics.MeasureString(Me.txtBlInvThankyou.Text, myfont))
Dim EOEwordwidth As Long = EOE.Width
Dim EOEstartpoint As Single = pagewidth - EOEwordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlInvThankyou.Text, myfont, Brushes.Black, EOEstartpoint + 50, 885)
'For Core
Dim ForCore As New SizeF(e.Graphics.MeasureString(Me.txtBlInvForCore.Text, myfor))
Dim ForCorewordwidth As Long = ForCore.Width
Dim ForCorestartpoint As Single = pagewidth - ForCorewordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlInvForCore.Text, myfor, Brushes.Black, ForCorestartpoint + 50, 1050)

e.Graphics.PageUnit = GraphicsUnit.Inch

End Sub

Private Sub btnStInvRefresh_Click(sender As System.Object, e As System.EventArgs) Handles

btnStInvRefresh.Click
'TODO: This line of code loads data into the 'CoreDataSet.invsettings' table. You can move, or
remove it, as needed.
Me.InvsettingsTableAdapter.Update(Me.CoreDataSet.invsettings)
Me.InvsettingsTableAdapter.Fill(Me.CoreDataSet.invsettings)
End Sub

Private Sub btnInvPrintPreview_Click_1(sender As System.Object, e As System.EventArgs) Handles

btnInvPrintPreview.Click
Try
ppdInvoice.Document = pdocInvoice 'Print Preview associate with PrintDocument
ppdInvoice.ShowDialog()
btnBlSaveInvoice.PerformClick()
Me.BillClear()
Me.MembershipsTableAdapter.Fill(Me.CoreDataSet.memberships)
Me.InvoiceTableAdapter.Fill(Me.CoreDataSet.invoice)
Me.MembersTableAdapter.Fill(Me.CoreDataSet.members)
MembershipsDataGridView.FirstDisplayedScrollingRowIndex = MembershipsDataGridView.Rows.Count
- 1
btnInvPrintPreview.Enabled = False
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
'5.0.2 Not in use
Private Sub btnInvPrint_Click(sender As System.Object, e As System.EventArgs)
pdiaInvoice.Document = pdocInvoice 'open the print preview'PrintDialog associate with
PrintDocument.

If pdiaInvoice.ShowDialog() = DialogResult.OK Then

pdocInvoice.Print()
btnBlSaveInvoice.PerformClick()
Me.BillClear()
End If
End Sub

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

'Print Preview
ppdInvoice.Document = pdocInvoice 'PrintPreviewDialog associate with PrintDocument.
ppdInvoice.ShowDialog() 'open the print preview

'Print
pdiaInvoice.Document = pdocInvoice 'open the print preview'PrintDialog associate with
PrintDocument.
If pdiaInvoice.ShowDialog() = DialogResult.OK Then
pdocInvoice.Print()
btnBlSaveInvoice.PerformClick()
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 32
Me.BillClear()
End If

End Sub
'5.1 Search Invoice
Private Sub btnBlInvoice_Click(sender As System.Object, e As System.EventArgs) Handles btnBlInvoice.
Click
gbBlInvoice.BringToFront()
btnBlSearchInvoice.BringToFront()
btnBlReset.Visible = True
End Sub

Private Sub pdocBls_PrintPage(sender As System.Object, e As System.Drawing.Printing.

PrintPageEventArgs) Handles pdocBls.PrintPage
'Fonts Used in Invoice
Dim myfont As New Font("Book Antiqua", 10)
Dim myfon As New Font("Book Antiqua", 8)
Dim myfor As New Font("Book Antiqua", 6)
Dim mytitle As New Font("Franklin Gothic Heavy", 20)

'Assinging Location to Objects in Invoice Page

'Title
Dim TitleCenter As Single
TitleCenter = Convert.ToSingle(e.PageBounds.Width / 2 - e.Graphics.MeasureString(txtBlInvTitle.
Text, mytitle).Width / 2)
e.Graphics.DrawString(txtBlInvTitle.Text, mytitle, Brushes.Black, TitleCenter, 50)
'Invoice
Dim InvoiceCenter As Single
InvoiceCenter = Convert.ToSingle(e.PageBounds.Width / 2 - e.Graphics.MeasureString
(txtBlInvInvoice.Text, myfont).Width / 2)
e.Graphics.DrawString(txtBlInvInvoice.Text, myfont, Brushes.Black, InvoiceCenter, 100)
'Address
e.Graphics.DrawString(txtBlInvAddress.Text, myfont, Brushes.Black, 50, 120)
'Registration Numbers
e.Graphics.DrawString(Me.txtBlInvTIN.Text, myfont, Brushes.Black, 600, 120)
e.Graphics.DrawString(Me.txtBlInvCST.Text, myfont, Brushes.Black, 600, 140)
e.Graphics.DrawString(Me.txtBlInvCSTDate.Text, myfont, Brushes.Black, 600, 160)
e.Graphics.DrawString(Me.txtBlInvExtra1.Text, myfont, Brushes.Black, 600, 180)
'Lines
e.Graphics.DrawString(Me.txtStInvLine1.Text, myfont, Brushes.Black, 50, 300) 'Line1
e.Graphics.DrawString(Me.txtStInvLine2.Text, myfont, Brushes.Black, 50, 470) 'Line2
e.Graphics.DrawString(Me.txtStInvLine3.Text, myfont, Brushes.Black, 50, 495) 'Line3
e.Graphics.DrawString(Me.txtStInvLine4.Text, myfont, Brushes.Black, 50, 870) 'Line4
'Invoice
'Member Details
e.Graphics.DrawString("Member Name", myfont, Brushes.Black, 50, 325)
e.Graphics.DrawString("Member ID", myfont, Brushes.Black, 50, 350)
e.Graphics.DrawString("Address", myfont, Brushes.Black, 50, 400)
e.Graphics.DrawString("Mobile", myfont, Brushes.Black, 50, 375)

e.Graphics.DrawString(":", myfont, Brushes.Black, 150, 325)

e.Graphics.DrawString(":", myfont, Brushes.Black, 150, 350)
e.Graphics.DrawString(":", myfont, Brushes.Black, 150, 400)
e.Graphics.DrawString(":", myfont, Brushes.Black, 150, 375)

e.Graphics.DrawString(txtBlsMemName.Text, myfont, Brushes.Black, 160, 325)

e.Graphics.DrawString(txtBlsMemId.Text, myfont, Brushes.Black, 160, 350)
e.Graphics.DrawString(txtBlsMemAddress.Text, myfont, Brushes.Black, 160, 400)
e.Graphics.DrawString(txtBlsMemMobile.Text, myfont, Brushes.Black, 160, 375)
'Invoice Details
e.Graphics.DrawString("Invoice No", myfont, Brushes.Black, 560, 325)
e.Graphics.DrawString("Invoice Date", myfont, Brushes.Black, 560, 350)
e.Graphics.DrawString("Invoice Time", myfont, Brushes.Black, 560, 375)
e.Graphics.DrawString("Invoice Issued By", myfont, Brushes.Black, 560, 280)

e.Graphics.DrawString(":", myfont, Brushes.Black, 670, 325)

e.Graphics.DrawString(":", myfont, Brushes.Black, 670, 350)
e.Graphics.DrawString(":", myfont, Brushes.Black, 670, 375)
e.Graphics.DrawString(":", myfont, Brushes.Black, 670, 280)

e.Graphics.DrawString(txtBlsInvoiceNo.Text, myfont, Brushes.Black, 680, 325)

E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 33
e.Graphics.DrawString(dtpBlsInvoiceDate.Text, myfont, Brushes.Black, 680, 350)
e.Graphics.DrawString(txtBlsInvoiceTime.Text, myfont, Brushes.Black, 680, 375)
e.Graphics.DrawString(txtBlsInvoiceIssuedBy.Text, myfont, Brushes.Black, 680, 280)
'Billing Details
'Header
e.Graphics.DrawString("Description", myfont, Brushes.Black, 50, 483)
e.Graphics.DrawString("Rate", myfont, Brushes.Black, 350, 483)
e.Graphics.DrawString("Qty", myfont, Brushes.Black, 440, 483)
e.Graphics.DrawString("Dis %", myfont, Brushes.Black, 530, 483)
e.Graphics.DrawString("Tax %", myfont, Brushes.Black, 620, 483)
'Line-1
e.Graphics.DrawString(txtBlsDesc1.Text, myfont, Brushes.Black, 50, 520)
e.Graphics.DrawString(txtBlsRate1.Text, myfont, Brushes.Black, 350, 520)
e.Graphics.DrawString(txtBlsQty1.Text, myfont, Brushes.Black, 450, 520)
e.Graphics.DrawString(txtBlsDisc1.Text, myfont, Brushes.Black, 535, 520)
e.Graphics.DrawString(txtBlsTax1.Text + " " + txtBlTaxPercentage1.Text, myfont, Brushes.Black,
590, 520)
'Line-2
e.Graphics.DrawString(txtBlsDesc2.Text, myfont, Brushes.Black, 50, 560)
e.Graphics.DrawString(txtBlsRate2.Text, myfont, Brushes.Black, 350, 560)
e.Graphics.DrawString(txtBlsQty2.Text, myfont, Brushes.Black, 450, 560)
e.Graphics.DrawString(txtBlsDisc2.Text, myfont, Brushes.Black, 535, 560)
e.Graphics.DrawString(txtBlsTax2.Text, myfont, Brushes.Black, 590, 560)
'Line-3
e.Graphics.DrawString(txtBlsDesc3.Text, myfont, Brushes.Black, 50, 600)
e.Graphics.DrawString(txtBlsRate3.Text, myfont, Brushes.Black, 350, 600)
e.Graphics.DrawString(txtBlsQty3.Text, myfont, Brushes.Black, 450, 600)
e.Graphics.DrawString(txtBlsDisc3.Text, myfont, Brushes.Black, 535, 600)
e.Graphics.DrawString(txtBlsTax3.Text, myfont, Brushes.Black, 590, 600)
'Net Total,Tax Total and Amount in Words
'e.Graphics.DrawString("Total Tax ₹ " + txtBlTotalTax.Text, myfont, Brushes.Black, 590, 640)
e.Graphics.DrawString(txtStInvExtra2.Text, myfont, Brushes.Black, 50, 660)
e.Graphics.DrawString("Net Pay ₹ ", myfont, Brushes.Black, 650, 795)
e.Graphics.DrawString(txtStInvSmallLine.Text, myfont, Brushes.Black, 720, 782)
e.Graphics.DrawString(txtStInvSmallLine.Text, myfont, Brushes.Black, 720, 807)
e.Graphics.DrawString(txtBlInvEOE.Text, myfon, Brushes.Black, 50, 885)
e.Graphics.DrawString(txtBlInvTerms.Text, myfon, Brushes.Black, 50, 905)
'e.Graphics.DrawString("Payment Status :", myfont, Brushes.Black, 630, 845)
'e.Graphics.DrawString(cbBlMsPaymentStatus.Text, myfont, Brushes.Black, 750, 845)

'Right Justified Items

Dim pgsettings As New Printing.PageSettings
Dim Amount As New SizeF(e.Graphics.MeasureString("Amount", myfont))
Dim Amountwordwidth As Long = Amount.Width
' To print Right Justified
' Calculate available space on page (ignoring margins)
Dim pagewidth As Single = pgsettings.Bounds.Right - pgsettings.Bounds.Left
' Set startpoint by offsetting by substracting right margin width and
' the length of this string
Dim Amountstartpoint As Single = pagewidth - Amountwordwidth - pgsettings.Margins.Right
' Draw the text
e.Graphics.DrawString("Amount", myfont, Brushes.Black, Amountstartpoint + 50, 483)
'Amount-1
Dim Amount1 As New SizeF(e.Graphics.MeasureString(Me.txtBlsAmount1.Text, myfont))
Dim Amount1wordwidth As Long = Amount1.Width
Dim Amount1startpoint As Single = pagewidth - Amount1wordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlsAmount1.Text, myfont, Brushes.Black, Amount1startpoint + 50, 520)
'Amount-2
Dim Amount2 As New SizeF(e.Graphics.MeasureString(Me.txtBlsAmount2.Text, myfont))
Dim Amount2wordwidth As Long = Amount2.Width
Dim Amount2startpoint As Single = pagewidth - Amount2wordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlsAmount2.Text, myfont, Brushes.Black, Amount2startpoint + 50, 560)
'Amount-3
Dim Amount3 As New SizeF(e.Graphics.MeasureString(Me.txtBlsAmount3.Text, myfont))
Dim Amount3wordwidth As Long = Amount3.Width
Dim Amount3startpoint As Single = pagewidth - Amount3wordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlsAmount3.Text, myfont, Brushes.Black, Amount3startpoint + 50, 600)
'Total
Dim Total As New SizeF(e.Graphics.MeasureString(Me.txtBlsTotal.Text, myfont))
Dim Totalwordwidth As Long = Total.Width
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 34
Dim Totalstartpoint As Single = pagewidth - Totalwordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlsTotal.Text, myfont, Brushes.Black, Totalstartpoint + 50, 795)
'Amount in Words
Dim WordTotal As New SizeF(e.Graphics.MeasureString(Me.txtBlsWordTotal.Text, myfont))
Dim WordTotalwordwidth As Long = WordTotal.Width
Dim WordTotalstartpoint As Single = pagewidth - WordTotalwordwidth - pgsettings.Margins.Right
e.Graphics.DrawString("Amount in Words : " + txtBlsWordTotal.Text, myfont, Brushes.Black,
WordTotalstartpoint - 70, 820)
'Thank You!
Dim EOE As New SizeF(e.Graphics.MeasureString(Me.txtBlInvThankyou.Text, myfont))
Dim EOEwordwidth As Long = EOE.Width
Dim EOEstartpoint As Single = pagewidth - EOEwordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlInvThankyou.Text, myfont, Brushes.Black, EOEstartpoint + 50, 885)
'For Core
Dim ForCore As New SizeF(e.Graphics.MeasureString(Me.txtBlInvForCore.Text, myfor))
Dim ForCorewordwidth As Long = ForCore.Width
Dim ForCorestartpoint As Single = pagewidth - ForCorewordwidth - pgsettings.Margins.Right
e.Graphics.DrawString(txtBlInvForCore.Text, myfor, Brushes.Black, ForCorestartpoint + 50, 1050)

e.Graphics.PageUnit = GraphicsUnit.Inch

End Sub

Private Sub btnBlsPrintPreview_Click(sender As System.Object, e As System.EventArgs) Handles

btnBlsPrintPreview.Click
Try
ppdInvoice.Document = pdocBls 'Print Preview associate with PrintDocument
ppdInvoice.ShowDialog()
Catch ex As Exception
MsgBox("Error during Preview of Invoice : " & ex.Message)
End Try
End Sub

Private Sub btnBlsPrint_Click(sender As System.Object, e As System.EventArgs) Handles btnBlsPrint.

Click
Try
pdiaInvoice.Document = pdocBls 'PrintDialog associate with PrintDocument
If pdiaInvoice.ShowDialog() = DialogResult.OK Then
pdocBls.Print()
End If
Catch ex As Exception
MsgBox("Error during Printing Invoice : " & ex.Message)
End Try
End Sub
'5.1.0 Not in use
Private Sub FillByProgramToolStripButton_Click(sender As System.Object, e As System.EventArgs)
Handles FillByProgramToolStripButton.Click
Try
Me.ProgramsTableAdapter1.FillByProgram(Me.ProgramsDataSet1.programs, ProgramToolStripTextBox
.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

End Sub

'TAB-7 SETTINGS
'Settings Navigation
Private Sub llblStInvoice_LinkClicked(sender As System.Object, e As System.Windows.Forms.
LinkLabelLinkClickedEventArgs) Handles llblStInvoice.LinkClicked
gbStInvoice.BringToFront()
End Sub

Private Sub llblStPdPr_LinkClicked(sender As System.Object, e As System.Windows.Forms.

LinkLabelLinkClickedEventArgs) Handles llblStProducts.LinkClicked
gbStProducts.BringToFront()
End Sub

Private Sub llblStUser_LinkClicked(sender As System.Object, e As System.Windows.Forms.

LinkLabelLinkClickedEventArgs) Handles llblStUser.LinkClicked
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 35
gbStUser.BringToFront()
End Sub

Private Sub llblStTax_LinkClicked(sender As System.Object, e As System.Windows.Forms.

LinkLabelLinkClickedEventArgs) Handles llblStTax.LinkClicked
gbStTax.BringToFront()
End Sub

Private Sub llblStPrograms_LinkClicked(sender As System.Object, e As System.Windows.Forms.

LinkLabelLinkClickedEventArgs) Handles llblStPrograms.LinkClicked
gbStProgram.BringToFront()
End Sub

Private Sub tpSettings_Click(sender As System.Object, e As System.EventArgs) Handles tpSettings.

MouseLeave
gbStAbout.BringToFront()
End Sub
'Invoice
Public Sub Inv_Settings_Readonly()
txtStInvId.ReadOnly = True
txtStInvTitle.ReadOnly = True
txtStInvInvoice.ReadOnly = True
txtStInvAddress.ReadOnly = True
txtStInvTIN.ReadOnly = True
txtStInvCST.ReadOnly = True
txtStInvCSTDate.ReadOnly = True
txtStInvIncl.ReadOnly = True
txtStInvEOE.ReadOnly = True
txtStInvThankyou.ReadOnly = True
txtStInvTerms.ReadOnly = True
txtStInvFor.ReadOnly = True
txtStInvUserEdited.ReadOnly = True
txtStInvExtra1.ReadOnly = True
txtStInvExtra2.ReadOnly = True
txtStInvExtra3.ReadOnly = True
txtStInvLine1.ReadOnly = True
txtStInvLine2.ReadOnly = True
txtStInvLine3.ReadOnly = True
txtStInvLine4.ReadOnly = True
txtStInvSmallLine.ReadOnly = True
End Sub

Public Sub Inv_settings_Read()

txtStInvId.ReadOnly = False
txtStInvTitle.ReadOnly = False
txtStInvInvoice.ReadOnly = False
txtStInvAddress.ReadOnly = False
txtStInvTIN.ReadOnly = False
txtStInvCST.ReadOnly = False
txtStInvCSTDate.ReadOnly = False
txtStInvIncl.ReadOnly = False
txtStInvEOE.ReadOnly = False
txtStInvThankyou.ReadOnly = False
txtStInvTerms.ReadOnly = False
txtStInvFor.ReadOnly = False
txtStInvUserEdited.ReadOnly = False
txtStInvExtra1.ReadOnly = False
txtStInvExtra2.ReadOnly = False
txtStInvExtra3.ReadOnly = False
txtStInvLine1.ReadOnly = False
txtStInvLine2.ReadOnly = False
txtStInvLine3.ReadOnly = False
txtStInvLine4.ReadOnly = False
txtStInvSmallLine.ReadOnly = False
End Sub

Private Sub btnStInvUpdate_Click(sender As System.Object, e As System.EventArgs) Handles

btnStInvUpdate.Click
btnStInvSave.BringToFront()
Me.Inv_settings_Read()
End Sub
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 36

Private Sub btnStInvSave_Click(sender As System.Object, e As System.EventArgs) Handles btnStInvSave.

Click
Try
Dim update_invoice As String = "UPDATE invsettings SET title=@title,invoice=@invoice,address
=@address,tin=@tin,cst=@cst,cst_date=@cst_date,incl_taxes=@incl_taxes,eoe=@eoe,thankyou=@thankyou,
terms=@terms,forcore=@forcore,setting_invuser=@setting_invuser,extra1=@extra1,extra2=@extra2,extra3=
@extra3 WHERE id=@id"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(update_invoice, con)
cmd.Parameters.Add("@id", SqlDbType.Int, 50).Value = txtStInvId.Text
cmd.Parameters.Add("@title", SqlDbType.NText, 50).Value = txtStInvTitle.Text
cmd.Parameters.Add("@invoice", SqlDbType.NText, 50).Value = txtStInvInvoice.Text
cmd.Parameters.Add("@address", SqlDbType.NText, 500).Value = txtStInvAddress.Text
cmd.Parameters.Add("@tin", SqlDbType.NText, 50).Value = txtStInvTIN.Text
cmd.Parameters.Add("@cst", SqlDbType.NText, 50).Value = txtStInvCST.Text
cmd.Parameters.Add("@cst_date", SqlDbType.NText, 50).Value = txtStInvCSTDate.Text
cmd.Parameters.Add("@incl_taxes", SqlDbType.NText, 50).Value = txtStInvIncl.Text
cmd.Parameters.Add("@eoe", SqlDbType.NText, 100).Value = txtStInvEOE.Text
cmd.Parameters.Add("@thankyou", SqlDbType.NText, 50).Value = txtStInvThankyou.Text
cmd.Parameters.Add("@terms", SqlDbType.NText, 10000).Value = txtStInvTerms.Text
cmd.Parameters.Add("@forcore", SqlDbType.NText, 50).Value = txtStInvFor.Text
cmd.Parameters.Add("@setting_invuser", SqlDbType.NText, 50).Value = txtUser.Text + " @ " +
Now.ToString
cmd.Parameters.Add("@extra1", SqlDbType.NText, 50).Value = txtStInvExtra1.Text
cmd.Parameters.Add("@extra2", SqlDbType.NText, 50).Value = txtStInvExtra2.Text
cmd.Parameters.Add("@extra3", SqlDbType.NText, 50).Value = txtStInvExtra3.Text
cmd.ExecuteNonQuery()
con.Close()
Me.Inv_Settings_Readonly()
btnStInvUpdate.BringToFront()
Me.Validate()
Me.InvsettingsBindingSource.EndEdit()
Me.InvsettingsTableAdapter.Fill(Me.CoreDataSet.invsettings)
Catch ex As Exception
MsgBox("Updated Successfully")
End Try
End Sub
'Products
Private Sub StPd_readonly()
txtStPdAmount.ReadOnly = True
txtStPdDiscount.ReadOnly = True
txtStPdProduct.ReadOnly = True
txtStPdProductId.ReadOnly = True
txtStPdTax1.ReadOnly = True
txtStPdTax2.ReadOnly = True
End Sub

Private Sub StPd_read()

txtStPdAmount.ReadOnly = False
txtStPdDiscount.ReadOnly = False
txtStPdProduct.ReadOnly = False
txtStPdProductId.ReadOnly = False
txtStPdTax1.ReadOnly = False
txtStPdTax2.ReadOnly = False
End Sub

Private Sub btnStPdAddNew_Click(sender As System.Object, e As System.EventArgs) Handles

btnStPdAddNew.Click
btnStPdSaveNew.BringToFront()
btnStPdUpdate.Enabled = False
btnStPdUpSave.Enabled = False
Me.ProductsBindingSource.AddNew()
Me.StPd_read()
txtStPdUserCreated.Text = txtUser.Text + " @ " + Now.ToString
End Sub
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 37
Private Sub btnStPdSaveNew_Click(sender As System.Object, e As System.EventArgs) Handles
btnStPdSaveNew.Click
Try
Dim insert As String = "INSERT INTO products(product_id,product_description,amount,discount,
tax1,tax2,tax3,[user]) VALUES (@product_id,@product_description,@amount,@discount,@tax1,@tax2,@tax3,
@user)"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@product_id", SqlDbType.NText, 50).Value = txtStPdProductId.Text
cmd.Parameters.Add("@product_description", SqlDbType.NText, 50).Value = txtStPdProduct.Text
cmd.Parameters.Add("@amount", SqlDbType.NText, 50).Value = txtStPdAmount.Text
cmd.Parameters.Add("@discount", SqlDbType.NText, 50).Value = txtStPdDiscount.Text
cmd.Parameters.Add("@tax1", SqlDbType.NText, 50).Value = txtStPdTax1.Text
cmd.Parameters.Add("@tax2", SqlDbType.NText, 50).Value = txtStPdTax2.Text
cmd.Parameters.Add("@tax3", SqlDbType.NText, 50).Value = txtStPdUserEdited.Text
cmd.Parameters.Add("@user", SqlDbType.NText, 50).Value = txtStPdUserCreated.Text
cmd.ExecuteNonQuery()
con.Close()
btnStPdAddNew.BringToFront()
btnStPdUpdate.Enabled = True
btnStPdUpSave.Enabled = True
Me.ProductsTableAdapter.Fill(Me.CoreDataSet.products)
Me.StPd_readonly()
MsgBox("New product successfully added")
Catch ex As Exception
MessageBox.Show("Error in adding new product : " & ex.Message)
End Try
End Sub

Private Sub btnStPdUpdate_Click(sender As System.Object, e As System.EventArgs) Handles

btnStPdUpdate.Click
btnStPdUpSave.BringToFront()
btnStPdAddNew.Enabled = False
btnStPdSaveNew.Enabled = False
Me.StPd_read()
txtStPdUserEdited.Text = txtUser.Text + " @ " + Now.ToString
End Sub

Private Sub btnStPdUpSave_Click(sender As System.Object, e As System.EventArgs) Handles

btnStPdUpSave.Click
Try
Dim update As String = "UPDATE products SET product_id=@product_id,product_description=@
product_description,amount=@amount,discount=@discount,tax1=@tax1,tax2=@tax2,tax3=@tax3,[user]=@user
WHERE id=@id"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(update, con)
cmd.Parameters.Add("@id", SqlDbType.Int, 50).Value = txtStPdId.Text
cmd.Parameters.Add("@product_id", SqlDbType.NText, 50).Value = txtStPdProductId.Text
cmd.Parameters.Add("@product_description", SqlDbType.NText, 50).Value = txtStPdProduct.Text
cmd.Parameters.Add("@amount", SqlDbType.NText, 50).Value = txtStPdAmount.Text
cmd.Parameters.Add("@discount", SqlDbType.NText, 50).Value = txtStPdDiscount.Text
cmd.Parameters.Add("@tax1", SqlDbType.NText, 50).Value = txtStPdTax1.Text
cmd.Parameters.Add("@tax2", SqlDbType.NText, 50).Value = txtStPdTax2.Text
cmd.Parameters.Add("@tax3", SqlDbType.NText, 50).Value = txtStPdUserEdited.Text
cmd.Parameters.Add("@user", SqlDbType.NText, 50).Value = txtStPdUserCreated.Text
cmd.ExecuteNonQuery()
con.Close()
btnStPdUpdate.BringToFront()
btnStPdAddNew.Enabled = True
btnStPdSaveNew.Enabled = True
Me.StPd_readonly()
Me.ProductsTableAdapter.Fill(Me.CoreDataSet.products)
MsgBox("Product Updated Successfully")
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 38
Catch ex As Exception
MsgBox("Error in updating product : " & ex.Message)
End Try
End Sub
'Programs
Private Sub StPr_Read()
txtStPrAmount.ReadOnly = False
txtStPrDuration.ReadOnly = False
txtStPrMsPoint.ReadOnly = False
txtStPrProgram.ReadOnly = False
dtpStPrDateEdited.Enabled = True
End Sub

Private Sub StPr_Readonly()

txtStPrAmount.ReadOnly = True
txtStPrDuration.ReadOnly = True
txtStPrMsPoint.ReadOnly = True
txtStPrProgram.ReadOnly = True
dtpStPrDateEdited.Enabled = False
End Sub

Private Sub btnStPrAddNew_Click(sender As System.Object, e As System.EventArgs) Handles

btnStPrAddNew.Click
btnStPrSaveNew.BringToFront()
btnStPrUpdate.Enabled = False
btnStPrUpSave.Enabled = False
Me.StPr_Read()
dtpStPrDateEdited.Value = Today
Me.ProgramsBindingSource1.AddNew()
txtStPrUserCreated.Text = txtUser.Text + " @ " + Now.ToString
End Sub

Private Sub btnStPrSaveNew_Click(sender As System.Object, e As System.EventArgs) Handles

btnStPrSaveNew.Click
Try
Dim insert As String = "INSERT INTO programs(program_id,program,duration,amount,date_edited,
program_group) VALUES (@program_id,@program,@duration,@amount,@date_edited,@program_group)"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@program_id", SqlDbType.NText, 50).Value = txtStPrMsPoint.Text
cmd.Parameters.Add("@program", SqlDbType.NText, 50).Value = txtStPrProgram.Text
cmd.Parameters.Add("@duration", SqlDbType.NText, 50).Value = txtStPrDuration.Text
cmd.Parameters.Add("@amount", SqlDbType.NText, 50).Value = txtStPrAmount.Text
cmd.Parameters.Add("@date_edited", SqlDbType.Date).Value = dtpStPrDateEdited.Text
cmd.Parameters.Add("@program_group", SqlDbType.NText, 50).Value = txtStPrUserCreated.Text
cmd.ExecuteNonQuery()
con.Close()
btnStPrAddNew.BringToFront()
btnStPrUpdate.Enabled = True
btnStPrUpSave.Enabled = True
Me.StPr_Readonly()
Me.ProgramsTableAdapter1.Fill(Me.ProgramsDataSet1.programs)
MsgBox("New program successfully added")
Catch ex As Exception
MessageBox.Show("Error in adding new program : " & ex.Message)
End Try
End Sub

Private Sub btnStPrUpdate_Click(sender As System.Object, e As System.EventArgs) Handles

btnStPrUpdate.Click
btnStPrUpSave.BringToFront()
btnStPrAddNew.Enabled = False
btnStPrSaveNew.Enabled = False
Me.StPr_Read()
txtStPrUserCreated.Text = txtUser.Text + " @ " + Now.ToString
End Sub
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 39
Private Sub btnStPrUpSave_Click(sender As System.Object, e As System.EventArgs) Handles
btnStPrUpSave.Click
Try
Dim update As String = "UPDATE programs SET program_id=@program_id,program=@program,duration
=@duration,amount=@amount,date_edited=@date_edited,program_group=@program_group WHERE id=@id"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(update, con)
cmd.Parameters.Add("@id", SqlDbType.Int).Value = txtStPrId.Text
cmd.Parameters.Add("@program_id", SqlDbType.NText, 50).Value = txtStPrMsPoint.Text
cmd.Parameters.Add("@program", SqlDbType.NText, 50).Value = txtStPrProgram.Text
cmd.Parameters.Add("@duration", SqlDbType.NText, 50).Value = txtStPrDuration.Text
cmd.Parameters.Add("@amount", SqlDbType.NText, 50).Value = txtStPrAmount.Text
cmd.Parameters.Add("@date_edited", SqlDbType.Date).Value = dtpStPrDateEdited.Text
cmd.Parameters.Add("@program_group", SqlDbType.NText, 50).Value = txtStPrUserCreated.Text
cmd.ExecuteNonQuery()
con.Close()
btnStPrUpdate.BringToFront()
btnStPrAddNew.Enabled = True
btnStPrSaveNew.Enabled = True
Me.StPr_Readonly()
Me.ProgramsTableAdapter1.Fill(Me.ProgramsDataSet1.programs)
MsgBox("Program Updated Successfully")
Catch ex As Exception
MsgBox("Error in updating program : " & ex.Message)
End Try
End Sub
'Tax
Private Sub StTax_Read()
txtStTaxDesc.ReadOnly = False
txtStTaxExtra1.ReadOnly = False
txtStTaxPercentage.ReadOnly = False
txtStTaxTax.ReadOnly = False
dtpStTaxEffectiveDate.Enabled = True
End Sub

Private Sub StTax_Readonly()

txtStTaxDesc.ReadOnly = True
txtStTaxExtra1.ReadOnly = True
txtStTaxPercentage.ReadOnly = True
txtStTaxTax.ReadOnly = True
dtpStTaxEffectiveDate.Enabled = False
End Sub

Private Sub btnStTaxAddNew_Click(sender As System.Object, e As System.EventArgs) Handles

btnStTaxAddNew.Click
btnStTaxSaveNew.BringToFront()
btnStTaxUpdate.Enabled = False
btnStTaxUpSave.Enabled = False
Me.StTax_Read()
Me.TaxBindingSource.AddNew()
txtStTaxUserCreated.Text = txtUser.Text + " @ " + Now.ToString
End Sub

Private Sub btnStTaxSaveNew_Click(sender As System.Object, e As System.EventArgs) Handles

btnStTaxSaveNew.Click
Try
Dim insert As String = "INSERT INTO tax(tax,tax_percentage,description,effective_date,extra1
,extra2) VALUES (@tax,@tax_percentage,@description,@effective_date,@extra1,@extra2)"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(insert, con)
cmd.Parameters.Add("@tax", SqlDbType.NText, 50).Value = txtStTaxTax.Text
cmd.Parameters.Add("@tax_percentage", SqlDbType.NText, 50).Value = txtStTaxPercentage.Text
cmd.Parameters.Add("@description", SqlDbType.NText, 50).Value = txtStTaxDesc.Text
E:\My Files\VB Projects\Back Up\CORE FITNESS\Testings\core-05122015-test5\core\Form1.vb 40
cmd.Parameters.Add("@effective_date", SqlDbType.Date).Value = dtpStTaxEffectiveDate.Text
cmd.Parameters.Add("@extra1", SqlDbType.NText, 50).Value = txtStTaxExtra1.Text
cmd.Parameters.Add("@extra2", SqlDbType.NText, 50).Value = txtStTaxUserCreated.Text
cmd.ExecuteNonQuery()
con.Close()
btnStTaxAddNew.BringToFront()
btnStTaxUpdate.Enabled = True
btnStTaxUpSave.Enabled = True
Me.StTax_Readonly()
Me.TaxTableAdapter.Fill(Me.CoreDataSet.tax)
MsgBox("New Tax successfully added")
Catch ex As Exception
MessageBox.Show("Error in adding new Tax : " & ex.Message)
End Try
End Sub

Private Sub btnStTaxUpdate_Click(sender As System.Object, e As System.EventArgs) Handles

btnStTaxUpdate.Click
btnStTaxUpSave.BringToFront()
btnStTaxAddNew.Enabled = False
btnStTaxSaveNew.Enabled = False
Me.StTax_Read()
txtStTaxUserCreated.Text = txtUser.Text + " @ " + Now.ToString
End Sub

Private Sub btnStTaxUpSave_Click(sender As System.Object, e As System.EventArgs) Handles

btnStTaxUpSave.Click
Try
Dim update As String = "UPDATE tax SET tax=@tax,tax_percentage=@tax_percentage,description=@
description,effective_date=@effective_date,extra1=@extra1,extra2=@extra2 WHERE id=@id"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\core
.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\My Files\VB
Projects\core\core\core.mdf;Integrated Security=True;User Instance=True")
con.Open()
Dim cmd As New SqlCommand(update, con)
cmd.Parameters.Add("@id", SqlDbType.Int).Value = txtStTaxId.Text
cmd.Parameters.Add("@tax", SqlDbType.NText, 50).Value = txtStTaxTax.Text
cmd.Parameters.Add("@tax_percentage", SqlDbType.NText, 50).Value = txtStTaxPercentage.Text
cmd.Parameters.Add("@description", SqlDbType.NText, 50).Value = txtStTaxDesc.Text
cmd.Parameters.Add("@effective_date", SqlDbType.Date).Value = dtpStTaxEffectiveDate.Text
cmd.Parameters.Add("@extra1", SqlDbType.NText, 50).Value = txtStTaxExtra1.Text
cmd.Parameters.Add("@extra2", SqlDbType.NText, 50).Value = txtStTaxUserCreated.Text
cmd.ExecuteNonQuery()
con.Close()
btnStTaxUpdate.BringToFront()
btnStTaxAddNew.Enabled = True
btnStTaxSaveNew.Enabled = True
Me.StTax_Readonly()
Me.TaxTableAdapter.Fill(Me.CoreDataSet.tax)
MsgBox("Tax Updated Successfully")
Catch ex As Exception
MsgBox("Error in updating Tax : " & ex.Message)
End Try
End Sub

End Class