frmaddhouse.vb

由VB开发的基于SQL的小区物业管理系统

Class FrmAddHouse

    Public AddOrEditFlag As Boolean = True
    Public HouseNo As String
    Private Sub cancelCommand_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cancelCommand.Click
        Me.Close()
    End Sub





    Private Sub FrmAddHouse_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' MsgBox(Me.ClientSize.Width.ToString)
        If AddOrEditFlag = True Then
            Exit Sub
        Else
            Me.ComboBuilding.Enabled = False
            Me.ComboUnit.Enabled = False
            Me.TxtRoom.Enabled = False
            Dim DTable As DataTable
            DTable = DBHouse.LoadHouse("HouseNo", HouseNo, "")
            Me.txtHouseType.Text = Trim(DTable.Rows(0)("房屋类型"))
            Me.ComboBuilding.Text = Trim(DTable.Rows(0)("楼号"))
            Me.ComboUnit.Text = Trim(DTable.Rows(0)("单元号"))
            Me.TxtRoom.Text = Trim(DTable.Rows(0)("房间号"))
            Me.txtConstructArea.Text = DTable.Rows(0)("建筑面积")
            Me.TxtUsingArea.Text = DTable.Rows(0)("使用面积")
            Me.TxtLiverID.Text = DTable.Rows(0)("业主身份证号")
            Me.TxtName.Text = DTable.Rows(0)("业主姓名")
            Me.TxtPhone.Text = DTable.Rows(0)("联系电话")
            Me.txtMemo.Text = DTable.Rows(0)("备注")
        End If
    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If Trim(txtHouseType.Text) = "" Then
            MsgBox("请输入房型！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "警告")
            txtHouseType.Focus()
            Exit Sub
        End If
        If Not IsNumeric(txtConstructArea.Text) Then
            MsgBox("请输入建筑面积！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "警告")
            txtConstructArea.Focus()
            Exit Sub
        End If
        If Not IsNumeric(TxtUsingArea.Text) Then
            MsgBox("请输入使用面积！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "警告")
            TxtUsingArea.Focus()
            Exit Sub
        End If
        Dim TempHouse As New DBHouse
        TempHouse.HouseType = Me.txtHouseType.Text
        TempHouse.Building = Me.ComboBuilding.Text
        TempHouse.Unit = Me.ComboUnit.Text
        TempHouse.HouseNo = Me.ComboBuilding.Text & "-" & Me.ComboUnit.Text & "-" & Me.TxtRoom.Text
        TempHouse.Room = Me.TxtRoom.Text
        TempHouse.ConstructArea = Me.txtConstructArea.Text
        TempHouse.UsingArea = Me.TxtUsingArea.Text
        TempHouse.LiverID = Me.TxtLiverID.Text
        TempHouse.Name = Me.TxtName.Text
        TempHouse.Phone = Me.TxtPhone.Text
        TempHouse.Memo = Me.txtMemo.Text
        If AddOrEditFlag = True Then
            If Trim(Me.TxtRoom.Text) = "" Then
                MsgBox("请输入房间号！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "警告")
                TxtRoom.Focus()
                Exit Sub
            End If
            TempHouse.AddHouse()
        Else
            DBHouse.DelHouse(TempHouse.HouseNo)
            TempHouse.AddHouse()
            Me.Close()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(Me.ClientSize.Width.ToString)
        Dim XX As New FrmAddHouse
        XX.Show()
    End Sub
End Class