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/SectoralAnalysis_new.aspx.vb |
Imports System.Data
Imports System.Data.SqlClient
Partial Class SectoralAnalysis_new
Inherits System.Web.UI.Page
'Dim ObjClassDB As New ClassDB
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
Context.Application.Clear()
Session.Clear()
Session("dt") = DBNull.Value
Session.Abandon()
FormsAuthentication.SignOut()
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
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)
Butt_Update.Visible = True
Butt_Cancle.Visible = True
enablefalseControl()
'ObjClassDB.ConnectDB()
If Page.IsPostBack = False Then
LoadCompany_NEW_para(firstN)
' 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
Call DataToList(DDLULBID.SelectedValue)
End If
If hRow = 1 Then
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
LoadCompany_NEW()
Call DataToList(DDLULBID.SelectedValue)
End If
End If
End If
' 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)
End If
End If
'ObjClassDB.ConnectDB()
'If Page.IsPostBack = False Then
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' Call DataToList(DDLULBID.SelectedValue)
'End If
End Sub
''' <summary>
''' new change for the population ddlulb droupdown
''' </summary>
''' <param name="Parafname"></param>
''' <returns></returns>
''' <remarks></remarks>
'''
Sub LoadCompany_NEW_para(ByVal pr As String)
' DD_CompanyName.Items.Clear()
Dim record As Integer
Dim sql = "select * from Viw_I_GetCityCompanywise where firstname='" + pr + "'"
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 Sub
Function LoadCompany_NEW()
' DD_CompanyName.Items.Clear()
Dim record As Integer
Dim sql = "select ulbid,ULBNameEnglish 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
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
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
Private Sub enablefalseControl()
TextBox_NoOfTubewell.ReadOnly = False
TextBox_WaterSuppliedByTubewell.ReadOnly = False
TextBox_NoOfWell.ReadOnly = False
TextBox_WaterSuppliedByWell.ReadOnly = False
TextBox_NoOfRiver.ReadOnly = False
TextBox_WaterSuppliedByRiver.ReadOnly = False
TextBox_TotalWaterSupply.ReadOnly = False
TextBox_ExistingSupplyRate.ReadOnly = False
TextBox_WaterChargesPerHousehold.ReadOnly = False
TextBox_WaterChargesFlatMetered.ReadOnly = False
TextBox_CoveragePaidWaterSupply.ReadOnly = False
TextBox_TreatmentPlantYesNo.ReadOnly = False
TextBox_CapacityTreatmentPlant.ReadOnly = False
TextBox_ProposedSurfaceSource.ReadOnly = False
'--------Sewerage
TextBox_TotalSewageGeneration.ReadOnly = False
TextBox_SewerageTreatmentPlantYesNo.ReadOnly = False
TextBox_CapacitySewerageTreatmentPlant.ReadOnly = False
TextBox_NoOfIndividualSepticTanks.ReadOnly = False
TextBox_NoOfCommunitySepticTank.ReadOnly = False
TextBox_NoOfMudPump.ReadOnly = False
TextBox_CleaningFrequencyIndividualSepticTank.ReadOnly = False
TextBox_CleaningFrequencyCommunitySepticTank.ReadOnly = False
'----------------Drainage
TextBox_NameOfNaturalNallah.ReadOnly = False
TextBox_LengthofNaturalNallah.ReadOnly = False
TextBox_UltimateDisposalPointOfNallah.ReadOnly = False
TextBox_LengthOfRoadSideDrain.ReadOnly = False
TextBox_CoverageOfRoadSideDrainageWRTRoad.ReadOnly = False
TextBox_UltimateDisposalPointOfRoadSideDrain.ReadOnly = False
TextBox_TreatmentProcedureAdopted.ReadOnly = False
'--------Solid Waste Management (SWM --
TextBox_PerCapitaSolidWasteGeneration.ReadOnly = False
TextBox_TotalSWGeneration.ReadOnly = False
TextBox_FrequencyOfSWCollection.ReadOnly = False
TextBox_CollectionEfficiency.ReadOnly = False
TextBox_InitiativeForScientificDisposalOfWaste.ReadOnly = False
TextBox_NameOfLandfillSite.ReadOnly = False
TextBox_AllottedSiteForScientificDisposal.ReadOnly = False
TextBox_AreaOfAllottedSiteForScientificDisposal.ReadOnly = False
TextBox_DistanceOfLandfillSiteFromMainSettlement.ReadOnly = False
TextBox_NoOfVehicleCarryingSWToLFSite.ReadOnly = False
TextBox_FormalRequestForLFSite.ReadOnly = False
TextBox_DTDCInitiative.ReadOnly = False
'--------DTDCInitiative
TextBox_NameOfNHPassingNearbyTown.ReadOnly = False
TextBox_DistanceOfNHFromTown.ReadOnly = False
TextBox_NameOfSHPassingNearbyTown.ReadOnly = False
TextBox_DistanceOfSHFromTown.ReadOnly = False
TextBox_DistanceOfSHFromTown.ReadOnly = False
TextBox_RoadPuccaCC.ReadOnly = False
TextBox_RoadPuccaCC.ReadOnly = False
TextBox_RoadPuccaWBM.ReadOnly = False
TextBox_RoadPuccaWBM.ReadOnly = False
TextBox_RoadKuccha.ReadOnly = False
TextBox_RoadKuccha.ReadOnly = False
TextBox_GapWRTStandards.ReadOnly = False
TextBox_GapWRTStandards.ReadOnly = False
'-----------Traffic & Transportation
TextBox_NoOfVehicles.ReadOnly = False
TextBox_BusStandYesNo.ReadOnly = False
TextBox_IntracityMassTransportMode.ReadOnly = False
TextBox_LocationFacingMajorTrafficIssue1.ReadOnly = False
TextBox_LocationFacingMajorTrafficIssue2.ReadOnly = False
TextBox_LocationFacingMajorTrafficIssue3.ReadOnly = False
TextBox_BeautifiedStreet.ReadOnly = False
TextBox_BeautifiedStreetLength.ReadOnly = False
'------------Street Lighting
TextBox_NoOfStreetLight.ReadOnly = False
TextBox_NoOfStreetLight.ReadOnly = False
TextBox_NoOfStreetlightUnderConstruction.ReadOnly = False
TextBox_NoOfStreetlightUnderConstruction.ReadOnly = False
TextBox_NoOfStreetlightTube.ReadOnly = False
TextBox_NoOfStreetlightTube.ReadOnly = False
TextBox_NoOfStreetlightCFL.ReadOnly = False
TextBox_NoOfStreetlightIBulb.ReadOnly = False
TextBox_NoOfStreetlightLED.ReadOnly = False
TextBox_NoOfStreetlightLED.ReadOnly = False
TextBox_NoOfStreetlightLPS.ReadOnly = False
'--------------------Power
TextBox_SubstationLocation400KV.ReadOnly = False
TextBox_SubstationLocation220KV.ReadOnly = False
TextBox_SubstationLocation132KV.ReadOnly = False
TextBox_NoOfResidentialConnection.ReadOnly = False
TextBox_NoOfCommercialConnection.ReadOnly = False
TextBox_SubsidyForBPL.ReadOnly = False
TextBox_DurationOfElectricitySupplyPerDay.ReadOnly = False
'-------------------------Heritage & tourism
TextBox_NameOfHeritageSite.ReadOnly = False
TextBox_HeritageSiteOwnershipAgency.ReadOnly = False
TextBox_PrevailingHeritageAct.ReadOnly = False
TextBox_NameOfTouristSite.ReadOnly = False
TextBox_TouristSiteOwnershipAgency.ReadOnly = False
TextBox_NoOfTouristVisitingPerDay.ReadOnly = False
'--------------------------Environment
TextBox_NameOfRiverLakeForest.ReadOnly = False
TextBox_PrevailingEnvironmentalAct.ReadOnly = False
TextBox_AreasFacingEnvironmentalThreat.ReadOnly = False
'---------------------------Health
TextBox_NoOfPrimaryHealthCentreDispensary.ReadOnly = False
TextBox_NoOfPrimaryHealthCentreDispensary.ReadOnly = False
TextBox_NoOfGovernmentHospital.ReadOnly = False
TextBox_NoOfGovernmentHospital.ReadOnly = False
TextBox_NoOfPrivateHospitals.ReadOnly = False
TextBox_NoOfPrivateHospitals.ReadOnly = False
TextBox_MultispecialityHospital.ReadOnly = False
TextBox_NearbyTownRefferedForTreatment.ReadOnly = False
TextBox_DistnaceOfNearbyTownRefferedForTreatment.ReadOnly = False
'------------------------Education
TextBox_NoOfPrimarySchool.ReadOnly = False
TextBox_NoOfPrimarySchool.ReadOnly = False
TextBox_CapacityOfPrimarySchool.ReadOnly = False
TextBox_NoOfSecondaryHighSchool.ReadOnly = False
TextBox_NoOfSecondaryHighSchool.ReadOnly = False
TextBox_CapacityOfSecondaryHighSchool.ReadOnly = False
TextBox_NoOfCollege.ReadOnly = False
TextBox_NoOfCollege.ReadOnly = False
TextBox_CapacityOfCollege.ReadOnly = False
TextBox_NoOfITI.ReadOnly = False
TextBox_NoOfITI.ReadOnly = False
TextBox_CapacityOfITI.ReadOnly = False
'-----------------------Social Security Schemes
TextBox_NoOfBeneficiariesUnderSJSRY.ReadOnly = False
TextBox_NoOfBeneficiariesUnderHaathThelaYojna.ReadOnly = False
TextBox_NoOfNightShelter.ReadOnly = False
TextBox_OwnershipOfRainBasera.ReadOnly = False
TextBox_NoOfBeneficiariesUnderGKMY.ReadOnly = False
TextBox_NameOfSSS1.ReadOnly = False
TextBox_NoOfBeneficiaries1.ReadOnly = False
TextBox_NameOfSSS2.ReadOnly = False
TextBox_NoOfBeneficiaries2.ReadOnly = False
TextBox_NameOfSSS3.ReadOnly = False
TextBox_NoOfBeneficiaries3.ReadOnly = False
End Sub
Private Sub DataToList(ByVal mID As String)
Dim dsAdmin As New Data.DataSet()
Dim dt As New Data.DataTable()
Global.Command.CreateSqlConnection()
Dim sqlS = "select * from TransSectoralAnalysis where ULBID= " + mID + " "
Dim da As New Data.SqlClient.SqlDataAdapter(sqlS, Global.Command.CreateSqlConnection())
' DataTable dt = new DataTable();
da.Fill(dsAdmin, "dtData")
Dim myDataTable As Data.DataTable = dsAdmin.Tables(0)
'---
'Dim DS As New DataSet
'Dim sqlS = "select * from TransSectoralAnalysis where ULBID= " + mID + " "
'DS = ObjClassDB.ASlumgride(sqlS)
'Dim myDataTable As Data.DataTable = DS.Tables(0)
For Each dRow As Data.DataRow In myDataTable.Rows
Dim MyCheck19 As Boolean
MyCheck19 = IsDBNull(dRow("NoOfTubewell"))
If MyCheck19 = True Then
TextBox_NoOfTubewell.Text = 0
Else
TextBox_NoOfTubewell.Text = dRow("NoOfTubewell")
End If
Dim MyCheck20 As Boolean
MyCheck20 = IsDBNull(dRow("WaterSuppliedByTubewell"))
If MyCheck20 = True Then
TextBox_WaterSuppliedByTubewell.Text = 0
Else
TextBox_WaterSuppliedByTubewell.Text = dRow("WaterSuppliedByTubewell").ToString()
End If
Dim MyCheck21 As Boolean
MyCheck21 = IsDBNull(dRow("NoOfWell"))
If MyCheck21 = True Then
TextBox_NoOfWell.Text = 0
Else
TextBox_NoOfWell.Text = dRow("NoOfWell")
End If
Dim MyCheck22 As Boolean
MyCheck22 = IsDBNull(dRow("WaterSuppliedByWell"))
If MyCheck22 = True Then
TextBox_WaterSuppliedByWell.Text = 0
Else
TextBox_WaterSuppliedByWell.Text = dRow("WaterSuppliedByWell")
End If
Dim MyCheck23 As Boolean
MyCheck23 = IsDBNull(dRow("NoOfRiver"))
If MyCheck23 = True Then
TextBox_NoOfRiver.Text = 0
Else
TextBox_NoOfRiver.Text = dRow("NoOfRiver")
End If
Dim MyCheck24 As Boolean
MyCheck24 = IsDBNull(dRow("WaterSuppliedByRiver"))
If MyCheck24 = True Then
TextBox_WaterSuppliedByRiver.Text = 0
Else
TextBox_WaterSuppliedByRiver.Text = dRow("WaterSuppliedByRiver")
End If
Dim MyCheck25 As Boolean
MyCheck25 = IsDBNull(dRow("TotalWaterSupply"))
If MyCheck25 = True Then
TextBox_TotalWaterSupply.Text = 0
Else
TextBox_TotalWaterSupply.Text = dRow("TotalWaterSupply")
End If
Dim MyCheck26 As Boolean
MyCheck26 = IsDBNull(dRow("ExistingSupplyRate"))
If MyCheck26 = True Then
TextBox_ExistingSupplyRate.Text = 0
Else
TextBox_ExistingSupplyRate.Text = dRow("ExistingSupplyRate")
End If
TextBox_WaterChargesPerHousehold.Text = dRow("WaterChargesPerHousehold").ToString()
TextBox_WaterChargesFlatMetered.Text = dRow("WaterChargesFlatMetered").ToString()
Dim MyCheck27 As Boolean
MyCheck27 = IsDBNull(dRow("CoveragePaidWaterSupply"))
If MyCheck27 = True Then
TextBox_CoveragePaidWaterSupply.Text = 0
Else
TextBox_CoveragePaidWaterSupply.Text = dRow("CoveragePaidWaterSupply").ToString()
End If
TextBox_TreatmentPlantYesNo.Text = dRow("TreatmentPlantYesNo").ToString()
TextBox_CapacityTreatmentPlant.Text = dRow("CapacityTreatmentPlant").ToString()
TextBox_ProposedSurfaceSource.Text = dRow("ProposedSurfaceSource").ToString()
'--------Sewerage
Dim MyCheck28 As Boolean
MyCheck28 = IsDBNull(dRow("TotalSewageGeneration"))
If MyCheck28 = True Then
TextBox_TotalSewageGeneration.Text = 0
Else
TextBox_TotalSewageGeneration.Text = dRow("TotalSewageGeneration").ToString()
End If
TextBox_SewerageTreatmentPlantYesNo.Text = dRow("SewerageTreatmentPlantYesNo").ToString()
TextBox_CapacitySewerageTreatmentPlant.Text = dRow("CapacitySewerageTreatmentPlant").ToString()
TextBox_NoOfIndividualSepticTanks.Text = dRow("NoOfIndividualSepticTanks").ToString()
TextBox_NoOfCommunitySepticTank.Text = dRow("NoOfCommunitySepticTank").ToString()
TextBox_NoOfMudPump.Text = dRow("NoOfMudPump").ToString()
TextBox_CleaningFrequencyIndividualSepticTank.Text = dRow("CleaningFrequencyIndividualSepticTank").ToString()
TextBox_CleaningFrequencyCommunitySepticTank.Text = dRow("CleaningFrequencyCommunitySepticTank").ToString()
'----------------Drainage
TextBox_NameOfNaturalNallah.Text = dRow("NameOfNaturalNallah").ToString()
Dim MyCheck29 As Boolean
MyCheck29 = IsDBNull(dRow("LengthofNaturalNallah"))
If MyCheck29 = True Then
TextBox_LengthofNaturalNallah.Text = 0
Else
TextBox_LengthofNaturalNallah.Text = dRow("LengthofNaturalNallah")
End If
TextBox_UltimateDisposalPointOfNallah.Text = dRow("UltimateDisposalPointOfNallah").ToString()
Dim MyCheck30 As Boolean
MyCheck30 = IsDBNull(dRow("LengthOfRoadSideDrain"))
If MyCheck30 = True Then
TextBox_LengthOfRoadSideDrain.Text = 0
Else
TextBox_LengthOfRoadSideDrain.Text = dRow("LengthOfRoadSideDrain")
End If
Dim MyCheck31 As Boolean
MyCheck31 = IsDBNull(dRow("CoverageOfRoadSideDrainageWRTRoad"))
If MyCheck31 = True Then
TextBox_CoverageOfRoadSideDrainageWRTRoad.Text = 0
Else
TextBox_CoverageOfRoadSideDrainageWRTRoad.Text = dRow("CoverageOfRoadSideDrainageWRTRoad")
End If
TextBox_UltimateDisposalPointOfRoadSideDrain.Text = dRow("UltimateDisposalPointOfRoadSideDrain").ToString()
TextBox_TreatmentProcedureAdopted.Text = dRow("TreatmentProcedureAdopted").ToString()
'--------Solid Waste Management (SWM)--
'Dim MyCheck32 As Boolean
'MyCheck32 = IsDBNull(dRow("PerCapitaSolidWasteGeneration"))
'If MyCheck32 = True Then
' TextBox_PerCapitaSolidWasteGeneration.Text = 0
'Else
' TextBox_PerCapitaSolidWasteGeneration.Text = dRow("PerCapitaSolidWasteGeneration")
'End If
Dim MyCheck33 As Boolean
MyCheck33 = IsDBNull(dRow("TotalSWGeneration"))
If MyCheck33 = True Then
TextBox_TotalSWGeneration.Text = 0
Else
TextBox_TotalSWGeneration.Text = dRow("TotalSWGeneration")
End If
Dim MyCheck34 As Boolean
MyCheck34 = IsDBNull(dRow("PerCapitaSolidWasteGeneration"))
If MyCheck34 = True Then
TextBox_PerCapitaSolidWasteGeneration.Text = 0
Else
TextBox_PerCapitaSolidWasteGeneration.Text = dRow("PerCapitaSolidWasteGeneration")
End If
Dim MyCheck35 As Boolean
MyCheck35 = IsDBNull(dRow("TotalSWGeneration"))
If MyCheck35 = True Then
TextBox_TotalSWGeneration.Text = 0
Else
TextBox_TotalSWGeneration.Text = dRow("TotalSWGeneration")
End If
Dim MyCheck36 As Boolean
MyCheck36 = IsDBNull(dRow("FrequencyOfSWCollection"))
If MyCheck36 = True Then
TextBox_FrequencyOfSWCollection.Text = 0
Else
TextBox_FrequencyOfSWCollection.Text = dRow("FrequencyOfSWCollection")
End If
Dim MyCheck37 As Boolean
MyCheck37 = IsDBNull(dRow("CollectionEfficiency"))
If MyCheck37 = True Then
TextBox_CollectionEfficiency.Text = 0
Else
TextBox_CollectionEfficiency.Text = dRow("CollectionEfficiency")
End If
TextBox_InitiativeForScientificDisposalOfWaste.Text = dRow("InitiativeForScientificDisposalOfWaste").ToString()
TextBox_NameOfLandfillSite.Text = dRow("NameOfLandfillSite").ToString()
TextBox_AllottedSiteForScientificDisposal.Text = dRow("AllottedSiteForScientificDisposal").ToString()
TextBox_AreaOfAllottedSiteForScientificDisposal.Text = dRow("AreaOfAllottedSiteForScientificDisposal").ToString()
Dim MyCheck38 As Boolean
MyCheck38 = IsDBNull(dRow("DistanceOfLandfillSiteFromMainSettlement"))
If MyCheck38 = True Then
TextBox_DistanceOfLandfillSiteFromMainSettlement.Text = 0
Else
TextBox_DistanceOfLandfillSiteFromMainSettlement.Text = dRow("DistanceOfLandfillSiteFromMainSettlement")
End If
TextBox_NoOfVehicleCarryingSWToLFSite.Text = dRow("NoOfVehicleCarryingSWToLFSite").ToString()
TextBox_FormalRequestForLFSite.Text = dRow("FormalRequestForLFSite").ToString()
TextBox_DTDCInitiative.Text = dRow("DTDCInitiative").ToString()
'--------DTDCInitiative
TextBox_NameOfNHPassingNearbyTown.Text = dRow("NameOfNHPassingNearbyTown").ToString()
TextBox_DistanceOfNHFromTown.Text = dRow("DistanceOfNHFromTown").ToString()
TextBox_NameOfSHPassingNearbyTown.Text = dRow("NameOfSHPassingNearbyTown").ToString()
Dim MyCheck1 As Boolean
MyCheck1 = IsDBNull(dRow("DistanceOfSHFromTown"))
If MyCheck1 = True Then
TextBox_DistanceOfSHFromTown.Text = 0
Else
TextBox_DistanceOfSHFromTown.Text = dRow("DistanceOfSHFromTown")
End If
Dim MyCheck2 As Boolean
MyCheck2 = IsDBNull(dRow("RoadPuccaCC"))
If MyCheck2 = True Then
TextBox_RoadPuccaCC.Text = 0
Else
TextBox_RoadPuccaCC.Text = dRow("RoadPuccaCC")
End If
Dim MyCheck3 As Boolean
MyCheck3 = IsDBNull(dRow("RoadPuccaWBM"))
If MyCheck3 = True Then
TextBox_RoadPuccaWBM.Text = 0
Else
TextBox_RoadPuccaWBM.Text = dRow("RoadPuccaWBM")
End If
Dim MyCheck4 As Boolean
MyCheck4 = IsDBNull(dRow("RoadKuccha"))
If MyCheck4 = True Then
TextBox_RoadKuccha.Text = 0
Else
TextBox_RoadKuccha.Text = dRow("RoadKuccha")
End If
Dim MyCheck5 As Boolean
MyCheck5 = IsDBNull(dRow("GapWRTStandards"))
If MyCheck5 = True Then
TextBox_GapWRTStandards.Text = 0
Else
TextBox_GapWRTStandards.Text = dRow("GapWRTStandards")
End If
'-----------Traffic & Transportation
TextBox_NoOfVehicles.Text = dRow("NoOfVehicles").ToString()
TextBox_BusStandYesNo.Text = dRow("BusStandYesNo").ToString()
TextBox_IntracityMassTransportMode.Text = dRow("IntracityMassTransportMode").ToString()
TextBox_LocationFacingMajorTrafficIssue1.Text = dRow("LocationFacingMajorTrafficIssue1").ToString()
TextBox_LocationFacingMajorTrafficIssue2.Text = dRow("LocationFacingMajorTrafficIssue2").ToString()
TextBox_LocationFacingMajorTrafficIssue3.Text = dRow("LocationFacingMajorTrafficIssue3").ToString()
TextBox_BeautifiedStreet.Text = dRow("BeautifiedStreet").ToString()
TextBox_BeautifiedStreetLength.Text = dRow("BeautifiedStreetLength").ToString()
'------------Street Lighting
Dim MyCheck6 As Boolean
MyCheck6 = IsDBNull(dRow("NoOfStreetLight"))
If MyCheck6 = True Then
TextBox_NoOfStreetLight.Text = 0
Else
TextBox_NoOfStreetLight.Text = dRow("NoOfStreetLight")
End If
Dim MyCheck17 As Boolean
MyCheck17 = IsDBNull(dRow("NoOfStreetlightUnderConstruction"))
If MyCheck17 = True Then
TextBox_NoOfStreetlightUnderConstruction.Text = 0
Else
TextBox_NoOfStreetlightUnderConstruction.Text = dRow("NoOfStreetlightUnderConstruction")
End If
Dim MyCheck7 As Boolean
MyCheck7 = IsDBNull(dRow("NoOfStreetlightTube"))
If MyCheck7 = True Then
TextBox_NoOfStreetlightTube.Text = 0
Else
TextBox_NoOfStreetlightTube.Text = dRow("NoOfStreetlightTube")
End If
TextBox_NoOfStreetlightCFL.Text = dRow("NoOfStreetlightCFL").ToString()
TextBox_NoOfStreetlightIBulb.Text = dRow("NoOfStreetlightIBulb").ToString()
Dim MyCheck8 As Boolean
MyCheck8 = IsDBNull(dRow("NoOfStreetlightLED"))
If MyCheck8 = True Then
TextBox_NoOfStreetlightLED.Text = 0
Else
TextBox_NoOfStreetlightLED.Text = dRow("NoOfStreetlightLED")
End If
TextBox_NoOfStreetlightLPS.Text = dRow("NoOfStreetlightLPS").ToString()
'--------------------Power
TextBox_SubstationLocation400KV.Text = dRow("SubstationLocation400KV").ToString()
TextBox_SubstationLocation220KV.Text = dRow("SubstationLocation220KV").ToString()
TextBox_SubstationLocation132KV.Text = dRow("SubstationLocation132KV").ToString()
TextBox_NoOfResidentialConnection.Text = dRow("NoOfResidentialConnection").ToString()
TextBox_NoOfCommercialConnection.Text = dRow("NoOfCommercialConnection").ToString()
TextBox_SubsidyForBPL.Text = dRow("SubsidyForBPL").ToString()
TextBox_DurationOfElectricitySupplyPerDay.Text = dRow("DurationOfElectricitySupplyPerDay").ToString()
'-------------------------Heritage & tourism
TextBox_NameOfHeritageSite.Text = dRow("NameOfHeritageSite").ToString()
TextBox_HeritageSiteOwnershipAgency.Text = dRow("HeritageSiteOwnershipAgency").ToString()
TextBox_PrevailingHeritageAct.Text = dRow("PrevailingHeritageAct").ToString()
TextBox_NameOfTouristSite.Text = dRow("NameOfTouristSite").ToString()
TextBox_TouristSiteOwnershipAgency.Text = dRow("TouristSiteOwnershipAgency").ToString()
TextBox_NoOfTouristVisitingPerDay.Text = dRow("NoOfTouristVisitingPerDay").ToString()
'--------------------------Environment
TextBox_NameOfRiverLakeForest.Text = dRow("NameOfRiverLakeForest").ToString()
TextBox_PrevailingEnvironmentalAct.Text = dRow("PrevailingEnvironmentalAct").ToString()
TextBox_AreasFacingEnvironmentalThreat.Text = dRow("AreasFacingEnvironmentalThreat").ToString()
'---------------------------Health
Dim MyCheck9 As Boolean
MyCheck9 = IsDBNull(dRow("NoOfPrimaryHealthCentreDispensary"))
If MyCheck9 = True Then
TextBox_NoOfPrimaryHealthCentreDispensary.Text = 0
Else
TextBox_NoOfPrimaryHealthCentreDispensary.Text = dRow("NoOfPrimaryHealthCentreDispensary")
End If
Dim MyCheck10 As Boolean
MyCheck10 = IsDBNull(dRow("NoOfGovernmentHospital"))
If MyCheck10 = True Then
TextBox_NoOfGovernmentHospital.Text = 0
Else
TextBox_NoOfGovernmentHospital.Text = dRow("NoOfGovernmentHospital")
End If
Dim MyCheck11 As Boolean
MyCheck11 = IsDBNull(dRow("NoOfPrivateHospitals"))
If MyCheck11 = True Then
TextBox_NoOfPrivateHospitals.Text = 0
Else
TextBox_NoOfPrivateHospitals.Text = dRow("NoOfPrivateHospitals")
End If
TextBox_MultispecialityHospital.Text = dRow("MultispecialityHospital").ToString()
TextBox_NearbyTownRefferedForTreatment.Text = dRow("NearbyTownRefferedForTreatment").ToString()
TextBox_DistnaceOfNearbyTownRefferedForTreatment.Text = dRow("DistnaceOfNearbyTownRefferedForTreatment").ToString()
'------------------------Education
Dim MyCheck12 As Boolean
MyCheck12 = IsDBNull(dRow("NoOfPrimarySchool"))
If MyCheck12 = True Then
TextBox_NoOfPrimarySchool.Text = 0
Else
TextBox_NoOfPrimarySchool.Text = dRow("NoOfPrimarySchool")
End If
TextBox_CapacityOfPrimarySchool.Text = dRow("CapacityOfPrimarySchool").ToString()
Dim MyCheck13 As Boolean
MyCheck13 = IsDBNull(dRow("NoOfSecondaryHighSchool"))
If MyCheck13 = True Then
TextBox_NoOfSecondaryHighSchool.Text = 0
Else
TextBox_NoOfSecondaryHighSchool.Text = dRow("NoOfSecondaryHighSchool")
End If
TextBox_CapacityOfSecondaryHighSchool.Text = dRow("CapacityOfSecondaryHighSchool").ToString()
Dim MyCheck14 As Boolean
MyCheck14 = IsDBNull(dRow("NoOfCollege"))
If MyCheck14 = True Then
TextBox_NoOfCollege.Text = 0
Else
TextBox_NoOfCollege.Text = dRow("NoOfCollege")
End If
TextBox_CapacityOfCollege.Text = dRow("CapacityOfCollege").ToString()
Dim MyCheck15 As Boolean
MyCheck15 = IsDBNull(dRow("NoOfITI"))
If MyCheck15 = True Then
TextBox_NoOfITI.Text = 0
Else
TextBox_NoOfITI.Text = dRow("NoOfITI")
End If
TextBox_CapacityOfITI.Text = dRow("CapacityOfITI").ToString()
'-----------------------Social Security Schemes
TextBox_NoOfBeneficiariesUnderSJSRY.Text = dRow("NoOfBeneficiariesUnderSJSRY").ToString()
TextBox_NoOfBeneficiariesUnderHaathThelaYojna.Text = dRow("NoOfBeneficiariesUnderHaathThelaYojna").ToString()
TextBox_NoOfNightShelter.Text = dRow("NoOfNightShelter").ToString()
TextBox_OwnershipOfRainBasera.Text = dRow("OwnershipOfRainBasera").ToString()
TextBox_NoOfBeneficiariesUnderGKMY.Text = dRow("NoOfBeneficiariesUnderGKMY").ToString()
TextBox_NameOfSSS1.Text = dRow("NameOfSSS1").ToString()
TextBox_NoOfBeneficiaries1.Text = dRow("NoOfBeneficiaries1").ToString()
TextBox_NameOfSSS2.Text = dRow("NameOfSSS2").ToString()
TextBox_NoOfBeneficiaries2.Text = dRow("NoOfBeneficiaries2").ToString()
TextBox_NameOfSSS3.Text = dRow("NameOfSSS3").ToString()
TextBox_NoOfBeneficiaries3.Text = dRow("NoOfBeneficiaries3").ToString()
'TextBox_ProjectedPopulation2025.Text = dRow("ProjectedPopulation2025").ToString()
'TextBox_ProjectedPopulation2035.Text = dRow("ProjectedPopulation2035").ToString()
'TextBox_ProjectedPopulation2025.Text = dRow("ProjectedPopulation2025").ToString()
'TextBox_ProjectedPopulation2035.Text = dRow("ProjectedPopulation2035").ToString()
'TextBox_PopulationProjectionMethod.Text = dRow("PopulationProjectionMethod ").ToString()
'TextBox_ProjectedPopulation2015.Text = dRow("ProjectedPopulation2015").ToString()
'TextBox_ProjectedPopulation2025.Text = dRow("ProjectedPopulation2025").ToString()
'TextBox_ProjectedPopulation2035.Text = dRow("ProjectedPopulation2035").ToString()
' TextBox_ULBName.Text = dRow("ULBNameEnglish").ToString()
'TextBox_CompanyName.Text = dRow("CompanyName").ToString()
Next
dsAdmin.Dispose()
myDataTable.Dispose()
'dlData.DataSource = myDataTable
'dlData.DataBind()
End Sub
Protected Sub DDLULBID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLULBID.SelectedIndexChanged
Call DataToList(DDLULBID.SelectedValue)
End Sub
Protected Sub Butt_Update_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Butt_Update.Click
Dim DBL As New DBL("SPTransSectoralAnalysis_I", True)
DBL.Parameters.AddWithValue("NoOfTubewell", TextBox_NoOfTubewell.Text)
DBL.Parameters.AddWithValue("WaterSuppliedByTubewell", TextBox_WaterSuppliedByTubewell.Text)
DBL.Parameters.AddWithValue("NoOfWell", TextBox_NoOfWell.Text)
DBL.Parameters.AddWithValue("WaterSuppliedByWell", TextBox_WaterSuppliedByWell.Text)
DBL.Parameters.AddWithValue("NoOfRiver", TextBox_NoOfRiver.Text)
DBL.Parameters.AddWithValue("WaterSuppliedByRiver", TextBox_WaterSuppliedByRiver.Text)
DBL.Parameters.AddWithValue("TotalWaterSupply", TextBox_TotalWaterSupply.Text)
DBL.Parameters.AddWithValue("ExistingSupplyRate", TextBox_ExistingSupplyRate.Text)
DBL.Parameters.AddWithValue("WaterChargesPerHousehold", TextBox_WaterChargesPerHousehold.Text)
DBL.Parameters.AddWithValue("WaterChargesFlatMetered", TextBox_WaterChargesFlatMetered.Text)
DBL.Parameters.AddWithValue("CoveragePaidWaterSupply", TextBox_CoveragePaidWaterSupply.Text)
DBL.Parameters.AddWithValue("TreatmentPlantYesNo", TextBox_TreatmentPlantYesNo.Text)
DBL.Parameters.AddWithValue("CapacityTreatmentPlant", TextBox_CapacityTreatmentPlant.Text)
DBL.Parameters.AddWithValue("ProposedSurfaceSource", TextBox_ProposedSurfaceSource.Text)
'--------Sewerage
DBL.Parameters.AddWithValue("TotalSewageGeneration", TextBox_TotalSewageGeneration.Text)
DBL.Parameters.AddWithValue("SewerageTreatmentPlantYesNo", TextBox_SewerageTreatmentPlantYesNo.Text)
DBL.Parameters.AddWithValue("CapacitySewerageTreatmentPlant", TextBox_CapacitySewerageTreatmentPlant.Text)
DBL.Parameters.AddWithValue("NoOfIndividualSepticTanks", TextBox_NoOfIndividualSepticTanks.Text)
DBL.Parameters.AddWithValue("NoOfCommunitySepticTank", TextBox_NoOfCommunitySepticTank.Text)
DBL.Parameters.AddWithValue("NoOfMudPump", TextBox_NoOfMudPump.Text)
DBL.Parameters.AddWithValue("CleaningFrequencyIndividualSepticTank", TextBox_CleaningFrequencyIndividualSepticTank.Text)
DBL.Parameters.AddWithValue("CleaningFrequencyCommunitySepticTank", TextBox_CleaningFrequencyCommunitySepticTank.Text)
'----------------Drainage
DBL.Parameters.AddWithValue("NameOfNaturalNallah", TextBox_NameOfNaturalNallah.Text)
DBL.Parameters.AddWithValue("LengthofNaturalNallah", TextBox_LengthofNaturalNallah.Text)
DBL.Parameters.AddWithValue("UltimateDisposalPointOfNallah", TextBox_UltimateDisposalPointOfNallah.Text)
DBL.Parameters.AddWithValue("LengthOfRoadSideDrain", TextBox_LengthOfRoadSideDrain.Text)
DBL.Parameters.AddWithValue("CoverageOfRoadSideDrainageWRTRoad", TextBox_CoverageOfRoadSideDrainageWRTRoad.Text)
DBL.Parameters.AddWithValue("UltimateDisposalPointOfRoadSideDrain", TextBox_UltimateDisposalPointOfRoadSideDrain.Text)
DBL.Parameters.AddWithValue("TreatmentProcedureAdopted", TextBox_TreatmentProcedureAdopted.Text)
'--------Solid Waste Management (SWM)--
DBL.Parameters.AddWithValue("PerCapitaSolidWasteGeneration", TextBox_PerCapitaSolidWasteGeneration.Text)
DBL.Parameters.AddWithValue("TotalSWGeneration", TextBox_TotalSWGeneration.Text)
DBL.Parameters.AddWithValue("FrequencyOfSWCollection", TextBox_FrequencyOfSWCollection.Text)
DBL.Parameters.AddWithValue("CollectionEfficiency", TextBox_CollectionEfficiency.Text)
DBL.Parameters.AddWithValue("InitiativeForScientificDisposalOfWaste", TextBox_InitiativeForScientificDisposalOfWaste.Text)
DBL.Parameters.AddWithValue("NameOfLandfillSite", TextBox_NameOfLandfillSite.Text)
DBL.Parameters.AddWithValue("AllottedSiteForScientificDisposal", TextBox_AllottedSiteForScientificDisposal.Text)
DBL.Parameters.AddWithValue("AreaOfAllottedSiteForScientificDisposal", TextBox_AreaOfAllottedSiteForScientificDisposal.Text)
DBL.Parameters.AddWithValue("DistanceOfLandfillSiteFromMainSettlement", TextBox_DistanceOfLandfillSiteFromMainSettlement.Text)
DBL.Parameters.AddWithValue("NoOfVehicleCarryingSWToLFSite", TextBox_NoOfVehicleCarryingSWToLFSite.Text)
DBL.Parameters.AddWithValue("FormalRequestForLFSite", TextBox_FormalRequestForLFSite.Text)
DBL.Parameters.AddWithValue("DTDCInitiative", TextBox_DTDCInitiative.Text)
'--------DTDCInitiative
DBL.Parameters.AddWithValue("NameOfNHPassingNearbyTown", TextBox_NameOfNHPassingNearbyTown.Text)
DBL.Parameters.AddWithValue("DistanceOfNHFromTown", TextBox_DistanceOfNHFromTown.Text)
DBL.Parameters.AddWithValue("NameOfSHPassingNearbyTown", TextBox_NameOfSHPassingNearbyTown.Text)
Dim MyCheck1 As Boolean
MyCheck1 = IsNumeric(TextBox_DistanceOfSHFromTown.Text)
If MyCheck1 = False Then
DBL.Parameters.AddWithValue("DistanceOfSHFromTown", 0)
Else
DBL.Parameters.AddWithValue("DistanceOfSHFromTown", TextBox_DistanceOfSHFromTown.Text)
End If
Dim MyCheck2 As Boolean
MyCheck2 = IsNumeric(TextBox_RoadPuccaCC.Text)
If MyCheck2 = False Then
DBL.Parameters.AddWithValue("RoadPuccaCC", 0)
Else
DBL.Parameters.AddWithValue("RoadPuccaCC", TextBox_RoadPuccaCC.Text)
End If
Dim MyCheck3 As Boolean
MyCheck3 = IsNumeric(TextBox_RoadPuccaWBM.Text)
If MyCheck3 = False Then
DBL.Parameters.AddWithValue("RoadPuccaWBM", 0)
Else
DBL.Parameters.AddWithValue("RoadPuccaWBM", TextBox_RoadPuccaWBM.Text)
End If
Dim MyCheck4 As Boolean
MyCheck4 = IsNumeric(TextBox_RoadKuccha.Text)
If MyCheck4 = False Then
DBL.Parameters.AddWithValue("RoadKuccha", 0)
Else
DBL.Parameters.AddWithValue("RoadKuccha", TextBox_RoadKuccha.Text)
End If
Dim MyCheck5 As Boolean
MyCheck5 = IsNumeric(TextBox_GapWRTStandards.Text)
If MyCheck5 = False Then
DBL.Parameters.AddWithValue("GapWRTStandards", 0)
Else
DBL.Parameters.AddWithValue("GapWRTStandards", TextBox_GapWRTStandards.Text)
End If
'-----------Traffic & Transportation
DBL.Parameters.AddWithValue("NoOfVehicles", TextBox_NoOfVehicles.Text)
DBL.Parameters.AddWithValue("BusStandYesNo", TextBox_BusStandYesNo.Text)
DBL.Parameters.AddWithValue("IntracityMassTransportMode", TextBox_IntracityMassTransportMode.Text)
DBL.Parameters.AddWithValue("LocationFacingMajorTrafficIssue1", TextBox_LocationFacingMajorTrafficIssue1.Text)
DBL.Parameters.AddWithValue("LocationFacingMajorTrafficIssue2", TextBox_LocationFacingMajorTrafficIssue2.Text)
DBL.Parameters.AddWithValue("LocationFacingMajorTrafficIssue3", TextBox_LocationFacingMajorTrafficIssue3.Text)
DBL.Parameters.AddWithValue("BeautifiedStreet", TextBox_BeautifiedStreet.Text)
DBL.Parameters.AddWithValue("BeautifiedStreetLength", TextBox_BeautifiedStreetLength.Text)
'------------Street Lighting
Dim MyCheck6 As Boolean
MyCheck6 = IsNumeric(TextBox_NoOfStreetLight.Text)
If MyCheck6 = False Then
DBL.Parameters.AddWithValue("NoOfStreetLight", 0)
Else
DBL.Parameters.AddWithValue("NoOfStreetLight", TextBox_NoOfStreetLight.Text)
End If
Dim MyCheck17 As Boolean
MyCheck17 = IsNumeric(TextBox_NoOfStreetlightUnderConstruction.Text)
If MyCheck17 = False Then
DBL.Parameters.AddWithValue("NoOfStreetlightUnderConstruction", 0)
Else
DBL.Parameters.AddWithValue("NoOfStreetlightUnderConstruction", TextBox_NoOfStreetlightUnderConstruction.Text)
End If
Dim MyCheck7 As Boolean
MyCheck7 = IsNumeric(TextBox_NoOfStreetlightTube.Text)
If MyCheck7 = False Then
DBL.Parameters.AddWithValue("NoOfStreetlightTube", 0)
Else
DBL.Parameters.AddWithValue("NoOfStreetlightTube", TextBox_NoOfStreetlightTube.Text)
End If
DBL.Parameters.AddWithValue("NoOfStreetlightCFL", TextBox_NoOfStreetlightCFL.Text)
DBL.Parameters.AddWithValue("NoOfStreetlightIBulb", TextBox_NoOfStreetlightIBulb.Text)
Dim MyCheck8 As Boolean
MyCheck8 = IsNumeric(TextBox_NoOfStreetlightLED.Text)
If MyCheck8 = False Then
DBL.Parameters.AddWithValue("NoOfStreetlightLED", 0)
Else
DBL.Parameters.AddWithValue("NoOfStreetlightLED", TextBox_NoOfStreetlightLED.Text)
End If
DBL.Parameters.AddWithValue("NoOfStreetlightLPS", TextBox_NoOfStreetlightLPS.Text)
'--------------------Power
DBL.Parameters.AddWithValue("SubstationLocation400KV", TextBox_SubstationLocation400KV.Text)
DBL.Parameters.AddWithValue("SubstationLocation220KV", TextBox_SubstationLocation220KV.Text)
DBL.Parameters.AddWithValue("SubstationLocation132KV", TextBox_SubstationLocation132KV.Text)
DBL.Parameters.AddWithValue("NoOfResidentialConnection", TextBox_NoOfResidentialConnection.Text)
DBL.Parameters.AddWithValue("NoOfCommercialConnection", TextBox_NoOfCommercialConnection.Text)
DBL.Parameters.AddWithValue("SubsidyForBPL", TextBox_SubsidyForBPL.Text)
DBL.Parameters.AddWithValue("DurationOfElectricitySupplyPerDay", TextBox_DurationOfElectricitySupplyPerDay.Text)
'-------------------------Heritage & tourism
DBL.Parameters.AddWithValue("NameOfHeritageSite", TextBox_NameOfHeritageSite.Text)
DBL.Parameters.AddWithValue("HeritageSiteOwnershipAgency", TextBox_HeritageSiteOwnershipAgency.Text)
DBL.Parameters.AddWithValue("PrevailingHeritageAct", TextBox_PrevailingHeritageAct.Text)
DBL.Parameters.AddWithValue("NameOfTouristSite", TextBox_NameOfTouristSite.Text)
DBL.Parameters.AddWithValue("TouristSiteOwnershipAgency", TextBox_TouristSiteOwnershipAgency.Text)
DBL.Parameters.AddWithValue("NoOfTouristVisitingPerDay", TextBox_NoOfTouristVisitingPerDay.Text)
'--------------------------Environment
DBL.Parameters.AddWithValue("NameOfRiverLakeForest", TextBox_NameOfRiverLakeForest.Text)
DBL.Parameters.AddWithValue("PrevailingEnvironmentalAct", TextBox_PrevailingEnvironmentalAct.Text)
DBL.Parameters.AddWithValue("AreasFacingEnvironmentalThreat", TextBox_AreasFacingEnvironmentalThreat.Text)
'---------------------------Health
Dim MyCheck9 As Boolean
MyCheck9 = IsNumeric(TextBox_NoOfPrimaryHealthCentreDispensary.Text)
If MyCheck9 = False Then
DBL.Parameters.AddWithValue("NoOfPrimaryHealthCentreDispensary", 0)
Else
DBL.Parameters.AddWithValue("NoOfPrimaryHealthCentreDispensary", TextBox_NoOfPrimaryHealthCentreDispensary.Text)
End If
Dim MyCheck10 As Boolean
MyCheck10 = IsNumeric(TextBox_NoOfGovernmentHospital.Text)
If MyCheck10 = False Then
DBL.Parameters.AddWithValue("NoOfGovernmentHospital", 0)
Else
DBL.Parameters.AddWithValue("NoOfGovernmentHospital", TextBox_NoOfGovernmentHospital.Text)
End If
Dim MyCheck11 As Boolean
MyCheck11 = IsNumeric(TextBox_NoOfPrivateHospitals.Text)
If MyCheck11 = False Then
DBL.Parameters.AddWithValue("NoOfPrivateHospitals", 0)
Else
DBL.Parameters.AddWithValue("NoOfPrivateHospitals", TextBox_NoOfPrivateHospitals.Text)
End If
DBL.Parameters.AddWithValue("MultispecialityHospital", TextBox_MultispecialityHospital.Text)
DBL.Parameters.AddWithValue("NearbyTownRefferedForTreatment", TextBox_NearbyTownRefferedForTreatment.Text)
DBL.Parameters.AddWithValue("DistnaceOfNearbyTownRefferedForTreatment", TextBox_DistnaceOfNearbyTownRefferedForTreatment.Text)
'------------------------Education
Dim MyCheck12 As Boolean
MyCheck12 = IsNumeric(TextBox_NoOfPrimarySchool.Text)
If MyCheck12 = False Then
DBL.Parameters.AddWithValue("NoOfPrimarySchool", 0)
Else
DBL.Parameters.AddWithValue("NoOfPrimarySchool", TextBox_NoOfPrimarySchool.Text)
End If
DBL.Parameters.AddWithValue("CapacityOfPrimarySchool", TextBox_CapacityOfPrimarySchool.Text)
Dim MyCheck13 As Boolean
MyCheck13 = IsNumeric(TextBox_NoOfSecondaryHighSchool.Text)
If MyCheck13 = False Then
DBL.Parameters.AddWithValue("NoOfSecondaryHighSchool", 0)
Else
DBL.Parameters.AddWithValue("NoOfSecondaryHighSchool", TextBox_NoOfSecondaryHighSchool.Text)
End If
DBL.Parameters.AddWithValue("CapacityOfSecondaryHighSchool", TextBox_CapacityOfSecondaryHighSchool.Text)
Dim MyCheck14 As Boolean
MyCheck14 = IsNumeric(TextBox_NoOfCollege.Text)
If MyCheck14 = False Then
DBL.Parameters.AddWithValue("NoOfCollege", 0)
Else
DBL.Parameters.AddWithValue("NoOfCollege", TextBox_NoOfCollege.Text)
End If
DBL.Parameters.AddWithValue("CapacityOfCollege", TextBox_CapacityOfCollege.Text)
Dim MyCheck15 As Boolean
MyCheck15 = IsNumeric(TextBox_NoOfITI.Text)
If MyCheck15 = False Then
DBL.Parameters.AddWithValue("NoOfITI", 0)
Else
DBL.Parameters.AddWithValue("NoOfITI", TextBox_NoOfITI.Text)
End If
DBL.Parameters.AddWithValue("CapacityOfITI", TextBox_CapacityOfITI.Text)
'-----------------------Social Security Schemes
DBL.Parameters.AddWithValue("NoOfBeneficiariesUnderSJSRY", TextBox_NoOfBeneficiariesUnderSJSRY.Text)
DBL.Parameters.AddWithValue("NoOfBeneficiariesUnderHaathThelaYojna", TextBox_NoOfBeneficiariesUnderHaathThelaYojna.Text)
DBL.Parameters.AddWithValue("NoOfNightShelter", TextBox_NoOfNightShelter.Text)
DBL.Parameters.AddWithValue("OwnershipOfRainBasera", TextBox_OwnershipOfRainBasera.Text)
DBL.Parameters.AddWithValue("NoOfBeneficiariesUnderGKMY", TextBox_NoOfBeneficiariesUnderGKMY.Text)
DBL.Parameters.AddWithValue("NameOfSSS1", TextBox_NameOfSSS1.Text)
DBL.Parameters.AddWithValue("NoOfBeneficiaries1", TextBox_NoOfBeneficiaries1.Text)
DBL.Parameters.AddWithValue("NameOfSSS2", TextBox_NameOfSSS2.Text)
DBL.Parameters.AddWithValue("NoOfBeneficiaries2", TextBox_NoOfBeneficiaries2.Text)
DBL.Parameters.AddWithValue("NameOfSSS3", TextBox_NameOfSSS3.Text)
DBL.Parameters.AddWithValue("NoOfBeneficiaries3", TextBox_NoOfBeneficiaries3.Text)
DBL.Parameters.AddWithValue("ulbid", DDLULBID.SelectedValue)
DBL.ExecuteNonQuery()
End Sub
Protected Sub Butt_Cancle_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Call DataToList(DDLULBID.SelectedValue)
End Sub
End Class
Discord hacker0088#9402
FSecurity.org