frmdelfee_building.vb

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

Friend Class FrmDelFee_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 Trim(Me.TxtRoom.Text) = "" Then
            MsgBox("请输入房间号！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "警告")
            TxtRoom.Focus()
            Exit Sub
        End If
        Dim TempDBFee As New DBFee
        TempDBFee.FYear = ComboFYear.Text
        TempDBFee.Fmonth = ComboFmonth.Text
        TempDBFee.HouseNo = Me.ComboBuilding.Text & "-" & Me.ComboUnit.Text & "-" & Me.TxtRoom.Text
        DGVResult.DataSource = TempDBFee.LoadFee(2)
    End Sub


    Private Sub DGVResult_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVResult.CellContentDoubleClick
        Dim DR As DialogResult
        DR = MsgBox("请确认是否删除这条记录", MsgBoxStyle.YesNo, "信息框")
        If DR = Windows.Forms.DialogResult.Yes Then
            Dim TempDBFee As New DBFee
            TempDBFee.HouseNo = DGVResult.Rows(e.RowIndex).Cells(5).Value
            TempDBFee.FYear = DGVResult.Rows(e.RowIndex).Cells(1).Value
            TempDBFee.Fmonth = DGVResult.Rows(e.RowIndex).Cells(2).Value
            TempDBFee.DelFee()
        Else
            Exit Sub
        End If
        DGVResult.DataSource = DBHouse.LoadHouse("HouseNo", DGVResult.Rows(e.RowIndex).Cells(0).Value, "")
    End Sub
End Class