this is Visual Basic code any one convert in C# pleas help

PK Singh

5y792Learn iOS Programming

this is Visual Basic code

any on convert in C#

Imports System.Data.SqlClient

Imports System.Data

Imports System.Text

Public Class frmFeeHeads

Dim objDAl As New DataAccessLayer

'Dim FID As Integer

Dim FeeHeadID As Integer

Shadows Validated As New Validations()

Dim sqlcon As SqlConnection = objDAl.Connection()

Public Sub LoadFeeHeads()

Dim dtFeeHeads As New DataTable

dtFeeHeads = objDAl.FillDataTable_Query("Select * from mstFeeHead")

dgvFeeHeads.DataSource = dtFeeHeads

dgvFeeHeads.Columns.Item(0).Visible = False

For m As Integer = 4 To 15

dgvFeeHeads.Columns.Item(m).Visible = False

For i As Integer = 0 To dgvFeeHeads.Columns.Count - 1

dgvFeeHeads.Columns.Item(i).SortMode = DataGridViewColumnSortMode.NotSortable

dgvFeeHeads.Columns(i).Width = 124

End Sub

Public Function InsertFeeHead(ByVal procedurename As String) As Boolean

Dim arr(,) As String = {{"January", 0}, {"Februry", 0}, {"March", 0}, {"April", 0}, {"May", 0}, {"June", 0}, {"July", 0}, {"August", 0}, {"September", 0}, {"October", 0}, {"November", 0}, {"December", 0}}

Dim flag As Boolean = False

Try

Dim sqlcon As SqlConnection = objDAl.Connection()

Dim sqlcmd As New SqlCommand(procedurename, sqlcon)

sqlcmd.CommandType = CommandType.Text

If rbtnMonthly.Checked = True Then

If chklbMonth.GetItemChecked(3) Then

arr(3, 1) = 1

End If

If chklbMonth.GetItemChecked(4) Then

arr(4, 1) = 1

End If

If chklbMonth.GetItemChecked(5) Then

arr(5, 1) = 1

End If

If chklbMonth.GetItemChecked(6) Then

arr(6, 1) = 1

End If

If chklbMonth.GetItemChecked(7) Then

arr(7, 1) = 1

End If

If chklbMonth.GetItemChecked(8) Then

arr(8, 1) = 1

End If

If chklbMonth.GetItemChecked(9) Then

arr(9, 1) = 1

End If

If chklbMonth.GetItemChecked(10) Then

arr(10, 1) = 1

End If

If chklbMonth.GetItemChecked(11) Then

arr(11, 1) = 1

End If

If chklbMonth.GetItemChecked(0) Then

arr(0, 1) = 1

End If

If chklbMonth.GetItemChecked(1) Then

arr(1, 1) = 1

End If

If chklbMonth.GetItemChecked(2) Then

arr(2, 1) = 1

End If

Dim counter As Integer = 0

For i As Integer = 0 To chklbMonth.Items.Count - 1

If chklbMonth.GetItemCheckState(i) Then

counter = counter + 1

End If

If counter <> 12 Then

MsgBox("Select all Months!!!!!!!!!")

Exit Function

End If

ElseIf rbtnQuarterly.Checked = True Then

If chklbMonth.GetItemChecked(3) Then

arr(3, 1) = 1

End If

If chklbMonth.GetItemChecked(4) Then

arr(4, 1) = 1

End If

If chklbMonth.GetItemChecked(5) Then

arr(5, 1) = 1

End If

If chklbMonth.GetItemChecked(6) Then

arr(6, 1) = 1

End If

If chklbMonth.GetItemChecked(7) Then

arr(7, 1) = 1

End If

If chklbMonth.GetItemChecked(8) Then

arr(8, 1) = 1

End If

If chklbMonth.GetItemChecked(9) Then

arr(9, 1) = 1

End If

If chklbMonth.GetItemChecked(10) Then

arr(10, 1) = 1

End If

If chklbMonth.GetItemChecked(11) Then

arr(11, 1) = 1

End If

If chklbMonth.GetItemChecked(0) Then

arr(0, 1) = 1

End If

If chklbMonth.GetItemChecked(1) Then

arr(1, 1) = 1

End If

If chklbMonth.GetItemChecked(2) Then

arr(2, 1) = 1

End If

Dim counter As Integer = 0

For i As Integer = 0 To chklbMonth.Items.Count - 1

If chklbMonth.GetItemCheckState(i) Then

counter = counter + 1

End If

If counter <> 4 Then

MsgBox("Select any 4 Months!!!!!!!!!")

Exit Function

End If

ElseIf rbtnHalfYearly.Checked = True Then

If chklbMonth.GetItemChecked(3) Then

arr(3, 1) = 1

End If

If chklbMonth.GetItemChecked(4) Then

arr(4, 1) = 1

End If

If chklbMonth.GetItemChecked(5) Then

arr(5, 1) = 1

End If

If chklbMonth.GetItemChecked(6) Then

arr(6, 1) = 1

End If

If chklbMonth.GetItemChecked(7) Then

arr(7, 1) = 1

End If

If chklbMonth.GetItemChecked(8) Then

arr(8, 1) = 1

End If

If chklbMonth.GetItemChecked(9) Then

arr(9, 1) = 1

End If

If chklbMonth.GetItemChecked(10) Then

arr(10, 1) = 1

End If

If chklbMonth.GetItemChecked(11) Then

