Decoration Mode Small Test

Background

Using the decoration mode to realize the control of authority after the login of the computer room charge system

General Ideas

Each user is a person, each permission can understand the different costumes of adults.

Program Structure

Code

Class1 's Code:

Public Class userlogin Public Overridable Sub Login () main.show () End subend classpublic Class finer:inheri TS userlogin Protected component as Userlogin public Sub decorate (component as userlogin) Me.component = Comp Onent End Sub Public Overrides Sub Login () If not (component was nothing) then component.        Login () End If end SubEnd Classpublic Class commonuserlogin:inherits Finer public Overrides Sub Login () Main. General user Toolstripmenuitem.visible = True mybase.login () End subend classpublic Class Operateuserlogin:inh Erits Finer Public Overrides Sub Login () Main. Operator toolstripmenuitem.visible = True mybase.login () End S Ubend classpublic Class mgruserlogin:inherits Finer public Overrides Sub Login () Main. Admin Toolstripmenuitem.vis ible = True mybase.login () End subend classpublic Class commonuser public Sub loginsystem () Dim Common User as Userlogin = New Userlogin () Dim Commonuserlogin as New commonuserlogin () commonuserlogin.decorate (Commonuser) COMMONUSERLOGIN.L Ogin () End subend classpublic Class operateuser public Sub loginsystem () Dim operateuser as Userlogin = New U        Serlogin () Dim commonuserlogin As New Commonuserlogin () Dim operateuserlogin As New Operateuserlogin ()    Commonuserlogin.decorate (Operateuser) operateuserlogin.decorate (commonuserlogin) OperateUserLogin.Login () End subend classpublic Class manageruser public Sub loginsystem () Dim manageruser as Userlogin = New Userlogi N () Dim commonuserlogin As New Commonuserlogin () Dim operateuserlogin As New Operateuserlogin () Dim M Anageruserlogin as New mgruserlogin () commonuserlogin.decorate (Manageruser) operateuserlogin.decorate (Common Userlogin) manageruserlogin.decorate (operateuserlogin) manageruserlogin.login () End subend Class

Form1 's Code:

Public Class Form1    Private Sub button1_click (sender as Object, e as EventArgs) Handles Button1.Click        If Radiobutto N1. Checked then            Dim commonuser as New commonuser            commonuser.loginsystem ()            Exit Sub        End if        if Radiobutton2.checked then            Dim operateuser as New operateuser            operateuser.loginsystem ()            Exit Sub        End If        radiobutton3.checked then            Dim mgruser as New manageruser            mgruser.loginsystem ()            Exit Sub        End If    End SubEnd Class

Operating effect:

Decoration Mode Small Test