frmedithouse_building.vb

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

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