arr(11, 1) = 1

End If

If chklbMonth.GetItemChecked(0) Then

arr(0, 1) = 1

End If

If chklbMonth.GetItemChecked(1) Then

arr(1, 1) = 1

End If

If chklbMonth.GetItemChecked(2) Then

arr(2, 1) = 1

End If

Dim counter As Integer = 0

For i As Integer = 0 To chklbMonth.Items.Count - 1

If chklbMonth.GetItemCheckState(i) Then

counter = counter + 1

End If

If counter <> 2 Then

MsgBox("Select any two Months!!!!!!!!!")

Exit Function

End If

ElseIf rbtnVariant.Checked = True Then

If chklbMonth.GetItemChecked(3) Then

arr(3, 1) = 1

End If

If chklbMonth.GetItemChecked(4) Then

arr(4, 1) = 1

End If

If chklbMonth.GetItemChecked(5) Then

arr(5, 1) = 1

End If

If chklbMonth.GetItemChecked(6) Then

arr(6, 1) = 1

End If

If chklbMonth.GetItemChecked(7) Then

arr(7, 1) = 1

End If

If chklbMonth.GetItemChecked(8) Then

arr(8, 1) = 1

End If

If chklbMonth.GetItemChecked(9) Then

arr(9, 1) = 1

End If

If chklbMonth.GetItemChecked(10) Then

arr(10, 1) = 1

End If

If chklbMonth.GetItemChecked(11) Then

arr(11, 1) = 1

End If

If chklbMonth.GetItemChecked(0) Then

arr(0, 1) = 1

End If

If chklbMonth.GetItemChecked(1) Then

arr(1, 1) = 1

End If

If chklbMonth.GetItemChecked(2) Then

arr(2, 1) = 1

End If

Dim counter As Integer = 0

For i As Integer = 0 To chklbMonth.Items.Count - 1

If chklbMonth.GetItemCheckState(i) Then

counter = counter + 1

End If

If counter = 0 Then

MsgBox("Select atleast any one Month!!!!!!!!")

Exit Function

End If

ElseIf rbtnAnually.Checked = True Then

If chklbMonth.GetItemChecked(3) Then

arr(3, 1) = 1

End If

If chklbMonth.GetItemChecked(4) Then

arr(4, 1) = 1

End If

If chklbMonth.GetItemChecked(5) Then

arr(5, 1) = 1

End If

If chklbMonth.GetItemChecked(6) Then

arr(6, 1) = 1

End If

If chklbMonth.GetItemChecked(7) Then

arr(7, 1) = 1

End If

If chklbMonth.GetItemChecked(8) Then

arr(8, 1) = 1

End If

If chklbMonth.GetItemChecked(9) Then

arr(9, 1) = 1

End If

If chklbMonth.GetItemChecked(10) Then

arr(10, 1) = 1

End If

If chklbMonth.GetItemChecked(11) Then

arr(11, 1) = 1

End If

If chklbMonth.GetItemChecked(0) Then

arr(0, 1) = 1

End If

If chklbMonth.GetItemChecked(1) Then

arr(1, 1) = 1

End If

If chklbMonth.GetItemChecked(2) Then

arr(2, 1) = 1

End If

Dim counter As Integer = 0

For i As Integer = 0 To chklbMonth.Items.Count - 1

If chklbMonth.GetItemCheckState(i) Then

counter = counter + 1

End If

If counter <> 1 Then

MsgBox("Select any one Month!!!!!!!!")

Exit Function

End If

sqlcmd.Parameters.Add("@FeeHeadName", SqlDbType.VarChar).Value = txtNameofHead.Text.Trim()

If rbtnRefundable.Checked = True Then

sqlcmd.Parameters.Add("@TypeofHead", SqlDbType.VarChar).Value = "Refundable"

Else

sqlcmd.Parameters.Add("@TypeofHead", SqlDbType.VarChar).Value = "NonRefundable"

End If

If rbtnAnually.Checked = True Then

sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Annualy"

ElseIf rbtnHalfYearly.Checked = True Then

sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Half Yearly"

ElseIf rbtnQuarterly.Checked = True Then

sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Quarterly"

ElseIf rbtnMonthly.Checked = True Then

sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Monthly"

ElseIf rbtnVariant.Checked = True Then

sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Variant"

End If

sqlcmd.Parameters.Add("@January", SqlDbType.VarChar).Value = (arr(0, 1))

sqlcmd.Parameters.Add("@February", SqlDbType.VarChar).Value = (arr(1, 1))

sqlcmd.Parameters.Add("@March", SqlDbType.VarChar).Value = (arr(2, 1))

sqlcmd.Parameters.Add("@April", SqlDbType.VarChar).Value = (arr(3, 1))

sqlcmd.Parameters.Add("@May", SqlDbType.VarChar).Value = (arr(4, 1))

sqlcmd.Parameters.Add("@June", SqlDbType.VarChar).Value = (arr(5, 1))

sqlcmd.Parameters.Add("@July", SqlDbType.VarChar).Value = (arr(6, 1))

sqlcmd.Parameters.Add("@August", SqlDbType.VarChar).Value = (arr(7, 1))

sqlcmd.Parameters.Add("@September", SqlDbType.VarChar).Value = (arr(8, 1))

sqlcmd.Parameters.Add("@October", SqlDbType.VarChar).Value = (arr(9, 1))

