frmfeerules.vb

来自「很完整的网吧收费管理系统,包含客户端和服务器端以及详细的使用说明.」· VB 代码 · 共 22 行

Public Class FrmFeeRules

    Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOK.Click
        Dim TempFeeRules As New ClsFeeRules
        TempFeeRules.Group = "临时用户"
        TempFeeRules.Amount = Val(Me.TxtGroup0.Text)
        TempFeeRules.AddRule()
        TempFeeRules.Group = "普通用户"
        TempFeeRules.Amount = Val(Me.TxtGroup1.Text)
        TempFeeRules.AddRule()
        TempFeeRules.Group = "银卡用户"
        TempFeeRules.Amount = Val(Me.TxtGroup2.Text)
        TempFeeRules.AddRule()
        TempFeeRules.Group = "金卡用户"
        TempFeeRules.Amount = Val(Me.TxtGroup3.Text)
        TempFeeRules.AddRule()
    End Sub

    Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
        Me.Close()
    End Sub
End Class