frmfindhouse_building.vb

Visual Basic 2005数据库通用模块开发与系统移植 物业管理信息系统

Friend Class frmFindHouse_Building
    Inherits System.Windows.Forms.Form

    Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs)
        Me.Close()

    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If Me.TxtRoom.Text = "" Then
            DGVResult.DataSource = DBHouse.LoadHouse("HouseNo", Me.ComboBuilding.Text & "-" & Me.ComboUnit.Text & "-", "LIKE")
        Else
            DGVResult.DataSource = DBHouse.LoadHouse("HouseNo", Me.ComboBuilding.Text & "-" & Me.ComboUnit.Text & "-" & Me.TxtRoom.Text, "")
        End If
    End Sub
End Class