sqlcmd.Parameters.Add("@November", SqlDbType.VarChar).Value = (arr(10, 1))

sqlcmd.Parameters.Add("@December", SqlDbType.VarChar).Value = (arr(11, 1))

sqlcon.Open()

Dim rowAffected As Integer = sqlcmd.ExecuteNonQuery()

MsgBox("Fee Head is Saved Successfully!!!")

sqlcon.Close()

sqlcon.Dispose()

flag = True

Return flag

Catch ex As Exception

flag = False

MsgBox("Error in Saving. Select Relevant Information !!!", MsgBoxStyle.Exclamation)

Return flag

End Try

End Function

Public Sub DisplayFeeHead()

Dim dt As New DataTable()

dt = objDAl.FillDataTable_Query("Select * From mstFeeHead")

dgvFeeHeads.DataSource = dt

End Sub

Public Function DeleteFeeHead(ByVal procedurename As String) As Boolean

Dim flag As Boolean = False

Try

Dim sqlcon As SqlConnection = objDAl.Connection

Dim sqlcmd As New SqlCommand(procedurename, sqlcon)

sqlcmd.CommandType = CommandType.Text

sqlcmd.Parameters.Add("@FeeHeadID", SqlDbType.Int).Value = FeeHeadID

sqlcon.Open()

Dim rowaffected As Integer = sqlcmd.ExecuteNonQuery()

sqlcmd.Dispose()

sqlcon.Close()

MsgBox("Fee Head is Successfully Deleted")

flag = True

Return flag

Catch ex As SqlException

If (ex.Number = 547) Then

MsgBox("This Fee Head cannot be deleted. Please Delete Allocated Fee Plans and Students first!!", MsgBoxStyle.Exclamation)

Return flag

End If

Catch ex As Exception

MsgBox("Unsuccessful")

Return flag

End Try

End Function

Private Sub frmFeeHeads_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.MdiParent = MainForm

Me.Dock = DockStyle.Fill

Me.Location = New Point(0, 0)

LoadFeeHeads()

btnDelete.Enabled = False

btnCreate.Enabled = False

rbtnAnually.Checked = False

rbtnHalfYearly.Checked = False

rbtnMonthly.Checked = False

rbtnQuarterly.Checked = False

rbtnNonRefundable.Checked = False

rbtnRefundable.Checked = False

btnCreate.Enabled = True

btnDelete.Enabled = False

rbtnVariant.Checked = False

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

Me.Close()

MainForm.objOpenedForm = New Form()

End Sub

Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click

Dim str As New StringBuilder

str.Append(Validated.Validate(txtNameofHead, True, Validated.StringAll, "NameofHead"))

If str.Length <> 0 Then

MessageBox.Show(str.ToString())

Return

End If

Dim cmd As New SqlCommand("Select FeeHeadName from mstFeeHead where FeeHeadName=@FeeHeadName", sqlcon)

cmd.Parameters.Add("@FeeHeadName", SqlDbType.VarChar).Value = txtNameofHead.Text.Trim()

Dim dt As New DataTable

Dim adp As New SqlDataAdapter(cmd)

adp.Fill(dt)

If dt.Rows.Count Then

MsgBox("Fee Head Name is already existed!!!!!")

Clear()

Exit Sub

End If

InsertFeeHead("insert into mstFeeHead([FeeHeadName],[TypeofHead],[Frequency],[January],[February],[March],[April],[May],[June],[July],[August],[September],[October],[November],[December]) values (@FeeHeadName,@TypeofHead,@Frequency,@January,@February,@March,@April,@May,@June,@July,@August,@September,@October,@November,@December)")

LoadFeeHeads()

txtNameofHead.Text = ""

rbtnAnually.Checked = False

rbtnHalfYearly.Checked = False

rbtnMonthly.Checked = False

rbtnQuarterly.Checked = False

rbtnNonRefundable.Checked = False

rbtnRefundable.Checked = False

rbtnVariant.Checked = False

btnCreate.Enabled = False

For i As Integer = 0 To chklbMonth.Items.Count - 1

chklbMonth.SetItemCheckState(i, CheckState.Unchecked)

txtNameofHead.Focus()

End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click

Dim msgresult As MsgBoxResult = MsgBox("Do you really want to delete!!!!", MsgBoxStyle.YesNo)

If msgresult = MsgBoxResult.Yes Then

DeleteFeeHead(" delete from mstFeeHead where FeeHeadID=@FeeHeadID")

End If

LoadFeeHeads()

txtNameofHead.Text = Nothing

rbtnAnually.Checked = False

rbtnHalfYearly.Checked = False

rbtnMonthly.Checked = False

rbtnQuarterly.Checked = False

rbtnNonRefundable.Checked = False

rbtnRefundable.Checked = False

rbtnVariant.Checked = False

btnDelete.Enabled = False

btnCreate.Enabled = False

For i As Integer = 0 To chklbMonth.Items.Count - 1

chklbMonth.SetItemCheckState(i, CheckState.Unchecked)

txtNameofHead.Focus()

End Sub

Private Sub dgvFeeHeads_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvFeeHeads.CellDoubleClick

If dgvFeeHeads.RowCount > 0 Then

btnDelete.Enabled = True

btnCreate.Enabled = False

For index As Integer = 0 To chklbMonth.Items.Count - 1

chklbMonth.SetItemChecked(index, False)

FeeHeadID = dgvFeeHeads.CurrentRow.Cells("FeeHeadID").Value

