frmeditfee_feetype.vb

来自「Visual Basic 2005数据库通用模块开发与系统移植 物业管理信息系统」· VB 代码 · 共 22 行

Friend Class FrmDelFee_FeeType
    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
        Dim TempDBFee As New DBFee
        TempDBFee.FYear = ComboFYear.Text
        TempDBFee.Fmonth = ComboFmonth.Text
        TempDBFee.FeeType = ComboFeeType.Text
        DGVResult.DataSource = TempDBFee.LoadFee(1)
    End Sub


    Private Sub DGVResult_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVResult.CellContentDoubleClick

    End Sub
End Class