frmfindhouse_building.vb

来自「由VB开发的基于SQL的小区物业管理系统」· VB 代码 · 共 17 行

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