txtNameofHead.Text = dgvFeeHeads.CurrentRow.Cells("FeeHeadName").Value

If dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() = "Quarterly" Then

rbtnQuarterly.Checked = True

ElseIf dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() = "Half Yearly" Then

rbtnHalfYearly.Checked = True

ElseIf dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() = "Annualy" Then

rbtnAnually.Checked = True

ElseIf dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() = "Monthly" Then

rbtnMonthly.Checked = True

ElseIf dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() = "Variant" Then

rbtnVariant.Checked = True

End If

If dgvFeeHeads.CurrentRow.Cells("TypeofHead").Value.ToString().Trim() = "Refundable" Then

rbtnRefundable.Checked = True

End If

If dgvFeeHeads.CurrentRow.Cells("TypeofHead").Value.ToString().Trim() = "NonRefundable" Then

rbtnNonRefundable.Checked = True

End If

If dgvFeeHeads.CurrentRow.Cells("January").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(0, True)

End If

If dgvFeeHeads.CurrentRow.Cells("February").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(1, True)

End If

If dgvFeeHeads.CurrentRow.Cells("March").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(2, True)

End If

If dgvFeeHeads.CurrentRow.Cells("April").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(3, True)

End If

If dgvFeeHeads.CurrentRow.Cells("May").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(4, True)

End If

If dgvFeeHeads.CurrentRow.Cells("June").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(5, True)

End If

If dgvFeeHeads.CurrentRow.Cells("July").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(6, True)

End If

If dgvFeeHeads.CurrentRow.Cells("August").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(7, True)

End If

If dgvFeeHeads.CurrentRow.Cells("September").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(8, True)

End If

If dgvFeeHeads.CurrentRow.Cells("October").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(9, True)

End If

If dgvFeeHeads.CurrentRow.Cells("November").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(10, True)

End If

If dgvFeeHeads.CurrentRow.Cells("December").Value.ToString() = "True" Then

chklbMonth.SetItemChecked(11, True)

End If

btnCreate.Enabled = False

End If

End Sub

Private Sub txtNameofHead_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNameofHead.TextChanged

btnCreate.Enabled = True

End Sub

Private Sub txtNameofHead_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNameofHead.KeyDown

If e.KeyCode = Keys.Enter Then

rbtnMonthly.Focus()

End If

End Sub

Private Sub rbtnMonthly_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rbtnMonthly.KeyDown

If e.KeyCode = Keys.Down Then

rbtnQuarterly.Focus()

End If

End Sub

Private Sub rbtnQuarterly_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rbtnQuarterly.KeyDown

If e.KeyCode = Keys.Enter Then

rbtnHalfYearly.Focus()

End If

End Sub

Private Sub rbtnHalfYearly_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rbtnHalfYearly.KeyDown

If e.KeyCode = Keys.Enter Then

rbtnAnually.Focus()

End If

End Sub

Private Sub rbtnAnually_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rbtnAnually.KeyDown

If e.KeyCode = Keys.Enter Then

rbtnVariant.Focus()

End If

End Sub

Private Sub rbtnVariant_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rbtnVariant.KeyDown

If e.KeyCode = Keys.Enter Then

chklbMonth.Focus()

End If

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

Clear()

txtNameofHead.Focus()

End Sub

Private Sub Clear()

For index As Integer = 0 To chklbMonth.Items.Count - 1

chklbMonth.SetItemChecked(index, False)

txtNameofHead.Text = ""

rbtnAnually.Checked = False

rbtnHalfYearly.Checked = False

rbtnMonthly.Checked = False

rbtnQuarterly.Checked = False

rbtnNonRefundable.Checked = False

rbtnRefundable.Checked = False

rbtnVariant.Checked = False

btnCreate.Enabled = True

btnDelete.Enabled = False

End Sub

Private Sub rbtnRefundable_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rbtnRefundable.KeyDown

If e.KeyCode = Keys.Down Then

rbtnNonRefundable.Focus()

End If

End Sub

Private Sub rbtnNonRefundable_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rbtnNonRefundable.KeyDown

If e.KeyCode = Keys.Down Then

rbtnRefundable.Focus()

End If

End Sub

Private Sub frmFeeHeads_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

If e.KeyValue = 27 Then

Me.Close()

MainForm.objOpenedForm = New Form()

End If

End Sub

End Class

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

Jignesh Kumar5y ago
Hi ,

Please use this online conversion link,
https://converter.telerik.com/
using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Globalization;
using System.IO;
using System.Linq;
using System.Reflection;
using System.Runtime.CompilerServices;
using System.Security;
using System.Text;
using System.Threading.Tasks;
using Microsoft.VisualBasic;
using System.Data.SqlClient;
using System.Data;

public class frmFeeHeads
{
    private DataAccessLayer objDAl = new DataAccessLayer();
    // Dim FID As Integer
    private int FeeHeadID;
    private new Validations Validated = new Validations();
    private SqlConnection sqlcon = objDAl.Connection();

    public void LoadFeeHeads()
    {
        DataTable dtFeeHeads = new DataTable();
        dtFeeHeads = objDAl.FillDataTable_Query("Select * from mstFeeHead");
        dgvFeeHeads.DataSource = dtFeeHeads;
        dgvFeeHeads.Columns.Item(0).Visible = false;
        for (int m = 4; m <= 15; m++)
            dgvFeeHeads.Columns.Item(m).Visible = false;
        for (int i = 0; i <= dgvFeeHeads.Columns.Count - 1; i++)
        {
            dgvFeeHeads.Columns.Item(i).SortMode = DataGridViewColumnSortMode.NotSortable;
            dgvFeeHeads.Columns(i).Width = 124;
        }
    }

