frmedithouse_building.vb

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

Friend Class frmEditHouse_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


    Private Sub DGVResult_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVResult.CellContentDoubleClick
        Dim FrmObj As New FrmAddHouse
        FrmObj.AddOrEditFlag = False
        FrmObj.HouseNo = DGVResult.Rows(e.RowIndex).Cells(0).Value
        Me.WindowState = FormWindowState.Minimized
        ' FrmObj.Parent = Me.MdiParent

        'Me.TopMost = True
        '  MsgBox(Me.MdiParent.Text.ToString())
        FrmObj.ShowDialog(Me.Parent)

        Me.WindowState = FormWindowState.Normal
        ' Me.BtnOK.PerformClick()
        DGVResult.DataSource = DBHouse.LoadHouse("HouseNo", Me.ComboBuilding.Text & "-" & Me.ComboUnit.Text & "-" & Me.TxtRoom.Text, "")

    End Sub

   
End Class