KucukHacker0088 Shell
| Current Path : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp3/ |
Windows NT SG2NWVPWEB022 10.0 build 17763 (Windows Server 2016) i586 |
| Current File : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp3/ve-25AC.tmp |
Imports System.Data
Imports System.Data.SqlClient
Partial Class CityProfileWardwise
Inherits System.Web.UI.Page
'Dim ObjClassDB As New ClassDB
Protected Sub grdCDP_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles grdCDP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim lc As System.Web.UI.Control = e.Row.Cells(2).Controls(0)
If TypeOf (lc) Is DataBoundLiteralControl Then
If CType(lc, DataBoundLiteralControl).Text.Contains("#") Then
e.Row.Visible = False
End If
ElseIf TypeOf (lc) Is LiteralControl Then
If CType(lc, LiteralControl).Text.Contains("#") Then
e.Row.Visible = False
End If
End If
End If
End Sub
Protected Sub grdCDP_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles grdCDP.RowDeleting
Dim rndx As Int32 = e.RowIndex
Dim a As Integer
a = rndx + 1
Dim str() As String
str = Me.grdCDP.DataKeyNames
Me.sdcIPAddress.DeleteParameters("CPW_ID").DefaultValue = a
End Sub
Protected Sub grdCDP_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles grdCDP.RowUpdating
Dim tsty, tsty1, tsty2, tsty3, tsty4, tsty5, tsty6, tsty7, tsty8, tsty9, tsty10, tsty11, tsty12, tsty13, tsty14, tsty15, tsty16, tsty17, tsty18, tsty19, tsty20, tsty21, tsty22, tsty23, tsty24, tsty25, tsty26, tsty27, tsty28, tsty29, tsty30, tsty31, tsty32, tsty33, tsty34, tsty35, tsty36, tsty37, tsty38, tsty39, tsty40, tsty41, tsty42, tsty43, tsty44, tsty45, tsty46, tsty47, tsty48, tsty49, tsty50, tsty51, tsty52, tsty53, tsty54, tsty55, tsty56, tsty57 As TextBox ', tsty48, tsty49, tsty50, tsty51, tsty52, tsty53, tsty54, tsty55 As TextBox
Dim s, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, S16, S17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, S33, S34, s35, s36, s37, s38, s39, s40, s41, s42, s43, s44, s45, s46, s47, s48, s49, S50, S51, S52, S53, S54, S55, S56, S57 As Object 'As Object
Me.sdcIPAddress.UpdateParameters("CPW_ID").DefaultValue = grdCDP.DataKeys(e.RowIndex).Value
tsty = grdCDP.Rows(e.RowIndex).Cells(8).Controls(1)
tsty1 = grdCDP.Rows(e.RowIndex).Cells(9).Controls(1)
tsty2 = grdCDP.Rows(e.RowIndex).Cells(10).Controls(1)
tsty3 = grdCDP.Rows(e.RowIndex).Cells(11).Controls(1)
tsty4 = grdCDP.Rows(e.RowIndex).Cells(12).Controls(1)
tsty5 = grdCDP.Rows(e.RowIndex).Cells(13).Controls(1)
tsty6 = grdCDP.Rows(e.RowIndex).Cells(14).Controls(1)
tsty7 = grdCDP.Rows(e.RowIndex).Cells(15).Controls(1)
tsty8 = grdCDP.Rows(e.RowIndex).Cells(16).Controls(1)
tsty9 = grdCDP.Rows(e.RowIndex).Cells(17).Controls(1)
tsty10 = grdCDP.Rows(e.RowIndex).Cells(18).Controls(1)
tsty11 = grdCDP.Rows(e.RowIndex).Cells(19).Controls(1)
tsty12 = grdCDP.Rows(e.RowIndex).Cells(20).Controls(1)
tsty13 = grdCDP.Rows(e.RowIndex).Cells(21).Controls(1)
tsty14 = grdCDP.Rows(e.RowIndex).Cells(22).Controls(1)
tsty15 = grdCDP.Rows(e.RowIndex).Cells(23).Controls(1)
tsty16 = grdCDP.Rows(e.RowIndex).Cells(24).Controls(1)
tsty17 = grdCDP.Rows(e.RowIndex).Cells(25).Controls(1)
tsty18 = grdCDP.Rows(e.RowIndex).Cells(26).Controls(1)
tsty19 = grdCDP.Rows(e.RowIndex).Cells(27).Controls(1)
tsty20 = grdCDP.Rows(e.RowIndex).Cells(28).Controls(1)
tsty21 = grdCDP.Rows(e.RowIndex).Cells(29).Controls(1)
tsty22 = grdCDP.Rows(e.RowIndex).Cells(30).Controls(1)
tsty23 = grdCDP.Rows(e.RowIndex).Cells(31).Controls(1)
tsty24 = grdCDP.Rows(e.RowIndex).Cells(32).Controls(1)
tsty25 = grdCDP.Rows(e.RowIndex).Cells(33).Controls(1)
tsty26 = grdCDP.Rows(e.RowIndex).Cells(34).Controls(1)
tsty27 = grdCDP.Rows(e.RowIndex).Cells(35).Controls(1)
tsty28 = grdCDP.Rows(e.RowIndex).Cells(36).Controls(1)
tsty29 = grdCDP.Rows(e.RowIndex).Cells(37).Controls(1)
tsty30 = grdCDP.Rows(e.RowIndex).Cells(38).Controls(1)
tsty31 = grdCDP.Rows(e.RowIndex).Cells(39).Controls(1)
tsty32 = grdCDP.Rows(e.RowIndex).Cells(40).Controls(1)
tsty33 = grdCDP.Rows(e.RowIndex).Cells(41).Controls(1)
tsty34 = grdCDP.Rows(e.RowIndex).Cells(42).Controls(1)
tsty35 = grdCDP.Rows(e.RowIndex).Cells(43).Controls(1)
tsty36 = grdCDP.Rows(e.RowIndex).Cells(44).Controls(1)
tsty37 = grdCDP.Rows(e.RowIndex).Cells(45).Controls(1)
tsty38 = grdCDP.Rows(e.RowIndex).Cells(46).Controls(1)
tsty39 = grdCDP.Rows(e.RowIndex).Cells(47).Controls(1)
tsty40 = grdCDP.Rows(e.RowIndex).Cells(48).Controls(1)
tsty41 = grdCDP.Rows(e.RowIndex).Cells(49).Controls(1)
tsty42 = grdCDP.Rows(e.RowIndex).Cells(50).Controls(1)
tsty43 = grdCDP.Rows(e.RowIndex).Cells(51).Controls(1)
tsty44 = grdCDP.Rows(e.RowIndex).Cells(52).Controls(1)
tsty45 = grdCDP.Rows(e.RowIndex).Cells(53).Controls(1)
tsty46 = grdCDP.Rows(e.RowIndex).Cells(54).Controls(1)
tsty47 = grdCDP.Rows(e.RowIndex).Cells(55).Controls(1)
tsty48 = grdCDP.Rows(e.RowIndex).Cells(56).Controls(1)
tsty49 = grdCDP.Rows(e.RowIndex).Cells(57).Controls(1)
tsty50 = grdCDP.Rows(e.RowIndex).Cells(58).Controls(1)
tsty51 = grdCDP.Rows(e.RowIndex).Cells(59).Controls(1)
tsty52 = grdCDP.Rows(e.RowIndex).Cells(60).Controls(1)
tsty53 = grdCDP.Rows(e.RowIndex).Cells(61).Controls(1)
tsty54 = grdCDP.Rows(e.RowIndex).Cells(62).Controls(1)
tsty55 = grdCDP.Rows(e.RowIndex).Cells(63).Controls(1)
tsty56 = grdCDP.Rows(e.RowIndex).Cells(64).Controls(1)
tsty57 = grdCDP.Rows(e.RowIndex).Cells(65).Controls(1)
Dim t As TextBox = tsty
s = (t.Text).Trim
If s.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t1 As TextBox = tsty1
s1 = (t1.Text)
If s1.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t2 As TextBox = tsty2
s2 = (t2.Text).Trim
If s2.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t3 As TextBox = tsty3
s3 = (t3.Text).Trim
If s3.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t4 As TextBox = tsty4
s4 = (t4.Text).Trim
If s4.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t5 As TextBox = tsty5
s5 = (t5.Text).Trim
If s5.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t6 As TextBox = tsty6
s6 = (t6.Text).Trim
If s6.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t7 As TextBox = tsty7
s7 = (t7.Text).Trim
If s7.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t8 As TextBox = tsty8
s8 = (t8.Text).Trim
If s8.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t9 As TextBox = tsty9
s9 = (t9.Text).Trim
If s9.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t10 As TextBox = tsty10
s10 = (t10.Text).Trim
If s10.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t11 As TextBox = tsty11
s11 = (t11.Text).Trim
If s11.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t12 As TextBox = tsty12
s12 = (t12.Text).Trim
If s12.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t13 As TextBox = tsty13
s13 = (t13.Text).Trim
If s13.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t14 As TextBox = tsty14
s14 = (t14.Text).Trim
If s14.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t15 As TextBox = tsty15
s15 = (t15.Text).Trim
If s15.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t16 As TextBox = tsty16
S16 = (t16.Text).Trim
If S16.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t17 As TextBox = tsty17
S17 = (t17.Text).Trim
If S17.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t18 As TextBox = tsty18
s18 = (t18.Text).Trim
If s18.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t19 As TextBox = tsty19
s19 = (t19.Text).Trim
If s19.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t20 As TextBox = tsty20
s20 = (t20.Text).Trim
If s20.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t21 As TextBox = tsty21
s21 = (t21.Text).Trim
If s21.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t22 As TextBox = tsty22
s22 = (t22.Text).Trim
If s22.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t23 As TextBox = tsty23
s23 = (t23.Text).Trim
If s23.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t24 As TextBox = tsty24
s24 = (t24.Text).Trim
If s24.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t25 As TextBox = tsty25
s25 = (t25.Text).Trim
If s25.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t26 As TextBox = tsty26
s26 = (t26.Text).Trim
If s26.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t27 As TextBox = tsty27
s27 = (t27.Text).Trim
If s27.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t28 As TextBox = tsty28
s28 = (t28.Text).Trim
If s28.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t29 As TextBox = tsty29
s29 = (t29.Text).Trim
If s29.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t30 As TextBox = tsty30
s30 = (t30.Text).Trim
If s30.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t31 As TextBox = tsty31
s31 = (t31.Text).Trim
If s31.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t32 As TextBox = tsty32
s32 = (t32.Text).Trim
If s32.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t33 As TextBox = tsty33
S33 = (t33.Text).Trim
If S33.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t34 As TextBox = tsty34
S34 = (t34.Text).Trim
If S34.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t35 As TextBox = tsty35
s35 = (t35.Text).Trim
If s35.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t36 As TextBox = tsty36
s36 = (t36.Text).Trim
If s36.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t37 As TextBox = tsty37
s37 = (t37.Text).Trim
If s37.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t38 As TextBox = tsty38
s38 = (t38.Text).Trim
If s38.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t39 As TextBox = tsty39
s39 = (t39.Text).Trim
If s39.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t40 As TextBox = tsty40
s40 = (t40.Text).Trim
If s40.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t41 As TextBox = tsty41
s41 = (t41.Text).Trim
If S17.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t42 As TextBox = tsty42
s42 = (t42.Text).Trim
If s42.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t43 As TextBox = tsty43
s43 = (t43.Text).Trim
If s43.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t44 As TextBox = tsty44
s44 = (t44.Text).Trim
If s44.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t45 As TextBox = tsty45
s45 = (t45.Text).Trim
If s45.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t46 As TextBox = tsty46
s46 = (t46.Text).Trim
If s46.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t47 As TextBox = tsty47
s47 = (t47.Text).Trim
If s47.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t48 As TextBox = tsty48
s48 = (t48.Text).Trim
If s48.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t49 As TextBox = tsty49
s49 = (t49.Text).Trim
If s49.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t50 As TextBox = tsty50
S50 = (t50.Text).Trim
If S50.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t51 As TextBox = tsty51
S51 = (t51.Text).Trim
If S51.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t52 As TextBox = tsty52
S52 = (t52.Text).Trim
If S52.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t53 As TextBox = tsty53
S53 = (t53.Text).Trim
If S53.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t54 As TextBox = tsty54
S54 = (t54.Text).Trim
If S54.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t55 As TextBox = tsty55
S55 = (t55.Text).Trim
If S55.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t56 As TextBox = tsty56
S56 = (t56.Text).Trim
If S56.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t57 As TextBox = tsty57
S57 = (t57.Text).Trim
If S57.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Me.sdcIPAddress.UpdateParameters("CPW_ID").DefaultValue = grdCDP.DataKeys(e.RowIndex).Value
Me.sdcIPAddress.UpdateParameters("Ia").DefaultValue = s
Me.sdcIPAddress.UpdateParameters("Ia1").DefaultValue = s1
Me.sdcIPAddress.UpdateParameters("Ia2").DefaultValue = s2 'Math.Round(s2)
Me.sdcIPAddress.UpdateParameters("Ia3").DefaultValue = s3 'Math.Round(s3)
Me.sdcIPAddress.UpdateParameters("Ia4").DefaultValue = s4 'Math.Round(s4)
Me.sdcIPAddress.UpdateParameters("Ia5").DefaultValue = s5
Me.sdcIPAddress.UpdateParameters("Ia6").DefaultValue = s6
Me.sdcIPAddress.UpdateParameters("Ia7").DefaultValue = s7
Me.sdcIPAddress.UpdateParameters("Ia8").DefaultValue = s8
Me.sdcIPAddress.UpdateParameters("Ia9").DefaultValue = s9
Me.sdcIPAddress.UpdateParameters("Ia10").DefaultValue = s10
Me.sdcIPAddress.UpdateParameters("Ia11").DefaultValue = s11
Me.sdcIPAddress.UpdateParameters("Ia12").DefaultValue = s12
Me.sdcIPAddress.UpdateParameters("Ia13").DefaultValue = s13
Me.sdcIPAddress.UpdateParameters("Ia14").DefaultValue = s14
Me.sdcIPAddress.UpdateParameters("Ia15").DefaultValue = s15
Me.sdcIPAddress.UpdateParameters("Ia16").DefaultValue = S16
Me.sdcIPAddress.UpdateParameters("Ia17").DefaultValue = S17
Me.sdcIPAddress.UpdateParameters("Ia18").DefaultValue = s18
Me.sdcIPAddress.UpdateParameters("Ia19").DefaultValue = s19
Me.sdcIPAddress.UpdateParameters("Ia20").DefaultValue = s20
Me.sdcIPAddress.UpdateParameters("Ia21").DefaultValue = s21
Me.sdcIPAddress.UpdateParameters("Ia22").DefaultValue = s22
Me.sdcIPAddress.UpdateParameters("Ia23").DefaultValue = s23
Me.sdcIPAddress.UpdateParameters("Ia24").DefaultValue = s24
Me.sdcIPAddress.UpdateParameters("Ia25").DefaultValue = s25
Me.sdcIPAddress.UpdateParameters("Ia26").DefaultValue = s26
Me.sdcIPAddress.UpdateParameters("Ia27").DefaultValue = s27
Me.sdcIPAddress.UpdateParameters("Ia28").DefaultValue = s28
Me.sdcIPAddress.UpdateParameters("Ia29").DefaultValue = s29
Me.sdcIPAddress.UpdateParameters("Ia30").DefaultValue = s30
Me.sdcIPAddress.UpdateParameters("Ia31").DefaultValue = s31
Me.sdcIPAddress.UpdateParameters("Ia32").DefaultValue = s32
Me.sdcIPAddress.UpdateParameters("Ia33").DefaultValue = S33
Me.sdcIPAddress.UpdateParameters("Ia34").DefaultValue = S34
Me.sdcIPAddress.UpdateParameters("Ia35").DefaultValue = s35
Me.sdcIPAddress.UpdateParameters("Ia36").DefaultValue = s36
Me.sdcIPAddress.UpdateParameters("Ia37").DefaultValue = s37
Me.sdcIPAddress.UpdateParameters("Ia38").DefaultValue = s38
Me.sdcIPAddress.UpdateParameters("Ia39").DefaultValue = s39
Me.sdcIPAddress.UpdateParameters("Ia40").DefaultValue = s40
Me.sdcIPAddress.UpdateParameters("Ia41").DefaultValue = s41
Me.sdcIPAddress.UpdateParameters("Ia42").DefaultValue = s42
Me.sdcIPAddress.UpdateParameters("Ia43").DefaultValue = s43
Me.sdcIPAddress.UpdateParameters("Ia44").DefaultValue = s44
Me.sdcIPAddress.UpdateParameters("Ia45").DefaultValue = s45
Me.sdcIPAddress.UpdateParameters("Ia46").DefaultValue = s46
Me.sdcIPAddress.UpdateParameters("Ia47").DefaultValue = s47
Me.sdcIPAddress.UpdateParameters("Ia48").DefaultValue = s48
Me.sdcIPAddress.UpdateParameters("Ia49").DefaultValue = s49
Me.sdcIPAddress.UpdateParameters("Ia50").DefaultValue = S50
Me.sdcIPAddress.UpdateParameters("Ia51").DefaultValue = S51
Me.sdcIPAddress.UpdateParameters("Ia52").DefaultValue = S52
Me.sdcIPAddress.UpdateParameters("Ia53").DefaultValue = S53
Me.sdcIPAddress.UpdateParameters("Ia54").DefaultValue = S54
Me.sdcIPAddress.UpdateParameters("Ia55").DefaultValue = S55
Me.sdcIPAddress.UpdateParameters("Ia56").DefaultValue = S56
Me.sdcIPAddress.UpdateParameters("Ia57").DefaultValue = S57
Me.sdcIPAddress.Update()
' Else
' Me.LblError.Text = "* " & s & " IP_Address already exists"
' Me.LblError.Visible = True
' e.Cancel = True
' End If
' IPadrs = Nothing
'End If
'IPADD = Nothing
'om = Nothing
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim firstN = ""
If Not Context.User.Identity.IsAuthenticated Then
Session.Clear()
Session("dt") = DBNull.Value
Session.Abandon()
FormsAuthentication.SignOut()
Context.Application.Clear()
Else
Dim sobj = Session("myobj")
Context.Items("CityProfile_New") = "no"
If sobj <> "" Then
Dim userName = Context.Application.AllKeys(0)
Dim pageName = Context.Application.AllKeys(1)
firstN = Context.Application.AllKeys(2) 'Context.Application.Add(contextFirst, True)
' ObjClassDB.ConnectDB()
grdCDP.Columns(0).Visible = True
grdCDP.Columns(1).Visible = True
If Page.IsPostBack = False Then
LoadCompany_NEW()
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "Viw_I_GetCityCompanywise", "ULBID", "ULBNameEnglish", "where FirstName='" + firstN + "'", "ORDER BY ULBNameEnglish")
Dim hRow As Integer = LoadCompany(firstN)
If hRow = 1 Then
LoadCompany_NEW()
' Call DataToList(DDLULBID.SelectedValue)
End If
If hRow = 1 Then
LoadCompany_NEW()
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' Call DataToList(DDLULBID.SelectedValue)
End If
End If
Else
If Page.IsPostBack = False Then
LoadCompany_NEW()
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' Call DataToList(DDLULBID.SelectedValue)
grdCDP.Columns(0).Visible = False
grdCDP.Columns(1).Visible = False
End If
End If
'DDLULBID
' ObjClassDB.ConnectDB()
If Page.IsPostBack = False And firstN = "" Then
LoadCompany_NEW()
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' Call DataToList(DDLULBID.SelectedValue)
grdCDP.Columns(0).Visible = False
grdCDP.Columns(1).Visible = False
End If
End If
' ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' LoadCompany_NEW()
'ObjClassDB.ConnectDB()
'If Page.IsPostBack = False Then
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' 'Call DataToList(DDLULBID.SelectedValue)
' ' Me.sdcIPAddress.SelectParameters("ULBID").DefaultValue = 0
' 'sdcIPAddress.DataBind()
' ' Gridedat()
' Me.sdcIPAddress.SelectParameters("ULBID").DefaultValue = DDLULBID.SelectedValue
' sdcIPAddress.DataBind()
'End If
End Sub
''' <summary>
''' new change for the population ddlulb droupdown
''' </summary>
''' <param name="Parafname"></param>
''' <returns></returns>
''' <remarks></remarks>
'''
Function LoadCompany_NEW()
' DD_CompanyName.Items.Clear()
Dim record As Integer
Dim sql = "select ulbid,ULBNameE from dbo.MasterULB ORDER BY ULBNameE"
Dim command As New Command(sql, False) 'WHERE Login_ID = " & _loginID & " ", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DDLULBID.Items.Clear()
DDLULBID.DataValueField = "ulbid"
DDLULBID.DataTextField = "ULBNameE"
DDLULBID.DataSource = command.Reader
DDLULBID.DataBind()
If DDLULBID.Items.Count > 0 Then
DDLULBID.Items.Insert(0, New ListItem("Select City", "0"))
' Return record = 1
End If
' Return record = 2
Else
End If
Finally
command.Close()
End Try
End Function
Function LoadCompany(ByVal Parafname As String) As Integer
' DD_CompanyName.Items.Clear()
Dim record As Integer
Dim sql = "select ULBNameEnglish,ulbid from dbo.Viw_I_GetCityCompanywise where FirstName= '" + Parafname + "'"
Dim command As New Command(sql, False) 'WHERE Login_ID = " & _loginID & " ", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DDLULBID.Items.Clear()
DDLULBID.DataValueField = "ulbid"
DDLULBID.DataTextField = "ULBNameEnglish"
DDLULBID.DataSource = command.Reader
DDLULBID.DataBind()
If DDLULBID.Items.Count > 0 Then
DDLULBID.Items.Insert(0, New ListItem("Select City", "0"))
Return record = 1
End If
Return record = 2
Else
End If
Finally
command.Close()
End Try
End Function
Protected Sub DDLULBID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLULBID.SelectedIndexChanged
Me.sdcIPAddress.SelectParameters("ULBID").DefaultValue = DDLULBID.SelectedValue
sdcIPAddress.DataBind()
End Sub
' Public Shared Sub InsertRecord(ByVal tId As String, ByVal companyId As String)
' Dim ConnectionString As [String] = ConfigurationManager.ConnectionStrings("dsn").ConnectionString 'General.GetAppSetting("ConnectionString")
' Dim con As New SqlConnection(ConnectionString) '(Config.Dsn)
' con.Open()
'dim j="UPDATE [CityProfileWardWise] SET [WardPopulation2011]=@Ia ,[WardArea]=@Ia1 ,[PopulationDensity]=@Ia2 ,[PopulationMale]=@Ia3,[PopulationFemale]=@Ia4 ,[PopulationSC]=@Ia5,[PopulationST]=@Ia6,[PopulationBPL]=@Ia7,[SexRatio]=@Ia8,[LiteracyRate]=@Ia9,[NoOfSchool]=@Ia10,[NoOfHealthCentre]=@Ia11,[NoOfHouseHold] =@Ia12,[PrimaryOccupation] =@Ia13,[SecondayOccupation] =@Ia14,[TertiaryOccupation] =@Ia15,[NoOfIndustrialUnit] =@Ia16,[NoOfCommercialEstablishments] =@Ia17,[NoOfSlumPockets] =@Ia18,[SlumPopulation] =@Ia19,[NoOfSlumHousehold] =@Ia20,[NoOfIndividualWaterConnection] =@Ia21,[NoOfCommunityWaterConnections] =@Ia22,[NoOfCommercialWaterConnection]=@Ia23 ,[NoOfTubewell] =@Ia24,[NoOfHandpump] =@Ia25,[NoOfOHT] =@Ia26,[CoverageOfPipedWaterSupply] =@Ia27,[NoOfIndividualToilet] =@Ia28,[NoOfIndividualSepticTanks] =@Ia29,[NoOfCommunitySepticTank] =@Ia30,[NoOfCommunityToilet] =@Ia31,[PopulationOpenDefecation] =@Ia32,[NoOfDustBin] =@Ia33,[WardwiseWasteGenerated] =@Ia34,[RoadSweeping] =@Ia35,[NoOfSanitaryWorker] =@Ia36,[LengthOfPuccaRoad] =@Ia37,[LengthOfKucchaRoad] =@Ia38,[LengthOfStateHighway] =@Ia39,[LengthOfNationalHighway] =@Ia40,[LengthOfRoadSideDrainsPucca] =@Ia41,[LengthOfNaturalDrainPucca] =@Ia42,[LengthOfNaturalDrainKuttcha] =@Ia43,[NoOfStreetlight] =@Ia44,[NoOfElectricityConnection] =@Ia45,[NameOfTouristSite] =@Ia46,[NameOfHeritageSite] =@Ia47,[NoOfBusStop] =@Ia48,[NoOfBusStand] =@Ia49,[NoOfPark] =@Ia50,[NoOfPlayground] =@Ia51,[NoOfResidentialProperty] =@Ia52,[NoOfCommercialProperty] =@Ia53,[TotalPropertyTaxCollection] =@Ia54,[PropertyTaxCoverage] =@Ia55,[AvailableGovernmentLand] =@Ia56,[Remarks] =@Ia57 WHERE [CPW_ID] = @CPW_ID">
' Dim com As New SqlCommand("INSERT INTO tblListAssociation VALUES(" & tId & "," & companyId & ")", con)
' com.ExecuteNonQuery()
' com.Dispose()
' con.Close()
' End Sub
' Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
' End Sub
Sub LoadULB()
Dim sql = "select ULBNameEnglish,ulbid from dbo.Viw_I_GetCityCompanywise order by ULBNameEnglish"
Dim command As New Command(sql, False) 'WHERE Login_ID = " & _loginID & " ", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DD_ULBNAme.Items.Clear()
DD_ULBNAme.DataValueField = "ulbid"
DD_ULBNAme.DataTextField = "ULBNameEnglish"
DD_ULBNAme.DataSource = command.Reader
DD_ULBNAme.DataBind()
If DD_ULBNAme.Items.Count > 0 Then
DD_ULBNAme.Items.Insert(0, New ListItem("Select City", "0"))
End If
End If
Finally
command.Close()
End Try
End Sub
Sub LoadcomapyName()
' DD_CompanyName.Items.Clear()
Dim sql = "select CompanyID,CompanyNameE from dbo.MasterCompany order by CompanyNameE"
Dim command As New Command(sql, False) 'WHERE Login_ID = " & _loginID & " ", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DD_CompanyNAme.Items.Clear()
DD_CompanyNAme.DataValueField = "CompanyID"
DD_CompanyNAme.DataTextField = "CompanyNameE"
DD_CompanyNAme.DataSource = command.Reader
DD_CompanyNAme.DataBind()
If DD_CompanyNAme.Items.Count > 0 Then
DD_CompanyNAme.Items.Insert(0, New ListItem("Select Company", "0"))
End If
End If
Finally
command.Close()
End Try
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
FileUtilities.Savecmpanywardwise(DD_CompanyNAme.SelectedValue, DD_ULBNAme.SelectedValue, DD_ULBNAme.SelectedItem.Text, DD_CompanyNAme.SelectedItem.Text, DD_Ward.SelectedItem.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text, TextBox21.Text, TextBox22.Text, TextBox23.Text, TextBox24.Text, TextBox25.Text, TextBox26.Text, TextBox27.Text, TextBox28.Text, TextBox29.Text, TextBox30.Text, TextBox31.Text, TextBox32.Text, TextBox33.Text, TextBox34.Text, TextBox35.Text, TextBox36.Text, TextBox37.Text, TextBox38.Text, TextBox39.Text, TextBox40.Text, TextBox41.Text, TextBox42.Text, TextBox43.Text, TextBox44.Text, TextBox45.Text, TextBox46.Text, TextBox47.Text, TextBox48.Text, TextBox49.Text, TextBox50.Text, TextBox51.Text, TextBox52.Text, TextBox53.Text, TextBox54.Text, TextBox55.Text, TextBox56.Text, TextBox57.Text, TextBox58.Text)
'FileUtilities.Savecmpanywardwise(,,,,,
Button2.Enabled = False
' DD_CompanyNAme.SelectedIndex = 0
'DD_ULBNAme.SelectedIndex = 0
' DD_Ward.SelectedIndex = 0
Label1.Visible = True
End Sub
Protected Sub Btn_Addrecord_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Addrecord.Click
LoadULB()
LoadcomapyName()
Button2.Enabled = True
DD_CompanyNAme.SelectedIndex = 0
DD_ULBNAme.SelectedIndex = 0
DD_Ward.SelectedIndex = 0
Label1.Visible = False
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox25.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""
TextBox29.Text = ""
TextBox30.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
TextBox33.Text = ""
TextBox34.Text = ""
TextBox35.Text = ""
TextBox36.Text = ""
TextBox37.Text = ""
TextBox38.Text = ""
TextBox39.Text = ""
TextBox40.Text = ""
TextBox41.Text = ""
TextBox42.Text = ""
TextBox43.Text = ""
TextBox44.Text = ""
TextBox45.Text = ""
TextBox46.Text = ""
TextBox47.Text = ""
TextBox48.Text = ""
TextBox49.Text = ""
TextBox50.Text = ""
TextBox51.Text = ""
TextBox52.Text = ""
TextBox53.Text = ""
TextBox54.Text = ""
TextBox55.Text = ""
TextBox56.Text = ""
TextBox57.Text = ""
TextBox58.Text = ""
End Sub
End Class
Discord hacker0088#9402
FSecurity.org