    public bool InsertFeeHead(string procedurename)
    {
        string[,] arr = new[] { { "January", 0 }, { "Februry", 0 }, { "March", 0 }, { "April", 0 }, { "May", 0 }, { "June", 0 }, { "July", 0 }, { "August", 0 }, { "September", 0 }, { "October", 0 }, { "November", 0 }, { "December", 0 } };
        bool flag = false;
        try
        {
            SqlConnection sqlcon = objDAl.Connection();
            SqlCommand sqlcmd = new SqlCommand(procedurename, sqlcon);
            sqlcmd.CommandType = CommandType.Text;
            if (rbtnMonthly.Checked == true)
            {
                if (chklbMonth.GetItemChecked(3))
                    arr[3, 1] = 1;
                if (chklbMonth.GetItemChecked(4))
                    arr[4, 1] = 1;
                if (chklbMonth.GetItemChecked(5))
                    arr[5, 1] = 1;
                if (chklbMonth.GetItemChecked(6))
                    arr[6, 1] = 1;
                if (chklbMonth.GetItemChecked(7))
                    arr[7, 1] = 1;
                if (chklbMonth.GetItemChecked(8))
                    arr[8, 1] = 1;
                if (chklbMonth.GetItemChecked(9))
                    arr[9, 1] = 1;
                if (chklbMonth.GetItemChecked(10))
                    arr[10, 1] = 1;
                if (chklbMonth.GetItemChecked(11))
                    arr[11, 1] = 1;
                if (chklbMonth.GetItemChecked(0))
                    arr[0, 1] = 1;
                if (chklbMonth.GetItemChecked(1))
                    arr[1, 1] = 1;
                if (chklbMonth.GetItemChecked(2))
                    arr[2, 1] = 1;
                int counter = 0;
                for (int i = 0; i <= chklbMonth.Items.Count - 1; i++)
                {
                    if (chklbMonth.GetItemCheckState(i))
                        counter = counter + 1;
                }

                if (counter != 12)
                {
                    Interaction.MsgBox("Select all Months!!!!!!!!!");
                    return;
                }
            }
            else if (rbtnQuarterly.Checked == true)
            {
                if (chklbMonth.GetItemChecked(3))
                    arr[3, 1] = 1;
                if (chklbMonth.GetItemChecked(4))
                    arr[4, 1] = 1;
                if (chklbMonth.GetItemChecked(5))
                    arr[5, 1] = 1;
                if (chklbMonth.GetItemChecked(6))
                    arr[6, 1] = 1;
                if (chklbMonth.GetItemChecked(7))
                    arr[7, 1] = 1;
                if (chklbMonth.GetItemChecked(8))
                    arr[8, 1] = 1;
                if (chklbMonth.GetItemChecked(9))
                    arr[9, 1] = 1;
                if (chklbMonth.GetItemChecked(10))
                    arr[10, 1] = 1;
                if (chklbMonth.GetItemChecked(11))
                    arr[11, 1] = 1;
                if (chklbMonth.GetItemChecked(0))
                    arr[0, 1] = 1;
                if (chklbMonth.GetItemChecked(1))
                    arr[1, 1] = 1;
                if (chklbMonth.GetItemChecked(2))
                    arr[2, 1] = 1;
                int counter = 0;
                for (int i = 0; i <= chklbMonth.Items.Count - 1; i++)
                {
                    if (chklbMonth.GetItemCheckState(i))
                        counter = counter + 1;
                }

                if (counter != 4)
                {
                    Interaction.MsgBox("Select any 4 Months!!!!!!!!!");
                    return;
                }
            }
            else if (rbtnHalfYearly.Checked == true)
            {
                if (chklbMonth.GetItemChecked(3))
                    arr[3, 1] = 1;
                if (chklbMonth.GetItemChecked(4))
                    arr[4, 1] = 1;
                if (chklbMonth.GetItemChecked(5))
                    arr[5, 1] = 1;
                if (chklbMonth.GetItemChecked(6))
                    arr[6, 1] = 1;
                if (chklbMonth.GetItemChecked(7))
                    arr[7, 1] = 1;
                if (chklbMonth.GetItemChecked(8))
                    arr[8, 1] = 1;
                if (chklbMonth.GetItemChecked(9))
                    arr[9, 1] = 1;
                if (chklbMonth.GetItemChecked(10))
                    arr[10, 1] = 1;
                if (chklbMonth.GetItemChecked(11))
                    arr[11, 1] = 1;
                if (chklbMonth.GetItemChecked(0))
                    arr[0, 1] = 1;
                if (chklbMonth.GetItemChecked(1))
                    arr[1, 1] = 1;
                if (chklbMonth.GetItemChecked(2))
                    arr[2, 1] = 1;
                int counter = 0;
                for (int i = 0; i <= chklbMonth.Items.Count - 1; i++)
                {
                    if (chklbMonth.GetItemCheckState(i))
                        counter = counter + 1;
                }

                if (counter != 2)
                {
                    Interaction.MsgBox("Select any two Months!!!!!!!!!");
                    return;
                }
            }
            else if (rbtnVariant.Checked == true)
            {
                if (chklbMonth.GetItemChecked(3))
                    arr[3, 1] = 1;
                if (chklbMonth.GetItemChecked(4))
                    arr[4, 1] = 1;
                if (chklbMonth.GetItemChecked(5))
                    arr[5, 1] = 1;
                if (chklbMonth.GetItemChecked(6))
                    arr[6, 1] = 1;
                if (chklbMonth.GetItemChecked(7))
                    arr[7, 1] = 1;
                if (chklbMonth.GetItemChecked(8))
                    arr[8, 1] = 1;
                if (chklbMonth.GetItemChecked(9))
                    arr[9, 1] = 1;
                if (chklbMonth.GetItemChecked(10))
                    arr[10, 1] = 1;
                if (chklbMonth.GetItemChecked(11))
                    arr[11, 1] = 1;
                if (chklbMonth.GetItemChecked(0))
                    arr[0, 1] = 1;
                if (chklbMonth.GetItemChecked(1))
                    arr[1, 1] = 1;
                if (chklbMonth.GetItemChecked(2))
                    arr[2, 1] = 1;
                int counter = 0;
                for (int i = 0; i <= chklbMonth.Items.Count - 1; i++)
                {
                    if (chklbMonth.GetItemCheckState(i))
                        counter = counter + 1;
                }

                if (counter == 0)
                {
                    Interaction.MsgBox("Select atleast any one Month!!!!!!!!");
                    return;
                }
            }
            else if (rbtnAnually.Checked == true)
            {
                if (chklbMonth.GetItemChecked(3))
                    arr[3, 1] = 1;
                if (chklbMonth.GetItemChecked(4))
                    arr[4, 1] = 1;
                if (chklbMonth.GetItemChecked(5))
                    arr[5, 1] = 1;
                if (chklbMonth.GetItemChecked(6))
                    arr[6, 1] = 1;
                if (chklbMonth.GetItemChecked(7))
                    arr[7, 1] = 1;
                if (chklbMonth.GetItemChecked(8))
                    arr[8, 1] = 1;
                if (chklbMonth.GetItemChecked(9))
                    arr[9, 1] = 1;
                if (chklbMonth.GetItemChecked(10))
                    arr[10, 1] = 1;
                if (chklbMonth.GetItemChecked(11))
                    arr[11, 1] = 1;
                if (chklbMonth.GetItemChecked(0))
                    arr[0, 1] = 1;
                if (chklbMonth.GetItemChecked(1))
                    arr[1, 1] = 1;
                if (chklbMonth.GetItemChecked(2))
                    arr[2, 1] = 1;
                int counter = 0;
                for (int i = 0; i <= chklbMonth.Items.Count - 1; i++)
                {
                    if (chklbMonth.GetItemCheckState(i))
                        counter = counter + 1;
                }

                if (counter != 1)
                {
                    Interaction.MsgBox("Select any one Month!!!!!!!!");
                    return;
                }
            }

            sqlcmd.Parameters.Add("@FeeHeadName", SqlDbType.VarChar).Value = txtNameofHead.Text.Trim();
            if (rbtnRefundable.Checked == true)
                sqlcmd.Parameters.Add("@TypeofHead", SqlDbType.VarChar).Value = "Refundable";
            else
                sqlcmd.Parameters.Add("@TypeofHead", SqlDbType.VarChar).Value = "NonRefundable";
            if (rbtnAnually.Checked == true)
                sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Annualy";
            else if (rbtnHalfYearly.Checked == true)
                sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Half Yearly";
            else if (rbtnQuarterly.Checked == true)
                sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Quarterly";
            else if (rbtnMonthly.Checked == true)
                sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Monthly";
            else if (rbtnVariant.Checked == true)
                sqlcmd.Parameters.Add("@Frequency", SqlDbType.VarChar).Value = "Variant";
            sqlcmd.Parameters.Add("@January", SqlDbType.VarChar).Value = (arr[0, 1]);
            sqlcmd.Parameters.Add("@February", SqlDbType.VarChar).Value = (arr[1, 1]);
            sqlcmd.Parameters.Add("@March", SqlDbType.VarChar).Value = (arr[2, 1]);
            sqlcmd.Parameters.Add("@April", SqlDbType.VarChar).Value = (arr[3, 1]);
            sqlcmd.Parameters.Add("@May", SqlDbType.VarChar).Value = (arr[4, 1]);
            sqlcmd.Parameters.Add("@June", SqlDbType.VarChar).Value = (arr[5, 1]);
            sqlcmd.Parameters.Add("@July", SqlDbType.VarChar).Value = (arr[6, 1]);
            sqlcmd.Parameters.Add("@August", SqlDbType.VarChar).Value = (arr[7, 1]);
            sqlcmd.Parameters.Add("@September", SqlDbType.VarChar).Value = (arr[8, 1]);
            sqlcmd.Parameters.Add("@October", SqlDbType.VarChar).Value = (arr[9, 1]);
            sqlcmd.Parameters.Add("@November", SqlDbType.VarChar).Value = (arr[10, 1]);
            sqlcmd.Parameters.Add("@December", SqlDbType.VarChar).Value = (arr[11, 1]);
            sqlcon.Open();
            int rowAffected = sqlcmd.ExecuteNonQuery();
            Interaction.MsgBox("Fee Head is Saved Successfully!!!");
            sqlcon.Close();
            sqlcon.Dispose();
            flag = true;
            return flag;
        }
        catch (Exception ex)
        {
            flag = false;
            Interaction.MsgBox("Error in Saving. Select Relevant Information !!!", MsgBoxStyle.Exclamation);
            return flag;
        }
    }

