frm_getfineperday.vb

来自「是关于图书管理系统的用vb.net 和access开发的」· VB 代码 · 共 36 行

Public Class frm_getFinePerDay

    Friend fineperday As Decimal

    Friend rentdate As DateTime
    Friend duedate As DateTime
    Friend overDateNo As Integer
    Friend finePrice As Decimal

    Private Sub frm_getFinePerDay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        finePerDaytxt.Focus()
    End Sub


    Private Sub finePerDaytxt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles finePerDaytxt.KeyPress
        If e.KeyChar = ChrW(System.Windows.Forms.Keys.Enter) Then
            finePerDay = Decimal.Parse(finePerDaytxt.Text)



            Dim oupstr = ""

            finePrice = frm_ReturnBook.getOverDueFine()
            oupstr += "Rent Date:" & rentdate & ControlChars.NewLine _
          & "Due Date:" & duedate & ControlChars.NewLine _
            & "Exceed overdue date: " & overDateNo & " days" & ControlChars.NewLine & _
            "Total Fine:" & finePrice & ControlChars.NewLine

            Me.Hide()
            MsgBox(oupstr)

        End If


    End Sub
End Class