genpayr.vb

humar resourse management

        Me.lblemp_stat = New System.Windows.Forms.Label
        Me.lblpayDate = New System.Windows.Forms.Label
        Me.lblpayID = New System.Windows.Forms.Label
        Me.lblwHours = New System.Windows.Forms.Label
        Me.editemp_stat = New System.Windows.Forms.TextBox
        Me.editnetPay = New System.Windows.Forms.TextBox
        Me.editpayDate = New System.Windows.Forms.TextBox
        Me.editpayID = New System.Windows.Forms.TextBox
        Me.editwHours = New System.Windows.Forms.TextBox
        Me.btnNavFirst = New System.Windows.Forms.Button
        Me.btnNavPrev = New System.Windows.Forms.Button
        Me.lblNavLocation = New System.Windows.Forms.Label
        Me.btnNavNext = New System.Windows.Forms.Button
        Me.btnLast = New System.Windows.Forms.Button
        Me.btnDelete = New System.Windows.Forms.Button
        Me.btnCancel = New System.Windows.Forms.Button
        Me.Button1 = New System.Windows.Forms.Button
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.frm_budget = New System.Windows.Forms.GroupBox
        Me.cmd_computebudget = New System.Windows.Forms.Button
        Me.cmd_return = New System.Windows.Forms.Button
        Me.cmd_clearBudget = New System.Windows.Forms.Button
        Me.txt_entertain = New System.Windows.Forms.TextBox
        Me.txt_clothing = New System.Windows.Forms.TextBox
        Me.txt_utils = New System.Windows.Forms.TextBox
        Me.txt_food = New System.Windows.Forms.TextBox
        Me.txt_transport = New System.Windows.Forms.TextBox
        Me.txt_housing = New System.Windows.Forms.TextBox
        Me.lbl_surplusamount = New System.Windows.Forms.Label
        Me.Label22 = New System.Windows.Forms.Label
        Me.lbl_surplus = New System.Windows.Forms.Label
        Me.lbl_entertain = New System.Windows.Forms.Label
        Me.lbl_clothing = New System.Windows.Forms.Label
        Me.lbl_utils = New System.Windows.Forms.Label
        Me.lbl_food = New System.Windows.Forms.Label
        Me.lbl_transport = New System.Windows.Forms.Label
        Me.lbl_housing = New System.Windows.Forms.Label
        Me.Label21 = New System.Windows.Forms.Label
        Me.Label20 = New System.Windows.Forms.Label
        Me.Label19 = New System.Windows.Forms.Label
        Me.Label18 = New System.Windows.Forms.Label
        Me.Label17 = New System.Windows.Forms.Label
        Me.Label16 = New System.Windows.Forms.Label
        Me.Label15 = New System.Windows.Forms.Label
        Me.Label14 = New System.Windows.Forms.Label
        Me.Label13 = New System.Windows.Forms.Label
        Me.Line8 = New System.Windows.Forms.Label
        Me.Label12 = New System.Windows.Forms.Label
        Me.Label11 = New System.Windows.Forms.Label
        Me.Label10 = New System.Windows.Forms.Label
        Me.Label9 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.frm_Salary = New System.Windows.Forms.Panel
        Me.lbl_ANetPay = New System.Windows.Forms.Label
        Me.lbl_ATotalDeduction = New System.Windows.Forms.Label
        Me.lbl_AGrossPay = New System.Windows.Forms.Label
        Me.line_div_4 = New System.Windows.Forms.Label
        Me.lbl_ANetPayAmount = New System.Windows.Forms.Label
        Me.lbl_ATotalDeductionAmount = New System.Windows.Forms.Label
        Me.lbl_AGrossPayAmount = New System.Windows.Forms.Label
        Me.lbl_MNetPayAmount = New System.Windows.Forms.Label
        Me.lbl_MTotalDeductionAmount = New System.Windows.Forms.Label
        Me.lbl_MGrossPayAmount = New System.Windows.Forms.Label
        Me.lbl_WNetPayAmount = New System.Windows.Forms.Label
        Me.lbl_WTotalDeductionAmount = New System.Windows.Forms.Label
        Me.lbl_WGrossPayAmount = New System.Windows.Forms.Label
        Me.lbl_MGrossPay = New System.Windows.Forms.Label
        Me.lbl_MNetPay = New System.Windows.Forms.Label
        Me.line_div_3 = New System.Windows.Forms.Label
        Me.lbl_MTotalDeduction = New System.Windows.Forms.Label
        Me.lbl_WTotalDeduction = New System.Windows.Forms.Label
        Me.lbl_WNetPay = New System.Windows.Forms.Label
        Me.lbl_WGrossPay = New System.Windows.Forms.Label
        Me.lbl_AnnualSalaries = New System.Windows.Forms.Label
        Me.lbl_MonthlySalaries = New System.Windows.Forms.Label
        Me.lbl_WeeklySalary = New System.Windows.Forms.Label
        Me.Label23 = New System.Windows.Forms.Label
        Me.frm_Paycheck = New System.Windows.Forms.Panel
        Me.lbl_date = New System.Windows.Forms.Label
        Me.lbl_payto = New System.Windows.Forms.Label
        Me.Line1 = New System.Windows.Forms.Label
        Me.lbl_taxes = New System.Windows.Forms.Label
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.lbl_OthTaxDeduction = New System.Windows.Forms.Label
        Me.lbl_DamTaxDeduction = New System.Windows.Forms.Label
        Me.lbl_PenTaxDeduction = New System.Windows.Forms.Label
        Me.lbl_GSTTaxDeduction = New System.Windows.Forms.Label
        Me.lbl_Others = New System.Windows.Forms.Label
        Me.lbl_Damage = New System.Windows.Forms.Label
        Me.lbl_Penalty = New System.Windows.Forms.Label
        Me.lbl_GST = New System.Windows.Forms.Label
        Me.chkbox_Others = New System.Windows.Forms.CheckBox
        Me.chkbox_Damage = New System.Windows.Forms.CheckBox
        Me.chkbox_Penalty = New System.Windows.Forms.CheckBox
        Me.chkbox_GST = New System.Windows.Forms.CheckBox
        Me.cmd_CheckClear = New System.Windows.Forms.Button
        Me.cmd_CheckCompute = New System.Windows.Forms.Button
        Me.cmd_ClearAll = New System.Windows.Forms.Button
        Me.cmd_Compute = New System.Windows.Forms.Button
        Me.lbl_PaytoName = New System.Windows.Forms.Label
        Me.Line7 = New System.Windows.Forms.Label
        Me.Line6 = New System.Windows.Forms.Label
        Me.Line5 = New System.Windows.Forms.Label
        Me.Line4 = New System.Windows.Forms.Label
        Me.Label8 = New System.Windows.Forms.Label
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.Label5 = New System.Windows.Forms.Label
        Me.lbl_cGST = New System.Windows.Forms.Label
        Me.lbl_cPen = New System.Windows.Forms.Label
        Me.lbl_cOth = New System.Windows.Forms.Label
        Me.lbl_cDam = New System.Windows.Forms.Label
        Me.lbl_CheckTotalDeduction = New System.Windows.Forms.Label
        Me.lbl_CheckTDuction = New System.Windows.Forms.Label
        Me.lbl_CheckOvertimePay = New System.Windows.Forms.Label
        Me.lbl_2 = New System.Windows.Forms.Label
        Me.lbl_checkGrossPay = New System.Windows.Forms.Label
        Me.lbl_Check1 = New System.Windows.Forms.Label
        Me.lbl_checkamount = New System.Windows.Forms.Label
        Me.lbl_cashsymbol = New System.Windows.Forms.Label
        Me.lbl_date1 = New System.Windows.Forms.Label
        Me.Line3 = New System.Windows.Forms.Label
        Me.lbl_TotalDeductionAmount = New System.Windows.Forms.Label
        Me.lbl_GrossPayAmount = New System.Windows.Forms.Label
        Me.lbl_NetPay = New System.Windows.Forms.Label
        Me.lbl_TotalDeduction = New System.Windows.Forms.Label
        Me.lbl_GrossPay = New System.Windows.Forms.Label
        Me.Button2 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label25 = New System.Windows.Forms.Label
        Me.Button3 = New System.Windows.Forms.Button
        Me.lbl_overtimePay1 = New System.Windows.Forms.Label
        Me.frm_annual = New System.Windows.Forms.GroupBox
        Me.cmd_clearCalc = New System.Windows.Forms.Button
        Me.cmd_compute_Calc = New System.Windows.Forms.Button
        Me.txt_annualSalary = New System.Windows.Forms.TextBox
        Me.lbl_HourlyWageAmount = New System.Windows.Forms.Label
        Me.lbl_HourlyWageNeeded = New System.Windows.Forms.Label
        Me.lbl_AnnualSalary = New System.Windows.Forms.Label
        Me.lbl_HourlyWageCalc = New System.Windows.Forms.Label
        CType(Me.objnewGenPayDS, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.frm_budget.SuspendLayout()
        Me.frm_Salary.SuspendLayout()
        Me.frm_Paycheck.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.frm_annual.SuspendLayout()
        Me.SuspendLayout()
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT [$Amount], emp_fname, emp_idno, emp_lname, emp_pos, emp_stat, netPay, payD" & _
        "ate, payID, wHours FROM ePayroll"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=0;Data Source=""C:\Program Files\HRMS\bin\EIS.mdb"";Jet OLEDB:Engine T" & _
        "ype=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Je" & _
        "t OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extende" & _
        "d Properties=;Mode=Share Deny None;Jet OLEDB:Create System Database=False;Jet OL" & _
        "EDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=" & _
        "False;User ID=Admin;Jet OLEDB:Encrypt Database=False"
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO ePayroll([$Amount], emp_fname, emp_idno, emp_lname, emp_pos, emp_stat" & _
        ", netPay, payDate, wHours) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("_Amount", System.Data.OleDb.OleDbType.Currency, 0, "$Amount"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_fname", System.Data.OleDb.OleDbType.VarWChar, 30, "emp_fname"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_idno", System.Data.OleDb.OleDbType.VarWChar, 7, "emp_idno"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_lname", System.Data.OleDb.OleDbType.VarChar, 50, "emp_lname"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_pos", System.Data.OleDb.OleDbType.VarChar, 50, "emp_pos"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_stat", System.Data.OleDb.OleDbType.VarChar, 4, "emp_stat"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("netPay", System.Data.OleDb.OleDbType.Integer, 0, "netPay"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("payDate", System.Data.OleDb.OleDbType.VarWChar, 50, "payDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("wHours", System.Data.OleDb.OleDbType.Integer, 0, "wHours"))
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "ePayroll", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("$Amount", "$Amount"), New System.Data.Common.DataColumnMapping("emp_fname", "emp_fname"), New System.Data.Common.DataColumnMapping("emp_idno", "emp_idno"), New System.Data.Common.DataColumnMapping("emp_lname", "emp_lname"), New System.Data.Common.DataColumnMapping("emp_pos", "emp_pos"), New System.Data.Common.DataColumnMapping("emp_stat", "emp_stat"), New System.Data.Common.DataColumnMapping("netPay", "netPay"), New System.Data.Common.DataColumnMapping("payDate", "payDate"), New System.Data.Common.DataColumnMapping("payID", "payID"), New System.Data.Common.DataColumnMapping("wHours", "wHours")})})
        '
        'objnewGenPayDS
        '
        Me.objnewGenPayDS.DataSetName = "newGenPayDS"
        Me.objnewGenPayDS.Locale = New System.Globalization.CultureInfo("en-US")
        '
        'btnLoad
        '
        Me.btnLoad.Location = New System.Drawing.Point(608, 0)
        Me.btnLoad.Name = "btnLoad"
        Me.btnLoad.TabIndex = 0
        Me.btnLoad.Text = "&Load"
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(360, 0)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.TabIndex = 1
        Me.btnUpdate.Text = "&Update"
        '
        'btnCancelAll
        '
        Me.btnCancelAll.Location = New System.Drawing.Point(440, 0)
        Me.btnCancelAll.Name = "btnCancelAll"
        Me.btnCancelAll.TabIndex = 2
        Me.btnCancelAll.Text = "Ca&ncel All"
        '
        'lbl_Amount
        '
        Me.lbl_Amount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lbl_Amount.Location = New System.Drawing.Point(512, 40)
        Me.lbl_Amount.Name = "lbl_Amount"
        Me.lbl_Amount.Size = New System.Drawing.Size(64, 23)
        Me.lbl_Amount.TabIndex = 3
        Me.lbl_Amount.Text = "$ Per Hour"
        Me.lbl_Amount.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblemp_fname
        '
        Me.lblemp_fname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblemp_fname.Location = New System.Drawing.Point(16, 40)
        Me.lblemp_fname.Name = "lblemp_fname"