    public void DisplayFeeHead()
    {
        DataTable dt = new DataTable();
        dt = objDAl.FillDataTable_Query("Select * From mstFeeHead");
        dgvFeeHeads.DataSource = dt;
    }

    public bool DeleteFeeHead(string procedurename)
    {
        bool flag = false;
        try
        {
            SqlConnection sqlcon = objDAl.Connection;
            SqlCommand sqlcmd = new SqlCommand(procedurename, sqlcon);
            sqlcmd.CommandType = CommandType.Text;
            sqlcmd.Parameters.Add("@FeeHeadID", SqlDbType.Int).Value = FeeHeadID;
            sqlcon.Open();
            int rowaffected = sqlcmd.ExecuteNonQuery();
            sqlcmd.Dispose();
            sqlcon.Close();
            Interaction.MsgBox("Fee Head is Successfully Deleted");
            flag = true;
            return flag;
        }
        catch (SqlException ex)
        {
            if ((ex.Number == 547))
            {
                Interaction.MsgBox("This Fee Head cannot be deleted. Please Delete Allocated Fee Plans and Students first!!", MsgBoxStyle.Exclamation);
                return flag;
            }
        }
        catch (Exception ex)
        {
            Interaction.MsgBox("Unsuccessful");
            return flag;
        }
    }

