housesaleform.aspx.vb

与房地产相关的各项活动

'文件名：HouseSaleForm.aspx.vb
Imports System.Data.SqlClient
Imports System.Data
Partial Class HouseManage_HouseSaleForm
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim MyForbidString As String = Session("MyForbid").ToString()
        If (MyForbidString.IndexOf("B1") > 1) Then
            Server.Transfer("~/SystemManage/AllErrorHelp.aspx")
        End If
        If (Not IsPostBack) Then
            Dim MySQLConnectionString As String = ConfigurationManager.ConnectionStrings("MyHouseDBConnectionString").ConnectionString
            Dim MySQL As String = "Select * From 房源参数 Where 自编号='CQ001'"
            Dim MyConnection As New SqlConnection(MySQLConnectionString)
            MyConnection.Open()
            Dim MyHouseTable As New DataTable()
            Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
            MyAdapter.Fill(MyHouseTable)
            Dim MyName As String = "城区"
            Dim MyValue As String = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyDistData() As String = MyValue.Split("、")
            '设置所在城区列表项
            For Each MyString As String In MyDistData
                Me.DropDownList1.Items.Add(MyString)
            Next
            MyName = "类型"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyTypeData() As String = MyValue.Split("、")
            For Each MyString As String In MyTypeData
                Me.DropDownList3.Items.Add(MyString)
            Next
            MyName = "朝向"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyDireData() As String = MyValue.Split("、")
            For Each MyString As String In MyDireData
                Me.DropDownList2.Items.Add(MyString)
            Next
            MyName = "用途"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyUseData() As String = MyValue.Split("、")
            For Each MyString As String In MyUseData
                Me.DropDownList6.Items.Add(MyString)
            Next
            MyName = "土地"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyFieldData() As String = MyValue.Split("、")
            For Each MyString As String In MyFieldData
                Me.DropDownList4.Items.Add(MyString)
            Next
            MyName = "产权"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyPreData() As String = MyValue.Split("、")
            For Each MyString As String In MyPreData
                Me.DropDownList5.Items.Add(MyString)
            Next
            MyName = "结构"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyStruData() As String = MyValue.Split("、")
            For Each MyString As String In MyStruData
                Me.DropDownList7.Items.Add(MyString)
            Next
            MyName = "装修"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyDecoData() As String = MyValue.Split("、")
            For Each MyString As String In MyDecoData
                Me.DropDownList8.Items.Add(MyString)
            Next
            MyName = "证件"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyCertData() As String = MyValue.Split("、")
            For Each MyString As String In MyCertData
                Me.DropDownList9.Items.Add(MyString)
            Next
            MyName = "付款"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyPayData() As String = MyValue.Split("、")
            For Each MyString As String In MyPayData
                Me.DropDownList10.Items.Add(MyString)
            Next
            MyName = "货币"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyMoneyData() As String = MyValue.Split("、")
            For Each MyString As String In MyMoneyData
                Me.DropDownList11.Items.Add(MyString)
            Next
            MyName = "付佣"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyFeeData() As String = MyValue.Split("、")
            For Each MyString As String In MyFeeData
                Me.DropDownList12.Items.Add(MyString)
            Next
            MyName = "委托"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyDeleData() As String = MyValue.Split("、")
            For Each MyString As String In MyDeleData
                Me.DropDownList13.Items.Add(MyString)
            Next
            MyName = "来源"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MySourceData() As String = MyValue.Split("、")
            For Each MyString As String In MySourceData
                Me.DropDownList14.Items.Add(MyString)
            Next
            MyName = "状态"
            MyValue = MyHouseTable.Rows(0)(MyName).ToString()
            Dim MyStatusData() As String = MyValue.Split("、")
            For Each MyString As String In MyStatusData
                Me.DropDownList16.Items.Add(MyString)
            Next
            MySQL = "Select * From 职员信息"
            Dim MyPersonnelTable As New DataTable()
            MyAdapter = New SqlDataAdapter(MySQL, MyConnection)
            MyAdapter.Fill(MyPersonnelTable)
            MyName = "职员姓名"
            MyValue = MyPersonnelTable.Rows(0)(MyName).ToString()
            For Each MyRow As DataRow In MyPersonnelTable.Rows
                Me.DropDownList15.Items.Add(MyRow(MyName).ToString())
            Next
            If (MyConnection.State = ConnectionState.Open) Then
                MyConnection.Close()
            End If
        End If
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '新增出售房源信息
        Me.SqlDataSource1.Insert()
    End Sub
    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        '修改出售房源信息
        Me.SqlDataSource1.Update()
    End Sub
    Protected Sub GridView1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowCreated
        '弹出删除操作确认对话框
        If (e.Row.RowType = DataControlRowType.DataRow) Then
            Dim MyButton As Button = e.Row.FindControl("Button1")
            MyButton.OnClientClick = "return confirm('是否确认删除当前选择的记录？')"
        End If
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        '在控件中显示选择的记录
        Me.TextBox2.Text = Me.GridView1.SelectedRow.Cells(2).Text.ToString()
        Me.DropDownList1.SelectedValue = Me.GridView1.SelectedRow.Cells(3).Text.ToString()
        Me.TextBox4.Text = Me.GridView1.SelectedRow.Cells(4).Text.ToString()
        Me.TextBox5.Text = Me.GridView1.SelectedRow.Cells(5).Text.ToString()
        Me.TextBox6.Text = Me.GridView1.SelectedRow.Cells(6).Text.ToString()
        Me.TextBox7.Text = Me.GridView1.SelectedRow.Cells(7).Text.ToString()
        Me.TextBox8.Text = Me.GridView1.SelectedRow.Cells(8).Text.ToString()
        Me.TextBox9.Text = Me.GridView1.SelectedRow.Cells(9).Text.ToString()
        Me.TextBox10.Text = Me.GridView1.SelectedRow.Cells(10).Text.ToString()
        Me.TextBox11.Text = Me.GridView1.SelectedRow.Cells(11).Text.ToString()
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(12).Text.ToString()) = 1) Then
            Me.CheckBox1.Checked = True
        Else
            Me.CheckBox1.Checked = False
        End If
        Me.TextBox13.Text = Me.GridView1.SelectedRow.Cells(13).Text.ToString()
        Me.TextBox14.Text = Me.GridView1.SelectedRow.Cells(14).Text.ToString()
        Me.TextBox15.Text = Me.GridView1.SelectedRow.Cells(15).Text.ToString()
        Me.TextBox16.Text = Me.GridView1.SelectedRow.Cells(16).Text.ToString()
        Me.TextBox17.Text = Me.GridView1.SelectedRow.Cells(17).Text.ToString()
        Me.DropDownList2.SelectedValue = Me.GridView1.SelectedRow.Cells(18).Text.ToString()
        Me.TextBox19.Text = Me.GridView1.SelectedRow.Cells(19).Text.ToString()
        Me.DropDownList3.SelectedValue = Me.GridView1.SelectedRow.Cells(20).Text.ToString()
        Me.TextBox21.Text = Me.GridView1.SelectedRow.Cells(21).Text.ToString()
        Me.DropDownList4.SelectedValue = Me.GridView1.SelectedRow.Cells(22).Text.ToString()
        Me.DropDownList5.SelectedValue = Me.GridView1.SelectedRow.Cells(23).Text.ToString()
        Me.DropDownList6.SelectedValue = Me.GridView1.SelectedRow.Cells(24).Text.ToString()
        Me.DropDownList7.SelectedValue = Me.GridView1.SelectedRow.Cells(25).Text.ToString()
        Me.TextBox26.Text = Me.GridView1.SelectedRow.Cells(26).Text.ToString()
        Me.TextBox27.Text = Me.GridView1.SelectedRow.Cells(27).Text.ToString()
        Me.DropDownList8.SelectedValue = Me.GridView1.SelectedRow.Cells(28).Text.ToString()
        Me.TextBox29.Text = Me.GridView1.SelectedRow.Cells(29).Text.ToString()
        Me.TextBox30.Text = Me.GridView1.SelectedRow.Cells(30).Text.ToString()
        Me.TextBox31.Text = Me.GridView1.SelectedRow.Cells(31).Text.ToString()
        Me.TextBox32.Text = Me.GridView1.SelectedRow.Cells(33).Text.ToString()
        Me.TextBox33.Text = Me.GridView1.SelectedRow.Cells(34).Text.ToString()
        Me.TextBox34.Text = Me.GridView1.SelectedRow.Cells(35).Text.ToString()
        Me.TextBox35.Text = Me.GridView1.SelectedRow.Cells(36).Text.ToString()
        Me.DropDownList9.SelectedValue = Me.GridView1.SelectedRow.Cells(37).Text.ToString()
        Me.TextBox37.Text = Me.GridView1.SelectedRow.Cells(38).Text.ToString()
        Me.TextBox38.Text = Me.GridView1.SelectedRow.Cells(39).Text.ToString()
        Me.TextBox39.Text = Me.GridView1.SelectedRow.Cells(40).Text.ToString()
        Me.TextBox40.Text = Me.GridView1.SelectedRow.Cells(41).Text.ToString()
        Me.DropDownList10.SelectedValue = Me.GridView1.SelectedRow.Cells(42).Text.ToString()
        Me.DropDownList11.SelectedValue = Me.GridView1.SelectedRow.Cells(43).Text.ToString()
        Me.DropDownList12.SelectedValue = Me.GridView1.SelectedRow.Cells(44).Text.ToString()
        Me.TextBox44.Text = Me.GridView1.SelectedRow.Cells(45).Text.ToString()
        Me.TextBox45.Text = Me.GridView1.SelectedRow.Cells(46).Text.ToString()
        Me.TextBox46.Text = Me.GridView1.SelectedRow.Cells(47).Text.ToString()
        Me.TextBox47.Text = Me.GridView1.SelectedRow.Cells(48).Text.ToString()
        Me.DropDownList13.SelectedValue = Me.GridView1.SelectedRow.Cells(49).Text.ToString()
        Me.TextBox49.Text = Me.GridView1.SelectedRow.Cells(50).Text.ToString()
        Me.TextBox50.Text = Me.GridView1.SelectedRow.Cells(51).Text.ToString()
        Me.DropDownList14.SelectedValue = Me.GridView1.SelectedRow.Cells(52).Text.ToString()
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(53).Text.ToString()) = 1) Then
            Me.CheckBox2.Checked = True
        Else
            Me.CheckBox2.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(54).Text.ToString()) = 1) Then
            Me.CheckBox3.Checked = True
        Else
            Me.CheckBox3.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(55).Text.ToString()) = 1) Then
            Me.CheckBox4.Checked = True
        Else
            Me.CheckBox4.Checked = False
        End If
        Me.TextBox55.Text = Me.GridView1.SelectedRow.Cells(56).Text.ToString()
        Me.DropDownList15.SelectedValue = Me.GridView1.SelectedRow.Cells(57).Text.ToString()
        Me.DropDownList16.SelectedValue = Me.GridView1.SelectedRow.Cells(58).Text.ToString()
        Me.TextBox58.Text = Me.GridView1.SelectedRow.Cells(59).Text.ToString()
    End Sub
    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        '打印出售房源信息
        Server.Transfer("~/HouseManage/HouseSalePrint.aspx")
    End Sub
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrint建成年份() As String
        Get
            Dim MyDate As DateTime = DateTime.Parse(Me.TextBox21.Text)
            Return "建成年份：" + MyDate.Year.ToString() + "年 位置：" + Me.DropDownList1.SelectedValue.ToString() + Me.TextBox4.Text
        End Get
    End Property
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrint房屋产权() As String
        Get
            Return "土地：" + Me.DropDownList4.SelectedValue.ToString() + " 产权：" + Me.DropDownList5.SelectedValue.ToString() + " 装修：" + Me.DropDownList8.SelectedValue.ToString()
        End Get
    End Property
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrint建筑面积() As String
        Get
            Dim MyPrice As Integer = Convert.ToInt32(Me.TextBox31.Text) / 10000
            Return "建面(m2)：" + Me.TextBox26.Text + " 套面(m2)：" + Me.TextBox27.Text + " 售价：" + MyPrice.ToString() + "万元"
        End Get
    End Property
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrint房型物管费() As String
        Get
            Return "房型：" + Me.TextBox13.Text + "房" + Me.TextBox14.Text + "厅" + Me.TextBox15.Text + "厨" + Me.TextBox16.Text + "卫" + Me.TextBox17.Text + "阳台" + "　物管费：" + Me.TextBox19.Text
        End Get
    End Property
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrint家电家私() As String
        Get
            Return "家私：" + Me.TextBox32.Text + " 家电：" + Me.TextBox33.Text
        End Get
    End Property
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrint配套设施() As String
        Get
            Return "配套设施：" + Me.TextBox34.Text
        End Get
    End Property
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrint房源编号() As String
        Get
            Return "房源编号：" + Me.TextBox2.Text
        End Get
    End Property
End Class