'========================
Public Function ControlRights(frm As Form)
    Dim Ctl As Control
    For Each Ctl In frm.Controls
        If TypeOf Ctl Is TextBox or TypeOf Ctl Is ComboBox Then
            If Ctl.Tag <> "" Then
                If Right(Ctl.Tag, 5) = Forms!sysfrmmain!dcode Then  'dCode = <XXX>
                    Ctl.Enabled = True
                Else
                    Ctl.Enabled = False
                End If
            Else
                Ctl.Enabled = True    '共用字段，如备注等
            End If
        End If
    Next
End Function
'========================