    private void frmFeeHeads_Load(System.Object sender, System.EventArgs e)
    {
        this.MdiParent = MainForm;
        this.Dock = DockStyle.Fill;
        this.Location = new Point(0, 0);
        LoadFeeHeads();
        btnDelete.Enabled = false;
        btnCreate.Enabled = false;
        rbtnAnually.Checked = false;
        rbtnHalfYearly.Checked = false;
        rbtnMonthly.Checked = false;
        rbtnQuarterly.Checked = false;
        rbtnNonRefundable.Checked = false;
        rbtnRefundable.Checked = false;
        btnCreate.Enabled = true;
        btnDelete.Enabled = false;
        rbtnVariant.Checked = false;
    }

    private void Button3_Click(System.Object sender, System.EventArgs e)
    {
        this.Close();
        MainForm.objOpenedForm = new Form();
    }

    private void btnCreate_Click(System.Object sender, System.EventArgs e)
    {
        StringBuilder str = new StringBuilder();
        str.Append(Validated.Validate(txtNameofHead, true, Validated.StringAll, "NameofHead"));
        if (str.Length != 0)
        {
            MessageBox.Show(str.ToString());
            return;
        }

        SqlCommand cmd = new SqlCommand("Select FeeHeadName from mstFeeHead where FeeHeadName=@FeeHeadName", sqlcon);
        cmd.Parameters.Add("@FeeHeadName", SqlDbType.VarChar).Value = txtNameofHead.Text.Trim();
        DataTable dt = new DataTable();
        SqlDataAdapter adp = new SqlDataAdapter(cmd);
        adp.Fill(dt);
        if (dt.Rows.Count)
        {
            Interaction.MsgBox("Fee Head Name is already existed!!!!!");
            Clear();
            return;
        }

        InsertFeeHead("insert into mstFeeHead([FeeHeadName],[TypeofHead],[Frequency],[January],[February],[March],[April],[May],[June],[July],[August],[September],[October],[November],[December]) values (@FeeHeadName,@TypeofHead,@Frequency,@January,@February,@March,@April,@May,@June,@July,@August,@September,@October,@November,@December)");
        LoadFeeHeads();
        txtNameofHead.Text = "";
        rbtnAnually.Checked = false;
        rbtnHalfYearly.Checked = false;
        rbtnMonthly.Checked = false;
        rbtnQuarterly.Checked = false;
        rbtnNonRefundable.Checked = false;
        rbtnRefundable.Checked = false;
        rbtnVariant.Checked = false;
        btnCreate.Enabled = false;
        for (int i = 0; i <= chklbMonth.Items.Count - 1; i++)
            chklbMonth.SetItemCheckState(i, CheckState.Unchecked);
        txtNameofHead.Focus();
    }

    private void btnDelete_Click(System.Object sender, System.EventArgs e)
    {
        MsgBoxResult msgresult = Interaction.MsgBox("Do you really want to delete!!!!", MsgBoxStyle.YesNo);
        if (msgresult == MsgBoxResult.Yes)
            DeleteFeeHead(" delete from mstFeeHead where FeeHeadID=@FeeHeadID");
        LoadFeeHeads();
        txtNameofHead.Text = null;
        rbtnAnually.Checked = false;
        rbtnHalfYearly.Checked = false;
        rbtnMonthly.Checked = false;
        rbtnQuarterly.Checked = false;
        rbtnNonRefundable.Checked = false;
        rbtnRefundable.Checked = false;
        rbtnVariant.Checked = false;
        btnDelete.Enabled = false;
        btnCreate.Enabled = false;
        for (int i = 0; i <= chklbMonth.Items.Count - 1; i++)
            chklbMonth.SetItemCheckState(i, CheckState.Unchecked);
        txtNameofHead.Focus();
    }

