frmeditfee_building.vb

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

Friend Class FrmEditFee_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 DGVResult_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVResult.CellContentDoubleClick
        Dim FrmObj As New FrmAddFee
        FrmObj.AddOrEditFlag = False
        FrmObj.HouseNo = DGVResult.Rows(e.RowIndex).Cells(5).Value
        FrmObj.FYear = DGVResult.Rows(e.RowIndex).Cells(1).Value
        FrmObj.Fmonth = DGVResult.Rows(e.RowIndex).Cells(2).Value
        Me.WindowState = FormWindowState.Minimized
        FrmObj.Show(Me.Parent)
        Me.WindowState = FormWindowState.Normal
        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 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
End Class