    private void dgvFeeHeads_CellDoubleClick(object sender, System.Windows.Forms.DataGridViewCellEventArgs e)
    {
        if (dgvFeeHeads.RowCount > 0)
        {
            btnDelete.Enabled = true;
            btnCreate.Enabled = false;
            for (int index = 0; index <= chklbMonth.Items.Count - 1; index++)
                chklbMonth.SetItemChecked(index, false);
            FeeHeadID = dgvFeeHeads.CurrentRow.Cells("FeeHeadID").Value;
            txtNameofHead.Text = dgvFeeHeads.CurrentRow.Cells("FeeHeadName").Value;
            if (dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() == "Quarterly")
                rbtnQuarterly.Checked = true;
            else if (dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() == "Half Yearly")
                rbtnHalfYearly.Checked = true;
            else if (dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() == "Annualy")
                rbtnAnually.Checked = true;
            else if (dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() == "Monthly")
                rbtnMonthly.Checked = true;
            else if (dgvFeeHeads.CurrentRow.Cells("Frequency").Value.ToString() == "Variant")
                rbtnVariant.Checked = true;
            if (dgvFeeHeads.CurrentRow.Cells("TypeofHead").Value.ToString().Trim() == "Refundable")
                rbtnRefundable.Checked = true;
            if (dgvFeeHeads.CurrentRow.Cells("TypeofHead").Value.ToString().Trim() == "NonRefundable")
                rbtnNonRefundable.Checked = true;
            if (dgvFeeHeads.CurrentRow.Cells("January").Value.ToString() == "True")
                chklbMonth.SetItemChecked(0, true);
            if (dgvFeeHeads.CurrentRow.Cells("February").Value.ToString() == "True")
                chklbMonth.SetItemChecked(1, true);
            if (dgvFeeHeads.CurrentRow.Cells("March").Value.ToString() == "True")
                chklbMonth.SetItemChecked(2, true);
            if (dgvFeeHeads.CurrentRow.Cells("April").Value.ToString() == "True")
                chklbMonth.SetItemChecked(3, true);
            if (dgvFeeHeads.CurrentRow.Cells("May").Value.ToString() == "True")
                chklbMonth.SetItemChecked(4, true);
            if (dgvFeeHeads.CurrentRow.Cells("June").Value.ToString() == "True")
                chklbMonth.SetItemChecked(5, true);
            if (dgvFeeHeads.CurrentRow.Cells("July").Value.ToString() == "True")
                chklbMonth.SetItemChecked(6, true);
            if (dgvFeeHeads.CurrentRow.Cells("August").Value.ToString() == "True")
                chklbMonth.SetItemChecked(7, true);
            if (dgvFeeHeads.CurrentRow.Cells("September").Value.ToString() == "True")
                chklbMonth.SetItemChecked(8, true);
            if (dgvFeeHeads.CurrentRow.Cells("October").Value.ToString() == "True")
                chklbMonth.SetItemChecked(9, true);
            if (dgvFeeHeads.CurrentRow.Cells("November").Value.ToString() == "True")
                chklbMonth.SetItemChecked(10, true);
            if (dgvFeeHeads.CurrentRow.Cells("December").Value.ToString() == "True")
                chklbMonth.SetItemChecked(11, true);
            btnCreate.Enabled = false;
        }
    }

    private void txtNameofHead_TextChanged(object sender, System.EventArgs e)
    {
        btnCreate.Enabled = true;
    }

    private void txtNameofHead_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyCode == Keys.Enter)
            rbtnMonthly.Focus();
    }

    private void rbtnMonthly_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyCode == Keys.Down)
            rbtnQuarterly.Focus();
    }

    private void rbtnQuarterly_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyCode == Keys.Enter)
            rbtnHalfYearly.Focus();
    }

    private void rbtnHalfYearly_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyCode == Keys.Enter)
            rbtnAnually.Focus();
    }

    private void rbtnAnually_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyCode == Keys.Enter)
            rbtnVariant.Focus();
    }

    private void rbtnVariant_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyCode == Keys.Enter)
            chklbMonth.Focus();
    }

    private void btnClear_Click(System.Object sender, System.EventArgs e)
    {
        Clear();
        txtNameofHead.Focus();
    }

    private void Clear()
    {
        for (int index = 0; index <= chklbMonth.Items.Count - 1; index++)
            chklbMonth.SetItemChecked(index, false);
        txtNameofHead.Text = "";
        rbtnAnually.Checked = false;
        rbtnHalfYearly.Checked = false;
        rbtnMonthly.Checked = false;
        rbtnQuarterly.Checked = false;
        rbtnNonRefundable.Checked = false;
        rbtnRefundable.Checked = false;
        rbtnVariant.Checked = false;
        btnCreate.Enabled = true;
        btnDelete.Enabled = false;
    }

    private void rbtnRefundable_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyCode == Keys.Down)
            rbtnNonRefundable.Focus();
    }

    private void rbtnNonRefundable_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyCode == Keys.Down)
            rbtnRefundable.Focus();
    }

    private void frmFeeHeads_KeyDown(System.Object sender, System.Windows.Forms.KeyEventArgs e)
    {
        if (e.KeyValue == 27)
        {
            this.Close();
            MainForm.objOpenedForm = new Form();
        }
    }
}
Rijwan Ansari5y ago
Try these online converter.
https://codeconverter.icsharpcode.net/
https://converter.telerik.com/

Additionally, I would recommend to break whole code into some small parts.

Regards
Rijwan
Nitin Sontakke5y ago
https://converter.telerik.com/